3 # mf-to-table.py -- convert spacing info in MF logs .afm and .tex
5 # source file of the GNU LilyPond music typesetter
7 # (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
17 postfixes = ['log', 'dvi', '2602gf', 'tfm']
19 def read_log_file (fn):
20 str = open (fn).read ()
21 str = re.sub ('\n', '', str)
22 str = re.sub ('[\t ]+', ' ', str)
26 def include_func (match, d = deps):
27 d.append (match.group (1))
30 def auto_func (match, a = autolines):
31 a.append (match.group (1))
34 str = re.sub ('\(([a-zA-Z_0-9-]+\.mf)', include_func, str)
35 str = re.sub ('@{(.*?)@}', auto_func, str)
37 return (autolines, deps)
45 def tfm_checksum (fn):
46 sys.stderr.write ("Reading checksum from `%s'\n" % fn)
54 cs = cs + (long (ord (b)) << shift)
60 ## ugh. What's font_family supposed to be? It's not an afm thing.
63 def parse_logfile (fn):
64 (autolines, deps) = read_log_file (fn)
68 'filename' : os.path.splitext (os.path.basename (fn))[0]
73 tags = string.split (l, '@:')
74 if tags[0] == 'group':
76 elif tags[0] == 'puorg':
78 elif tags[0] == 'char':
81 name = re.sub ('-', 'M', name)
83 name = group + '.' + name
85 'description': tags[1],
87 'code': string.atoi (tags[2]),
88 'breapth': string.atof (tags[3]),
89 'width': string.atof (tags[4]),
90 'depth': string.atof (tags[5]),
91 'height': string.atof (tags[6]),
92 'wx': string.atof (tags[7]),
93 'wy': string.atof (tags[8]),
95 charmetrics.append (m)
96 elif tags[0] == 'font':
98 font_family = (tags[3])
99 # To omit 'GNU' (foundry) from font name proper:
103 tags.append ('Regular')
105 encoding = re.sub (' ','-', tags[5])
108 global_info['DesignSize'] = string.atof (tags[4])
109 global_info['FontName'] = string.join (name, '-')
110 global_info['FullName'] = string.join (name,' ')
111 global_info['FamilyName'] = string.join (name[1:-1],
114 global_info['Weight'] = tags[4]
116 global_info['Weight'] = tags[-1]
118 global_info['FontBBox'] = '0 0 1000 1000'
119 global_info['Ascender'] = '0'
120 global_info['Descender'] = '0'
121 global_info['EncodingScheme'] = encoding
123 elif tags[0] == 'parameter':
124 global_info[tags[1]] = tags[2];
126 return (global_info, charmetrics, deps)
129 def write_afm_char_metric (file, charmetric):
131 tup = (charmetric['code'],
133 -charmetric['breapth'] * f,
134 -charmetric['depth'] * f,
135 charmetric['width'] * f,
136 charmetric['height'] * f,
137 charmetric['wx'] * f,
138 charmetric['wy'] * f)
140 file.write ('C %d ; N %s ; B %d %d %d %d ; W %d %d ;\n' % tup)
143 def write_afm_header (file):
144 file.write ("StartFontMetrics 2.0\n")
145 file.write ("Comment Automatically generated by mf-to-table.py\n")
148 def write_afm_metric (file, global_info, charmetrics):
149 for (k, v) in global_info.items():
150 file.write ("%s %s\n" % (k, v))
151 file.write ('StartCharMetrics %d\n' % len(charmetrics ))
152 for m in charmetrics:
153 write_afm_char_metric (file, m)
154 file.write ('EndCharMetrics\n')
155 file.write ('EndFontMetrics\n')
158 def write_tex_defs (file, global_info, charmetrics):
160 for m in charmetrics:
162 texname = re.sub ('[_.]', 'X', m['name'])
163 def digit_to_letter (match):
164 return chr (ord (match.group(1)) - ord ('0') + ord ('A'))
165 texname = re.sub ('([0-9])', digit_to_letter, texname)
166 file.write (r'''\gdef\%s%s{\char%d}%%%s''' % \
167 (nm, texname, m['code'],'\n'))
168 file.write ('\\endinput\n')
171 def write_character_lisp_table (file, global_info, charmetrics):
173 def conv_char_metric (charmetric):
176 ((bbox . (%f %f %f %f))
179 (attachment . (%f . %f))))
180 """ %(charmetric['name'],
181 -charmetric['breapth'] * f,
182 -charmetric['depth'] * f,
183 charmetric['width'] * f,
184 charmetric['height'] * f,
185 global_info['filename'],
192 for c in charmetrics:
193 file.write (conv_char_metric (c))
196 def write_global_lisp_table (file, global_info):
199 keys = ['staffsize', 'stafflinethickness', 'staff_space',
200 'linethickness', 'black_notehead_width', 'ledgerlinethickness',
204 if global_info.has_key (k):
205 str = str + "(%s . %s)\n" % (k,global_info[k])
210 def write_ps_encoding (name, file, global_info, charmetrics):
211 encs = ['.notdef'] * 256
212 for m in charmetrics:
213 encs[m['code']] = m['name']
215 file.write ('/%s [\n' % name)
216 for m in range (0, 256):
217 file.write (' /%s %% %d\n' % (encs[m], m))
218 file.write ('] def\n')
221 def write_fontlist (file, global_info, charmetrics):
222 ## nm = global_info['FontFamily']
226 r"""%% LilyPond file to list all font symbols and the corresponding names
227 %% Automatically generated by mf-to-table.py
231 """ % (2 * per_line + 1))
234 for m in charmetrics:
237 ## \musicglyph and \markup require "_" to be escaped
239 scm_string = re.sub ('_', r'_', m['name'])
240 tex_string = re.sub ('_', r'\\_' , m['name'])
242 ## prevent TeX from interpreting "--" as long dash
243 tex_string = re.sub ('--','-{}-', tex_string)
245 file.write (''' \\markup { \\raise #0.75 \\vcenter
247 \\typewriter " %s" } 4\n''' % (scm_string, tex_string))
249 if (count % per_line) == 0:
250 file.write (' \\skip 8 \\break\n')
258 \override SeparationItem #'padding = #2
259 minimumVerticalExtent = ##f
263 \remove "Bar_number_engraver"
270 def write_deps (file, deps, targets):
272 t = re.sub ( '^\\./', '', t)
273 file.write ('%s '% t)
276 file.write ('%s ' % d)
281 sys.stdout.write(r"""Usage: mf-to-table [OPTIONS] LOGFILEs
283 Generate feta metrics table from preparated feta log.
286 -a, --afm=FILE specify .afm file
287 -d, --dep=FILE print dependency info to FILE
288 -h, --help print this help
289 -l, --ly=FILE name output table
290 -o, --outdir=DIR prefix for dependency info
291 -p, --package=DIR specify package
292 -t, --tex=FILE name output tex chardefs
299 getopt.getopt (sys.argv[1:],
301 ['enc=', 'afm=', 'outdir=', 'dep=', 'lisp=',
303 'tex=', 'ly=', 'debug', 'help', 'package='])
317 if o == '--dep' or o == '-d':
319 elif o == '--outdir' or o == '-o':
321 elif o == '--tex' or o == '-t':
325 elif o == '--global-lisp':
329 elif o == '--ly' or o == '-l':
331 elif o== '--help' or o == '-h':
333 elif o=='--afm' or o == '-a':
341 base = re.sub ('.tex$', '', texfile_nm)
344 (g, m, deps) = parse_logfile (filenm)
345 cs = tfm_checksum (re.sub ('.log$', '.tfm', filenm))
346 afm = open (afmfile_nm, 'w')
348 write_afm_header (afm)
349 afm.write ("Comment TfmCheckSum %d\n" % cs)
350 afm.write ("Comment DesignSize %.2f\n" % g['DesignSize'])
354 write_afm_metric (afm, g, m)
356 write_tex_defs (open (texfile_nm, 'w'), g, m)
357 enc_name = 'FetaEncoding'
358 if re.search ('parmesan', filenm):
359 enc_name = 'ParmesanEncoding'
360 elif re.search ('feta-brace', filenm):
361 enc_name = 'FetaBraceEncoding'
363 write_ps_encoding (enc_name, open (enc_nm, 'w'), g, m)
364 write_character_lisp_table (open (char_lisp_nm, 'w'), g, m)
365 write_global_lisp_table (open (global_lisp_nm, 'w'), g)
367 write_deps (open (depfile_nm, 'wb'), deps,
368 [base + '.dvi', base + '.pfa', base + '.pfb',
369 texfile_nm, afmfile_nm])
371 write_fontlist (open (lyfile_nm, 'w'), g, m)