2 * mktrfn - generate troff font descriptions
4 * Copyright (C) 2012-2014 Ali Gholami Rudi <ali at rudi dot ir>
6 * This program is released under the Modified BSD license.
13 #define LEN(a) ((sizeof(a) / sizeof((a)[0])))
15 static char *trfn_scripts
; /* filtered scripts */
16 static char *trfn_langs
; /* filtered languages */
17 static char *trfn_order
; /* feature ordering */
19 /* OpenType specifies a specific feature order for different scripts */
20 static char *scriptorder
[][2] = {
21 {"latn", "ccmp,liga,clig,dist,kern,mark,mkmk"},
22 {"cyrl", "ccmp,liga,clig,dist,kern,mark,mkmk"},
23 {"grek", "ccmp,liga,clig,dist,kern,mark,mkmk"},
24 {"armn", "ccmp,liga,clig,dist,kern,mark,mkmk"},
25 {"geor", "ccmp,liga,clig,dist,kern,mark,mkmk"},
26 {"runr", "ccmp,liga,clig,dist,kern,mark,mkmk"},
27 {"ogam", "ccmp,liga,clig,dist,kern,mark,mkmk"},
28 {"arab", "ccmp,isol,fina,medi,init,rlig,calt,liga,dlig,cswh,mset,curs,kern,mark,mkmk"},
29 {"bugi", "locl,ccmp,rlig,liga,clig,calt,kern,dist,mark,mkmk"},
30 {"hang", "ccmp,ljmo,vjmo,tjmo"},
31 {"hebr", "ccmp,dlig,kern,mark"},
32 {"bng2", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
33 {"dev2", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
34 {"gjr2", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
35 {"gur2", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
36 {"knd2", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
37 {"mlym", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
38 {"ory2", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
39 {"tml2", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
40 {"tml2", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
41 {"telu", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
42 {"java", "locl,pref,abvf,blwf,pstf,pres,abvs,blws,psts,ccmp,rlig,liga,clig,calt,kern,dist,mark,mkmk"},
43 {"khmr", "pref,blwf,abvf,pstf,pres,blws,abvs,psts,clig,dist,blwm,abvm,mkmk"},
44 {"lao ", "ccmp,kern,mark,mkmk"},
45 {"mym2", "locl,rphf,pref,blwf,pstf,pres,abvs,blws,psts,kern,dist,mark,mkmk"},
46 {"sinh", "locl,ccmp,akhn,rphf,vatu,pstf,pres,abvs,blws,psts,kern,dist,abvm,blwm"},
47 {"syrc", "stch,ccmp,isol,fina,fin2,fin3,medi,med2,init,rlig,calt,liga,dlig,kern,mark,mkmk"},
48 {"thaa", "kern,mark"},
49 {"thai", "ccmp,kern,mark,mkmk"},
50 {"tibt", "ccmp,abvs,blws,calt,liga,kern,abvm,blwm,mkmk"},
53 /* return 1 if script script is to be included */
54 int trfn_script(char *script
, int nscripts
)
58 for (i
= 0; i
< LEN(scriptorder
); i
++)
59 if (script
&& !strcmp(script
, scriptorder
[i
][0]))
60 trfn_order
= scriptorder
[i
][1];
62 return nscripts
== 1 || !script
||
63 !strcmp("DFLT", script
) || !strcmp("latn", script
);
64 if (!strcmp("help", trfn_scripts
))
65 fprintf(stderr
, "script: %s\n", script
? script
: "");
66 if (strchr(script
, ' '))
67 *strchr(script
, ' ') = '\0';
68 return !!strstr(trfn_scripts
, script
);
71 /* return 1 if language lang is to be included */
72 int trfn_lang(char *lang
, int nlangs
)
75 return nlangs
== 1 || !lang
;
78 if (!strcmp("help", trfn_langs
))
79 fprintf(stderr
, "lang: %s\n", lang
);
80 if (strchr(lang
, ' '))
81 *strchr(lang
, ' ') = '\0';
82 return !!strstr(trfn_langs
, lang
);
85 int trfn_featrank(char *feat
)
87 char *s
= trfn_order
? strstr(trfn_order
, feat
) : NULL
;
88 return s
? s
- trfn_order
: 1000;
93 void otf_feat(int res
, int kmin
, int warn
);
96 "Usage: mktrfn [options] <input >output\n"
98 " -a \tread an AFM file (default)\n"
99 " -o \tread an OTF file\n"
100 " -s \tspecial font\n"
101 " -p name \toverride font postscript name\n"
102 " -t name \tset font troff name\n"
103 " -r res \tset device resolution (720)\n"
104 " -k kmin \tspecify the minimum amount of kerning (0)\n"
105 " -b \tinclude glyph bounding boxes\n"
106 " -S scrs \tcomma-separated list of scripts to include (help to list)\n"
107 " -L langs\tcomma-separated list of languages to include (help to list)\n"
108 " -w \twarn about unsupported font features\n";
110 int main(int argc
, char *argv
[])
119 for (i
= 1; i
< argc
&& argv
[i
][0] == '-'; i
++) {
120 switch (argv
[i
][1]) {
128 kmin
= atoi(argv
[i
][2] ? argv
[i
] + 2 : argv
[++i
]);
131 trfn_langs
= argv
[i
][2] ? argv
[i
] + 2 : argv
[++i
];
137 trfn_psfont(argv
[i
][2] ? argv
[i
] + 2 : argv
[++i
]);
140 res
= atoi(argv
[i
][2] ? argv
[i
] + 2 : argv
[++i
]);
146 trfn_scripts
= argv
[i
][2] ? argv
[i
] + 2 : argv
[++i
];
149 trfn_trfont(argv
[i
][2] ? argv
[i
] + 2 : argv
[++i
]);
159 trfn_init(res
, spc
, kmin
, bbox
);
166 otf_feat(res
, kmin
, warn
);