mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-18 01:22:24 +02:00
17 lines
551 B
Bash
17 lines
551 B
Bash
#!/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
|