Commit | Line | Data |
---|---|---|
c99f9605 ML |
1 | #!/bin/sh |
2 | # Extract the doc stuff for builtin things. | |
3 | # | |
4 | # Copyright (C) 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc. | |
5 | # | |
6 | # This program is free software; you can redistribute it and/or modify | |
7 | # it under the terms of the GNU General Public License as published by | |
8 | # the Free Software Foundation; either version 2, or (at your option) | |
9 | # any later version. | |
10 | # | |
11 | # This program is distributed in the hope that it will be useful, | |
12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 | # GNU General Public License for more details. | |
15 | # | |
16 | # You should have received a copy of the GNU General Public License | |
17 | # along with this software; see the file COPYING. If not, write to | |
18 | # the Free Software Foundation, Inc., 59 Temple Place, Suite 330, | |
19 | # Boston, MA 02111-1307 USA | |
20 | ||
21 | bindir=`dirname $0` | |
22 | ||
23 | temp="/tmp/snarf.$$" | |
24 | trap "rm -f $temp" 0 1 2 15 | |
25 | ||
26 | ## Let the user override the preprocessor autoconf found. | |
27 | test -n "${CPP+set}" || CPP="@CPP@" | |
28 | ||
29 | ## We must use a temporary file here, instead of a pipe, because we | |
30 | ## need to know if CPP exits with a non-zero status. | |
31 | ${CPP} -DSCM_MAGIC_SNARF_DOCS "$@" > ${temp} || exit $? | |
32 | < ${temp} ${bindir}/guile_filter_doc_snarfage |