X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=buildscripts%2Fmutopia-index.py;h=50e4ebbf29b5b9355694937acbf228dde47fdd1e;hb=c6554467b0a9beddf0d7ef12746ae31a25fe36e7;hp=b6447bb32d9c6cb6017fdcacb5ab45166850203f;hpb=955f829883aa125b2b633b1e71f6256da5b773fa;p=lilypond.git

diff --git a/buildscripts/mutopia-index.py b/buildscripts/mutopia-index.py
index b6447bb32d..50e4ebbf29 100644
--- a/buildscripts/mutopia-index.py
+++ b/buildscripts/mutopia-index.py
@@ -1,217 +1,197 @@
-#!@PYTHON@
+#!/usr/bin/env python
 # mutopia-index.py
 
-name = 'mutopia-index'
-
 import fnmatch
+import getopt
 import os
-
-_debug = 0
-
-_prune = ['(*)']
-
-def find(pattern, dir = os.curdir):
-        list = []
-        names = os.listdir(dir)
-        names.sort()
-        for name in names:
-                if name in (os.curdir, os.pardir):
-                        continue
-                fullname = os.path.join(dir, name)
-                if fnmatch.fnmatch(name, pattern):
-                        list.append(fullname)
-                if os.path.isdir(fullname) and not os.path.islink(fullname):
-                        for p in _prune:
-                                if fnmatch.fnmatch(name, p):
-                                        if _debug: print "skip", `fullname`
-                                        break
-                        else:
-                                if _debug: print "descend into", `fullname`
-                                list = list + find(pattern, fullname)
-        return list
-
-
 import re
-import os
-import sys
 import stat
+import sys
 
-def gulp_file (fn):
-	try:
-		f = open (fn)
-	except:
-		raise 'not there' , fn
-	return f.read ()
+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
 
-def file_exist_b (fn):
-	try:
-		f = open (fn)
-		return 1
-	except:
-		return 0
 
+junk_prefix = 'out-www/'
 
 headertext= r"""
 
-<p>You're looking at a page with some LilyPond samples.  These files
+<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 <tt>.ly</tt> source file, without any further touch
-up.
+generated from the source file, without any further touch up.
 
-<p>The PostScript files were generated using TeX and dvips at 600 dpi.
-The pictures are 90 dpi anti-aliased snapshots of the printed output.
-The images are in PNG format, and should be viewable with any current
-browser.
+<p>
 
-<p>If you want a better impression of the appearance, do print out one of
-the postscript files.
+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>Nothing to be seen here, move along.
+<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)		
+    s = open (fn).read ()
+    s = re.sub ('%.*$', '', s)
+    s = re.sub ('\n', ' ', s)                
 
-	dict = {}
-	m = re.search (r"""\\header\s*{([^}]*)}""", s)
+    dict = {}
+    m = re.search (r"""\\header\s*{([^}]*)}""", s)
 
-	if m:
-			s = m.group(1)
-	else:
-			return dict
+    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)
+    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
+            left = re.sub ('"', '', left)
+            right = re.sub ('"', '', right)
+            dict[left] = right
 
-	return dict
+    return dict
 
 def help ():
-	sys.stdout.write (r"""Usage: mutopia-index [OPTIONS] INFILE OUTFILE
+    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)
+ -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, filename):
-	print "generating HTML list %s\n" % filename
-	if filename:
-		list = open(filename, 'w')
-	else:
-		list = sys.stdout
-	list.write ('<html><title>Rendered Examples</title>\n')
-	list.write ('<body bgcolor=white>\n')
-	
-	if inputs:
-			list.write (headertext)
-	else:
-			list.write (headertext_nopics)
-
-
-	for ex in inputs:
-		(base, ext) = os.path.splitext (ex)
-		(base, ext2) = os.path.splitext (base)		
-		ext = ext2 + ext
-		
-		header = read_lilypond_header(ex)
-		print header
-		def read_dict(s, default, h =header):
-				try:
-					ret = h[s]
-				except KeyError:
-					ret = default
-				return ret
-		head = read_dict('title', os.path.basename (base))
-		composer = read_dict('composer', '')
-		desc = read_dict('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(filename, desc, type, l = list):
-			if file_exist_b(filename):
-				
-				l.write ('<li><a href="%s">%s</a>' % (filename, desc))
-
-				# todo: include warning if it uses \include
-				# files.
-				
-				size=os.stat(filename)[stat.ST_SIZE]
-				kB=(size + 512) / 1024
-				if kB:
-					l.write (' (%s %d kB)' % (type, kB))
-				else:
-					l.write (' (%s %d characters)' % (type, size))
-				pictures = ['jpeg', 'png', 'xpm']
-				l.write ('\n')
-
-		list_item(base + ext, 'The input', 'ASCII')
-		for pageno in range(1,100):
-			f  = base + '-page%d.png' % pageno
-			if not file_exist_b (f):
-				break
-			list_item(f, 'See a picture of page %d' % pageno, 'png')
-		list_item(base + '.pdf', 'Print', 'PDF')
-		list_item(base + '.ps.gz', 'Print', 'gzipped PostScript')
-		list_item(base + '.midi', 'Listen', 'MIDI')
-		list.write ("</ul>\n");
-
-	list.write('</body></html>\n');
-	list.close()
-
-import getopt
-
-(options, files) = getopt.getopt(sys.argv[1:], 
-  'ho:', ['help', 'output='])
+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 opt in options:
-	o = opt[0]
-	a = opt[1]
-	if o == '--help' or o == '-h':
-		help()
-	elif o == '--output' or o == '-o':
-		outfile = a
+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 = dirs + find ('out-www', f)
+    dirs += find ('out-www', f)
 
 if not dirs:
-	dirs = ['.']
+    dirs = ['.']
 
 allfiles = []
 
 for d in dirs:
-	allfiles = allfiles + find ('*.ly.txt', d)
+    allfiles += find ('*.ly', d)
 
-gen_list (allfiles, outfile)
+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)