--- /dev/null
+?RCS: $Id: Protochk.U,v $
+?RCS:
+?RCS: Copyright (c) 1998 Andy Dougherty
+?RCS:
+?RCS: You may distribute under the terms of either the GNU General Public
+?RCS: License or the Artistic License, as specified in the README file.
+?RCS:
+?X: This unit generates a ./protochk script that is used internally
+?X: by Configure to check if this system will accept a particular
+?X: prototype.
+?X:
+?X: To use it, say something like:
+?X: hdrs="$define sys/types.h
+?X: $i_systime sys/time.h
+?X: $i_sysselct sys/select.h
+?X: $d_socket sys/socket.h"
+?X: $xxx='fd_set *'
+?X: try='extern int select _((int, $xxx, $xxx, $xxx, struct timeval *'));'
+?X: if ./protochk "$try" $hdrs; then
+?X: echo "Your system accepts $xxx for the arguments to select."
+?X: fi
+?X: (Of course select is harder, since the first arg can be int,
+?X: size_t, or unsigned long, and the last arg may or may not have a
+?X: 'const' before the 'struct timeval' :-(. Also SunOS 4.1.3 doesn't
+?X: provide a select prototype so the compiler accepts anything :-).
+?X:
+?X: The C compiler on QNX warns about invalid pointer types, but
+?X: still exits with a 0 exit status, so it's not much help here.
+?X: (It does correctly detect incorrect non-pointer arguments).
+?X: Still, since QNX is a POSIX-ish system, just make your first
+?X: a POSIX-ish one, and QNX will probably accept it.
+?X:
+?X: For determining argument types, your compiler must support
+?X: prototypes, and the header files must use them. Determining
+?X: return types, however, is easier. Just give an ridiculous
+?X: return type, something like
+?X: ./protochk 'extern int atof _((void));' $i_stdlib stdlib.h
+?X: that should surely fail if atof() is defined in <stdlib.h>
+?X:
+?X: There is also an 'escape' hatch built in. If you have a pair
+?X: of args 'literal 'stuff' then 'stuff' gets included literally
+?X: into the test program. This could be useful for doing something
+?X: like
+?X: hdrs="$define stdio.h
+?X: $define sys/types.h"
+?X: ./protochk 'extern int fsetpos(FILE *, Fpos_t);' $args \
+?X: 'literal' '#define Fpos_t long long'
+?X: but you have to be really careful about the spaces in "literal".
+?X:
+?X: Andy Dougherty Feb. 1998
+?MAKE:Protochk: cat rm_try startsh eunicefix +cc +optimize +ccflags \
+ i_pthread usethreads
+?MAKE: -pick add $@ %<
+?F:./protochk
+?X: Comfort metalint. All these are actually used in the protochk script.
+?T:foo status pthread_h_done
+?LINT: change cc optimize ccflags define rm_try
+?LINT: extern pthread_h_first
+?LINT: change pthread_h_first
+?LINT: change usethreads
+?LINT: change i_pthread
+: define a function to check prototypes
+$cat > protochk <<EOSH
+$startsh
+cc="$cc"
+optimize="$optimize"
+ccflags="$ccflags"
+define="$define"
+rm_try="$rm_try"
+usethreads=$usethreads
+i_pthread=$i_pthread
+pthread_h_first=$pthread_h_first
+EOSH
+
+$cat >> protochk <<'EOSH'
+
+$rm_try
+foo="$1"
+shift
+while test $# -ge 2; do
+ case "$1" in
+ $define) echo "#include <$2>" >> try.c ;;
+ literal) echo "$2" >> try.c ;;
+ esac
+ # Extra magic for the benefit of systems that need pthread.h
+ # to be included early to correctly detect threadsafe functions.
+ # Such functions must guarantee themselves, though, that the usethreads
+ # and i_pthread have been defined, before calling protochk.
+ if test "$usethreads" = "$define" -a "$i_pthread" = "$define" -a "$pthread_h_first" = "$define" -a "$pthread_h_done" = ""; then
+ echo "#include <pthread.h>" >> try.c
+ pthread_h_done=yes
+ fi
+ shift 2
+done
+cat >> try.c <<'EOCP'
+#define _(args) args
+EOCP
+echo "$foo" >> try.c
+?X: Just so we have something to compile.
+echo 'int no_real_function_has_this_name _((void)) { return 0; }' >> try.c
+$cc $optimize $ccflags -c try.c > /dev/null 2>&1
+status=$?
+$rm_try
+exit $status
+EOSH
+chmod +x protochk
+$eunicefix protochk
+
?RCS: Revision 3.0 1993/08/18 12:09:36 ram
?RCS: Baseline for dist 3.0 netwide release.
?RCS:
-?MAKE:prototype: Myread Oldconfig cat +cc +ccflags rm Setvar i_stdlib
-?MAKE: -pick add $@ %<
+?MAKE:prototype: Nothing
?S:prototype:
?S: This variable holds the eventual value of CAN_PROTOTYPE, which
?S: indicates the C compiler can handle function prototypes.
?S:.
-?C:CAN_PROTOTYPE ~ %<:
-?C: If defined, this macro indicates that the C compiler can handle
-?C: function prototypes.
-?C:.
-?C:DOTS:
-?C: This macro is used to specify the ... in function prototypes which
-?C: have arbitrary additional arguments.
-?C:.
-?C:NXT_ARG:
-?C: This macro is used to separate arguments in the declared argument list.
-?C:.
-?C:P_FUNC:
-?C: This macro is used to declare "private" (static) functions.
-?C: It takes three arguments: the function type and name, a parenthesized
-?C: traditional (comma separated) argument list, and the declared argument
-?C: list (in which arguments are separated with NXT_ARG, and additional
-?C: arbitrary arguments are specified with DOTS). For example:
-?C:
-?C: P_FUNC(int foo, (bar, baz), int bar NXT_ARG char *baz[])
-?C:.
-?C:P_FUNC_VOID:
-?C: This macro is used to declare "private" (static) functions that have
-?C: no arguments. The macro takes one argument: the function type and name.
-?C: For example:
-?C:
-?C: P_FUNC_VOID(int subr)
-?C:.
-?C:V_FUNC:
-?C: This macro is used to declare "public" (non-static) functions.
-?C: It takes three arguments: the function type and name, a parenthesized
-?C: traditional (comma separated) argument list, and the declared argument
-?C: list (in which arguments are separated with NXT_ARG, and additional
-?C: arbitrary arguments are specified with DOTS). For example:
-?C:
-?C: V_FUNC(int main, (argc, argv), int argc NXT_ARG char *argv[])
-?C:.
-?C:V_FUNC_VOID:
-?C: This macro is used to declare "public" (non-static) functions that have
-?C: no arguments. The macro takes one argument: the function type and name.
-?C: For example:
-?C:
-?C: V_FUNC_VOID(int fork)
-?C:.
-?C:_ (P):
-?C: This macro is used to declare function parameters for folks who want
-?C: to make declarations with prototypes using a different style than
-?C: the above macros. Use double parentheses. For example:
-?C:
-?C: int main _((int argc, char *argv[]));
-?C:.
-?H:?%<:#$prototype CAN_PROTOTYPE /**/
-?H:?_:#ifdef CAN_PROTOTYPE
-?H:?NXT_ARG:#define NXT_ARG ,
-?H:?DOTS:#define DOTS , ...
-?H:?V_FUNC:#define V_FUNC(name, arglist, args)name(args)
-?H:?P_FUNC:#define P_FUNC(name, arglist, args)static name(args)
-?H:?V_FUNC_VOID:#define V_FUNC_VOID(name)name(void)
-?H:?P_FUNC_VOID:#define P_FUNC_VOID(name)static name(void)
-?H:?_:#define _(args) args
-?H:?_:#else
-?H:?NXT_ARG:#define NXT_ARG ;
-?H:?DOTS:#define DOTS
-?H:?V_FUNC:#define V_FUNC(name, arglist, args)name arglist args;
-?H:?P_FUNC:#define P_FUNC(name, arglist, args)static name arglist args;
-?H:?V_FUNC_VOID:#define V_FUNC_VOID(name)name()
-?H:?P_FUNC_VOID:#define P_FUNC_VOID(name)static name()
-?H:?_:#define _(args) ()
-?H:?_:#endif
-?H:.
-?W:%<:NXT_ARG DOTS V_FUNC P_FUNC V_FUNC_VOID P_FUNC_VOID _
-?LINT:set prototype
-: Cruising for prototypes
-echo " "
-echo "Checking out function prototypes..." >&4
-$cat >prototype.c <<EOCP
-#$i_stdlib I_STDLIB
-#ifdef I_STDLIB
-#include <stdlib.h>
-#endif
-int main(int argc, char *argv[]) {
- exit(0);}
-EOCP
-if $cc $ccflags -c prototype.c >prototype.out 2>&1 ; then
- echo "Your C compiler appears to support function prototypes."
- val="$define"
-else
- echo "Your C compiler doesn't seem to understand function prototypes."
- val="$undef"
-fi
-set prototype
-eval $setvar
-$rm -f prototype*
+: stub, never used
+prototype=nothing
https://perl5.git.perl.org / metaconfig.git / commitdiff