annotate TOOLS/subfont-c/encodings/charmap2enc @ 17026:3c4b93bc0db3

10l
author lorenm
date Tue, 22 Nov 2005 05:32:28 +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 }