-;;;; lily.scm -- top-level Scheme stuff
+;;;; This file is part of LilyPond, the GNU music typesetter.
;;;;
-;;;; source file of the GNU LilyPond music typesetter
-;;;;
-;;;; (c) 1998--2009 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; Copyright (C) 1998--2010 Jan Nieuwenhuizen <janneke@gnu.org>
;;;; Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;;
+;;;; LilyPond is free software: you can redistribute it and/or modify
+;;;; it under the terms of the GNU General Public License as published by
+;;;; the Free Software Foundation, either version 3 of the License, or
+;;;; (at your option) any later version.
+;;;;
+;;;; LilyPond 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 General Public License for more details.
+;;;;
+;;;; You should have received a copy of the GNU General Public License
+;;;; along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
;; Internationalisation: (_i "to be translated") gets an entry in the
;; POT file; (gettext ...) must be invoked explicitly to do the actual
"Render at higher resolution (using given factor)
and scale down result to prevent jaggies in
PNG images.")
+ (aux-files #t
+"Create .tex, .texi, .count files in the
+EPS backend.")
(backend ps
"Select backend. Possible values: 'eps, 'null,
-'ps, 'scm, 'svg.")
+'ps, 'scm, 'socket, 'svg.")
(check-internal-types #f
"Check every property assignment for types.")
(clip-systems #f
"Debug cyclic callback chains.")
(debug-skylines #f
"Debug skylines.")
- (delete-intermediate-files #f
+ (delete-intermediate-files #t
"Delete unusable, intermediate PostScript files.")
(dump-profile #f
"Dump memory and time information for each file.")
"midi")
"Set the default file extension for MIDI output
file to given string.")
+ (music-strings-to-paths #f
+"Convert text strings to paths when glyphs belong
+to a music font.")
(old-relative #f
"Make \\relative mode for simultaneous music work
similar to chord syntax.")
(pixmap-format "png16m"
"Set GhostScript's output format for pixel images.")
(preview #f
-"Create PNG and EPS preview images also.")
+"Create preview images also.")
(print-pages #t
"Print pages in the normal way.")
(protected-scheme-parsing #t
"List available font names.")
(verbose ,(ly:command-line-verbose?)
"Value of the --verbose flag (read-only).")
+ (warning-as-error #f
+"Change all warning and programming_error
+messages into errors.")
))
;; Need to do this in the beginning. Other parts of the Scheme
;(set-debug-cell-accesses! 1000)
(use-modules (ice-9 regex)
- (ice-9 safe)
- (ice-9 format)
- (ice-9 rdelim)
- (ice-9 optargs)
- (oop goops)
- (srfi srfi-1)
- (srfi srfi-13)
- (srfi srfi-14)
- (scm clip-region)
- (scm memory-trace)
- (scm coverage))
+ (ice-9 safe)
+ (ice-9 format)
+ (ice-9 rdelim)
+ (ice-9 optargs)
+ (oop goops)
+ (srfi srfi-1)
+ (srfi srfi-13)
+ (srfi srfi-14)
+ (scm clip-region)
+ (scm memory-trace)
+ (scm coverage))
(define-public fancy-format
format)
(define-public parser #f)
+(define music-string-to-path-backends
+ '(svg))
+
+(if (memq (ly:get-option 'backend) music-string-to-path-backends)
+ (ly:set-option 'music-strings-to-paths #t))
-;; gettext wrapper for guile < 1.7.2
-(if (defined? 'gettext)
- (define-public _ gettext)
- (define-public _ ly:gettext))
+(define-public _ gettext)
(define-public (ly:load x)
(let* ((file-name (%search-load-path x)))
(recursion-helper (cdr signature) (cdr arguments) (1+ count)))))
(recursion-helper signature arguments 1))
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; output
-
-;; (define-public (output-framework) (write "hello\n"))
-
-(define output-ps-module
- (make-module 1021 (list (resolve-interface '(scm output-ps)))))
-
-(define-public (ps-output-expression expr port)
- (display (eval expr output-ps-module) port))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Safe definitions utility
"part-combiner.scm"
"autochange.scm"
"define-music-properties.scm"
+ "beam-settings.scm"
"auto-beam.scm"
"chord-name.scm"
"paper.scm"
"backend-library.scm"
"x11-color.scm"
+ "tablature.scm"
;; must be after everything has been defined
"safe-lily.scm"))
(for-each ly:load init-scheme-files)
(set! type-p-name-alist
- `((,boolean-or-symbol? . "boolean or symbol")
- (,boolean? . "boolean")
+ `((,boolean? . "boolean")
+ (,boolean-or-symbol? . "boolean or symbol")
(,char? . "char")
(,grob-list? . "list of grobs")
(,hash-table? . "hash table")
(,input-port? . "input port")
(,integer? . "integer")
(,list? . "list")
+ (,list-or-symbol? . "list or symbol")
(,ly:context? . "context")
(,ly:dimension? . "dimension, in staff space")
(,ly:dir? . "direction")
(,ly:duration? . "duration")
+ (,ly:font-metric? . "font metric")
(,ly:grob? . "layout object")
+ (,ly:grob-array? . "array of grobs")
(,ly:input-location? . "input location")
(,ly:moment? . "moment")
(,ly:music? . "music")
+ (,ly:music-list? . "list of music objects")
+ (,ly:music-output? . "music output")
(,ly:pitch? . "pitch")
(,ly:translator? . "translator")
- (,ly:font-metric? . "font metric")
+ (,ly:score? . "score")
(,ly:simple-closure? . "simple closure")
+ (,ly:skyline-pair? . "pair of skylines")
+ (,ly:stencil? . "stencil")
(,markup-list? . "list of markups")
(,markup? . "markup")
- (,ly:music-list? . "list of music")
(,number-or-grob? . "number or grob")
(,number-or-string? . "number or string")
(,number-pair? . "pair of numbers")
(,output-port? . "output port")
(,pair? . "pair")
(,procedure? . "procedure")
+ (,real? . "real number")
(,rhythmic-location? . "rhythmic location")
(,scheme? . "any type")
(,string? . "string")
+ (,string-or-pair? . "string or pair")
(,symbol? . "symbol")
(,vector? . "vector")))
(stats (gc-stats)))
(list (- (+ (tms:cutime t)
(tms:utime t))
- (ly:assoc-get 'gc-time-taken stats))
- (ly:assoc-get 'total-cells-allocated stats 0))))
+ (assoc-get 'gc-time-taken stats))
+ (assoc-get 'total-cells-allocated stats 0))))
(define (dump-profile base last this)
(let* ((outname (format "~a.profile" (dir-basename base ".ly")))
(format "~a ~a ~a\n"
gc-protect-stat-count
sym
- (let ((sym-stat (assoc sym stats)))
- (if sym-stat
- (cdr sym-stat)
- "?")))
+ (assoc-get sym stats "?"))
+
outfile))
'(protected-objects bytes-malloced cell-heap-size)))
(set! gc-dumping #f)
projects / lilypond.git / blobdiff