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