|
|
1.1 ! root 1: # print one font from description file ! 2: ! 3: awk ' ! 4: BEGIN { ! 5: filename = ARGV[2] ! 6: print ".sp 2" ! 7: print ".vs 18p" ! 8: print ".ll 5i" ! 9: print ".ft 1" ! 10: for (i = 2; i < ARGC; i++) ! 11: printf "%s ", ARGV[i] ! 12: printf "\n" ! 13: print ".sp" ! 14: print ".fp 2 2", filename ! 15: print ".ft 2" ! 16: ARGC = 2 ! 17: ARGV[1] = filename ! 18: } ! 19: ! 20: NR==1, /charset/ { next } ! 21: ! 22: $1 ~ /^.$/ { print "\\&" $1 } ! 23: ! 24: $1 ~ "^[zZ%]$" { print ".br" } ! 25: ! 26: $1 ~ /^..$/ { printf "\\ \\(%s\\|\\s6\\d\\f1\\e(%s\\fP\\u\\s0\n", $1, $1 } ! 27: ! 28: $1 ~ /^---$/ { printf "\\ \\N@%s@\\|\\s6\\d\\f1\\eN\\(fm%s\\(fm\\fP\\u\\s0\n", $4, $4 } ! 29: ! 30: ' $*
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.