Embed LilyPond source files inside generated PDF

scm/framework-ps.scm

 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
 ;;;; Copyright (C) 2004--2015 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,
@@ skipping 394 matching lines @@
                              (internal-font? (caddr name)))
                          (load-font-via-GS name)
                          (load-font name)))
                     (else
                      (load-font name)))))
            (pfas (map font-loader font-names)))
       pfas))
 
 
   (display "%%BeginProlog\n" port)
+
+   (if (ly:get-option 'embed-source-code)
+       (let ((source-list (ly:source-files #f))
+             (idx -1))
+         (display "\n/pdfmark where
+{pop} {userdict /pdfmark /cleartomark load put} ifelse" port)
+         (map (lambda (fname)
+                (set! idx (1+ idx))
+                (format port "\n
+/F (~a) (r) file def
+[ /_objdef {ly~a_stream} /type /stream /OBJ pdfmark
+[ {ly~a_stream} F /PUT pdfmark
+[ {ly~a_stream} << /Type /EmbeddedFile>> /PUT pdfmark
+[ /Rect [ 0 0 0 0] /Name /DummyAnchor~a
+/FS <</F (~a) /Type /FileSpec /EF << /F {ly~a_stream} >> >>
+/Subtype /FileAttachment /EMBED pdfmark\n"
+                fname idx idx idx idx fname idx))
+          source-list)))
+
   (format
    port
-   "/lilypond-datadir where {pop} {userdict /lilypond-datadir (~a) put } ifelse"
+   "\n/lilypond-datadir where {pop} {userdict /lilypond-datadir (~a) put } ifelse"
    (ly:get-option 'datadir))
+
   (if load-fonts?
       (for-each (lambda (f)
                   (format port "\n%%BeginFont: ~a\n" (car f))
                   (display (cdr f) port)
                   (display "%%EndFont\n" port))
                 (load-fonts paper)))
   (if (ly:bigpdfs)
       (display (procset "encodingdefs.ps") port))
   (display (setup-variables paper) port)
 
@@ skipping 295 matching lines @@
 
 (define-public (convert-to-ps book name)
   #t)
 
 (define-public (output-classic-framework basename book scopes fields)
   (ly:error (_ "\nThe PostScript backend does not support the
 system-by-system output.  For that, use the EPS backend instead,
 
   lilypond -dbackend=eps FILE
 
-If have cut & pasted a lilypond fragment from a webpage, be sure
+If you have cut & pasted a lilypond fragment from a webpage, be sure
 to only remove anything before
 
   %% ****************************************************************
   %% Start cut-&-pastable-section
   %% ****************************************************************
 ")))