/usr/share/lilypond/2.16.2/scm/framework-scm.scm is in lilypond-data 2.16.2-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | ;;;; framework-scm.scm -- output full-page stencil expressions
(define-module (scm framework-scm))
(use-modules
(ice-9 regex)
(ice-9 string-fun)
(guile)
(srfi srfi-1)
(ice-9 pretty-print)
(srfi srfi-13)
(scm page)
(lily))
(define format ergonomic-simple-format)
(define-public (output-framework basename book scopes fields)
(let* ((file (open-output-file (format #f "~a.scm" basename))))
(display ";;Creator: LilyPond\n" file)
(display ";; raw SCM output\n" file)
(for-each
(lambda (page)
(display ";;;;;;;;;;;;;;;;;;;;;;;;;;\n;;;PAGE\n" file)
;; The following two lines are alternates
;(pretty-print (ly:stencil-expr page) file)
(write (ly:stencil-expr page) file)
)
(map page-stencil (ly:paper-book-pages book)))))
(define-public output-classic-framework output-framework)
(define-public (convert-to-ps . args) #t)
(define-public (convert-to-pdf . args) #t)
(define-public (convert-to-png . args) #t)
|