changeset 5797:5dc45b4ce366

lilypond-ancient: fix ly_symbol2string and fix #t -> ##t instances.
author Jan Nieuwenhuizen <janneke@gnu.org>
date Wed, 14 Oct 2009 16:43:34 +0200
parents ccfcbe9e2164
children fdd7ec0c5948
files gub/specs/lilypond-ancient.py
diffstat 1 files changed, 12 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/gub/specs/lilypond-ancient.py	Wed Oct 14 15:12:49 2009 +0200
+++ b/gub/specs/lilypond-ancient.py	Wed Oct 14 16:43:34 2009 +0200
@@ -132,6 +132,13 @@
 
 ''')],
                        '%(srcdir)s/lily/include/lily-guile.hh')
+        self.file_sub ([('''
+  return String ((Byte*)SCM_STRING_CHARS (s), (int) SCM_STRING_LENGTH (s));
+''', '''
+  SCM str = scm_symbol_to_string (s);
+  return ly_scm2string (str);
+''')],
+                       '%(srcdir)s/lily/lily-guile.cc', use_re=False)
         self.file_sub ([('\n\n(#ifndef YY_BUF_SIZE)',
                          r'''
 /* Flex >= 2.5.29 has include stack; but we don't use that yet.  */
@@ -173,6 +180,11 @@
                                [(r'(^|[^\\])([\\])(a|b|c|e|f|o)',r'\1\2\2\3')],
                                full_name)
         self.map_find_files (escape, '%(srcdir)s/scm', '.*[.]scm')
+        def escape2 (logger, full_name):
+            loggedos.file_sub (logger,
+                               [(r'(^|[^#])(#)(t|f)( |$)',r'\1\2\2\3\4')],
+                               full_name)
+        self.map_find_files (escape, '%(srcdir)s/ly', '.*[.]ly')
     def configure (self):
         lilypond.LilyPond__simple.configure (self)
         builddir = self.expand ('%(builddir)s')