mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-06 23:50:18 +02:00
3dc81fbace
guile-doc-snarf script.
* guile-doc-snarf.in, guile-doc-snarf.awk: New, simple doc
extraction system. Builds foo.x, foo.doc from foo.{c,cc}.
There are dependencies between these files and snarf.h. This
replaces guile-snarf.
* guile-snarf.in: Drop everything after $$$ for the new snarf.h
macros. This is obsoleted by guile-doc-snarf, but kept here for
now for good measure.
* Makefile.am: Added guile-doc-snarf, guile-doc-snarf.awk to
bin_SCRIPTS. Added .doc to SUFFIXES, and give rule for creating
.doc files to use guile-doc-snarf. Update the rule for creating
.x files to use guile-doc-snarf.
17 lines
553 B
Bash
17 lines
553 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 "^ *% *% *%" | sed -e "s/^ *% *% *%//" -e 's/\$\$\$.*$//g'
|
|
|
|
## Apparently, AIX's preprocessor is unhappy if you try to #include an
|
|
## empty file.
|
|
echo
|