mkrules

   1 #!/bin/bash
   2 set -e
   3 set -o pipefail
   4 rm -f rules/foundries
   5 rm -f rules/*.rules rules/foundries.new
   6
   7 chars () {
   8         for c in $rest; do
   9                 case " $c " in
  10                 " "?" ")
  11                         ord=`perl -e 'print ord($ARGV[0]),"\n" or die $!' "$c"`
  12                         ;;
  13                 " "d?*" ")
  14                         ord="${c#d}"
  15                         c=`perl -e 'printf "%c", $ARGV[0]' "$ord"`
  16                         ;;
  17                 *)
  18                         echo >&2 "??? $c"
  19                         exit 1
  20                         ;;
  21                 esac
  22                 ./printrule >&3 "$bad" "$good" $height \
  23                         "^ENCODING $ord$" $partial "$c"
  24         done
  25 }
  26
  27 seenrules=/
  28 seenfoundries=/
  29
  30 while read keyword rest; do
  31         case "$keyword" in
  32         '#'|'') continue ;;
  33         pcf)
  34                 pcf=$rest
  35                 for f in good bad; do
  36                         in=$f/$pcf.pcf.gz
  37                         out=$f/$pcf.bdf
  38                         if [ -e $in ]; then
  39                                 zcat $in | pcf2bdf | ./bdfnorm >$out
  40                         elif [ -e "$out.direct" ]; then
  41                                 ./bdfnorm <"$out.direct" >"$out"
  42                         elif [ -e "$f/$pcf.sfd" ]; then
  43                                 ./ffconvert.pe "$f/$pcf"
  44                                 # fontforge writes a silly filename
  45                                 ./bdfnorm <"$f/$pcf".BDF*.bdf >$out
  46                         else
  47                                 echo >&2 "cannot make $out!"
  48                                 exit 1
  49                         fi
  50                         eval "$f=\$out"
  51                 done
  52                 ;;
  53         rules)
  54                 newfoundry=$rest
  55                 eval `perl -ne '
  56                         next unless s/^BBX\s+//;
  57                         s/\s+$//;
  58                         s/\s+/,/g;
  59                         s/[-+]?\b\d+\b/ sprintf "%d", $& /ge;
  60                         m/^\d+\,(\d+)\b/ or die;
  61                         print "key=$_; height=$1\n" or die $!;
  62                         exit;
  63                 ' <$bad`
  64                 oldfoundry=`perl -ne '
  65                         next unless s/^FOUNDRY\s+\"?//;
  66                         s/\"?\s+$//;
  67                         print or die $!;
  68                         exit;
  69                 ' <$good`
  70                 case "$seenfoundries" in
  71                 */"$oldfoundry,$newfoundry"/*)
  72                         ;;
  73                 */"$oldfoundry,"*)
  74                         echo >&2 "inconsistent foundry mapping"
  75                         exit 1
  76                         ;;
  77                 *)
  78                         seenfoundries=$seenfoundries$oldfoundry,$newfoundry/
  79                         printf >>rules/foundries.new \
  80                                 "%s %s\n" "$oldfoundry" "$newfoundry"
  81                         ;;
  82                 esac
  83                 case "$seenrules" in
  84                 */"$newfoundry,$key"/*)
  85                         exec 3>>rules/$newfoundry,$key.rules
  86                         ;;
  87                 *)
  88                         exec 3>rules/$newfoundry,$key.rules
  89                         echo >&3 '# -*- perl -*-'
  90                         echo >&3 '# autogenerated by mkrules'
  91                         echo >&3 'sub {'
  92                         seenrules=$seenrules$newfoundry,$key/
  93                         ;;
  94                 esac
  95                 echo >&3 "    # $pcf"
  96                 ;;
  97         endrules)
  98                 exec 3</dev/null
  99                 ;;
 100         entire)
 101                 partial=0
 102                 chars
 103                 ;;
 104         partial)
 105                 partial=1
 106                 chars
 107                 ;;
 108         verbatim)
 109                 echo >&3 "    $rest"
 110                 ;;
 111         *)
 112                 echo >&2 "??? $keyword"
 113                 exit 1
 114                 ;;
 115         esac
 116 done
 117
 118 while :; do
 119         case "$seenrules" in /) break ;; esac
 120         seenrules=${seenrules#/}
 121         rulefile=${seenrules%%/*}
 122         seenrules=/${seenrules#*/}
 123         echo "}" >>rules/$rulefile.rules
 124 done
 125
 126 mv rules/foundries.new rules/foundries