X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=buildscripts%2Fmutopia-index.py;h=f64898fbb5c6f76f04812a6a451dfaeff872e6c5;hb=9b725aa625683f62a56453c8900b6d007674236b;hp=be4163087bd25fb365783db9736e676364d23134;hpb=998986bbd15afaafb24904a777e8be9ba1233799;p=lilypond.git

diff --git a/buildscripts/mutopia-index.py b/buildscripts/mutopia-index.py
index be4163087b..f64898fbb5 100644
--- a/buildscripts/mutopia-index.py
+++ b/buildscripts/mutopia-index.py
@@ -3,7 +3,34 @@
 
 name = 'mutopia-index'
 
-import find
+import fnmatch
+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
@@ -25,28 +52,30 @@ def file_exist_b (fn):
 
 
 headertext= r"""
-These example files are taken from the LilyPond distribution. 
-LilyPond currently only outputs TeX and MIDI.  The pictures and 
-PostScript files were generated using TeX, Ghostscript and some 
-graphics tools.	 The papersize used for these examples is A4. 
-The  images are in PNG format, and should be viewable with any current browser.
-We don't use GIFS due to <a href="http://www.gnu.org/philosophy/gif.html">patent problems</a>.
+
+<p>You're 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.
+
 <p>
-If you want an accurate impression of the output quality please <em>print
-out</em> the samples first.
-"""
 
