Remove non-free old and crusty clearcase pkg
[packages] / xemacs-packages / gnus / 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:
77
78 ;; arch-tag: 582279c5-b7bf-44b0-ba09-d243a7d7f6e0