Commit | Line | Data |
---|---|---|
3dc81fba GB |
1 | #!/bin/sh |
2 | # Extract the initialization actions for builtin things. | |
d6a35f3f | 3 | # |
230b61ab TTN |
4 | # Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. |
5 | # | |
d6a35f3f MV |
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. | |
230b61ab | 10 | # |
d6a35f3f MV |
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. | |
230b61ab | 15 | # |
d6a35f3f MV |
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 | |
3dc81fba | 20 | |
c99f9605 | 21 | fullfilename=$1 |
3dc81fba | 22 | |
aff882a8 | 23 | # strip path to source directory |
dd3c73d2 | 24 | filename=`basename $fullfilename` |
aff882a8 | 25 | |
a1bfef7f | 26 | no_ext=`echo $filename | sed 's/\.[^.]*$//g'` |
11a5232f | 27 | dot_doc=${no_ext}.doc |
3dc81fba | 28 | |
c99f9605 | 29 | bindir=`dirname $0` |
3dc81fba | 30 | |
c99f9605 | 31 | ${bindir}/guile-snarf-docs "$@" > $dot_doc |
3dc81fba | 32 | |
c99f9605 | 33 | ${bindir}/guile-snarf "$@" |
230b61ab TTN |
34 | |
35 | # guile-doc-snarf ends here |