blob: 6e8f661981997970971ca9a46fe27aa1162118f1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
#!/usr/local/plan9/bin/rc
rm *.tpost *.troff *.pfb *.pfa *.afm map.sfd
hex1=(0 1 2 3 4 5 6 7 8 9 A B C D E F)
hex=()
for(i in $hex1) for(j in $hex1) hex=($hex $i$j)
{
for(h in $hex)
echo $h 0x$h^00_0x$h^FF
} >map.sfd
for(font){
f0=$font
if(~ $font *.ttf)
font=`{9 basename $font .ttf}
if not if(~ $font *.sfd)
font=`{9 basename $font .sfd}
echo '
Open("'$f0'")
Generate("'$font^%s.pfb'", "", -1, 72, "map.sfd")
' >fontforge.in
fontforge -script fontforge.in
{
echo name $font
echo fontname $font
} >$font.troff
>$font.tpost
for(h in $hex){
if(test -f $font$h.pfb){
pfb2pfa $font$h.pfb $font$h.pfa
mv $font$h.pfa /usr/local/plan9/postscript/font/$font$h
afm2troff -h -o 0x$h^00 $font$h.afm >>$font.troff
echo 0x$h^00 0x$h^FF $font$h >>$font.tpost
}
}
{
echo '0x0027 0x0027 0x19 '$font'20 # map apostrophe to right quote'
echo '0x0060 0x0060 0x18 '$font'20 # map grave to left quote'
} >>$font.tpost
sam -d $font.troff <$PLAN9/dist/troff/devutf.sam
if(~ $font *Mono*)
sam -d $font.troff <$PLAN9/dist/troff/mono.sam
cp $font.troff /usr/local/plan9/troff/font/devutf/$font
cp $font.tpost /usr/local/plan9/postscript/troff/$font
}
|