1 #!/usr/local/plan9/bin/rc
2 
3 rm *.tpost *.troff *.pfb *.pfa *.afm map.sfd
4 
5 hex1=(0 1 2 3 4 5 6 7 8 9 A B C D E F)
6 hex=()
7 for(i in $hex1) for(j in $hex1) hex=($hex $i$j)
8 {
9 	for(h in $hex)
10 		echo $h 0x$h^00_0x$h^FF
11 } >map.sfd
12 for(font){
13 	f0=$font
14 	if(~ $font *.ttf)
15 		font=`{9 basename $font .ttf}
16 	if not if(~ $font *.sfd)
17 		font=`{9 basename $font .sfd}
18 	echo '
19 import fontforge
20 f = fontforge.open("'$f0'")
21 ff = fontforge.open("./'$f0'")
22 changed = True
23 while changed:
24 	changed = False
25 	for i in range(0, len(f)):
26 		try:
27 			f[i].temporary = [ ]
28 		except:
29 			pass
30 	
31 	for i in range(0, len(f)):
32 		try:
33 			f[i].temporary.append(i)
34 		except:
35 			pass
36 	
37 	for i in range(0, len(f)):
38 		try:
39 			g = f[i]
40 			codes = g.temporary
41 			if len(codes) > 1:
42 				print "Doubled: ", g.temporary
43 				gg = ff[i]
44 				f.removeGlyph(g)
45 				for j in range(1, len(codes)):
46 					f.createMappedChar(codes[j])
47 				f.createInterpolatedGlyph(gg, gg, 0)
48 				changed = True
49 		except:
50 			pass
51 
52 f.generate("'$font^%s.pfb'", "", ("afm",), 72, "map.sfd")
53 ' >fontforge.in
54 	fontforge '-lang=py' -script fontforge.in
55 	{
56 		echo name $font
57 		echo fontname $font
58 	} >$font.troff
59 	>$font.tpost
60 	for(h in $hex){
61 		if(test -f $font$h.pfb){
62 			pfb2pfa $font$h.pfb
63 			mv $font$h.pfa /usr/local/plan9/postscript/font/$font$h
64 			afm2troff -h -o 0x$h^00 $font$h.afm >>$font.troff
65 			echo 0x$h^00 0x$h^FF $font$h >>$font.tpost
66 		}
67 	}
68 	{
69 		echo '0x0027 0x0027 0x19 '$font'20  # map apostrophe to right quote'
70 		echo '0x0060 0x0060 0x18 '$font'20  # map grave to left quote'
71 	} >>$font.tpost
72 
73 	sam -d $font.troff <$PLAN9/dist/troff/devutf.sam
74 	if(~ $font *Mono*)
75 		sam -d $font.troff <$PLAN9/dist/troff/mono.sam
76 	cp $font.troff /usr/local/plan9/troff/font/devutf/$font
77 	cp $font.tpost /usr/local/plan9/postscript/troff/$font
78 }