1 |
wakaba |
1.1 |
#?PESRC/1.0 |
2 |
|
|
Name: |
3 |
|
|
ISO2022::Pictogram |
4 |
|
|
ShortDescription: |
5 |
|
|
ISO/IEC 2022-like coding systems with pictogram character sets |
6 |
|
|
|
7 |
|
|
{ |
8 |
|
|
Name: |
9 |
|
|
jphone-iso-2022-jp |
10 |
|
|
Cversion: |
11 |
|
|
use:charset:Pictogram |
12 |
|
|
use:Encode::SJIS |
13 |
|
|
C:bit=7 |
14 |
|
|
C:G0=G94:B |
15 |
|
|
Encode:Prepare: |
16 |
|
|
C:GR=undef |
17 |
|
|
C:C1=C1:~ |
18 |
|
|
C:G1=G96:~ |
19 |
|
|
C:designate:*:default=-1 |
20 |
|
|
C:designate:G94:B=0 ## ASCII + YEN SIGN |
21 |
|
|
C:designate:G94n:B=0 ## JIS X 0208:1997 |
22 |
|
|
C:designate:G94n:B@=0 ## JIS X 0208:1997 |
23 |
|
|
C:option:{use_revision}=0 |
24 |
|
|
C:option:{undef_char}=["\x22\x2E", {type => 'G94n', charset => 'B', revision => '@'}] |
25 |
|
|
C:option:{fallback_from_ucs}=\&Encode::SJIS::_internal_to_page |
26 |
|
|
Encode: |
27 |
|
|
=>ucs_to_ascii_yen ucs_to_jisx0208_1997_yen ucs_to_jphone |
28 |
|
|
->iso2022:C |
29 |
|
|
Decode:Prepare: |
30 |
|
|
C:option:{final_to_set}->{G94n}->{B}='B@' |
31 |
|
|
Decode: |
32 |
|
|
!& Encode::SJIS::page_to_internal |
33 |
|
|
<-iso2022:C |
34 |
|
|
<=ascii_yen_to_ucs jisx0208_1997_to_ucs jphone_to_ucs jisx0208_1978_to_ucs |
35 |
|
|
Description: |
36 |
|
|
ISO-2022-JP for J-SKY defined by [JGUIDE]. |
37 |
|
|
|
38 |
|
|
Note that this coding system does NOT comform to ISO/ISO 2022 NOR to RFC 1468. |
39 |
|
|
} |
40 |
|
|
|
41 |
|
|
{ |
42 |
|
|
Name: |
43 |
|
|
jphone-euc-jp |
44 |
|
|
Cversion: |
45 |
|
|
use:charset:Pictogram |
46 |
|
|
use:Encode::SJIS |
47 |
|
|
C:bit=8 |
48 |
|
|
C:G0=G94:B ## ASCII + YEN SIGN |
49 |
|
|
C:G1=G94n:B@ ## JIS X 0208:1997 |
50 |
|
|
C:G2=G94:I ## JIS X 0201 Katakana |
51 |
|
|
Encode:Prepare: |
52 |
|
|
C:designate:*:default=-1 |
53 |
|
|
C:option:{Ginvoke_to_left}=[1,0,0,0] |
54 |
|
|
C:option:{Ginvoke_by_single_shift}=[0,0,1,1] |
55 |
|
|
C:option:{C1invoke_to_right}=1 |
56 |
|
|
C:option:{reset}->{Gdesignation}=0 |
57 |
|
|
C:option:{reset}->{Ginvoke}=0 |
58 |
|
|
C:option:{undef_char}=["\x22\x2E", {type => 'G94n', charset => 'B', revision => '@'}] |
59 |
|
|
C:option:{fallback_from_ucs}=\&Encode::SJIS::_internal_to_page |
60 |
|
|
Encode: |
61 |
|
|
=>ucs_to_ascii_yen ucs_to_jisx0208_1997_yen ucs_to_jphone |
62 |
|
|
->iso2022:C |
63 |
|
|
Decode:Prepare: |
64 |
|
|
C:G3=G94n:D ## JIS X 0212-1990 |
65 |
|
|
Decode: |
66 |
|
|
!& Encode::SJIS::page_to_internal |
67 |
|
|
<-iso2022:C |
68 |
|
|
<=ascii_yen_to_ucs jisx0208_1997_to_ucs jphone_to_ucs jisx0212_1990_to_ucs |
69 |
|
|
Description: |
70 |
|
|
EUC-JP for J-SKY defined by [JGUIDE]. |
71 |
|
|
|
72 |
|
|
Note that this coding system does NOT comform to ISO/ISO 2022, Japanese EUC |
73 |
|
|
specification NOR JIS X 0208:1997. |
74 |
|
|
} |
75 |
|
|
|
76 |
|
|
POD:SEE ALSO: |
77 |
|
|
L<Encode::SJIS::Pictogram>, L<Encode::JIS::JUNET>, L<Encode::JIS::EUCJA> |
78 |
|
|
|
79 |
|
|
POD:LICENSE: |
80 |
|
|
Copyright %%YEAR%% Wakaba <w@suika.fam.cx> |
81 |
|
|
|
82 |
|
|
%%PerlLicense%% |