Embed LilyPond source files inside generated PDF

scm/lily.scm

 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
 ;;;; Copyright (C) 1998--2015 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.
 ;;;;
@@ skipping 23 matching lines @@
 (read-enable 'positions)
 (if (not (guile-v2))
     (debug-enable 'debug)
     (begin
       (debug-enable 'backtrace)
       (debug-set! show-file-name #t)))
 
 (define-public PLATFORM
   (string->symbol
    (string-downcase
-    (car (string-tokenize (utsname:sysname (uname)))))))
+    (car (string-tokenize (utsname:sysname (uname)) char-set:letter)))))
+
+;; We don't use (srfi srfi-39) (parameter objects) here because that
+;; does not give us a name/handle to the underlying fluids themselves.
+
+(define %parser (make-fluid))
+(define %location (make-fluid))
+;; No public setters: should not get overwritten in action
+(define-public (*parser*) (fluid-ref %parser))
+(define-public (*location*) (fluid-ref %location))
+;; but properly scoped location should be fine
+(defmacro-public with-location (loc . body)
+  `(with-fluids ((,%location ,loc)) ,@body))
+
+;; It would be nice to convert occurences of parser/location to
+;; (*parser*)/(*location*) using the syncase module but it is utterly
+;; broken in GUILE 1 and would require changing a lot of unrelated
+;; innocuous constructs which just happen to fall apart with
+;; inscrutable error messages.
 
 ;;
 ;; Session-handling variables and procedures.
 ;;
 ;;  A "session" corresponds to one .ly file processed on a LilyPond
 ;;  command line.  Every session gets to see a reasonably fresh state
 ;;  of LilyPond and should work independently from previous files.
 ;;
 ;;  Session management relies on cooperation, namely the user not
 ;;  trying to change variables and data structures internal to
@@ skipping 430 matching lines @@
       (getcwd)))
 
 (define-public (is-absolute? file-name)
   (let ((file-name-length (string-length file-name)))
     (if (= file-name-length 0)
         #f
         (or (eq? (string-ref file-name 0) #\/)
             (and (eq? PLATFORM 'windows)
                  (> file-name-length 2)
                  (eq? (string-ref file-name 1) #\:)
-                 (eq? (string-ref file-name 2) #\/))))))
+                 (or (eq? (string-ref file-name 2) #\\)
+                     (eq? (string-ref file-name 2) #\/)))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; If necessary, emulate Guile V2 module_export_all! for Guile V1.8.n
 (cond-expand
  ((not guile-v2)
   (define (module-export-all! mod)
     (define (fresh-interface!)
       (let ((iface (make-module)))
         (set-module-name! iface (module-name mod))
         ;; for guile 2: (set-module-version! iface (module-version mod))
@@ skipping 50 matching lines @@
     "chord-ignatzek-names.scm"
     "music-functions.scm"
     "part-combiner.scm"
     "autochange.scm"
     "define-music-properties.scm"
     "time-signature.scm"
     "time-signature-settings.scm"
     "auto-beam.scm"
     "chord-name.scm"
     "bezier-tools.scm"
-    "ly-syntax-constructors.scm"
 
     "define-context-properties.scm"
     "translation-functions.scm"
     "script.scm"
     "midi.scm"
     "layout-beam.scm"
     "parser-clef.scm"
     "layout-slur.scm"
     "font.scm"
     "encoding.scm"
@@ skipping 134 matching lines @@
     (,ly:music-output? . "music output")
     (,ly:otf-font? . "OpenType font")
     (,ly:output-def? . "output definition")
     (,ly:page-marker? . "page marker")
     (,ly:pango-font? . "pango font")
     (,ly:paper-book? . "paper book")
     (,ly:paper-system? . "paper-system Prob")
     (,ly:pitch? . "pitch")
     (,ly:prob? . "property object")
     (,ly:score? . "score")
-    (,ly:simple-closure? . "simple closure")
     (,ly:skyline? . "skyline")
     (,ly:skyline-pair? . "pair of skylines")
     (,ly:source-file? . "source file")
     (,ly:spanner? . "spanner")
     (,ly:spring? . "spring")
     (,ly:stencil? . "stencil")
     (,ly:stream-event? . "stream event")
     (,ly:translator? . "translator")
     (,ly:translator-group? . "translator group")
     (,ly:undead? . "undead container")
@@ skipping 336 matching lines @@
             (ly:exit 0 #f)))))
 
 (define (gui-no-files-handler)
   (let* ((ly (string-append (ly:effective-prefix) "/ly/"))
          ;; FIXME: soft-code, localize
          (welcome-ly (string-append ly "Welcome_to_LilyPond.ly"))
          (cmd (get-editor-command welcome-ly 0 0 0)))
     (ly:message (_ "Invoking `~a'...\n") cmd)
     (system cmd)
     (ly:exit 1 #f)))