;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 2004--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
(define-module (scm output-texstr))
(define this-module (current-module))
(guile)
(ice-9 regex)
(srfi srfi-13)
+ (scm framework-tex)
(lily))
(define (dummy . foo) #f)
what
""))
+
(define-public (text font str)
(call-with-output-string
(lambda (port)
(display (format "\\lilygetmetrics{~a~a}{~a}{1.0}{~a}\n"
- (hash str 10000000)
+
+ (hash str TEX_STRING_HASHLIMIT)
(ly:font-file-name font)
(ly:font-file-name font)
- str) port)
+ (sanitize-tex-string str))
+ port)
)))