scm/lily.scm

   1 ;;;; lily.scm -- implement Scheme output routines for TeX and PostScript
   2 ;;;;
   3 ;;;;  source file of the GNU LilyPond music typesetter
   4 ;;;;
   5 ;;;; (c) 1998--2000 Jan Nieuwenhuizen <janneke@gnu.org>
   6 ;;;; Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8 ;;; Library funtions
   9
  10 (use-modules (ice-9 regex))
  11
  12 ;;(write standalone (current-error-port))
  13
  14 ;;; General settings
  15
  16 (debug-enable 'backtrace)
  17
  18 (define point-and-click #f)
  19 (define security-paranoia #f)
  20 (define default-script-alist '())
  21 (define font-name-alist  '())
  22
  23 (if (not (defined? 'standalone))
  24     (define standalone (not (defined? 'ly-gulp-file))))
  25
  26 ;; The regex module may not be available, or may be broken.
  27 (define use-regex
  28   (let ((os (string-downcase (vector-ref (uname) 0))))
  29     (not (equal? "cygwin" (substring os 0 (min 6 (string-length os)))))))
  30
  31 ;; If you have trouble with regex, define #f
  32 (define use-regex #t)
  33 ;;(define use-regex #f)
  34
  35
  36 ;;; Un-assorted stuff
  37
  38 ;; URG guile-1.3/1.4 compatibility
  39 (define (ly-eval x) (eval2 x #f))
  40
  41 (define (sign x)
  42   (if (= x 0)
  43       1
  44       (if (< x 0) -1 1)))
  45
  46
  47 ;;(define major-scale
  48 ;;  '(
  49 ;;    (0 . 0)
  50 ;;    (1 . 0)
  51 ;;    (2 . 0)
  52 ;;    (3 . 0)
  53 ;;    (4 . 0)
  54 ;;    (5 . 0)
  55 ;;    (6 . 0)
  56 ;;   ))
  57
  58
  59 (map (lambda (x) (eval-string (ly-gulp-file x)))
  60      '("output-lib.scm"
  61        "tex.scm"
  62        "ps.scm"
  63        ;; "ascii-script.scm"
  64        ))
  65
  66 (if (not standalone)
  67     (map (lambda (x) (eval-string (ly-gulp-file x)))
  68          '("c++.scm"
  69            "grob-property-description.scm"
  70            "translator-property-description.scm"
  71            "interface-description.scm"
  72            "beam.scm"
  73            "clef.scm"
  74            "slur.scm"
  75            "font.scm"
  76            "auto-beam.scm"
  77            "generic-property.scm"
  78            "basic-properties.scm"
  79            "chord-name.scm"
  80            "grob-description.scm"
  81            )))