annotate TOOLS/subfont-c/encodings/charmap2enc @ 1505:842c29861e25

upgraded to 1.0b version by Artur Zaprzala <artur.zaprzala@talex.com.pl>
author arpi
date Mon, 13 Aug 2001 18:37:10 +0000
parents
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 }