/[suikacvs]/perl/lib/Encode/Charset.pm
Suika

Diff of /perl/lib/Encode/Charset.pm

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

revision 1.4 by wakaba, Sat Oct 12 11:03:00 2002 UTC revision 1.5 by wakaba, Wed Oct 16 10:39:35 2002 UTC
# Line 71  for my $f (0x30..0x5F, 0x7E) { Line 71  for my $f (0x30..0x5F, 0x7E) {
71    }    }
72  }  }
73    $CHARSET{G94n}->{"\x20\x40"}->{ucs} = 0x70460000;     ## DRCS 94^2 04/00    $CHARSET{G94n}->{"\x20\x40"}->{ucs} = 0x70460000;     ## DRCS 94^2 04/00
74      $CHARSET{G94n}->{P4_0} = $CHARSET{G94n}->{"\x20\x40"};
75        
76  for (0x60..0x6F) {  for (0x60..0x6F) {
77    my $F = pack 'C', $_;    my $F = pack 'C', $_;
# Line 215  sub new_object { Line 216  sub new_object {
216    $C{option} = {    $C{option} = {
217          C1invoke_to_right       => 0,   ## C1 invoked to: (0: ESC Fe, 1: CR)          C1invoke_to_right       => 0,   ## C1 invoked to: (0: ESC Fe, 1: CR)
218          G94n_designate_long     => 0,   ## (1: ESC 02/04 02/08 04/00..02)          G94n_designate_long     => 0,   ## (1: ESC 02/04 02/08 04/00..02)
219          designate_to    => {    ## Designated G buffer (-1: not be outputed)          designate_to    => {    ## Designated G buffer (-1: not to be outputed)
220                  C0      => {                  C0      => {
221                          default => 0,                          default => 0,
222                  },                  },
# Line 239  sub new_object { Line 240  sub new_object {
240                          default => -1,                          default => -1,
241                  },                  },
242          },          },
243            final_to_set    => {
244                    C0 => {}, C1 => {}, G94 => {}, G94n => {},
245                    G96 => {}, G96n => {}, coding_system => {},
246            },
247          Ginvoke_by_single_shift => [0,0,0,0],   ## Invoked by SS          Ginvoke_by_single_shift => [0,0,0,0],   ## Invoked by SS
248          Ginvoke_to_left => [1,1,1,1],   ## Which invoked to? (1: L, 0: R)          Ginvoke_to_left => [1,1,1,1],   ## Which invoked to? (1: L, 0: R)
249          private_set     => {    ## Private set vs Final byte          private_set     => {    ## Private set vs Final byte
# Line 264  sub new_object { Line 269  sub new_object {
269  }  }
270    
271  sub new_object_sjis {  sub new_object_sjis {
272    my $C = new_object;    my $C = &new_object;
273    $C->{coding_system} = $CODING_SYSTEM{Csjis};    $C->{coding_system} = $CODING_SYSTEM{Csjis};
274    $C->{CR} = undef;    $C->{CR} = undef;
275    $C->{GR} = 'G2';      ## 0xA1-0xDF    $C->{GR} = 'G2';      ## 0xA1-0xDF
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24