buildscripts/mf-to-table.py

   1 #!@PYTHON@
   2
   3 # mf-to-table.py -- convert spacing info in MF logs . and .tex
   4 #
   5 # source file of the GNU LilyPond music typesetter
   6 #
   7 # (c) 1997--2006 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   8
   9 import os
  10 import sys
  11 import getopt
  12 import string
  13 import re
  14 import time
  15
  16
  17 postfixes = ['log', 'dvi', '2602gf', 'tfm']
  18
  19 def read_log_file (fn):
  20         str = open (fn).read ()
  21         str = re.sub ('\n', '', str)
  22         str = re.sub ('[\t ]+', ' ', str)
  23
  24         deps = []
  25         autolines = []
  26         def include_func (match, d = deps):
  27                 d.append (match.group (1))
  28                 return ''
  29
  30         def auto_func (match, a = autolines):
  31                 a.append (match.group (1))
  32                 return ''
  33
  34         str = re.sub ('\(([a-zA-Z_0-9-]+\.mf)', include_func, str)
  35         str = re.sub ('@{(.*?)@}', auto_func, str)
  36
  37         return (autolines, deps)
  38
  39
  40 class Char_metric:
  41         def __init__ (self):
  42                 pass
  43
  44
  45 def tfm_checksum (fn):
  46         sys.stderr.write ("Reading checksum from `%s'\n" % fn)
  47         s = open (fn).read ()
  48         s = s[ 12 * 2 : ]
  49         cs_bytes = s[:4]
  50
  51         shift = 24
  52         cs = 0
  53         for b in cs_bytes:
  54                 cs = cs  + (long (ord (b)) << shift)
  55                 shift = shift - 8
  56
  57         return cs
  58
  59 font_family = 'feta'
  60
  61 def parse_logfile (fn):
  62         (autolines, deps) = read_log_file (fn)
  63         charmetrics = []
  64
  65         global_info = {
  66                 'filename' : os.path.splitext (os.path.basename (fn))[0]
  67                 }
  68         group = ''
  69
  70         for l in autolines:
  71                 tags = string.split (l, '@:')
  72                 if tags[0] == 'group':
  73                         group = tags[1]
  74                 elif tags[0] == 'puorg':
  75                         group = ''
  76                 elif tags[0] == 'char':
  77                         name = tags[9]
  78
  79                         name = re.sub ('-', 'M', name)
  80                         if group:
  81                                 name = group + '.' + name
  82                         m = {
  83                                 'description': tags[1],
  84                                 'name': name,
  85                                 'code': string.atoi (tags[2]),
  86                                 'breapth': string.atof (tags[3]),
  87                                 'width': string.atof (tags[4]),
  88                                 'depth': string.atof (tags[5]),
  89                                 'height': string.atof (tags[6]),
  90                                 'wx': string.atof (tags[7]),
  91                                 'wy': string.atof (tags[8]),
  92                         }
  93                         charmetrics.append (m)
  94                 elif tags[0] == 'font':
  95                         global font_family
  96                         font_family = (tags[3])
  97                         # To omit 'GNU' (foundry) from font name proper:
  98                         # name = tags[2:]
  99                         #urg
 100                         if 0: # testing
 101                                 tags.append ('Regular')
 102
 103                         encoding = re.sub (' ','-', tags[5])
 104                         tags = tags[:-1]
 105                         name = tags[1:]
 106                         global_info['design_size'] = string.atof (tags[4])
 107                         global_info['FontName'] = string.join (name, '-')
 108                         global_info['FullName'] = string.join (name,' ')
 109                         global_info['FamilyName'] = string.join (name[1:-1],
 110                                                                  '-')
 111                         if 1:
 112                                 global_info['Weight'] = tags[4]
 113                         else: # testing
 114                                 global_info['Weight'] = tags[-1]
 115
 116                         global_info['FontBBox'] = '0 0 1000 1000'
 117                         global_info['Ascender'] = '0'
 118                         global_info['Descender'] = '0'
 119                         global_info['EncodingScheme'] = encoding
 120
 121                 elif tags[0] == 'parameter':
 122                         global_info[tags[1]] = tags[2];
 123
 124         return (global_info, charmetrics, deps)
 125
 126
 127
 128 def write_tex_defs (file, global_info, charmetrics):
 129         nm = font_family
 130         for m in charmetrics:
 131
 132                 texname = re.sub ('[_.]', 'X',  m['name'])
 133                 def digit_to_letter (match):
 134                         return chr (ord (match.group(1)) - ord ('0') + ord ('A'))
 135                 texname = re.sub ('([0-9])', digit_to_letter, texname)
 136                 file.write (r'''\gdef\%s%s{\char%d}%%%s''' % \
 137                             (nm, texname, m['code'],'\n'))
 138         file.write ('\\endinput\n')
 139
 140
 141 def write_character_lisp_table (file, global_info, charmetrics):
 142
 143         def conv_char_metric (charmetric):
 144                 f = 1.0
 145                 s = """(%s .
 146 ((bbox . (%f %f %f %f))
 147  (subfont . "%s")
 148  (subfont-index . %d)
 149  (attachment . (%f . %f))))
 150 """ %(charmetric['name'],
 151       -charmetric['breapth'] * f,
 152       -charmetric['depth'] * f,
 153       charmetric['width'] * f,
 154       charmetric['height'] * f,
 155       global_info['filename'],
 156       charmetric['code'],
 157       charmetric['wx'],
 158       charmetric['wy'])
 159
 160                 return s
 161
 162         for c in charmetrics:
 163                 file.write (conv_char_metric (c))
 164
 165
 166 def write_global_lisp_table (file, global_info):
 167         str = ''
 168
 169         keys = ['staffsize', 'stafflinethickness', 'staff_space',
 170                 'linethickness', 'black_notehead_width', 'ledgerlinethickness',
 171                 'design_size',
 172                 'blot_diameter'
 173                 ]
 174         for k in keys:
 175                 if global_info.has_key (k):
 176                         str = str + "(%s . %s)\n" % (k,global_info[k])
 177
 178         file.write (str)
 179
 180
 181 def write_ps_encoding (name, file, global_info, charmetrics):
 182         encs = ['.notdef'] * 256
 183         for m in charmetrics:
 184                 encs[m['code']] = m['name']
 185
 186         file.write ('/%s [\n' % name)
 187         for m in range (0, 256):
 188                 file.write ('  /%s %% %d\n' % (encs[m], m))
 189         file.write ('] def\n')
 190
 191
 192 def write_deps (file, deps, targets):
 193         for t in targets:
 194                 t = re.sub ( '^\\./', '', t)
 195                 file.write ('%s '% t)
 196         file.write (": ")
 197         for d in deps:
 198                 file.write ('%s ' % d)
 199         file.write ('\n')
 200
 201
 202 def help ():
 203         sys.stdout.write(r"""Usage: mf-to-table [OPTIONS] LOGFILEs
 204
 205 Generate feta metrics table from preparated feta log.
 206
 207 Options:
 208   -d, --dep=FILE         print dependency info to FILE
 209   -h, --help             print this help
 210   -l, --ly=FILE          name output table
 211   -o, --outdir=DIR       prefix for dependency info
 212   -p, --package=DIR      specify package
 213   -t, --tex=FILE         name output tex chardefs
 214
 215   """)
 216         sys.exit (0)
 217
 218
 219 (options, files) = \
 220   getopt.getopt (sys.argv[1:],
 221                  'a:d:ho:p:t:',
 222                  ['enc=',  'outdir=', 'dep=', 'lisp=',
 223                   'global-lisp=',
 224                   'tex=', 'debug', 'help', 'package='])
 225
 226 global_lisp_nm = ''
 227 char_lisp_nm = ''
 228 enc_nm = ''
 229 texfile_nm = ''
 230 depfile_nm = ''
 231 lyfile_nm = ''
 232 outdir_prefix = '.'
 233
 234 for opt in options:
 235         o = opt[0]
 236         a = opt[1]
 237         if o == '--dep' or o == '-d':
 238                 depfile_nm = a
 239         elif o == '--outdir' or o == '-o':
 240                 outdir_prefix = a
 241         elif o == '--tex' or o == '-t':
 242                 texfile_nm = a
 243         elif o == '--lisp':
 244                 char_lisp_nm = a
 245         elif o == '--global-lisp':
 246                 global_lisp_nm = a
 247         elif o == '--enc':
 248                 enc_nm = a
 249         elif o== '--help' or o == '-h':
 250                 help()
 251         elif o == '--debug':
 252                 debug_b = 1
 253         else:
 254                 print o
 255                 raise getopt.error
 256
 257 base = re.sub ('.tex$', '', texfile_nm)
 258
 259 for filenm in files:
 260         (g, m, deps) = parse_logfile (filenm)
 261         cs = tfm_checksum (re.sub ('.log$', '.tfm', filenm))
 262
 263         write_tex_defs (open (texfile_nm, 'w'), g, m)
 264         enc_name = 'FetaEncoding'
 265         if re.search ('parmesan', filenm):
 266                 enc_name = 'ParmesanEncoding'
 267         elif re.search ('feta-brace', filenm):
 268                 enc_name = 'FetaBraceEncoding'
 269         elif re.search ('feta-alphabet', filenm):
 270                 enc_name = 'FetaAlphabetEncoding';
 271
 272         write_ps_encoding (enc_name, open (enc_nm, 'w'), g, m)
 273         write_character_lisp_table (open (char_lisp_nm, 'w'), g, m)
 274         write_global_lisp_table (open (global_lisp_nm, 'w'), g)
 275         if depfile_nm:
 276                 write_deps (open (depfile_nm, 'wb'), deps,
 277                             [base + '.log', base + '.dvi', base + '.pfa',
 278                              base + '.pfb', texfile_nm])