/[suikacvs]/perl/lib/Encode/Table/tool/internal.pl
Suika

Diff of /perl/lib/Encode/Table/tool/internal.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by wakaba, Sat Oct 5 01:34:55 2002 UTC revision 1.3 by wakaba, Sat Oct 5 05:01:24 2002 UTC
# Line 28  sub cp_start (%) { Line 28  sub cp_start (%) {
28    if ($o{charset_chars} == 94 && $o{charset_dimension} == 2    if ($o{charset_chars} == 94 && $o{charset_dimension} == 2
29      && length $o{charset_final_byte}) {      && length $o{charset_final_byte}) {
30      0xE9F6C0 + 94*94*(ord ($o{charset_final_byte})-0x30)      0xE9F6C0 + 94*94*(ord ($o{charset_final_byte})-0x30)
31      } elsif ($o{charset_chars} == 94 && $o{charset_dimension} == 1
32        && length $o{charset_final_byte}) {
33        0xE90940 + 94*(ord ($o{charset_final_byte})-0x30)
34    }    }
35  }  }
36    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24