''

[lilypond.git] / buildscripts / mf-to-table.py

diff --git a/buildscripts/mf-to-table.py b/buildscripts/mf-to-table.py
old mode 100755 (executable)
new mode 100644 (file)
index 5a695d2..ee15b10
--- a/buildscripts/mf-to-table.py
+++ b/buildscripts/mf-to-table.py
@@ -43,6 +43,20 @@ class Char_metric:
                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
+  
 def parse_logfile (fn):
        (autolines, deps) = read_log_file (fn)
        charmetrics = []
@@ -68,6 +82,9 @@ def parse_logfile (fn):
                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)
 
@@ -76,7 +93,7 @@ def write_afm_char_metric(file, charmetric):
 
        f = 1000;
        tup = (charmetric['code'],
-               charmetric['width'] + charmetric['breapth'],
+              (charmetric['width'] + charmetric['breapth'])*f,
                charmetric['name'],
                -charmetric['breapth'] *f,
                -charmetric['depth']*f,
@@ -105,6 +122,44 @@ def write_tex_defs (file, global_info, charmetrics):
        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{
+    \translator{
+      \ScoreContext
+      \remove "Bar_number_engraver"
+      TextScript \override #'extra-extent-X = #'(-1 . 1)
+    }
+    \translator{
+      \StaffContext
+      \remove "Clef_engraver"
+      \remove "Key_engraver"
+      \remove "Time_signature_engraver"
+      \remove "Staff_symbol_engraver"
+    }
+  }
+}
+""")
 
 def write_deps (file, deps, targets):
        for t in targets:
@@ -132,12 +187,14 @@ Options:
 
 (options, files) = getopt.getopt(
     sys.argv[1:], 'a:d:hl:o:p:t:', 
-    ['afm=', 'outdir=', 'dep=',  'tex=', 'debug', 'help', 'package='])
+    ['enc=', 'afm=', 'outdir=', 'dep=',  'tex=', 'ly=', 'debug', 'help', 'package='])
 
 
-texfile_nm = '';
+enc_nm = ''
+texfile_nm = ''
 depfile_nm = ''
 afmfile_nm = ''
+lyfile_nm = ''
 outdir_prefix = '.'
 
 for opt in options:
@@ -149,6 +206,10 @@ for opt in options:
                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':
@@ -161,11 +222,22 @@ for opt in options:
                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_deps (open (depfile_nm, 'w'), deps, [texfile_nm, afmfile_nm])
+       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)
+