[bpt/guile.git] / libguile / guile-snarf.in

#!/bin/sh
# Extract the initialization actions for builtin things.

temp="/tmp/snarf.$$"
trap "rm -f $temp" 0 1 2 15

## Let the user override the preprocessor autoconf found.
test -n "${CPP+set}" || CPP="@CPP@"

## We must use a temporary file here, instead of a pipe, because we
## need to know if CPP exits with a non-zero status.
${CPP} -DSCM_MAGIC_SNARFER "$@" > ${temp} || exit $?
< ${temp} grep "^ *SCM__I" | sed -e "s/^ *SCM__I//" -e 's/SCM__D.*$//g'

## Apparently, AIX's preprocessor is unhappy if you try to #include an
## empty file.
echo
Commit	Line	Data
adb75a41 TT	1	#!/bin/sh
	2	# Extract the initialization actions for builtin things.
	3
7677589a JB	4	temp="/tmp/snarf.$$"
	5	trap "rm -f $temp" 0 1 2 15
	6
63a646c5 JB	7	## Let the user override the preprocessor autoconf found.
63a646c5 JB	8	test -n "${CPP+set}" \|\| CPP="@CPP@"
7677589a JB	9
	10	## We must use a temporary file here, instead of a pipe, because we
	11	## need to know if CPP exits with a non-zero status.
	12	${CPP} -DSCM_MAGIC_SNARFER "$@" > ${temp} \|\| exit $?
e8ec2fd0	13	< ${temp} grep "^ SCM__I" \| sed -e "s/^ SCM__I//" -e 's/SCM__D.*$//g'
63a646c5 JB	14
	15	## Apparently, AIX's preprocessor is unhappy if you try to #include an
	16	## empty file.
	17	echo