buildscripts/lys-to-tely.py

   1 #!@PYTHON@
   2
   3
   4 '''
   5 TODO:
   6
   7   * Add @nodes, plit at sections?
   8   * Less kludged first introduction file
   9   * include *.texi files for text at start of section?
  10
  11 '''
  12
  13
  14 import sys
  15 import os
  16 import string
  17 import getopt
  18
  19 program_name = 'lys-to-tely'
  20
  21 def help ():
  22         sys.stdout.write (r"""Usage: lys-to-tely [OPTIONS]... LY-FILE...
  23 Construct tely doc from LY-FILEs.
  24
  25 Options:
  26   -h, --help                print this help
  27   -o, --output=NAME         write tely doc to NAME
  28   -t, --title=TITLE         set tely doc title TITLE
  29
  30 """)
  31         sys.exit (0)
  32
  33 (options, files) = getopt.getopt(sys.argv[1:], 'hn:t:', [
  34         'help', 'name=', 'title='])
  35
  36 name="ly-doc"
  37 title="Ly Doc"
  38 for opt in options:
  39         o = opt[0]
  40         a = opt[1]
  41         if o == '-h' or o == '--help':
  42                 help ()
  43         elif o == '-n' or o == '--name':
  44                 name = a
  45         elif o == '-t' or o == '--title':
  46                 title = a
  47         else:
  48                 raise 'unknown opt ', o
  49
  50 def strip_extension (f, ext):
  51         (p, e) = os.path.splitext (f)
  52         if e == ext:
  53                 e = ''
  54         return p + e
  55
  56 if files:
  57         dir = os.path.dirname (name)
  58         if not dir:
  59                 dir = "."
  60         name = strip_extension (os.path.basename (name), ".tely")
  61
  62         s = '''\input texinfo
  63 @setfilename %s.info
  64 @settitle %s
  65
  66 @documentencoding utf-8
  67 @iftex
  68 @afourpaper
  69 @end iftex
  70
  71 @finalout @c we do not want black boxes.
  72
  73 @c fool ls-latex
  74 @ignore
  75 @author Han-Wen Nienhuys and Jan Nieuwenhuizen
  76 @title %s
  77 @end ignore
  78
  79 @node Top, , , (dir)
  80 ''' % (name, title, title)
  81
  82         def name2line (n):
  83                 # UGR
  84                 s = r"""
  85 @ifhtml
  86 @html
  87 <A NAME="%s"></A>
  88 @end html
  89 @end ifhtml
  90 """ % n
  91
  92                 s += "\n\n@lilypondfile[printfilename,texidoc]{%s}" % n
  93                 return s
  94         files.sort ()
  95         s = s + string.join (map (lambda x: name2line (x), files), "\n")
  96         s = s + '\n@bye\n'
  97         f = "%s/%s.tely" % (dir, name)
  98         sys.stderr.write ("%s: writing %s..." % (program_name, f))
  99         h = open (f, "w")
 100         h.write (s)
 101         h.close ()
 102         sys.stderr.write ('\n')
 103 else:
 104         # not Unix philosophy, but hey, at least we notice when
 105         # we don't distribute any .ly files.
 106         sys.stderr.write ("No files specified. Doing nothing")
 107