X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=buildscripts%2Fmf-to-table.py;h=e8984600aed2cf6607bc9878eff48f7a657a40c4;hb=af770f3440264c18ce01525dce1aa76b86ace0d5;hp=5e9ed27a98922e87c24e06e1c094e19de2757714;hpb=c7251b2a15ec7c5aed9b890d0165e4d7ffbe666f;p=lilypond.git diff --git a/buildscripts/mf-to-table.py b/buildscripts/mf-to-table.py index 5e9ed27a98..e8984600ae 100644 --- a/buildscripts/mf-to-table.py +++ b/buildscripts/mf-to-table.py @@ -1,10 +1,10 @@ #!@PYTHON@ -# mf-to-table.py -- convert spacing info in MF logs .afm and .tex -# +# mf-to-table.py -- convert spacing info in MF logs . and .tex +# # source file of the GNU LilyPond music typesetter -# -# (c) 1997 Han-Wen Nienhuys +# +# (c) 1997--2006 Han-Wen Nienhuys import os import sys @@ -13,233 +13,247 @@ import string import re import time - -postfixes = ['log', 'dvi', '2602gf', 'tfm'] - 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 '' + str = open (fn).read () + str = re.sub ('\n', '', str) + str = re.sub ('[\t ]+', ' ', str) - def auto_func (match, a = autolines): - a.append (match.group (1)) - return '' + deps = [] + autolines = [] + def include_func (match, d = deps): + d.append (match.group (1)) + return '' - str = re.sub ('\(([a-zA-Z_0-9-]+\.mf)', include_func, str) - str = re.sub ('@{(.*?)@}', auto_func, str) + def auto_func (match, a = autolines): + a.append (match.group (1)) + return '' - return (autolines, deps) + 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] + def __init__ (self): + pass - shift = 24 - cs = 0 - for b in cs_bytes: - cs = cs + (ord (b) << shift) - shift = shift - 8 +font_family = 'feta' - return cs - 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[7], - 'tex': tags[8], - '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]) - } - charmetrics.append (m) - elif tags[0] == 'font': - global_info['FontName'] = string.join (tags[1:]) - global_info['FontFamily']=tags[1] - global_info['FontBBox'] = '0 0 1000 1000' - global_info['Ascender'] = '0' - global_info['Descender'] = '0' - - return (global_info, charmetrics, deps) - - -def write_afm_char_metric(file, charmetric): - - f = 1000; - tup = (charmetric['code'], - (charmetric['width'] + charmetric['breapth'])*f, - charmetric['name'], - -charmetric['breapth'] *f, - -charmetric['depth']*f, - charmetric['width']*f, - charmetric['height']*f) - - - file.write ('C %d ; WX %d ; N %s ; B %d %d %d %d ;\n'% tup) - -def write_afm_metric (file, global_info, charmetrics): - file.write (r""" -StartFontMetrics 2.0 -Comment Automatically generated by mf-to-table.py -""") - 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 %d\n') + (autolines, deps) = read_log_file (fn) + charmetrics = [] + + global_info = { + 'filename' : os.path.splitext (os.path.basename (fn))[0] + } + group = '' + + for l in autolines: + tags = string.split (l, '@:') + if tags[0] == 'group': + group = tags[1] + elif tags[0] == 'puorg': + group = '' + elif tags[0] == 'char': + name = tags[9] + + name = re.sub ('-', 'M', name) + if group: + name = group + '.' + name + m = { + 'description': tags[1], + 'name': name, + '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') + + encoding = re.sub (' ','-', tags[5]) + tags = tags[:-1] + name = tags[1:] + global_info['design_size'] = string.atof (tags[4]) + 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'] = encoding + + elif tags[0] == 'parameter': + global_info[tags[1]] = tags[2]; + + return (global_info, charmetrics, deps) + def write_tex_defs (file, global_info, charmetrics): - nm = global_info['FontFamily'] - for m in charmetrics: - file.write (r'''\def\%s%s{\char%d}%s''' % (nm, m['tex'], m['code'],'\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 write_fontlist (file, global_info, charmetrics): - nm = global_info['FontFamily'] - file.write (r""" -% Lilypond file to list all font symbols and the corresponding names -% Automatically generated by mf-to-table.py -\score{\notes{\fatText -""") - for m in charmetrics: - escapedname=re.sub('_','\\\\\\\\_', m['name']) - file.write ('s^#\'(lines (music \"%s\") \"%s\")\n' % (m['name'], escapedname)) - 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 - } - } -} -""") + nm = font_family + for m in charmetrics: + + texname = re.sub ('[_.]', 'X', m['name']) + def digit_to_letter (match): + return chr (ord (match.group(1)) - ord ('0') + ord ('A')) + texname = re.sub ('([0-9])', digit_to_letter, texname) + file.write (r'''\gdef\%s%s{\char%d}%%%s''' % \ + (nm, texname, m['code'],'\n')) + file.write ('\\endinput\n') + + +def write_character_lisp_table (file, global_info, charmetrics): + + def conv_char_metric (charmetric): + f = 1.0 + s = """(%s . +((bbox . (%f %f %f %f)) +(subfont . "%s") +(subfont-index . %d) +(attachment . (%f . %f)))) +""" %(charmetric['name'], + -charmetric['breapth'] * f, + -charmetric['depth'] * f, + charmetric['width'] * f, + charmetric['height'] * f, + global_info['filename'], + charmetric['code'], + charmetric['wx'], + charmetric['wy']) + + return s + + for c in charmetrics: + file.write (conv_char_metric (c)) + + +def write_global_lisp_table (file, global_info): + str = '' + + keys = ['staffsize', 'stafflinethickness', 'staff_space', + 'linethickness', 'black_notehead_width', 'ledgerlinethickness', + 'design_size', + 'blot_diameter' + ] + for k in keys: + if global_info.has_key (k): + str = str + "(%s . %s)\n" % (k,global_info[k]) + + file.write (str) + + +def write_ps_encoding (name, file, global_info, charmetrics): + encs = ['.notdef'] * 256 + for m in charmetrics: + encs[m['code']] = m['name'] + + file.write ('/%s [\n' % name) + for m in range (0, 256): + file.write (' /%s %% %d\n' % (encs[m], m)) + file.write ('] def\n') + def write_deps (file, deps, targets): - for t in targets: - file.write ('%s '% t) - file.write (": ") - for d in deps: - file.write ('%s ' % d) - file.write ('\n') - -def help(): - sys.stdout.write(r"""Usage: mf-to-table [options] LOGFILEs -Generate feta metrics table from preparated feta log\n -Options: - -a, --afm=FILE .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) + 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 help (): + sys.stdout.write(r"""Usage: mf-to-table [OPTIONS] LOGFILEs -(options, files) = getopt.getopt( - sys.argv[1:], 'a:d:hl:o:p:t:', - ['enc=', 'afm=', 'outdir=', 'dep=', 'tex=', 'ly=', 'debug', 'help', 'package=']) +Generate feta metrics table from preparated feta log. +Options: + -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) + + +(options, files) = \ + getopt.getopt (sys.argv[1:], + 'a:d:ho:p:t:', + ['enc=', 'outdir=', 'dep=', 'lisp=', + 'global-lisp=', + 'tex=', 'debug', 'help', 'package=']) +global_lisp_nm = '' +char_lisp_nm = '' 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 - elif o == '--outdir' or o == '-o': - outdir_prefix = a - elif o == '--tex' or o == '-t': - texfile_nm = a - elif o == '--enc': - enc_nm = a - elif o == '--ly' or o == '-': - lyfile_nm = a - elif o== '--help' or o == '-h': - help() - elif o=='--afm' or o == '-a': - afmfile_nm = a - elif o == '--debug': - debug_b = 1 - elif o == '-p' or o == '--package': - topdir = a - else: - print o - raise getopt.error + o = opt[0] + a = opt[1] + if o == '--dep' or o == '-d': + depfile_nm = a + elif o == '--outdir' or o == '-o': + outdir_prefix = a + elif o == '--tex' or o == '-t': + texfile_nm = a + elif o == '--lisp': + char_lisp_nm = a + elif o == '--global-lisp': + global_lisp_nm = a + elif o == '--enc': + enc_nm = a + elif o== '--help' or o == '-h': + help() + elif o == '--debug': + debug_b = 1 + else: + 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') - - afm.write ("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', texfile_nm, afmfile_nm]) - if lyfile_nm != '': - write_fontlist(open (lyfile_nm, 'w'), g, m) - - - + (g, m, deps) = parse_logfile (filenm) + + write_tex_defs (open (texfile_nm, 'w'), g, m) + enc_name = 'FetaEncoding' + if re.search ('parmesan', filenm): + enc_name = 'ParmesanEncoding' + elif re.search ('feta-brace', filenm): + enc_name = 'FetaBraceEncoding' + elif re.search ('feta-alphabet', filenm): + enc_name = 'FetaAlphabetEncoding'; + + write_ps_encoding (enc_name, open (enc_nm, 'w'), g, m) + write_character_lisp_table (open (char_lisp_nm, 'w'), g, m) + write_global_lisp_table (open (global_lisp_nm, 'w'), g) + if depfile_nm: + write_deps (open (depfile_nm, 'wb'), deps, + [base + '.log', base + '.dvi', base + '.pfa', + base + '.pfb', texfile_nm])