#?PESRC/1.0 Name: ISO2022::Pictogram ShortDescription: ISO/IEC 2022-like coding systems with pictogram character sets { Name: jphone-iso-2022-jp Alias: jphone-iso2022-jp Cversion: use:charset:Pictogram use:Encode::SJIS C:bit=7 C:G0=G94:B Encode:Prepare: C:GR=undef C:C1=C1:~ C:G1=G96:~ C:designate:*:default=-1 C:designate:G94:B=0 ## ASCII + YEN SIGN C:designate:G94n:B=0 ## JIS X 0208:1997 C:designate:G94n:B@=0 ## JIS X 0208:1997 C:option:{use_revision}=0 C:option:{undef_char}=["\x22\x2E", {type => 'G94n', charset => 'B', revision => '@'}] C:option:{fallback_from_ucs}=\&Encode::SJIS::_internal_to_page Encode: =>ucs_to_ascii_yen ucs_to_jisx0208_1997_yen ucs_to_jisx0208_to_katakana_hw ucs_to_jphone ->iso2022:C Decode:Prepare: C:option:{final_to_set}->{G94n}->{B}='B@' Decode: !& Encode::SJIS::page_to_internal <-iso2022:C <=ascii_yen_to_ucs jisx0208_1997_to_ucs jphone_to_ucs jisx0208_1978_to_ucs Description: ISO-2022-JP for J-SKY defined by [JGUIDE]. Note that this coding system does NOT comform to ISO/ISO 2022 NOR to RFC 1468. } { Name: jphone-euc-jp Cversion: use:charset:Pictogram use:Encode::SJIS C:bit=8 C:G0=G94:B ## ASCII + YEN SIGN C:G1=G94n:B@ ## JIS X 0208:1997 C:G2=G94:I ## JIS X 0201 Katakana Encode:Prepare: C:designate:*:default=-1 C:option:{Ginvoke_to_left}=[1,0,0,0] C:option:{Ginvoke_by_single_shift}=[0,0,1,1] C:option:{C1invoke_to_right}=1 C:option:{reset}->{Gdesignation}=0 C:option:{reset}->{Ginvoke}=0 C:option:{undef_char}=["\x22\x2E", {type => 'G94n', charset => 'B', revision => '@'}] C:option:{fallback_from_ucs}=\&Encode::SJIS::_internal_to_page Encode: =>ucs_to_ascii_yen ucs_to_jisx0208_1997_yen ucs_to_jisx0201_katakana_hw ucs_to_jphone ->iso2022:C Decode:Prepare: C:G3=G94n:D ## JIS X 0212-1990 Decode: !& Encode::SJIS::page_to_internal <-iso2022:C <=ascii_yen_to_ucs jisx0208_1997_to_ucs jisx0201_katakana_hw_to_ucs jphone_to_ucs jisx0212_1990_to_ucs Description: EUC-JP for J-SKY defined by [JGUIDE]. Note that this coding system does NOT comform to ISO/ISO 2022, Japanese EUC specification NOR JIS X 0208:1997. } POD:SEE ALSO: L, L, L POD:LICENSE: Copyright %%YEAR%% Wakaba %%PerlLicense%%