-headertext_nopics = r"""This is a subdirectory of the LilyPond example
-set.  We decided not to show any examples from this directory.	If you
-want to view them, then you have to download LilyPond and compile them
-yourself."""
+The pictures are 90 dpi anti-aliased snapshots of the printed output.
+If you want a better impression of the appearance, do print out one of
+the PDF or PostScript files; they use scalable fonts, and should look
+good at any resolution.
+
+"""
 
+headertext_nopics= r"""
+<p>Nothing to be seen here, move along.
+"""
 
 #
 # FIXME breaks on multiple strings.
 #
-def read_mudela_header (fn):
-	s = gulp_file(fn)
+def read_lilypond_header (fn):
+	s = open(fn).read ()
 	s = re.sub('%.*$', '', s)
 	s = re.sub('\n', ' ', s)		
 
@@ -59,7 +88,7 @@ def read_mudela_header (fn):
 			return dict
 
 	while s:
-		m = re.search (r"""\s*(\S+)\s*=\s*([^;]+)\s*;""", s)
+		m = re.search (r'''\s*(\S+)\s*=\s*"([^"]+)"''', s)
 		if m == None:
 			s = ''
 		else:
@@ -74,107 +103,117 @@ def read_mudela_header (fn):
 	return dict
 
 def help ():
-	sys.stdout.write (r"""Usage: mutopia-index [options] INFILE OUTFILE
-Generate index for mutopia\n
+	sys.stdout.write (r"""Usage: mutopia-index [OPTIONS] INFILE OUTFILE
+Generate index for mutopia.
+
 Options:
-  -h, --help			     print this help
-  --prefix=PRE			 specify prefix
+  -h, --help                 print this help
+  -o, --output=FILE          write output to file
   -s, --subdirs=DIR	     add subdir
-  --suffix=SUF			 specify suffix"""
+      --suffix=SUF	     specify suffix
+      
+"""
 					  )
 	sys.exit (0)
 
 # ugh.
-def gen_list(inputs, subdir, filename):
-	(pre, subdirs, post)=subdir
+def gen_list(inputs, filename):
 	print "generating HTML list %s\n" % filename
-	list = open(filename, 'w')
-	list.write ('<html><TITLE>Rendered Examples</TITLE>\n')
-	list.write ('<body bgcolor=white>')
-	if subdirs:
-		list.write  ('<h2>subdirectories</h2>')
-		list.write  ('<ul>')		    
-		for ex in subdirs:
-			print 'subdir %s ' % ex
-			list.write ('<li><a href=%s/index.html>Subdirectory: %s</a></li>\n' % (pre + ex + post , ex))
-
-		list.write ('</ul>')
-
-
-
+	if filename:
+		list = open(filename, 'w')
+	else:
+		list = sys.stdout
+	list.write ('<html><head><title>Rendered Examples</title>\n')
+	list.write ('<style type="text/css">\n')
+	list.write ('hr { border:0; height:1; color: #000000; background-color: #000000; }\n')
+	list.write ('</style></head>\n')
+
+	list.write ('<body bgcolor=white>\n')
+	
 	if inputs:
-			list.write('<h2>Contents of this directory</h2>\n');
-
 			list.write (headertext)
 	else:
 			list.write (headertext_nopics)
 
 
 	for ex in inputs:
-		ex_ext = '.ly'
-		print '%s, ' % ex
-		try:
-			header = read_mudela_header(ex + ex_ext + '.txt')
-		except:
-			ex_ext = '.fly'
-			header = read_mudela_header(ex + ex_ext + '.txt')
+		(base, ext) = os.path.splitext (ex)
+		(base, ext2) = os.path.splitext (base)		
+		ext = ext2 + ext
 		
+		header = read_lilypond_header(ex)
 		def read_dict(s, default, h =header):
 				try:
 					ret = h[s]
 				except KeyError:
 					ret = default
 				return ret
-		head = read_dict('title', ex)
+		head = read_dict('title', os.path.basename (base))
 		composer = read_dict('composer', '')
 		desc = read_dict('description', '')
-		list.write('<hr>')
-		list.write('<h1>example file: %s</h1>' % head);
-		if composer <> '':
+		list.write('<hr>\n')
+		list.write('<h1>%s</h1>\n' % head);
+		if composer:
 			list.write('<h2>%s</h2>\n' % composer)
-		if desc <> '':
+		if desc:
 			list.write('%s<p>' % desc)
-		list.write ('<ul>')
+		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))
+				
+				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]
-				l.write (' (%s %dk)' % (type, (size + 512) / 1024))
+				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(ex + ex_ext + '.txt', 'The input', 'ASCII')
+
+		list_item(base + ext, 'The input', 'ASCII')
 		for pageno in range(1,100):
-			f  = ex + '-page%d.png' % pageno
+			f  = base + '-page%d.png' % pageno
 			if not file_exist_b (f):
 				break
-			list_item(f, 'The output, page %d' % pageno, 'png')
-		list_item(ex + '.ps.gz', 'The output', 'gzipped PostScript')
-		list_item(ex + '.midi', 'The output', 'MIDI')
-		list.write ("</ul>");
+			list_item(f, 'See a picture of page %d' % pageno, 'png')
+		list_item(base + '.pdf', 'Print', 'PDF')
+		list_item(base + '.midi', 'Listen', 'MIDI')
+		list.write ("</ul>\n");
 
-	list.write( "</BODY></HTML>");
+	list.write('</body></html>\n');
 	list.close()
 
 import getopt
 
 (options, files) = getopt.getopt(sys.argv[1:], 
-  'hp:s:', ['help', 'subdirs=', 'suffix=',  'prefix='])
-subdir_pre=''
-subdir_suf =''
+  'ho:', ['help', 'output='])
+outfile = 'examples.html'
 
 subdirs =[]
 for opt in options:
 	o = opt[0]
 	a = opt[1]
-	if o == '--subdirs' or o == '-s':
-		subdirs.append (a)
-	elif o == '--prefix':
-		subdir_pre = a
-	elif o == '--suffix':
-		subdir_suf = a
+	if o == '--help' or o == '-h':
+		help()
+	elif o == '--output' or o == '-o':
+		outfile = a
 
-		
-allfiles = find.find ('*.ly') + find.find ('*.ly.txt')
+dirs  = []
+for f in files:
+	dirs = dirs + find ('out-www', f)
+
+if not dirs:
+	dirs = ['.']
+
+allfiles = []
+
+for d in dirs:
+	allfiles = allfiles + find ('*.ly.txt', d)
 
-gen_list (files, (subdir_pre, subdirs, subdir_suf), 'index.html')
+gen_list (allfiles, outfile)