[bpt/guile.git] / libguile / guile-doc-snarf.in

#!/bin/sh
# Extract the initialization actions for builtin things.
#
#  Copyright (C) 1999, 2000, 2001, 2006 Free Software Foundation, Inc.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU Lesser General Public License as
# published by the Free Software Foundation; either version 3, or (at
# your option) any later version.
# 
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# Lesser General Public License for more details.
# 
# You should have received a copy of the GNU Lesser General Public
# License along with this software; see the file COPYING.LESSER.  If
# not, write to the Free Software Foundation, Inc., 51 Franklin
# Street, Fifth Floor, Boston, MA 02110-1301 USA

fullfilename=$1

# strip path to source directory
filename=`basename $fullfilename`

no_ext=`echo $filename | sed 's/\.[^.]*$//g'`
dot_doc=${no_ext}.doc

bindir=`dirname $0`

${bindir}/guile-snarf-docs "$@" > $dot_doc

${bindir}/guile-snarf "$@"

# guile-doc-snarf ends here
Commit	Line	Data
3dc81fba GB	1	#!/bin/sh
3dc81fba GB	2	# Extract the initialization actions for builtin things.
d6a35f3f	3	#
2b829bbb	4	# Copyright (C) 1999, 2000, 2001, 2006 Free Software Foundation, Inc.
230b61ab	5	#
d6a35f3f	6	# This program is free software; you can redistribute it and/or modify
53befeb7 NJ	7	# it under the terms of the GNU Lesser General Public License as
	8	# published by the Free Software Foundation; either version 3, or (at
	9	# your option) any later version.
	10	#
	11	# This program is distributed in the hope that it will be useful, but
	12	# WITHOUT ANY WARRANTY; without even the implied warranty of
	13	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	14	# Lesser General Public License for more details.
	15	#
	16	# You should have received a copy of the GNU Lesser General Public
	17	# License along with this software; see the file COPYING.LESSER. If
	18	# not, write to the Free Software Foundation, Inc., 51 Franklin
	19	# Street, Fifth Floor, Boston, MA 02110-1301 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
230b61ab TTN	35	# guile-doc-snarf ends here