/[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.1 by wakaba, Fri Sep 20 14:01:45 2002 UTC revision 1.2 by wakaba, Sat Sep 21 01:34:08 2002 UTC
# Line 169  sub make_initial_coding_system { Line 169  sub make_initial_coding_system {
169      $CODING_SYSTEM{$F} = {};      $CODING_SYSTEM{$F} = {};
170      $CODING_SYSTEM{"\x2F".$F} = {reset_state => 1};      $CODING_SYSTEM{"\x2F".$F} = {reset_state => 1};
171    }    }
172      $CODING_SYSTEM{Csjis} = {perl_name => 'shiftjis'};
173  }  }
174    
175  sub make_charset (%) {  sub make_charset (%) {
# Line 179  sub make_charset (%) { Line 180  sub make_charset (%) {
180    $CHARSET{ $settype }->{ $setid } = \%set;    $CHARSET{ $settype }->{ $setid } = \%set;
181  }  }
182    
183    ## Make a new ISO/IEC 2022-buffers object with default status
184    sub new_object {
185      my %C;
186      $C{bit} = 8;
187      $C{CL} = 'C0'; $C{CR} = 'C1'; $C{ESC_Fe} = 'C1';
188      $C{C0} = $CHARSET{C0}->{"\x40"};      ## ISO/IEC 6429:1991 C0
189      $C{C1} = $CHARSET{C1}->{'64291991C1'};        ## ISO/IEC 6429:1991 C1
190      $C{GL} = 'G0'; $C{GR} = 'G1';
191      $C{G0} = $CHARSET{G94}->{"\x42"};     ## ISO/IEC 646:1991 IRV
192      #$C{G1} = $CHARSET{G96}->{"\x41"};    ## ISO/IEC 8859-1 GR
193      $C{G1} = $CHARSET{G94}->{"\x7E"};     ## empty set
194      $C{G2} = $CHARSET{G94}->{"\x7E"};     ## empty set
195      $C{G3} = $CHARSET{G94}->{"\x7E"};     ## empty set
196      $C{coding_system} = $CODING_SYSTEM{"\x40"};   ## ISO/IEC 2022
197      $C{option} = {
198            C1invoke_to_right       => 0,   ## C1 invoked to: (0: ESC Fe, 1: CR)
199            G94n_designate_long     => 0,   ## (1: ESC 02/04 02/08 04/00..02)
200            designate_to    => {    ## Designated G buffer (-1: not be outputed)
201                    C0      => {
202                            default => 0,
203                    },
204                    C1      => {
205                            default => 1,
206                    },
207                    G94     => {
208                            "\x42"  => 0,
209                            default => 0,
210                    },
211                    G96     => {
212                            default => 1,
213                    },
214                    G94n    => {
215                            default => 0,
216                    },
217                    G96n    => {
218                            default => 1,
219                    },
220                    coding_system => {
221                            default => -1,
222                    },
223            },
224            Ginvoke_by_single_shift => [0,0,0,0],   ## Invoked by SS
225            Ginvoke_to_left => [1,1,1,1],   ## Which invoked to? (1: L, 0: R)
226            private_set     => {    ## Private set vs Final byte
227                    C0      => [],
228                    C1      => [],
229                    G94     => [],
230                    G94n    => [[],[],[],[],[]],
231                    G96     => [],
232                    #G96n   => [],  ## (not implemented)
233                    U96n    => [],  ## mule-unicode sets
234                    XC1     => {
235                            '64291991C1'    => undef,       ## ISO/IEC 6429:1991 C1
236                    },
237            },
238            reset => {      ## Reset status at top of line
239                    Gdesignation    => "\x42",      ## F of designation or 0
240                    Ginvoke => 1,
241            },
242            undef_char      => ["\x3F", {type => 'G94', charset => 'B'}],
243            use_revision    => 1,   ## Output IRR
244      };
245      \%C;
246    }
247    
248  1;  1;
249  __END__  __END__
250    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24