mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

Revision: lcourtes@laas.fr--2006-libre/guile-core--cvs-head--0--patch-82

Browse source 
Creator:  Ludovic Courtes <ludovic.courtes@laas.fr>

Slight edits to `srfi-37.scm'.

* srfi/srfi-37.scm: Don't use the SCSH comment syntax.  Properly use the
  `Commentary:' syntax.
This commit is contained in:
Ludovic Courtès 2007-07-18 20:40:16 +00:00
parent d4c382218d
commit 57e1ad75c7
1 changed files with 24 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

45
srfi/srfi-37.scm
View file

@ -6,40 +6,43 @@
;; modify it under the terms of the GNU Lesser General Public
;; License as published by the Free Software Foundation; either
;; version 2.1 of the License, or (at your option) any later version.
;;
;;
;; This library is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Lesser General Public License for more details.
;;
;;
;; You should have received a copy of the GNU Lesser General Public
;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
#! Commentary
;;; Commentary:
;;
;; To use this module with Guile, use (cdr (program-arguments)) as
;; the ARGS argument to `args-fold'. Here is a short example:
;;
;; (args-fold (cdr (program-arguments))
;; (let ((display-and-exit-proc
;; (lambda (msg)
;; (lambda (opt name arg)
;; (display msg) (quit) (values)))))
;; (list (option '(#\v "version") #f #f
;; (display-and-exit-proc "Foo version 42.0\n"))
;; (option '(#\h "help") #f #f
;; (display-and-exit-proc
;; "Usage: foo scheme-file ..."))))
;; (lambda (opt name arg)
;; (error "Unrecognized option `~A'" name))
;; (lambda (op) (load op) (values)))
;;
;;; Code:
To use this module with Guile, use (cdr (program-arguments)) as
the ARGS argument to `args-fold'. Here is a short example:
(args-fold (cdr (program-arguments))
(let ((display-and-exit-proc
(lambda (msg)
(lambda (opt name arg)
(display msg) (quit) (values)))))
(list (option '(#\v "version") #f #f
(display-and-exit-proc "Foo version 42.0\n"))
(option '(#\h "help") #f #f
(display-and-exit-proc
"Usage: foo scheme-file ..."))))
(lambda (opt name arg)
(error "Unrecognized option `~A'" name))
(lambda (op) (load op) (values)))
!#
;;;; Module definition & exports
(define-module (srfi srfi-37)
#:use-module (srfi srfi-9)
#:export (option option-names option-required-arg?
#:export (option option-names option-required-arg?
option-optional-arg? option-processor
args-fold))