;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2000 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 2000--2003 Jan Nieuwenhuizen <janneke@gnu.org>
;;;; library funtions
(use-modules
- (ice-9 debug)
- (ice-9 getopt-long)
- (ice-9 string-fun)
- (ice-9 regex))
+ (ice-9 debug)
+ (ice-9 getopt-long)
+ (ice-9 string-fun)
+ (ice-9 rdelim)
+ (ice-9 regex))
;;; Script stuff
(define program-name "as2text")
(define (show-help)
(display "Convert AsciiScript to text.
-
-Usage: as2text [OPTION]... AS-FILE
+Usage: as2text [OPTIONS]... AS-FILE
Options:
- -h,--help this help
+ -h,--help show this help
-o,--output=FILE set output file
-v,--version show version
+
"))
;;
(let ((old-load-path %load-path))
(set! %load-path
(cons (string-append
- (or (getenv 'LILYPONDPREFIX) ".") "/mf")
+ (or (getenv "LILYPONDPREFIX") ".") "/mf")
(cons (string-append lily-home "/mf") %load-path)))
(let* ((path (%search-load-path name))
(text (if path
(define (set-line-char c)
(set! line-char c))
-(define (start-line height)
+(define (start-system width height)
(if first-line
(begin
(set! fonts (cons (cons "default" (generate-default-font)) fonts))
(set! canvas-height (inexact->exact (* scaling height)))
(set! canvas (make-array " " canvas-height canvas-width)))
-(define (stop-line)
+(define (stop-system)
(if first-line
(let ((output-file (if (equal? cur-output-name "-")
(current-output-port)