annotate TOOLS/subfont-c/encodings/charmap2enc @ 3213:c156c6873c78

similar to -r1.36
author jaf
date Thu, 29 Nov 2001 21:25:54 +0000
parents 842c29861e25
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1505
842c29861e25 upgraded to 1.0b version by Artur Zaprzala <artur.zaprzala@talex.com.pl>
arpi
parents:
diff changeset
1 #!/usr/bin/awk -f
842c29861e25 upgraded to 1.0b version by Artur Zaprzala <artur.zaprzala@talex.com.pl>
arpi
parents:
diff changeset
2 # only for mostly 2-byte encodings like euc-kr
842c29861e25 upgraded to 1.0b version by Artur Zaprzala <artur.zaprzala@talex.com.pl>
arpi
parents:
diff changeset
3
842c29861e25 upgraded to 1.0b version by Artur Zaprzala <artur.zaprzala@talex.com.pl>
arpi
parents:
diff changeset
4 $2~"^/x..$" {
842c29861e25 upgraded to 1.0b version by Artur Zaprzala <artur.zaprzala@talex.com.pl>
arpi
parents:
diff changeset
5 c = substr($2, 3, 2)
842c29861e25 upgraded to 1.0b version by Artur Zaprzala <artur.zaprzala@talex.com.pl>
arpi
parents:
diff changeset
6 if (c<"80")
842c29861e25 upgraded to 1.0b version by Artur Zaprzala <artur.zaprzala@talex.com.pl>
arpi
parents:
diff changeset
7 print substr($1, 3, 4) "\t" c
842c29861e25 upgraded to 1.0b version by Artur Zaprzala <artur.zaprzala@talex.com.pl>
arpi
parents:
diff changeset
8 }
842c29861e25 upgraded to 1.0b version by Artur Zaprzala <artur.zaprzala@talex.com.pl>
arpi
parents:
diff changeset
9 $2~"^/x../x..$" {
842c29861e25 upgraded to 1.0b version by Artur Zaprzala <artur.zaprzala@talex.com.pl>
arpi
parents:
diff changeset
10 print substr($1, 3, 4) "\t" substr($2, 3, 2) substr($2, 7, 2)
842c29861e25 upgraded to 1.0b version by Artur Zaprzala <artur.zaprzala@talex.com.pl>
arpi
parents:
diff changeset
11 }