2 # aside from this initial boilerplate, this is actually -*- scheme -*- code
3 main
='(module-ref (resolve-module '\''(scripts display-commentary)) '\'main
')'
4 exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
6 ;;; display-commentary
--- As advertized
8 ;; Copyright
(C
) 2001 Free Software Foundation
, Inc.
10 ;; This program is free software
; you can redistribute it and
/or
11 ;; modify it under the terms of the GNU General Public License as
12 ;; published by the Free Software Foundation
; either version
2, or
13 ;; (at your option
) any later version.
15 ;; This program is distributed
in the hope that it will be useful
,
16 ;; but WITHOUT ANY WARRANTY
; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License
for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with this software
; see the
file COPYING. If not
, write to
22 ;; the Free Software Foundation
, Inc.
, 59 Temple Place
, Suite
330,
23 ;; Boston
, MA
02111-1307 USA
25 ;;; Author
: Thien-Thi Nguyen
29 ;; Usage
: display-commentary FILE1 FILE2 ...
31 ;; Display Commentary section from FILE1
, FILE2 and so on.
35 (define-module
(scripts display-commentary
)
36 :use-module
(ice-9 documentation
)
37 :export (display-commentary
))
39 (define
(display-commentary-one
file)
40 (format
#t "~A commentary:\n~A" file (file-commentary file)))
42 (define
(display-commentary . files
)
43 (for-each display-commentary-one files
))
45 (define main display-commentary
)
47 ;;; display-commentary ends here