¥H¤U¬O¤@¨Ç³nÅé¦b¤¤¤å¤ä´©¤è±¡A§Q¥Îµ{¦¡ªº§PÂ_¡C
ì«h¤W¦pªG¬O¥Î gtk ¼gªº³nÅé¡A¸Ì±¦³©I¥s¨ì gtk_set_locale() ³oӨ禡ªº¸ÜÀ³¸Ó³£¨S°ÝÃD¡C
¦pªG¬O¨ä¥Lªº X ³nÅé¥i¯àn§ä¤@¤U source ¸Ì±¦³¨S¦³ setlocale(LC_CTYPE, NULL); ¤Î XIM ¬ÛÃö¨ç¦¡©I¥s±¡§Î¡C¦pªG¦³¿í·Ó¥¿²Î°µªk¡A xcin2.5 À³¸Ó³£¥i¥H¸ò¥¦·f°t¨}¦n¡C
Qt ¨S¸I¹L¡A©Ò¥H¤£ª¾¹D¥L«ç»ò¹B§@¡C¤£¹L²q·Q XIM ³o¬qÀ³¸Ó¸ò gtk ¤j¦P¤p²§¡C
¥Î xforms ¼gªº³nÅéÀ³¸Ó·|¦³°ÝÃD¡C
¥Î X11R6.4 ª©¥H«áªº Xt/Xaw ¼gªº³nÅéÀ³¸Ó¬O¨S°ÝÃD¡A °O±o¦b .Xdefaults ¸ÌÀY¥[¤J *international:true ¡B*fontSet:-*-iso8859-1,-*-16-*-big5-0 µ¥µ¥¡C
¥Î fltk ¼gªº³nÅé¦ü¥G¤]¨S¤ä´© XIM¡C
¦bFreeBSD¤U¼gµ{¦¡¡Aµ²ªGµo²{¤@Ó¤¤¤åªº°ÝÃD¡A ¨Ò¦p¦r¦ê¤¤¥]§t³o"³\"³oÓ¦r¡A¦]¬°³\¦rªº¤U¥b½X¬O ascii¤¤ªº\²Å¸¹¡Aµ²ªG´N·|³y¦¨¿ù»~¡A½Ð°Ý³oºØ±¡§Î À³¸Ó¦p¦ó¸Ñ¨M¡H¤SÁÙ¦³¨S¦³¨ä¥Lªº½X¦³³oºØ°ÝÃD¡H
¦bµ{¦¡¤¤¸Ó¦r«e¥[¤@Ó '\'¡AÁÙ¦³«Ü¦h¦³³oÓ°ÝÃD©O¡A¦p¤U¡G
5C +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F A0 ¡\ ¢\ £\ ¤\ ¥\ ¦\ §\ ¨\ ©\ ª\ «\ ¬\ \ ®\ ¯\ B0 °\ ±\ ²\ ³\ ´\ µ\ ¶\ ·\ ¸\ ¹\ º\ »\ ¼\ ½\ ¾\ ¿\ C0 À\ Á\ Â\ Ã\ Ä\ Å\ Æ\ Ç\ È\ É\ Ê\ Ë\ Ì\ Í\ Î\ Ï\ D0 Ð\ Ñ\ Ò\ Ó\ Ô\ Õ\ Ö\ ×\ Ø\ Ù\ Ú\ Û\ Ü\ Ý\ Þ\ ß\ E0 à\ á\ â\ ã\ ä\ å\ æ\ ç\ è\ é\ ê\ ë\ ì\ í\ î\ ï\ F0 ð\ ñ\ ò\ ó\ ô\ õ\ ö\ ÷\ ø\ ù\
'\' ªº ASCII code ¬O \0x5c¡A±q [\0xa1-\0xf9][\0x5c] ³£·|¦³³oÓ°ÝÃD¡C
#!/usr/bin/perl
#
# create code table (Big5) [\0xa1-0xf9][\0x40-\0x7e\0xa1-\0xfe]
#
# ÁcÅ餤¤å (Big5) ¤å¦r¤º½Xªíªº²£¥Í
open (OUT, "> big55c.txt"); select OUT;
# ¤å¦r¤º½Xªíªº²£¥Í
# ¶}ÀYªºªí¥Ü
print "\n5C ";
print "+0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F\n";
$c = 1; # 1¦æ¤å¦r¼Æ(16¤å¦r)
$head = "";
$line = "";
for ($c1 = 0xA0; $c1 i<= 0xF9; $c1++) { # $c1 ¬O²Ä¤@Ӧ줸 [\0xa1-\0xf9]
$c2=0x5c;
# ¶}ÀY²Ä¤@Ó¦r
if ("$head" eq "") {
$head = sprintf ("%02X ", $c1);
}
$line .= " "; # ¤å¦r¶¡ªºªÅ¥Õ
if ($c1 == 0xA0) {
$line .= " ";
} else {
$line .= pack("CC", $c1, $c2);
}
if ($c == 16 || $c1 ==0xf9) { # 16¤å¦rªí¥Ü¤@¦æ
print "$head$line\n";
$head = "";
$line = "";
$c = 1;
} else {
$c++;
}
}
close(OUT);
exit;