← Back to branch summary

~peter-pearse/ubuntu/natty/guile-1.8/prop001

« back to all changes in this revision

Viewing changes to libguile/guile-doc-snarf.in

  • Committer: Bazaar Package Importer
  • Author(s): Daniel Schepler
  • Date: 2006-11-09 03:11:16 UTC
  • Revision ID: james.westby@ubuntu.com-20061109031116-hu0q1jxqg12y6yeg
Tags: upstream-1.8.1+1
Import upstream version 1.8.1+1

Show diffs side-by-side

added added

removed removed

Lines of Context:
libguile/guile-doc-snarf.in
 
1
#!/bin/sh
 
2
# Extract the initialization actions for builtin things.
 
3
#
 
4
#  Copyright (C) 1999, 2000, 2001, 2006 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., 51 Franklin Street, Fifth Floor,
 
19
# Boston, MA 02110-1301 USA
 
20
 
 
21
fullfilename=$1
 
22
 
 
23
# strip path to source directory
 
24
filename=`basename $fullfilename`
 
25
 
 
26
no_ext=`echo $filename | sed 's/\.[^.]*$//g'`
 
27
dot_doc=${no_ext}.doc
 
28
 
 
29
bindir=`dirname $0`
 
30
 
 
31
${bindir}/guile-snarf-docs "$@" > $dot_doc
 
32
 
 
33
${bindir}/guile-snarf "$@"
 
34
 
 
35
# guile-doc-snarf ends here