Fix pthread_mutexattr_getrobust_np definition
[kopensolaris-gnu/glibc.git] / sysdeps / unix / make-syscalls.sh
1 #! /bin/sh
2
3 # Usage: make-syscalls.sh ../sysdeps/unix/common
4 # Expects $sysdirs in environment.
5
6 ##############################################################################
7
8 # Syscall Signature Key Letters for BP Thunks:
9 #
10 # a: unchecked address (e.g., 1st arg to mmap)
11 # b: non-NULL buffer (e.g., 2nd arg to read; return value from mmap)
12 # B: optionally-NULL buffer (e.g., 4th arg to getsockopt)
13 # f: buffer of 2 ints (e.g., 4th arg to socketpair)
14 # F: 3rd arg to fcntl
15 # i: scalar (any signedness & size: int, long, long long, enum, whatever)
16 # I: 3rd arg to ioctl
17 # n: scalar buffer length (e.g., 3rd arg to read)
18 # N: pointer to value/return scalar buffer length (e.g., 6th arg to recvfrom)
19 # p: non-NULL pointer to typed object (e.g., any non-void* arg)
20 # P: optionally-NULL pointer to typed object (e.g., 2nd argument to gettimeofday)
21 # s: non-NULL string (e.g., 1st arg to open)
22 # S: optionally-NULL string (e.g., 1st arg to acct)
23 # v: vararg scalar (e.g., optional 3rd arg to open)
24 # V: byte-per-page vector (3rd arg to mincore)
25 # W: wait status, optionally-NULL pointer to int (e.g., 2nd arg of wait4)
26
27 ptr='[abBfFINpPsSWV]'   # all pointer keyletters
28 int='[inv]'             # all scalar keyletters
29 typ='[ifnNpP]'          # typed-arg keyletters: we capture type for use in thunk
30
31 ##############################################################################
32
33 thisdir=$1; shift
34
35 echo ''
36 echo \#### DIRECTORY = $thisdir
37 # Check each sysdep dir with higher priority than this one,
38 # and remove from $calls all the functions found in other dirs.
39 # Punt when we reach the directory defining these syscalls.
40 sysdirs=`for dir in $sysdirs; do
41          test $dir = $thisdir && break; echo $dir; done`
42 echo \#### SYSDIRS = $sysdirs
43
44 # Get the list of system calls for this directory.
45 calls=`sed 's/#.*$//
46 /^[     ]*$/d' $thisdir/syscalls.list`
47
48 calls=`echo "$calls" |
49 while read file caller rest; do
50   # Remove each syscall that is implemented by a file in $dir.
51   # If a syscall specified a "caller", then only compile that syscall
52   # if the caller function is also implemented in this directory.
53   srcfile=-;
54   for dir in $sysdirs; do
55      { test -f $dir/$file.c && srcfile=$dir/$file.c; } ||
56      { test -f $dir/$file.S && srcfile=$dir/$file.S; } ||
57      { test -f $dir/$file.s && srcfile=$dir/$file.s; } ||
58      { test x$caller != x- &&
59         { { test -f $dir/$caller.c && srcfile=$dir/$caller.c; } ||
60           { test -f $dir/$caller.S && srcfile=$dir/$caller.S; } ||
61           { test -f $dir/$caller.s && srcfile=$dir/$caller.s; }; }; } && break;
62   done;
63   echo $file $srcfile $caller $rest;
64 done`
65
66 # Any calls left?
67 test -n "$calls" || exit 0
68
69 # Emit rules to compile the syscalls remaining in $calls.
70 echo "$calls" |
71 while read file srcfile caller syscall args strong weak; do
72
73   case x"$syscall" in
74   x-) callnum=_ ;;
75   *)
76   set `echo $syscall | sed -e 's/^\(.*\):\(.*\)/\1 \2/'`
77   syscall=$1; subcall=$2
78   # Figure out if $syscall is defined with a number in syscall.h.
79   callnum=-; subcallnum=
80   eval `{ echo "#include <sysdep.h>";
81         echo "callnum=SYS_ify ($syscall)"; } |
82           $asm_CPP -D__OPTIMIZE__ - |
83           sed -n -e "/^callnum=.*$syscall/d" \
84                  -e "/^\(callnum=\)[    ]*\(.*\)/s//\1'\2'/p"`
85     if test ! -z "$subcall" ; then
86       # Figure out if $subcall is defined with a number in syscall.h.
87         subcallnum=
88       eval `{ echo "#include <sysdep.h>";
89       echo "subcallnum=SYS_ify (SUB_$subcall)"; } |
90         $asm_CPP -D__OPTIMIZE__ - |
91         sed -n -e "/^subcallnum=.*$subcall/d" \
92           -e "/^\(subcallnum=\)[  ]*\(.*\)/s//\1'\2'/p"`
93     fi
94   ;;
95   esac
96
97   restart_line=
98   case $args in
99   R*) restart_line='#define SYSCALL_RESTARTABLE 1'; args=`echo $args | sed 's/R//'`;;
100   esac
101
102   cancellable=
103   noerrno=
104   case $args in
105   C*) cancellable=-cancel; args=`echo $args | sed 's/C:\?//'`;;
106   E*) noerrno=_NOERRNO; args=`echo $args | sed 's/E:\?//'`;;
107   V*) noerrno=_ERRVAL; args=`echo $args | sed 's/V:\?//'`;;
108   esac
109
110   # Derive the number of arguments from the argument signature
111   case $args in
112   [0-9]) nargs=$args;;
113   ?:) nargs=0;;
114   ?:?) nargs=1;;
115   ?:??) nargs=2;;
116   ?:???) nargs=3;;
117   ?:????) nargs=4;;
118   ?:?????) nargs=5;;
119   ?:??????) nargs=6;;
120   ?:???????) nargs=7;;
121   ?:????????) nargs=8;;
122   ?:?????????) nargs=9;;
123   esac
124
125   # Make sure only the first syscall rule is used, if multiple dirs
126   # define the same syscall.
127   echo ''
128   echo "#### CALL=$file NUMBER=$callnum SUBNUMBER=$subcallnum ARGS=$args SOURCE=$srcfile"
129
130  case x$srcfile"$callnum" in
131  x--)
132   # Undefined callnum for an extra syscall.
133   if [ x$caller != x- ]; then
134     if [ x$noerrno != x ]; then
135       echo >&2 "$0: no number for $fileno, no-error syscall ($strong $weak)"
136       exit 2
137     fi
138     echo "unix-stub-syscalls += $strong $weak"
139   fi
140   ;;
141  x*-) ;; ### Do nothing for undefined callnum
142  x-*)
143   echo "ifeq (,\$(filter $file,\$(unix-syscalls)))"
144
145   case $weak in
146   *@*)
147     # The versioned symbols are only in the shared library.
148     echo "ifneq (,\$(filter .os,\$(object-suffixes)))"
149     ;;
150   esac
151   # Accumulate the list of syscall files for this directory.
152   echo "unix-syscalls += $file"
153   test x$caller = x- || echo "unix-extra-syscalls += $file"
154
155   # Emit a compilation rule for this syscall.
156   case $weak in
157   *@*)
158     # The versioned symbols are only in the shared library.
159     echo "\
160 shared-only-routines += $file
161 \$(objpfx)${file}.os: \\"
162     ;;
163   *)
164     echo "\
165 \$(foreach o,\$(object-suffixes),\$(objpfx)$file\$o) \
166 \$(foreach o,\$(object-suffixes),\$(objpfx)ptw-$file\$o) \
167 \$(objpfx)rtld-$file.os: \\"
168     ;;
169   esac
170
171   echo "                \$(common-objpfx)s-proto$cancellable.d"
172   case x"$callnum" in
173   x_)
174   echo "\
175         (echo '/* Dummy module requested by syscalls.list */'; \\"
176   ;;
177   x*)
178   case x"$subcallnum" in
179     x) pseudo_line="PSEUDO$noerrno ($strong, $syscall, $nargs)";;
180     *) pseudo_line="PSEUDO_SUBCALL$noerrno ($strong, $syscall, $subcall, `expr $nargs + 1`)";;
181     esac
182
183   echo "\
184         \$(make-target-directory)
185         (echo '$restart_line'; \\
186          echo '#include <sysdep$cancellable.h>'; \\
187          echo '$pseudo_line'; \\
188          echo ' ret$noerrno'; \\
189          echo 'PSEUDO_END$noerrno($strong)'; \\
190          echo 'libc_hidden_def ($strong)'; \\"
191   ;;
192   esac
193
194   # Append any weak aliases or versions defined for this syscall function.
195
196   # A shortcoming in the current gas is that it will only allow one
197   # version-alias per symbol.  So we create new strong aliases as needed.
198   vcount=""
199
200   for name in $weak; do
201     case $name in
202       *@@*)
203         base=`echo $name | sed 's/@@.*//'`
204         ver=`echo $name | sed 's/.*@@//'`
205         if test -z "$vcount" ; then
206           source=$strong
207           vcount=1
208         else
209           source="${strong}_${vcount}"
210           vcount=`expr $vcount + 1`
211           echo "         echo 'strong_alias ($strong, $source)'; \\"
212         fi
213         echo "   echo 'default_symbol_version($source, $base, $ver)'; \\"
214         ;;
215       *@*)
216         base=`echo $name | sed 's/@.*//'`
217         ver=`echo $name | sed 's/.*@//'`
218         if test -z "$vcount" ; then
219           source=$strong
220           vcount=1
221         else
222           source="${strong}_${vcount}"
223           vcount=`expr $vcount + 1`
224           echo "         echo 'strong_alias ($strong, $source)'; \\"
225         fi
226         echo "   echo 'symbol_version($source, $base, $ver)'; \\"
227         ;;
228       !*)
229         name=`echo $name | sed 's/.//'`
230         echo "   echo 'strong_alias ($strong, $name)'; \\"
231         echo "   echo 'libc_hidden_def ($name)'; \\"
232         ;;
233       *)
234         echo "   echo 'weak_alias ($strong, $name)'; \\"
235         echo "   echo 'libc_hidden_weak ($name)'; \\"
236         ;;
237     esac
238   done
239
240   # And finally, pipe this all into the compiler.
241   echo '        ) | $(compile-syscall)'
242
243   case $weak in
244   *@*)
245     # The versioned symbols are only in the shared library.
246     echo endif
247     ;;
248   esac
249
250   echo endif
251  ;;
252  esac
253
254   case x"$callnum",$srcfile,$args in
255   x[_-],-,* | x*,*.[sS],*V*) ;;
256   x*,-,*$ptr* | x*,*.[sS],*$ptr*)
257
258     nv_weak=`for name in $weak; do
259                 case $name in
260                 *@*) ;;
261                 *) echo $name;;
262                 esac; done`
263
264     # choose the name with the fewest leading underscores, preferably none
265     set `echo $strong $nv_weak |tr '@ \t' ' \n\n' |sort -r`
266     callname=$1
267
268     # convert signature string to individual numbered arg names
269     # e.g., i:ipbN -> i0 i1 p2 b3 N4
270     set `echo $args |
271         sed -e 's/^\(.\):\(.*\)/\2 <\10>/' \
272             -e 's/^\([^ ]\)\(.*\)/\2 <\11>/' \
273             -e 's/^\([^ ]\)\(.*\)/\2 <\12>/' \
274             -e 's/^\([^ ]\)\(.*\)/\2 <\13>/' \
275             -e 's/^\([^ ]\)\(.*\)/\2 <\14>/' \
276             -e 's/^\([^ ]\)\(.*\)/\2 <\15>/' \
277             -e 's/^\([^ ]\)\(.*\)/\2 <\16>/' \
278             -e 's/^\([^ ]\)\(.*\)/\2 <\17>/' \
279             -e 's/^\([^ ]\)\(.*\)/\2 <\18>/' \
280             -e 's/^\([^ ]\)\(.*\)/\2 <\19>/'`
281     rtn=$1; shift
282     args=$*
283     arglist=`echo $* |sed 's/ /, /g'`
284
285     # The best way to understand what's going on here is to examine
286     # the output in BUILDDIR/sysd-syscalls.
287
288     # generate makefile envelope & rule head
289     echo "ifeq (,\$(filter $file,\$(bp-thunks)))"
290     echo "bp-thunks += $file"
291     echo "\$(objpfx)\$(bppfx)$file.ob: \$(common-objpfx)s-proto-bp.d"
292
293     # generate macro head
294     echo "      (echo '#define $callname(`echo $arglist | \
295             sed -e 's/[<>]//g'`) `echo $rtn | \
296             sed -e 's/<\('$typ'0\)>/\1v;/g' \
297                 -e 's/<\(b0\)>/x0; extern char \1v;/g'` \\'; \\"
298
299     # generate extern decls of dummy variables for each arg
300     echo "       echo '`echo $args | \
301             sed -e 's/<\('$typ'[1-9]\)>/extern \1, \1v;/g' \
302                 -e 's/<\([abBFIsSV][1-9]\)>/extern char \1v;/g' \
303                 -e 's/<\([Wv][1-9]\)>/extern int \1v;/g'` \\'; \\"
304
305     # generate bounded-pointer thunk declarator
306     echo "       echo '`echo $rtn | \
307             sed -e 's/<\('$ptr'0\)>/__typeof (\1v) *__bounded/g' \
308                 -e 's/<\('$int'0\)>/__typeof (\1v)/g'` BP_SYM ($strong) (`echo $arglist | \
309             sed -e 's/<\('$ptr'[1-9]\)>/__typeof (\1v) *__bounded \1a/g' \
310                 -e 's/<\('$int'[1-9]\)>/__typeof (\1v) \1a/g'`) { \\'; \\"
311
312     # generate extern primitive syscall declaration
313     echo "       echo '  extern `echo $rtn | \
314             sed -e 's/<\('$ptr'0\)>/__typeof (\1v) *__unbounded/g' \
315                 -e 's/<\('$int'0\)>/__typeof (\1v)/g'` ($callname) (`echo $arglist | \
316             sed -e 's/<\('$ptr'[1-9]\)>/__typeof (\1v) *__unbounded/g' \
317                 -e 's/<\('$int'[1-9]\)>/__typeof (\1v)/g'`); \\'; \\"
318
319     # generate call the primtive system call, optionally wrapping bounds
320     # around the result if the signature's return keyletter is `b'.
321     echo "       echo '  return `echo $rtn |
322             sed -e 's/<b0>/BOUNDED_N (/' \
323                 -e 's/<.0>//'`($callname) (`echo $arglist | \
324             sed -e 's/<\(a[1-9]\)>/__ptrvalue (\1a)/g' \
325                 -e 's/<\(n[1-9]\)>, <\(V[1-9]\)>/\1a, CHECK_N_PAGES (\2a, \1a)/g' \
326                 -e 's/<\(b[1-9]\)>, <\(n[1-9]\)>/CHECK_N (\1a, \2a), \2a/g' \
327                 -e 's/<\(b[1-9]\)>, <\(N[1-9]\)>/CHECK_N (\1a, *CHECK_1 (\2a)), __ptrvalue (\2a)/g' \
328                 -e 's/<\(B[1-9]\)>, <\(n[1-9]\)>/CHECK_N_NULL_OK (\1a, \2a), \2a/g' \
329                 -e 's/<\(B[1-9]\)>, <\(N[1-9]\)>/CHECK_N_NULL_OK (\1a, *CHECK_1 (\2a)), __ptrvalue (\2a)/g' \
330                 -e 's/<\(f[1-9]\)>/CHECK_N (\1a, 2)/g' \
331                 -e 's/<\(i[1-9]\)>, <\(F[1-9]\)>/\1a, CHECK_FCNTL (\2a, \1a)/g' \
332                 -e 's/<\(i[1-9]\)>, <\(I[1-9]\)>/\1a, CHECK_IOCTL (\2a, \1a)/g' \
333                 -e 's/<\(p[1-9]\)>/CHECK_1 (\1a)/g' \
334                 -e 's/<\([PW][1-9]\)>/CHECK_1_NULL_OK (\1a)/g' \
335                 -e 's/<\(s[1-9]\)>/CHECK_STRING (\1a)/g' \
336                 -e 's/<\(S[1-9]\)>/CHECK_STRING_NULL_OK (\1a)/g' \
337                 -e 's/<\([ivn][1-9]\)>/\1a/g'`)`echo $rtn $args |
338             sed -e 's/<b0>.*<\(n[1-9]\)>.*/, \1a)/' \
339                 -e 's/<.0>.*//'`; \\'; \\"
340
341     echo "       echo '} \\'; \\"
342
343     echo "       echo 'libc_hidden_def (BP_SYM ($strong)) \\'; \\"
344
345     # generate thunk aliases
346     for name in $nv_weak; do
347       echo "     echo 'weak_alias (BP_SYM ($strong), BP_SYM ($name)) \\'; \\"
348       echo "     echo 'libc_hidden_weak (BP_SYM ($name)) \\'; \\"
349     done
350
351     # wrap up
352     echo "\
353          echo ''; \\
354          echo '#include <bp-thunks.h>'; \\
355         ) | \$(COMPILE.c) -x c -o \$@ -"
356 ### Use this for debugging intermediate output:
357 ###     ) >\$(@:.ob=.c)
358 ###     \$(subst -c,-E,\$(COMPILE.c)) -o \$(@:.ob=.ib) \$(@:.ob=.c)
359 ###     \$(COMPILE.c) -x cpp-output -o \$@ \$(@:.ob=.ib)"
360     echo endif
361     ;;
362   esac
363
364 done