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 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
  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