- def name2line (n):
- # UGR
- if string.find (n, '+') >= 0:
- s = "@lilypondfile{%s}" % n
- else:
- s = "@lilypondfile[printfilename,verbatim]{%s}" % n
- return s
-
- s = s + string.join (map (lambda x: name2line (x), files), "\n")
- s = s + '\n@bye\n'
- f = "%s/%s.tely" % (dir, name)
- sys.stderr.write ("%s: writing %s..." % (program_name, f))
- h = open (f, "w")
- h.write (s)
- h.close ()
- sys.stderr.write ('\n')
+ def name2line (n):
+ # UGR
+ s = r"""
+@ifhtml
+@html
+<A NAME="%s"></A>
+@end html
+@end ifhtml
+""" % n
+
+ s += "\n\n@lilypondfile[printfilename,texidoc]{%s}" % n
+ return s
+ files.sort ()
+ s = s + string.join (map (lambda x: name2line (x), files), "\n")
+ s = s + '\n@bye\n'
+ f = "%s/%s.tely" % (dir, name)
+ sys.stderr.write ("%s: writing %s..." % (program_name, f))
+ h = open (f, "w")
+ h.write (s)
+ h.close ()
+ sys.stderr.write ('\n')