+ (string-concatenate (map output-scope scopes)))
+
+(define-public (relevant-book-systems book)
+ (let ((systems (ly:paper-book-systems book)))
+ ;; skip booktitles.
+ (if (and (not (ly:get-option 'include-book-title-preview))
+ (pair? systems)
+ (ly:prob-property (car systems) 'is-book-title #f))
+ (cdr systems)
+ systems)))
+
+(define-public (relevant-dump-systems systems)
+ (let ((to-dump-systems '()))
+ (for-each
+ (lambda (sys)
+ (if (or (paper-system-title? sys)
+ (not (pair? to-dump-systems))
+ (paper-system-title? (car to-dump-systems)))
+ (set! to-dump-systems (cons sys to-dump-systems))))
+ systems)
+ to-dump-systems))
+
+(define missing-stencil-list '())
+
+(define-public (backend-testing output-module)
+ (define (missing-stencil-expression name)
+ (begin
+ (ly:warning (_ "missing stencil expression `~S'") name)
+ ""))
+
+ (for-each (lambda (x)
+ (if (not (module-defined? output-module x))
+ (begin
+ (module-define! output-module x
+ (lambda* (#:optional y . z)
+ (missing-stencil-expression x)))
+ (set! missing-stencil-list (cons x missing-stencil-list)))))
+ (ly:all-stencil-commands)))
+
+(define-public (remove-stencil-warnings output-module)
+ (for-each
+ (lambda (x)
+ (module-remove! output-module x))
+ missing-stencil-list))
+
+(define-public (font-name-split font-name)
+ "Return @code{(FONT-NAME . DESIGN-SIZE)} from @var{font-name} string
+or @code{#f}."
+ (let ((match (regexp-exec (make-regexp "(.*)-([0-9]*)") font-name)))
+ (if (regexp-match? match)
+ (cons (match:substring match 1) (match:substring match 2))
+ (cons font-name-designsize #f))))
+
+;; Example of a pango-physical-font
+;; ("Emmentaler-11" "/home/janneke/vc/lilypond/out/share/lilypond/current/fonts/otf/emmentaler-11.otf" 0)
+(define-public (pango-pf-font-name pango-pf)
+ "Return the font-name of the pango physical font @var{pango-pf}."
+ (list-ref pango-pf 0))
+(define-public (pango-pf-file-name pango-pf)
+ "Return the file-name of the pango physical font @var{pango-pf}."
+ (list-ref pango-pf 1))
+(define-public (pango-pf-fontindex pango-pf)
+ "Return the fontindex of the pango physical font @var{pango-pf}."
+ (list-ref pango-pf 2))
+
+(define (pango-font-name pango-font)
+ (let ((pf-fonts (ly:pango-font-physical-fonts pango-font)))
+ (if (pair? pf-fonts)
+ (pango-pf-font-name (car pf-fonts))
+ "")))
+
+(define-public (define-fonts paper define-font define-pango-pf)
+ "Return a string of all fonts used in @var{paper}, invoking the functions
+@var{define-font} and @var{define-pango-pf} for producing the actual font
+definition."
+
+ (let* ((font-list (ly:paper-fonts paper))
+ (pango-fonts (filter ly:pango-font? font-list))
+ (other-fonts (remove ly:pango-font? font-list))
+ (other-font-names (map ly:font-name other-fonts))
+ (pango-only-fonts
+ (remove (lambda (x)
+ (member (pango-font-name x) other-font-names))
+ pango-fonts)))
+
+ (define (font-load-command font)
+ (let* ((font-name (ly:font-name font))
+ (designsize (ly:font-design-size font))
+ (magnification (* (ly:font-magnification font)))
+ (ops (ly:output-def-lookup paper 'output-scale))
+ (scaling (* ops magnification designsize)))
+ (if (equal? font-name "unknown")
+ (display (list font font-name)))
+ (define-font font font-name scaling)))
+
+ (define (pango-font-load-command pango-font)
+ (let* ((pf-fonts (ly:pango-font-physical-fonts pango-font))
+ (pango-pf (if (pair? pf-fonts) (car pf-fonts) '("" "" 0)))
+ (font-name (pango-pf-font-name pango-pf))
+ (scaling (ly:output-def-lookup paper 'output-scale)))
+ (if (equal? font-name "unknown")
+ (display (list pango-font font-name)))
+ (define-pango-pf pango-pf font-name scaling)))