#!@PYTHON@
-# mf-to-table.py -- convert spacing info in MF logs .ly and .tex
+# mf-to-table.py -- convert spacing info in MF logs .afm and .tex
#
# source file of the GNU LilyPond music typesetter
#
-# (c) 1997 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+# (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
import os
import sys
import getopt
-from string import *
-import regex
-import regsub
+import string
+import re
import time
-(options, files) = getopt.getopt(
- sys.argv[1:], 'a:d:hl:o:p:t:',
- ['afm=', 'outdir=', 'dep=', 'ly=', 'tex=', 'debug', 'help', 'package='])
-
-for opt in options:
- o = opt[0]
- a = opt[1]
- if o == '-p' or o == '--package':
- topdir = a
-
-sys.path.append (topdir + '/stepmake/bin')
-from packagepython import *
-package = Package (topdir)
-packager = Packager ()
-
-from packagepython import *
-from flower import *
-
-begin_autometric_re = regex.compile('@{')
-end_autometric_re = regex.compile('@}')
-include_re = regex.compile ('(\([a-zA-Z_0-9-]+\.mf\)')
-autometric_re = regex.compile('@{\(.*\)@}')
-version = '0.7'
postfixes = ['log', 'dvi', '2602gf', 'tfm']
-class Feta_file(File):
- """Read Feta metrics from a metafont log-file."""
-
- def include_scan (self, line):
- include_pos = include_re.search (line)
- while include_pos <> -1:
- self.dependencies.append (include_re.group (1))
-
- line = line[include_pos + 1:]
- include_pos = include_re.search (line)
-
- def read_autometricline(self):
- line = ''
- while end_autometric_re.search(line) == -1 and not self.eof():
- suf = File.readline(self)
- self.include_scan (suf)
- if begin_autometric_re.search(line) == -1:
- line = ''
- line = line + regsub.sub('\n','', suf)
- line = regsub.sub('\r','', line)
-
- if self.eof():
- return ''
-
- return line;
- def readline(self):
- """return what is enclosed in one @{ @} pair"""
- line = '';
- while autometric_re.search(line) == -1 and not self.eof():
- line = self.read_autometricline()
-
- if self.eof():
- return '';
-
- return autometric_re.group(1);
- def __init__(self, nm):
- File.__init__(self, nm)
- self.dependencies = []
- def do_file(infile_nm):
- infile = readline();
-
-#
-# FIXME: should parse output for {} to do indenting.
-#
-class Indentable_file(File):
- """Output file with support for indentation"""
- def __init__(self,nm, mode):
- File.__init__(self,nm,mode)
- self.current_indent_ = 0
- self.delta_indent_ = 4
- def writeline (self, str):
- File.write(self, str)
- def writeeol(self):
- File.write(self, '\n')
- File.write(self, ' '* self.current_indent_)
-
- def indent(self):
- self.current_indent_ = self.delta_indent_ + self.current_indent_;
- def dedent(self):
- self.current_indent_ = self.current_indent_ - self.delta_indent_;
- if self.current_indent_ < 0:
- raise 'Nesting!'
-
- def write(self, str):
- lines = split(str, '\n')
- for l in lines[:-1]:
- self.writeline(l)
- self.writeeol()
- self.writeline (lines[-1])
-
-class Afm_file (File):
- def print_f_dimen(self, f):
- f = f * 1000 / self.fontsize
-
- dimstr = '%.2f' % f
-
- # try to mask rounding errors
- if (dimstr == '-0.00'):
- dimstr = '0.00'
- self.write( dimstr +' ');
-
- def neg_print_dimen(self, str):
- self.print_f_dimen(-atof(str))
- def print_dimen(self, str):
- self.print_f_dimen(atof(str))
- def def_symbol (self, code, lily_id, tex_id, xdim, ydim):
- self.write ('C %s; N %s-%s; B ' % (code, self.groupname, lily_id))
-
- self.neg_print_dimen(xdim [0])
- self.neg_print_dimen(ydim [0])
- self.print_dimen(xdim [1])
- self.print_dimen(ydim [1])
-
- self.write (';\n');
-
- def start (self,nm):
- self.write ('Start%s\n' % nm)
- def end (self,nm):
- self.write ('End%s\n' % nm)
-
-class Ly_file(Indentable_file):
- """extra provisions for mozarella quirks"""
- def print_lit(self, str):
- self.write('\"%s\"\t' % str)
-
- def print_f_dimen(self, f):
- dimstr = '%.2f' % f
-
- # try to mask rounding errors
- if (dimstr == '-0.00'):
- dimstr = '0.00'
- self.write( dimstr +'\\pt\t');
-
- def print_dimen(self, str):
- self.print_f_dimen(atof(str))
-
- def neg_print_dimen(self, str):
- self.print_f_dimen(-atof(str));
-
- def def_symbol(self, code, lily_id, tex_id, xdim, ydim):
- self.print_lit(lily_id)
- self.print_lit('\\\\' + tex_id)
-
- self.neg_print_dimen(xdim [0])
- self.print_dimen(xdim [1])
- self.neg_print_dimen(ydim [0])
- self.print_dimen(ydim [1])
- self.write('\n')
+def read_log_file (fn):
+ str = open (fn).read ()
+ str = re.sub ('\n', '', str)
+ str = re.sub ('[\t ]+', ' ', str)
+
+ deps = []
+ autolines = []
+ def include_func (match, d = deps):
+ d.append (match.group (1))
+ return ''
+
+ def auto_func (match, a = autolines):
+ a.append (match.group (1))
+ return ''
+
+ str = re.sub ('\(([a-zA-Z_0-9-]+\.mf)', include_func, str)
+ str = re.sub ('@{(.*?)@}', auto_func, str)
+
+ return (autolines, deps)
+
+
+
+class Char_metric:
+ def __init__ (self):
+ pass
+
+
+def tfm_checksum (fn):
+ sys.stderr.write ("Reading checksum from `%s'\n" % fn)
+ s = open (fn).read ()
+ s = s[ 12 * 2 : ]
+ cs_bytes = s[:4]
+
+ shift = 24
+ cs = 0
+ for b in cs_bytes:
+ cs = cs + (ord (b) << shift)
+ shift = shift - 8
+
+ return cs
+
+## ugh. What's font_family supposed to be? It's not an afm thing.
+font_family = 'feta'
+def parse_logfile (fn):
+ (autolines, deps) = read_log_file (fn)
+ charmetrics = []
+ global_info = {}
+ group = ''
+
+ for l in autolines:
+ tags = string.split(l, '@:')
+ if tags[0] == 'group':
+ group = tags[1]
+ elif tags[0] == 'char':
+ m = {
+ 'description': tags[1],
+ 'name': group + '-' + tags[9],
+ 'tex': tags[10],
+ 'code': string.atoi (tags[2]),
+ 'breapth':string.atof (tags[3]),
+ 'width': string.atof (tags[4]),
+ 'depth':string.atof (tags[5]),
+ 'height':string.atof (tags[6]),
+ 'wx': string.atof (tags[7]),
+ 'wy':string.atof (tags[8]),
+ }
+ charmetrics.append (m)
+ elif tags[0] == 'font':
+ global font_family
+ font_family = (tags[3])
+ # To omit 'GNU' (foundry) from font name proper:
+ # name = tags[2:]
+ #urg
+ if 0: #testing
+ tags.append ('Regular')
+ name = tags[1:]
+ global_info['FontName'] = string.join (name,'-')
+ global_info['FullName'] = string.join (name,' ')
+ global_info['FamilyName'] = string.join (name[1:-1],
+ '-')
+ if 1:
+ global_info['Weight'] = tags[4]
+ else: #testing
+ global_info['Weight'] = tags[-1]
+ global_info['FontBBox'] = '0 0 1000 1000'
+ global_info['Ascender'] = '0'
+ global_info['Descender'] = '0'
+ global_info['EncodingScheme'] = 'FontSpecific'
+ return (global_info, charmetrics, deps)
+
+
+def write_afm_char_metric(file, charmetric):
+
+ f = 1000;
+ tup = (charmetric['code'],
+ charmetric['name'],
+ -charmetric['breapth'] *f,
+ -charmetric['depth']*f,
+ charmetric['width']*f,
+ charmetric['height']*f,
+ charmetric['wx'] * f,
+ charmetric['wy'] * f)
-class Log_reader:
- """Read logs, destill info, and put into output files"""
- def output_label(self, line):
-
- if not line:
- return;
- tags = split(line, '@:')
- label = tags[0]
- name = tags[1]
- ly = self.lyfile
- afm = self.afmfile
- if tags[0] == 'font':
- ly.indent()
- ly.write("% name=\\symboltables {\n")
- self.texfile.write("% name\n")
-
- afm.write ('FontName %s\n' % name)
- afm.start ('FontMetrics')
- afm.start ('CharMetrics')
- afm.fontsize = atof(tags[2])
- elif label == "group":
- ly.indent()
- ly.print_lit(name)
- ly.write(' = \\table {\n')
- self.texfile.write("% " + name + "\n")
- afm.groupname = name
- elif label == "puorg":
- ly.dedent()
- ly.write("}\n")
- self.texfile.write("\n")
- elif label == "tnof":
- ly.dedent()
- ly.write("% } % $name\n")
- afm.end ('CharMetrics')
- afm.end('FontMetrics');
- elif label == "char":
- code = tags[2]
- id = tags [7]
- texstr = tags [8]
- xdim = tags[3:5]
- ydim = tags[5:7]
- ly.def_symbol(code, id, texstr, xdim, ydim)
-
- self.texfile.write("\\fetdef\\%s{%s}\n" % (texstr, code))
- afm.def_symbol (code, id, texstr, xdim, ydim)
- else:
- raise 'unknown label: ' + label
-
- def writedeps (self, deps):
- if not len (deps):
- sys.stderr.write ('Huh, no main target??')
- return
- filename = deps[0]
- split = os.path.splitext(filename)
- basename=split[0];
-
- targets = map (lambda x,y = basename, z = self.outdir: z + '/' + y + '.' + x, postfixes)
- depstring = reduce(lambda x,y: x + ' ' + y, deps)
- dependencies = map (lambda x, y=depstring: x + ': ' + y, targets)
- for x in dependencies:
- self.depfile.write (x + '\n')
+ file.write ('C %d ; N %s ; B %d %d %d %d ; W %d %d ;\n'% tup)
+
+def write_afm_header (file):
+ file.write ("StartFontMetrics 2.0\n")
+ file.write ("Comment Automatically generated by mf-to-table.py\n")
+
+def write_afm_metric (file, global_info, charmetrics):
+ for (k,v) in global_info.items():
+ file.write ("%s %s\n" % (k,v))
+ file.write ('StartCharMetrics %d\n' % len(charmetrics ))
+ for m in charmetrics:
+ write_afm_char_metric (file,m)
+ file.write ('EndCharMetrics\n')
+ file.write ('EndFontMetrics\n')
+
+
+def write_tex_defs (file, global_info, charmetrics):
+ ##nm = global_info['FontFamily']
+ nm = font_family
+ for m in charmetrics:
+ file.write (r'''\gdef\%s%s{\char%d}%%%s''' % (nm, m['tex'], m['code'],'\n'))
+ file.write ('\\endinput\n')
+
+def write_ps_encoding (file, global_info, charmetrics):
+ encs = ['.notdef'] * 256
+ for m in charmetrics:
+ encs[m['code']] = m['tex']
+
+ file.write ('/FetaEncoding [\n')
+ for m in range(0,256):
+ file.write (' /%s %% %d\n' % (encs[m], m))
+ file.write ('] def\n')
- def do_file(self,filenm):
- self.lyfile.write ('\n% input from ' + filenm + '\n')
- self.texfile.write ('\n% input from ' + filenm + '\n')
- feta = Feta_file(filenm)
- while not feta.eof():
- line = feta.readline()
- self.output_label(line)
- feta.close()
+def write_fontlist (file, global_info, charmetrics):
+ ##nm = global_info['FontFamily']
+ nm = font_family
+ per_line = 3
+ file.write (r"""
+%% LilyPond file to list all font symbols and the corresponding names
+%% Automatically generated by mf-to-table.py
+\score{\notes{\fatText\time %d/4
+""" % per_line)
+
+ count = 0
+ for m in charmetrics:
+
+ count += 1
+
+## \musicglyph and \markup require "_" to be escaped differently:
+
+
+ scm_string = re.sub('_', r'_', m['name'])
+ tex_string = re.sub ('_', r'\\_' , m['name'])
+
+## prevent TeX from interpreting "--" as long dash:
+ tex_string=re.sub('--','-{}-', tex_string)
+
+ file.write (' s^\\markup { \\musicglyph #"%s" "%s" }\n' % (scm_string, tex_string))
+
+ if (count % 3) ==0:
+ file.write (' \\break\n')
+ file.write (r"""
+}
+ \paper{
+ interscoreline=1
+ \translator{
+ \ScoreContext
+ \remove "Bar_number_engraver"
+ TextScript \override #'extra-X-extent = #'(-1 . 1)
+ }
+ \translator{
+ \StaffContext
+ \remove "Clef_engraver"
+ \remove "Key_engraver"
+ \remove "Time_signature_engraver"
+ \remove "Staff_symbol_engraver"
+ minimumVerticalExtent = ##f
+ }
+ }
+}
+""")
+
+def write_deps (file, deps, targets):
- self.writedeps (feta.dependencies)
-
- def __init__(self, lyfile_nm, texfile_nm, depfile_nm, afmfile_nm):
- self.lyfile = Ly_file(lyfile_nm, 'w')
- self.texfile = Indentable_file(texfile_nm, 'w')
- self.depfile = File (depfile_nm, 'w')
- self.afmfile = Afm_file (afmfile_nm, 'w')
- headerstr = '%% Creator: %s\n%% Automatically generated on\n%% Do not edit' % \
- (program_id() )
-
- self.lyfile.write(headerstr)
- self.texfile.write(headerstr)
- self.depfile.write ('# automatically generated by %s\n' % program_id ())
-
- def close(self):
- self.lyfile.close()
- self.texfile.close()
- self.depfile.close ()
-
- def __del__(self):
- self.close()
-
-def today_str():
- return time.asctime(time.localtime(time.time()))
-def program_id():
- return 'mf-to-table.py version ' + version;
+ for t in targets:
+ t = re.sub ( '^\\./', '', t)
+ file.write ('%s '% t)
+ file.write (": ")
+ for d in deps:
+ file.write ('%s ' % d)
+ file.write ('\n')
-def identify():
- sys.stdout.write(program_id() + '\n')
-
def help():
- sys.stdout.write("Usage: mf-to-table [options] LOGFILEs\n"
- + "Generate mozarella metrics table from preparated feta log\n\n"
- + "Options:\n"
- + " -a, --afm=FILE .afm file\n"
- + " -d, --dep=FILE print dependency info to FILE\n"
- + " -h, --help print this help\n"
- + " -l, --ly=FILE name output table\n"
- + " -o, --outdir=DIR prefix for dependency info\n"
- + " -p, --package=DIR specify package\n"
- + " -t, --tex=FILE name output tex chardefs\n"
- )
+ sys.stdout.write(r"""Usage: mf-to-table [OPTIONS] LOGFILEs
+Generate feta metrics table from preparated feta log.
+
+Options:
+ -a, --afm=FILE specify .afm file
+ -d, --dep=FILE print dependency info to FILE
+ -h, --help print this help
+ -l, --ly=FILE name output table
+ -o, --outdir=DIR prefix for dependency info
+ -p, --package=DIR specify package
+ -t, --tex=FILE name output tex chardefs
+
+ """
+)
sys.exit (0)
-def main():
- identify()
- lyfile_nm = texfile_nm = '';
- depfile_nm = ''
- afmfile_nm = ''
- outdir_prefix = '.'
- for opt in options:
+(options, files) = getopt.getopt(
+ sys.argv[1:], 'a:d:hl:o:p:t:',
+ ['enc=', 'afm=', 'outdir=', 'dep=', 'tex=', 'ly=', 'debug', 'help', 'package='])
+
+
+enc_nm = ''
+texfile_nm = ''
+depfile_nm = ''
+afmfile_nm = ''
+lyfile_nm = ''
+outdir_prefix = '.'
+
+for opt in options:
o = opt[0]
a = opt[1]
if o == '--dep' or o == '-d':
- depfile_nm = a
+ depfile_nm = a
elif o == '--outdir' or o == '-o':
- outdir_prefix = a
- elif o == '--ly' or o == '-l':
- lyfile_nm = a
+ outdir_prefix = a
elif o == '--tex' or o == '-t':
- texfile_nm = a
+ texfile_nm = a
+ elif o == '--enc':
+ enc_nm = a
+ elif o == '--ly' or o == '-':
+ lyfile_nm = a
elif o== '--help' or o == '-h':
- help()
+ help()
elif o=='--afm' or o == '-a':
- afmfile_nm = a
+ afmfile_nm = a
elif o == '--debug':
- debug_b = 1
+ debug_b = 1
elif o == '-p' or o == '--package':
- topdir = a
+ topdir = a
else:
- print o
- raise getopt.error
+ print o
+ raise getopt.error
+
+base = re.sub ('.tex$', '', texfile_nm)
+
+for filenm in files:
+ (g,m, deps) = parse_logfile (filenm)
+ cs = tfm_checksum (re.sub ('.log$', '.tfm', filenm))
+ afm = open (afmfile_nm, 'w')
+
+ write_afm_header (afm)
+ afm.write ("Comment TfmCheckSum %u\n" % cs)
+ write_afm_metric (afm, g, m)
+
+ write_tex_defs (open (texfile_nm, 'w'), g, m)
+ write_ps_encoding (open (enc_nm, 'w'), g, m)
+
+ write_deps (open (depfile_nm, 'wb'), deps, [base + '.dvi', base + '.pfa', base + '.pfb', texfile_nm, afmfile_nm])
+ if lyfile_nm != '':
+ write_fontlist(open (lyfile_nm, 'w'), g, m)
- log_reader = Log_reader(lyfile_nm, texfile_nm, depfile_nm, afmfile_nm)
- log_reader.outdir = outdir_prefix
- for filenm in files:
- log_reader.do_file(filenm)
- log_reader.close()
-main()