Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index d62c47369b31995b645888078ac52be343935496..d3cc27af551711f44edb4b8d4024c16ea78cc9c4 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c) 1998--2005 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 1998--2006 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;; Han-Wen Nienhuys <hanwen@cs.uu.nl>
 
 
@@ -10,9 +10,10 @@
   (for-each (lambda (x)
              (ly:add-option (car x) (cadr x) (caddr x)))
          
-           '((point-and-click #t "use point & click")
+           `((point-and-click #t "use point & click")
              (paper-size "a4" "the default paper size")
              (midi-debug #f "generate human readable MIDI")
+             (dump-signatures #f "dump output signatures of each system (EPS backend)")
              (internal-type-checking #f "check every property assignment for types")
              (parse-protect #t    "continue when finding errors in inline
 scheme are caught in the parser. If off, halt 
@@ -25,19 +26,28 @@ similar to chord syntax")
                           "experimental mechanism for remembering tweaks")
              (resolution 101 "resolution for generating bitmaps")
              (anti-alias-factor 1 "render at higher resolution and scale down result\nto prevent jaggies in PNG")
-             (preview-include-book-title #t "include book-titles in preview images.")
+             (book-title-preview #t "include book-titles in preview images.")
+             (eps-font-include #f "Include fonts in separate-system EPS files.")
              (gs-font-load #f
                            "load fonts via Ghostscript.")
              (gui #f "running from gui; redirect stderr to log file")
              (delete-intermediate-files #f
                                         "delete unusable PostScript files")
-             (verbose (ly:command-line-verbose?)  "value for the --verbose flag")
+             (safe #f "Run safely")
+             (verbose ,(ly:command-line-verbose?) "value for the --verbose flag")
+             (strict-infinity-checking #f "If yes, crash on encountering Inf/NaN")
              (ttf-verbosity 0
                           "how much verbosity for TTF font embedding?")
              (debug-gc #f
-                       "dump GC protection info"))))
+                       "dump GC protection info")
+             (show-available-fonts #f
+                                   "List  font names available.")
+             )))
 
-;; FIXME: stray statement
+
+;; need to do this in the beginning. Other parts of the
+;; Scheme init depend on these options.
+;;
 (define-scheme-options)
 
 (if (defined? 'set-debug-cell-accesses!)
@@ -85,10 +95,10 @@ similar to chord syntax")
    "."))
 
 
+;; TeX C++ code actually hooks into TEX_STRING_HASHLIMIT 
+(define-public TEX_STRING_HASHLIMIT 10000000)
+
 
-;; cpp hack to get useful error message
-(define ifdef "First run this through cpp.")
-(define ifndef "First run this through cpp.")
 
 ;; gettext wrapper for guile < 1.7.2
 (if (defined? 'gettext)
@@ -99,12 +109,12 @@ similar to chord syntax")
   (let* ((file-name (%search-load-path x)))
     (if (ly:get-option 'verbose)
        (ly:progress "[~A" file-name))
+    (if (not file-name)
+       (ly:error (_ "Can't find ~A" x)))
     (primitive-load file-name)
     (if (ly:get-option 'verbose)
        (ly:progress "]"))))
 
-(define-public TEX_STRING_HASHLIMIT 10000000)
-
 ;; Cygwin
 ;; #(CYGWIN_NT-5.1 Hostname 1.5.12(0.116/4/2) 2004-11-10 08:34 i686)
 ;;
@@ -156,6 +166,7 @@ similar to chord syntax")
 (define (type-check-list location signature arguments)
   "Typecheck a list of arguments against a list of type
 predicates. Print a message at LOCATION if any predicate failed."
+
   (define (recursion-helper signature arguments count) 
     (define (helper pred? arg count) 
       (if (not (pred? arg))
@@ -173,6 +184,7 @@ predicates. Print a message at LOCATION if any predicate failed."
        #t
        (and (helper (car signature) (car arguments) count)
             (recursion-helper (cdr signature) (cdr arguments) (1+ count)))))
+
   (recursion-helper signature arguments 1))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -216,6 +228,7 @@ The syntax is the same as `define*-public'."
          ;; load-from-path
          '("lily-library.scm"
            "file-cache.scm"
+           "define-event-classes.scm"
            "define-music-types.scm"
            "output-lib.scm"
            "c++.scm"
@@ -232,6 +245,7 @@ The syntax is the same as `define*-public'."
            "chord-name.scm"
 
            "parser-ly-from-scheme.scm"
+           "ly-syntax-constructors.scm"
            
            "define-context-properties.scm"
            "translation-functions.scm"
@@ -351,6 +365,8 @@ The syntax is the same as `define*-public'."
                   (string<? (car x) (car y)))))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
 (define-public (lilypond-main files)
   "Entry point for LilyPond."
   
@@ -376,6 +392,12 @@ The syntax is the same as `define*-public'."
 
 (define-public (lilypond-all files)
 
+  (if (ly:get-option 'show-available-fonts)
+      (begin
+       (ly:font-config-display-fonts)
+       (exit 0)
+       ))
+  
   (let* ((failed '())
         (handler (lambda (key failed-file)
                    (set! failed (append (list failed-file) failed)))))