123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869 |
- #!/bin/sh
- filter='./guile_filter_doc_snarfage@EXEEXT@'
- test -n "${CPP+set}" || CPP="@CPP@"
- test -n "${AWK+set}" || AWK="@AWK@"
- bummer ()
- {
- echo 'Bad command-line' $1
- exit 1
- }
- test "x$1" = x-o || bummer
- shift
- test "x$1" = x && bummer ': missing DOC'
- output="$1"
- temout="$output"T
- shift
- test "x$1" && test -r "$1" || bummer ': missing SRC'
- input="$1"
- shift
- test "x$1" = x-- || bummer
- shift
- ${AWK} -f '@srcdir@/guile-func-name-check' "$input" || exit 1
- if ${CPP} -DSCM_MAGIC_SNARF_DOCS "$@" "$input" > "$temout" ; then
- $filter --filter-snarfage < "$temout" > "$output"
- rv=0
- else
- rv=1
- fi
- rm -f "$temout"
- exit $rv
|