ref: e477744371b17cb5cebe277a94a1b3c599173ffe
dir: /mkfn.c/
/*
* NEATMKFN - GENERATE NEATROFF FONT DESCRIPTIONS
*
* Copyright (C) 2012-2018 Ali Gholami Rudi <ali at rudi dot ir>
*
* Permission to use, copy, modify, and/or distribute this software for any
* purpose with or without fee is hereby granted, provided that the above
* copyright notice and this permission notice appear in all copies.
*
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/
#include <ctype.h>
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "mkfn.h"
#define LEN(a) ((sizeof(a) / sizeof((a)[0])))
static char *mkfn_scripts; /* filtered scripts */
static char *mkfn_langs; /* filtered languages */
static char *mkfn_subfont; /* filtered font */
static char *mkfn_trname; /* font troff name */
static char *mkfn_psname; /* font ps name */
static char *mkfn_path; /* font path */
int mkfn_res = 720; /* device resolution */
int mkfn_warn; /* warn about unsupported features */
int mkfn_kmin; /* minimum kerning value */
int mkfn_swid; /* space width */
int mkfn_special; /* special flag */
int mkfn_bbox; /* include bounding box */
int mkfn_noligs; /* suppress ligatures */
int mkfn_pos = 1; /* include glyph positions */
int mkfn_dry; /* generate no output */
/* OpenType specifies a specific feature order for different scripts */
static char *scriptorder[][2] = {
{"latn", "ccmp,liga,clig,dist,kern,mark,mkmk"},
{"cyrl", "ccmp,liga,clig,dist,kern,mark,mkmk"},
{"grek", "ccmp,liga,clig,dist,kern,mark,mkmk"},
{"armn", "ccmp,liga,clig,dist,kern,mark,mkmk"},
{"geor", "ccmp,liga,clig,dist,kern,mark,mkmk"},
{"runr", "ccmp,liga,clig,dist,kern,mark,mkmk"},
{"ogam", "ccmp,liga,clig,dist,kern,mark,mkmk"},
{"arab", "ccmp,isol,fina,medi,init,rlig,calt,liga,dlig,cswh,mset,curs,kern,mark,mkmk"},
{"bugi", "locl,ccmp,rlig,liga,clig,calt,kern,dist,mark,mkmk"},
{"hang", "ccmp,ljmo,vjmo,tjmo"},
{"hebr", "ccmp,dlig,kern,mark"},
{"bng2", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
{"dev2", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
{"gjr2", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
{"gur2", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
{"knd2", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
{"mlym", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
{"ory2", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
{"tml2", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
{"tml2", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
{"telu", "locl,nukt,akhn,rphf,blwf,half,pstf,vatu,cjct,init,pres,abvs,blws,psts,haln,calt,kern,dist,abvm,blwm"},
{"java", "locl,pref,abvf,blwf,pstf,pres,abvs,blws,psts,ccmp,rlig,liga,clig,calt,kern,dist,mark,mkmk"},
{"khmr", "pref,blwf,abvf,pstf,pres,blws,abvs,psts,clig,dist,blwm,abvm,mkmk"},
{"lao ", "ccmp,kern,mark,mkmk"},
{"mym2", "locl,rphf,pref,blwf,pstf,pres,abvs,blws,psts,kern,dist,mark,mkmk"},
{"sinh", "locl,ccmp,akhn,rphf,vatu,pstf,pres,abvs,blws,psts,kern,dist,abvm,blwm"},
{"syrc", "stch,ccmp,isol,fina,fin2,fin3,medi,med2,init,rlig,calt,liga,dlig,kern,mark,mkmk"},
{"thaa", "kern,mark"},
{"thai", "ccmp,kern,mark,mkmk"},
{"tibt", "ccmp,abvs,blws,calt,liga,kern,abvm,blwm,mkmk"},
};
/* return 1 if the given script is to be included */
int mkfn_script(char *script, int nscripts)
{
/* fill mkfn_scripts (if unspecified) in the first call */
if (!mkfn_scripts) {
if (nscripts == 1 || !script)
return 1;
if (!strcmp("DFLT", script))
mkfn_scripts = "DFLT";
else
mkfn_scripts = "latn";
}
if (!strcmp("list", mkfn_scripts))
printf("%s\n", script ? script : "");
if (strchr(script, ' '))
*strchr(script, ' ') = '\0';
return !!strstr(mkfn_scripts, script);
}
/* return 1 if the given language is to be included */
int mkfn_lang(char *lang, int nlangs)
{
if (!mkfn_langs)
return 1;
if (!lang)
lang = "";
if (!strcmp("list", mkfn_langs))
printf("%s\n", lang);
if (strchr(lang, ' '))
*strchr(lang, ' ') = '\0';
return !!strstr(mkfn_langs, lang);
}
/* return 1 if the given font is to be included */
int mkfn_font(char *font)
{
static int idx; /* font index */
idx++;
if (!mkfn_subfont)
return idx == 1;
if (!strcmp("list", mkfn_subfont))
printf("%s\n", font);
if (mkfn_subfont[0] && isdigit((unsigned char) mkfn_subfont[0]))
if (atoi(mkfn_subfont) == idx)
return 1;
return !strcmp(mkfn_subfont, font);
}
/* return the rank of the given feature, for the current script */
int mkfn_featrank(char *scrp, char *feat)
{
static char **order;
int i;
if (!order || strcmp(scrp, order[0])) {
order = NULL;
for (i = 0; i < LEN(scriptorder); i++)
if (!strcmp(scrp, scriptorder[i][0]))
order = scriptorder[i];
}
if (order && strstr(order[1], feat))
return strstr(order[1], feat) - order[1];
return 1000;
}
void mkfn_header(char *fontname)
{
if (mkfn_dry)
return;
if (mkfn_trname)
printf("name %s\n", mkfn_trname);
if (mkfn_psname)
printf("fontname %s\n", mkfn_psname);
if (!mkfn_psname && fontname && fontname[0])
printf("fontname %s\n", fontname);
if (mkfn_path)
printf("fontpath %s\n", mkfn_path);
trfn_header();
if (mkfn_special)
printf("special\n");
trfn_cdefs();
}
int otf_read(void);
int afm_read(void);
static char *usage =
"Usage: mktrfn [options] <input >output\n"
"Options:\n"
" -a \tread an AFM file (default)\n"
" -o \tread a TTF or an OTF file\n"
" -s \tspecial font\n"
" -p name \toverride font postscript name\n"
" -t name \tset font troff name\n"
" -f path \tset font path\n"
" -r res \tset device resolution (720)\n"
" -k kmin \tspecify the minimum amount of kerning (0)\n"
" -b \tinclude glyph bounding boxes\n"
" -l \tsuppress the ligatures line\n"
" -n \tsuppress glyph positions\n"
" -S scrs \tcomma-separated list of scripts to include (list to list)\n"
" -L langs\tcomma-separated list of languages to include (list to list)\n"
" -F font \tfont name or index in a font collection (list to list)\n"
" -w \twarn about unsupported font features\n";
int main(int argc, char *argv[])
{
int afm = 1;
int i;
for (i = 1; i < argc && argv[i][0] == '-'; i++) {
switch (argv[i][1]) {
case 'a':
afm = 1;
break;
case 'b':
mkfn_bbox = 1;
break;
case 'f':
mkfn_path = argv[i][2] ? argv[i] + 2 : argv[++i];
break;
case 'F':
mkfn_subfont = argv[i][2] ? argv[i] + 2 : argv[++i];
mkfn_dry = !strcmp("list", mkfn_subfont);
break;
case 'k':
mkfn_kmin = atoi(argv[i][2] ? argv[i] + 2 : argv[++i]);
break;
case 'l':
mkfn_noligs = 1;
break;
case 'L':
mkfn_langs = argv[i][2] ? argv[i] + 2 : argv[++i];
mkfn_dry = !strcmp("list", mkfn_langs);
break;
case 'n':
mkfn_pos = 0;
break;
case 'o':
afm = 0;
break;
case 'p':
mkfn_psname = argv[i][2] ? argv[i] + 2 : argv[++i];
break;
case 'r':
mkfn_res = atoi(argv[i][2] ? argv[i] + 2 : argv[++i]);
break;
case 's':
mkfn_special = 1;
break;
case 'S':
mkfn_scripts = argv[i][2] ? argv[i] + 2 : argv[++i];
mkfn_dry = !strcmp("list", mkfn_scripts);
break;
case 't':
mkfn_trname = argv[i][2] ? argv[i] + 2 : argv[++i];
break;
case 'w':
mkfn_warn = 1;
break;
default:
fprintf(stderr, "%s", usage);
return 1;
}
}
trfn_init();
if ((afm ? afm_read() : otf_read())) {
fprintf(stderr, "neatmkfn: cannot parse the font\n");
trfn_done();
return 1;
}
trfn_done();
return 0;
}