cgit.sxemacs.org Git - gnus/blob - texi/xml2texi.sh

   1 #! /bin/sh
   2 #|
   3 exec mzscheme -mr $0 ${1+"$@"}
   4 |#
   5 ;; Copyright (C) 2005  Free Software Foundation, Inc.
   6 ;;
   7 ;;  Author:  Karl Pflästerer <sigurd@12move.de>
   8 ;;  Keywords: tools
   9 ;;
  10 ;;  This file is not part of GNU Emacs.
  11 ;;
  12 ;;  GNU Emacs is free software; you can redistribute it and/or modify
  13 ;;  it under the terms of the GNU General Public License as published by
  14 ;;  the Free Software Foundation; either version 3, or (at your option)
  15 ;;  any later version.
  16 ;;
  17 ;;  GNU Emacs is distributed in the hope that it will be useful,
  18 ;;  but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;;  GNU General Public License for more details.
  21 ;;
  22 ;;  You should have received a copy of the GNU General Public License
  23 ;;  along with GNU Emacs; see the file COPYING.  If not, write to the
  24 ;;  Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  25 ;;  Boston, MA 02110-1301, USA.
  26
  27 ;;; Commentary:
  28 ;;
  29 ;; Requirements:
  30 ;;
  31 ;; To run this scheme program you need MzScheme and DrScheme.
  32 ;;
  33 ;; Some URLs:
  34 ;; http://www.plt-scheme.org/software/mzscheme/
  35 ;; http://www.drscheme.org/
  36 ;; http://www.plt-scheme.org/software/
  37 ;;
  38 ;; ,----[ http://www.plt-scheme.org/license/ ]
  39 ;; | PLT software is distributed under the
  40 ;; |  GNU Lesser General Public License (LGPL).
  41 ;; `----
  42
  43 ;;; Code:
  44
  45 (require (lib "cmdline.ss"))
  46 (define +scmfile+ "xml2texi.scm")
  47 (define +in+ "gnus-faq.xml")
  48 (define +out+ "gnus-faq.texi")
  49
  50 (command-line
  51  "xml2texi"
  52  (current-command-line-arguments)
  53  (once-each
  54   (("-i" "--input") in "Name of XML data file (default gnus-faq.xml)"
  55    (set! +in+ in))
  56   (("-o" "--output") out "Name of output file (default gnus-faq.texi)"
  57    (set! +out+ out))
  58   (("-l" "--library") lib "Name of Scheme library to load (default xml2texi.scm)"
  59    (set! +scmfile+ lib)))
  60  (help-labels "The first (or only) remaining argument is used as the name of the Input file"
  61               "The second argument is used as the name of the Output file")
  62  (args infile+outfile
  63        (cond ((= (length infile+outfile) 2)
  64                (set! +in+ (car infile+outfile))
  65                (set! +out+ (cadr infile+outfile)))
  66              ((= (length infile+outfile) 1)
  67                (set! +in+ (car infile+outfile)))
  68              (else #f))))
  69
  70 (load +scmfile+)
  71 (main +in+ +out+)
  72
  73 ;; Local Variables:
  74 ;; mode: scheme
  75 ;; coding: iso-8859-1
  76 ;; End: