Return to specmakefont CVS log

Up to [Research Unix] / researchv10no / cmd / troff / dev202

researchv10 Norman

case $# in
0)	echo 'specmakefont widthfile Name internal# ...'; exit ;;
esac

arch=$1
shift

echo "# $*
name $1
internalname $2" >$1
awk '
BEGIN {
	OFS = "	"
	print "charset"
}

# read width file to get char number and width
# output is 
#	--- width 0 number

$1 ~ /^C[0-9][0-9][0-9]/ {
	if ($2 > 100)
		$2 = substr($2,1,2)
	n = substr($1,2) + 0
	print "---", $2, 0, n
} ' $arch >>$1

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.