buildscripts/mf-to-table.py

   1 #!@PYTHON@
   2
   3 # mf-to-table.py -- convert spacing info in MF logs .afm and .tex
   4 #
   5 # source file of the GNU LilyPond music typesetter
   6 #
   7 # (c) 1997--2004 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
  60 ## ugh.  What's font_family supposed to be?  It's not an afm thing.
  61 font_family = 'feta'
  62
  63 def parse_logfile (fn):
  64         (autolines, deps) = read_log_file (fn)
  65         charmetrics = []
  66
  67         global_info = {
  68                 'filename' : os.path.splitext (os.path.basename (fn))[0]
  69                 }
  70         group = ''
  71
  72         for l in autolines:
  73                 tags = string.split (l, '@:')
  74                 if tags[0] == 'group':
  75                         group = tags[1]
  76                 elif tags[0] == 'puorg':
  77                         group = ''
  78                 elif tags[0] == 'char':
  79                         name = tags[9]
  80
  81                         name = re.sub ('-', 'M', name)
  82                         if group:
  83                                 name = group + '.' + name
  84                         m = {
  85                                 'description': tags[1],
  86                                 'name': name,
  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]),
  94                         }
  95                         charmetrics.append (m)
  96                 elif tags[0] == 'font':
  97                         global font_family
  98                         font_family = (tags[3])
  99                         # To omit 'GNU' (foundry) from font name proper:
 100                         # name = tags[2:]
 101                         #urg
 102                         if 0: # testing
 103                                 tags.append ('Regular')
 104
 105                         encoding = re.sub (' ','-', tags[5])
 106                         tags = tags[:-1]
 107                         name = tags[1:]
 108                         global_info['design_size'] = 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],
 112                                                                  '-')
 113                         if 1:
 114                                 global_info['Weight'] = tags[4]
 115                         else: # testing
 116                                 global_info['Weight'] = tags[-1]
 117
 118                         global_info['FontBBox'] = '0 0 1000 1000'
 119                         global_info['Ascender'] = '0'
 120                         global_info['Descender'] = '0'
 121                         global_info['EncodingScheme'] = encoding
 122
 123                 elif tags[0] == 'parameter':
 124                         global_info[tags[1]] = tags[2];
 125
 126         return (global_info, charmetrics, deps)
 127
 128
 129 def write_afm_char_metric (file, charmetric):
 130         f = 1000;
 131         tup = (charmetric['code'],
 132                charmetric['name'],
 133                -charmetric['breapth'] * f,
 134                -charmetric['depth'] * f,
 135                charmetric['width'] * f,
 136                charmetric['height'] * f,
 137                charmetric['wx'] * f,
 138                charmetric['wy'] * f)
 139
 140         file.write ('C %d ; N %s ; B %d %d %d %d ; W %d %d ;\n' % tup)
 141
 142
 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")
 146
 147
 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')
 156
 157
 158 def write_tex_defs (file, global_info, charmetrics):
 159         nm = font_family
 160         for m in charmetrics:
 161
 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')
 169
 170
 171 def write_character_lisp_table (file, global_info, charmetrics):
 172
 173         def conv_char_metric (charmetric):
 174                 f = 1.0
 175                 s = """(%s .
 176 ((bbox . (%f %f %f %f))
 177  (subfont . "%s")
 178  (subfont-index . %d)
 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'],
 186       charmetric['code'],
 187       charmetric['wx'],
 188       charmetric['wy'])
 189
 190                 return s
 191
 192         for c in charmetrics:
 193                 file.write (conv_char_metric (c))
 194
 195
 196 def write_global_lisp_table (file, global_info):
 197         str = ''
 198
 199         keys = ['staffsize', 'stafflinethickness', 'staff_space',
 200                 'linethickness', 'black_notehead_width', 'ledgerlinethickness',
 201                 'design_size',
 202                 'blot_diameter'
 203                 ]
 204         for k in keys:
 205                 if global_info.has_key (k):
 206                         str = str + "(%s . %s)\n" % (k,global_info[k])
 207
 208         file.write (str)
 209
 210
 211 def write_ps_encoding (name, file, global_info, charmetrics):
 212         encs = ['.notdef'] * 256
 213         for m in charmetrics:
 214                 encs[m['code']] = m['name']
 215
 216         file.write ('/%s [\n' % name)
 217         for m in range (0, 256):
 218                 file.write ('  /%s %% %d\n' % (encs[m], m))
 219         file.write ('] def\n')
 220
 221
 222 def write_fontlist (file, global_info, charmetrics):
 223         ## nm = global_info['FontFamily']
 224         nm = font_family
 225         per_line = 2
 226         file.write (
 227 r"""%% LilyPond file to list all font symbols and the corresponding names
 228 %% Automatically generated by mf-to-table.py
 229
 230 \score {
 231   \lyrics { \time %d/8
 232 """ % (2 * per_line + 1))
 233
 234         count = 0
 235         for m in charmetrics:
 236                 count += 1
 237
 238                 ## \musicglyph and \markup require "_" to be escaped
 239                 ## differently
 240                 scm_string = re.sub ('_', r'_', m['name'])
 241                 tex_string = re.sub ('_', r'\\_' , m['name'])
 242
 243                 ## prevent TeX from interpreting "--" as long dash
 244                 tex_string = re.sub ('--','-{}-', tex_string)
 245
 246                 file.write ('''    \\markup { \\raise #0.75 \\vcenter
 247               \\musicglyph #"%s"
 248               \\typewriter " %s" } 4\n''' % (scm_string, tex_string))
 249
 250                 if (count % per_line) == 0:
 251                         file.write ('    \\skip 8 \\break\n')
 252         file.write (r"""  }
 253
 254   \layout {
 255     interscoreline = 1.0
 256     indent = 0.0 \cm
 257     \context {
 258       \Lyrics
 259       \override SeparationItem #'padding = #2
 260       minimumVerticalExtent = ##f
 261     }
 262     \context {
 263       \Score
 264       \remove "Bar_number_engraver"
 265     }
 266   }
 267 }
 268 """)
 269
 270
 271 def write_deps (file, deps, targets):
 272         for t in targets:
 273                 t = re.sub ( '^\\./', '', t)
 274                 file.write ('%s '% t)
 275         file.write (": ")
 276         for d in deps:
 277                 file.write ('%s ' % d)
 278         file.write ('\n')
 279
 280
 281 def help ():
 282         sys.stdout.write(r"""Usage: mf-to-table [OPTIONS] LOGFILEs
 283
 284 Generate feta metrics table from preparated feta log.
 285
 286 Options:
 287   -a, --afm=FILE         specify .afm file
 288   -d, --dep=FILE         print dependency info to FILE
 289   -h, --help             print this help
 290   -l, --ly=FILE          name output table
 291   -o, --outdir=DIR       prefix for dependency info
 292   -p, --package=DIR      specify package
 293   -t, --tex=FILE         name output tex chardefs
 294
 295   """)
 296         sys.exit (0)
 297
 298
 299 (options, files) = \
 300   getopt.getopt (sys.argv[1:],
 301                  'a:d:hl:o:p:t:',
 302                  ['enc=', 'afm=', 'outdir=', 'dep=', 'lisp=',
 303                   'global-lisp=',
 304                   'tex=', 'ly=', 'debug', 'help', 'package='])
 305
 306 global_lisp_nm = ''
 307 char_lisp_nm = ''
 308 enc_nm = ''
 309 texfile_nm = ''
 310 depfile_nm = ''
 311 afmfile_nm = ''
 312 lyfile_nm = ''
 313 outdir_prefix = '.'
 314
 315 for opt in options:
 316         o = opt[0]
 317         a = opt[1]
 318         if o == '--dep' or o == '-d':
 319                 depfile_nm = a
 320         elif o == '--outdir' or o == '-o':
 321                 outdir_prefix = a
 322         elif o == '--tex' or o == '-t':
 323                 texfile_nm = a
 324         elif o == '--lisp':
 325                 char_lisp_nm = a
 326         elif o == '--global-lisp':
 327                 global_lisp_nm = a
 328         elif o == '--enc':
 329                 enc_nm = a
 330         elif o == '--ly' or o == '-l':
 331                 lyfile_nm = a
 332         elif o== '--help' or o == '-h':
 333                 help()
 334         elif o=='--afm' or o == '-a':
 335                 afmfile_nm = a
 336         elif o == '--debug':
 337                 debug_b = 1
 338         else:
 339                 print o
 340                 raise getopt.error
 341
 342 base = re.sub ('.tex$', '', texfile_nm)
 343
 344 for filenm in files:
 345         (g, m, deps) = parse_logfile (filenm)
 346         cs = tfm_checksum (re.sub ('.log$', '.tfm', filenm))
 347         afm = open (afmfile_nm, 'w')
 348
 349         write_afm_header (afm)
 350         afm.write ("Comment TfmCheckSum %d\n" % cs)
 351         afm.write ("Comment DesignSize %.2f\n" % g['DesignSize'])
 352
 353         del g['DesignSize']
 354
 355         write_afm_metric (afm, g, m)
 356
 357         write_tex_defs (open (texfile_nm, 'w'), g, m)
 358         enc_name = 'FetaEncoding'
 359         if re.search ('parmesan', filenm):
 360                 enc_name = 'ParmesanEncoding'
 361         elif re.search ('feta-brace', filenm):
 362                 enc_name = 'FetaBraceEncoding'
 363
 364         write_ps_encoding (enc_name, open (enc_nm, 'w'), g, m)
 365         write_character_lisp_table (open (char_lisp_nm, 'w'), g, m)
 366         write_global_lisp_table (open (global_lisp_nm, 'w'), g)
 367         if depfile_nm:
 368                 write_deps (open (depfile_nm, 'wb'), deps,
 369                             [base + '.dvi', base + '.pfa', base + '.pfb',
 370                              texfile_nm, afmfile_nm])
 371         if lyfile_nm:
 372                 write_fontlist (open (lyfile_nm, 'w'), g, m)