# -*-python-*-
-import glob
import os
+import re
import string
-import sys
-
-here = os.getcwd ()
-reldir = str (Dir ('.').srcnode ())
-os.chdir (reldir)
-#mf_sources = reduce (+,
-mf_sources = reduce (lambda x, y: x + y,
- map (glob.glob,
- ('feta[0-9]*.mf',
- 'feta-braces-[a-z].mf',
- 'feta-din*[0-9].mf',
- 'feta-nummer*[0-9].mf',
- 'parmesan[0-9]*.mf',)))
-os.chdir (here)
-
-Import ('env')
-MFMODE = env['MFMODE']
-def add_log_enc_ly_tex_target (target, source, env):
- base = os.path.splitext (str (target[0]))[0]
- et = (map (lambda x: base + x, ['.log', '.enc', '.ly', '.tex']))
- #es = (map (lambda x: base + '.mf', et))
- #return (target + et, source + es)
- return (target + et, source)
-
-outdir = os.path.join (env['build'], reldir, env['out'])
-tfm = Builder (action = ('(cd ' + outdir + ' && ' \
- + 'MFINPUTS=.:' + str (Dir ('#/mf')) \
- + ' mf "\\mode:=%(MFMODE)s; nonstopmode; ' \
- + ' input $$(basename $SOURCE);" ' \
- + ' | grep -v "@\|>>")') % vars (),
- suffix = '.tfm',
- src_suffix = '.mf',
- emitter = add_log_enc_ly_tex_target)
-
-## How do do multiple targets? Does emitter not take care of this?
-#log = Builder (action = ('(cd ' + outdir + ' && ' \
-# + 'MFINPUTS=.:' + str (Dir ('#/mf')) \
-# + ' mf "\\mode:=%(MFMODE)s; nonstopmode; ' \
-# + ' input $$(basename $SOURCE);" ' \
-# + ' | grep -v "@\|>>")') % vars (),
-# suffix = '.log',
-# src_suffix = '.mf')
-#enc = Builder (action = ('(cd ' + outdir + ' && ' \
-# + 'MFINPUTS=.:' + str (Dir ('#/mf')) \
-# + ' mf "\\mode:=%(MFMODE)s; nonstopmode; ' \
-# + ' input $$(basename $SOURCE);" ' \
-# + ' | grep -v "@\|>>")') % vars (),
-# suffix = '.enc',
-# src_suffix = '.mf')
-#ly = Builder (action = ('(cd ' + outdir + ' && ' \
-# + 'MFINPUTS=.:' + str (Dir ('#/mf')) \
-# + ' mf "\\mode:=%(MFMODE)s; nonstopmode; ' \
-# + ' input $$(basename $SOURCE);" ' \
-# + ' | grep -v "@\|>>")') % vars (),
-# suffix = '.ly',
-# src_suffix = '.mf')
-#tex = Builder (action = ('(cd ' + outdir + ' && ' \
-# + 'MFINPUTS=.:' + str (Dir ('#/mf')) \
-# + ' mf "\\mode:=%(MFMODE)s; nonstopmode; ' \
-# + ' input $$(basename $SOURCE);" ' \
-# + ' | grep -v "@\|>>")') % vars (),
-# suffix = '.tex',
-# src_suffix = '.mf')
-
-afm = Builder (action = (sys.executable
- + ' buildscripts/mf-to-table.py ' \
- + ' --package=. --outdir=%(outdir)s '\
- + ' --afm %(outdir)s/$$(basename $TARGET .afm).afm' \
- + ' --enc %(outdir)s/$$(basename $TARGET .afm).enc' \
- + ' --tex %(outdir)s/$$(basename $TARGET .afm).tex' \
- + ' --ly %(outdir)s/$$(basename $TARGET .afm).ly'\
- + ' %(outdir)s/$$(basename $SOURCE)') % vars (),
- suffix = '.afm',
- src_suffix = '.log')
-
-def add_enc_src (target, source, env):
- base = os.path.splitext (str (target[0]))[0]
- return (target, source + [base + '.enc'])
-
-def encoding_opt (target):
- base = os.path.splitext (os.path.basename (str (target[0])))[0]
- enc = os.path.join (outdir, base + '.enc')
- if os.path.exists (enc):
- return ' --encoding=' + enc
- return ''
-
-# UGH, should fix --output option for mftrace
-xpfa = Builder (action = ('MFINPUTS=.:' + str (Dir ('#/mf')) \
- + ' mftrace -I %(outdir)s --pfa' \
- + ' --simplify --keep-trying' \
- + ' $$(basename $SOURCE .mf) ' \
- + ' && mv $$(basename $TARGET) $TARGET') % vars (),
- suffix = '.pfa',
- src_suffix = '.mf',
- emitter = add_enc_src)
-
-def run_mftrace (target, source, env):
- TARGET = target[0]
- SOURCE = source[0]
- outdir = os.path.join (env['build'], reldir, env['out'])
- command = ('MFINPUTS=.:' + str (Dir ('#/mf')) \
- + ' mftrace -I %(outdir)s --pfa' \
- + ' --simplify --keep-trying' \
- + ' $(basename %(SOURCE)s .mf) ' \
- + encoding_opt (target) \
- + ' && mv $(basename %(TARGET)s) %(TARGET)s') \
- % vars ()
- return os.system (command)
-
-pfa = Builder (action = run_mftrace,
- suffix = '.pfa',
- src_suffix = '.mf',
- emitter = add_enc_src)
-
-
-e = env.Copy (BUILDERS = {'Tfm' : tfm,
-# 'Log' : log, 'Enc' : enc, 'Ly' : ly, 'Tex' : tex,
- 'Afm' : afm, 'Pfa' : pfa},
- MFINPUTS = '#/mf')
-
-#mf_sources = ('feta16.mf',)
-#mf_sources = ('feta-braces-a.mf',)
-sources = map (lambda x: os.path.splitext (x)[0], mf_sources)
-
-t = map (e.Tfm, sources)
-a = map (e.Afm, sources)
-p = map (e.Pfa, sources)
-
-map (lambda x: e.Depends (x + '.pfa', x + '.enc'), sources)
-#map (lambda x: e.Depends (x + '.pfa', x + '.log'), sources)
-
-tfmdir = os.path.join (env['lilypondprefix'], 'fonts/tfm')
-afmdir = os.path.join (env['lilypondprefix'], 'afm')
-pfadir = os.path.join (env['lilypondprefix'], 'fonts/type1')
-#ti = map (lambda x: env.Install (tfmdir, x[0]), t)
-ti = map (lambda x: env.Install (tfmdir, x), t)
-ai = map (lambda x: env.Install (afmdir, x), a)
-pi = map (lambda x: env.Install (pfadir, x), p)
-env.Alias ('install', tfmdir)
-env.Alias ('install', afmdir)
-env.Alias ('install', pfadir)
+Import ('env', 'base_glob', 'install')
+xfeta = reduce (lambda x, y: x + y,
+ map (lambda x: base_glob (x),
+ ('feta[0-9]*.mf',
+ 'feta-alphabet*[0-9].mf',
+ 'feta-braces-[a-z]*.mf',
+ 'parmesan[0-9]*.mf',)))
+feta = base_glob ('feta[0-9][0-9]*.mf')
+feta_alphabet = base_glob ('feta-alphabet[0-9][0-9]*.mf')
+feta_braces = base_glob ('feta-braces-[a-z].mf')
+parmesan = base_glob ('parmesan[0-9][0-9]*.mf')
+
+# .pfa rules want an encoding file; ecb10.enc
+#sauter = ['ecb10']
+sauter = []
+fonts = feta + feta_alphabet + feta_braces + parmesan + sauter
+#env['feta'] = string.join (feta)
+#env['sauter'] = ''
+
+feta_sizes = map (lambda x: re.sub ('feta([0-9]+)', '\\1', x), feta)
+otfs = map (lambda x: 'emmentaler-' + x, feta_sizes) + ['aybabtu']
+
+t = map (env.TFM, fonts)
+g = map (env.GTABLE, fonts)
+# FIXME: don't know how to add prefix: PFAEmmentaler (naming is ugly anyway)
+#p = map (env.PFA, fonts + map (lambda x: 'PFA' + x, otfs))
+p = map (env.PFA, fonts)
+#e = map (env.ENC, fonts)
+#c = map (lambda x: x + '.cff', fonts)
+cp = map (lambda x: x + '.cff.ps', fonts)
+e = map (lambda x: x + '.enc', fonts)
+s = map (lambda x: x + '.svg', fonts)
+o = map (env.OTF, otfs)
+
+# Emmentaler
+a = '''cat ${SOURCE} \
+$$(echo ${SOURCE} | grep -v brace | sed s/feta/parmesan/) \
+$$(echo ${SOURCE} | grep -v brace | sed s/feta/feta-alphabet/) \
+> ${TARGET}'''
+otf_table = Builder (action = a, suffix = '.otf-table',
+ # barf
+ src_suffix = '.lisp')
+env.Append (BUILDERS = {'OTF_TABLE': otf_table})
+f = map (env.OTF_TABLE, feta)
+g = map (env.OTF_TABLE, feta_braces)
+
+map (lambda x: env.Depends ('emmentaler-' + x + '.otf',
+ 'feta' + x + '.otf-table'),
+ feta_sizes)
+
+env.Command ('emmentaler-11.pe',
+ '$srcdir/buildscripts/gen-emmentaler-scripts.py',
+ '$PYTHON $srcdir/buildscripts/gen-emmentaler-scripts.py --dir=${TARGET.dir}')
+
+map (lambda x: env.Depends (x + '.pfa', x + '.enc'), feta)
+
+
+# Aybabtu
+
+# ugh
+##feta_braces = map (lambda x: 'feta-braces-%c' % (ord ('a') + x), range (9))
+
+env.AT_COPY ('aybabtu.pe.in')
+env.Command ('aybabtu.fontname', '', 'echo -n aybabtu > $TARGET')
+env.Command ('aybabtu.subfonts',
+ map (lambda x: x + '.mf', feta_braces),
+ 'echo ${SOURCES.filebase} > $TARGET')
+
+env.Command ('aybabtu.otf-table',
+ map (lambda x: x + '.otf-table', feta_braces),
+ 'cd ${TARGET.dir} && cat ${SOURCES.file} > ${TARGET.file}')
+
+env.Command ('aybabtu.otf-gtable',
+ map (lambda x: x + '.otf-gtable', feta_braces),
+ 'echo "(design_size . 20)" > $TARGET')
+
+#env.Depends ('aybabtu.otf-table',
+# map (lambda x: x + '.otf-table', feta_braces))
+
+env.Depends ('aybabtu.otf', 'aybabtu.subfonts')
+env.Depends ('aybabtu.otf', 'aybabtu.fontname')
+env.Depends ('aybabtu.otf', 'aybabtu.otf-table')
+env.Depends ('aybabtu.otf', 'aybabtu.otf-gtable')
+
+# Hmm?
+env.Depends ('aybabtu.pfa', 'aybabtu.subfonts')
+env.Depends ('aybabtu.pfa', 'aybabtu.fontname')
+env.Depends ('aybabtu.pfa', 'aybabtu.otf-table')
+env.Depends ('aybabtu.pfa', 'aybabtu.otf-gtable')
+
+
+## FIXME
+mf_essential = ['feta16', 'feta20', 'parmesan16', ]
+pfa_essential = map (env.PFA, mf_essential)
+env.Alias ('mf-essential', pfa_essential)
+
+env['fonts'] = string.join (fonts)
+env['feta_sizes'] = string.join (feta_sizes)
+env['sauter'] = string.join (sauter)
+env.Command ('lilypond.map', p,
+ ['for i in $fonts; do echo $$i $$i "<"$$i.pfa; done > $TARGET',
+ 'for i in $feta_sizes; do\
+ echo "Emmentaler-$$i Emmentaler-$$i <emmentaler-$$i.cff.ps";\
+ echo "PFAEmmentaler-$$i PFAEmmentaler-$$i <PFAemmentaler-$$i.pfa";\
+ done >> $TARGET',
+ 'echo "Aybabtu-Regular Aybabtu-Regular <aybabtu.cff.ps" >> $TARGET',
+ 'echo "PFAAybabtu-Regular PFAAybabtu-Regular <aybabtu.cff.ps" >> $TARGET',
+ 'for i in $sauter; do echo "$$i $$i <$$i.pfa"; done >> $TARGET'])
+#env.Alias ('mf', 'lilypond.map')
+
+env.Command ('fonts.scale', p,
+ 'cd ${TARGET.dir} && echo *.pfa *.pfb | $PYTHON $srcdir/buildscripts/make-font-dir.py > $TARGET.file')
+env.Alias ('mf', 'fonts.scale')
+
+env.Command ('Fontmap', p,
+ ["echo '%!' > $TARGET",
+ "echo '% Override default GS Fontmap' >> $TARGET",
+ "echo '% To let gs load fonts from builddir, do:' >> $TARGET",
+ "echo '% export GS_LIB=$$(pwd)/mf/out:' >> $TARGET",
+ "echo '% See Fontmap.GS for the syntax of real Fontmap files.' >> $TARGET",
+ "echo '(Fontmap.GS) .runlibfile' >> $TARGET",
+ "echo '(Fontmap.lily) .runlibfile' >> $TARGET"])
+
+env.Command ('Fontmap.lily', p + ['Fontmap'],
+ ['echo "%!" > $TARGET',
+ '''for i in $fonts; do echo "/$$i ($$i.pfa);"; done >> $TARGET''',
+ ''' for i in $feta_sizes; do \
+ echo "/Emmentaler-$$i (emmentaler-$$i.cff.ps);" ; \
+ echo "/PFAEmmentaler-$$i (PFAemmentaler-$$i.pfa);" ; \
+ done >> $TARGET''',
+ '''echo "/Aybabtu (aybabtu.cff.ps);" >> $TARGET''',
+ '''echo "/PFAAybabtu (PFAaybabtu.pfa);" >> $TARGET''',
+ '''for i in $sauter; do echo "$$i ($$i.pfa);"; done >> $TARGET'''])
+#env.Alias ('mf', 'Fontmap.lily')
+
+# build essential stuff first, that's friendlier
+env.Alias ('mf', pfa_essential + p + map (lambda x: x[0], o))
+
+install (t, env['sharedir_package_version'] + '/fonts/tfm')
+install (p, env['sharedir_package_version'] + '/fonts/type1')
+install (o, env['sharedir_package_version'] + '/fonts/otf')
+install (e, env['sharedir_package_version'] + '/ps')
+install (s, env['sharedir_package_version'] + '/fonts/svg')
+#install (c, env['sharedir_package_version'] + '/fonts/cff')
+install (cp, env['sharedir_package_version'] + '/ps')