diff options
| author | Phil Holmes <mail@philholmes.net> | 2012-02-25 15:23:29 +0000 |
|---|---|---|
| committer | David Kastrup <dak@gnu.org> | 2012-03-07 22:03:09 +0100 |
| commit | 37082ba067de04d1892a514df2e08f34b91829ac (patch) | |
| tree | 89dc0b772e00f6216b01a8c1b38f356d7c58d827 /scripts | |
| parent | 46d25804011e815f0fbf782b3c7d330812d1acc7 (diff) | |
Removes mutopia-index.py processing
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/build/mutopia-index.py | 197 |
1 files changed, 0 insertions, 197 deletions
diff --git a/scripts/build/mutopia-index.py b/scripts/build/mutopia-index.py deleted file mode 100644 index 31fa6ac492..0000000000 --- a/scripts/build/mutopia-index.py +++ /dev/null @@ -1,197 +0,0 @@ -#!@PYTHON@ -# mutopia-index.py - -import fnmatch -import getopt -import os -import re -import stat -import sys - -def find (pat, dir): - f = os.popen ('find %s -name "%s"'% (dir, pat)) - lst = [] - for a in f.readlines(): - a = a[:-1] - lst.append (a) - return lst - - -junk_prefix = 'out-www/' - -headertext= r""" - -<h1>LilyPond samples</h1> - - -<p>You are looking at a page with some LilyPond samples. These files -are also included in the distribution. The output is completely -generated from the source file, without any further touch up. - -<p> - -The pictures are 90 dpi anti-aliased snapshots of the printed output. -For a good impression of the quality print out the PDF file. -""" - -headertext_nopics= r""" -<p>No examples were found in this directory. -""" - -# -# FIXME breaks on multiple strings. -# -def read_lilypond_header (fn): - s = open (fn).read () - s = re.sub ('%.*$', '', s) - s = re.sub ('\n', ' ', s) - - dict = {} - m = re.search (r"""\\header\s*{([^}]*)}""", s) - - if m: - s = m.group (1) - else: - return dict - - while s: - m = re.search (r'''\s*(\S+)\s*=\s*"([^"]+)"''', s) - if m == None: - s = '' - else: - s = s[m.end (0):] - left = m.group (1) - right = m.group (2) - - left = re.sub ('"', '', left) - right = re.sub ('"', '', right) - dict[left] = right - - return dict - -def help (): - sys.stdout.write (r'''Usage: mutopia-index [OPTIONS] INFILE OUTFILE -Generate index for mutopia. - -Options: - -h, --help print this help - -o, --output=FILE write output to file - -s, --subdirs=DIR add subdir - --suffix=SUF specify suffix - -''') - sys.exit (0) - -# ugh. -def gen_list (inputs, file_name): - sys.stderr.write ("generating HTML list %s" % file_name) - sys.stderr.write ('\n') - if file_name: - list = open (file_name, 'w') - else: - list = sys.stdout - list.write ('''<html><head><title>Rendered Examples</title> -<style type="text/css"> -hr { border:0; height:1; color: #000000; background-color: #000000; }\n -</style> -<meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> -</head>''') - - list.write ('<body bgcolor=white>\n') - - if inputs: - list.write (headertext) - else: - list.write (headertext_nopics) - - for ex in inputs: - print ex - - (base, ext) = os.path.splitext (ex) - (base, ext2) = os.path.splitext (base) - ext = ext2 + ext - - header = read_lilypond_header (ex) - head = header.get ('title', os.path.basename (base)) - composer = header.get ('composer', '') - desc = header.get ('description', '') - list.write ('<hr>\n') - list.write ('<h1>%s</h1>\n' % head); - if composer: - list.write ('<h2>%s</h2>\n' % composer) - if desc: - list.write ('%s<p>' % desc) - list.write ('<ul>\n') - - def list_item (file_name, desc, type, lst = list): - if os.path.isfile (file_name): - lst.write ('<li><a href="%s">%s</a>' - % (re.sub (junk_prefix, '', file_name), desc)) - - # FIXME: include warning if it uses \include - # files. - - size = os.stat (file_name)[stat.ST_SIZE] - kB = (size + 512) / 1024 - if kB: - lst.write (' (%s %d kB)' % (type, kB)) - else: - lst.write (' (%s %d characters)' - % (type, size)) - pictures = ['jpeg', 'png', 'xpm'] - lst.write ('\n') - else: - print "cannot find" , `file_name` - - list_item (base + ext, 'The input', 'ASCII') - - pages_found = 0 - for page in range (1, 100): - f = base + '-page%d.png' % page - - if not os.path.isfile (f): - break - pages_found += 1 - list_item (f, 'See a picture of page %d' % page, 'png') - - if pages_found == 0 and os.path.exists (base + '.png'): - list_item (base + ".png", - 'See a picture', 'png') - - - list_item (base + '.pdf', 'Print', 'PDF') - list_item (base + '.midi', 'Listen', 'MIDI') - list.write ('</ul>\n'); - - list.write ('</body></html>\n'); - list.close () - -(options, files) = getopt.getopt (sys.argv[1:], - 'ho:', ['help', 'output=']) -outfile = 'examples.html' - -subdirs = [] -for (o, a) in options: - if o == '--help' or o == '-h': - help () - elif o == '--output' or o == '-o': - outfile = a - -dirs = [] -for f in files: - dirs += find ('out-www', f) - -if not dirs: - dirs = ['.'] - -allfiles = [] - -for d in dirs: - allfiles += find ('*.ly', d) - -allfiles = [f for f in allfiles - if not f.endswith ('snippet-map.ly') - and not re.search ('lily-[0-9a-f]+', f) - and 'musicxml' not in f] - -gen_list (allfiles, outfile) |