Char/Class/JaInput.pm

## This file is auto-generated (at 2008-11-24T04:21:28Z).
## Do not edit by hand!
use strict;

package Char::Class::JaInput;
our $VERSION = '1.01';

use Exporter;
use vars qw(@EXPORT_OK @ISA $VERSION);
@ISA = qw(Exporter);

=head1 NAME

Char::Class::JaInput - Regular Expression Character Classes - C<JaInput>

=head1 DESCRIPTION

Character classes for Japanese input method


=cut

sub import ($;@) {
  my ($self, @sub) = (shift, @_);
  for (@sub) {
    no strict 'refs';
    *{'main::'.$_} = \&{$_};
  }
  $Exporter::ExportLevel = 1;
  $self->SUPER::import (@_);
  $Exporter::ExportLevel = 0;
}

@EXPORT_OK = qw(InJaInputBoin InJaInputDigit InJaInputEnglishSymbol InJaInputHiraganaMin InJaInputKanaSymbol InJaInputKatakana InJaInputKatakanaSymbol InJaInputKeyKatakana InJaInputLatin InJaInputLatinCapital InJaInputLatinSmall InJaInputShiin InJaInputYomi);

sub InJaInputBoin {
<<EOH;
0061
0065
0069
006F
0075
EOH
}

sub InJaInputDigit {
<<EOH;
0030
0031
0032
0033
0034
0035
0036
0037
0038
0039
EOH
}

sub InJaInputEnglishSymbol {
<<EOH;
"#$%&'()*+,-./:;<=>?@{\N{YEN SIGN}}^_`{|}￣
EOH
}

sub InJaInputHiraganaMin {
<<EOH;
3041
3042
3043
3044
3045
3046
3047
3048
3049
304A
304B
304C
304D
304E
304F
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
305A
305B
305C
305D
305E
305F
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
306A
306B
306C
306D
306E
306F
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
307A
307B
307C
307D
307E
307F
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
308A
308B
308C
308D
308F
3092
3093
EOH
}

sub InJaInputKanaSymbol {
<<EOH;
3001
3002
300C
300D
309B
309C
30FB
30FC
EOH
}

sub InJaInputKatakana {
<<EOH;
30A1
30A2
30A3
30A4
30A5
30A6
30A7
30A8
30A9
30AA
30AB
30AC
30AD
30AE
30AF
30B0
30B1
30B2
30B3
30B4
30B5
30B6
30B7
30B8
30B9
30BA
30BB
30BC
30BD
30BE
30BF
30C0
30C1
30C2
30C3
30C4
30C5
30C6
30C7
30C8
30C9
30CA
30CB
30CC
30CD
30CE
30CF
30D0
30D1
30D2
30D3
30D4
30D5
30D6
30D7
30D8
30D9
30DA
30DB
30DC
30DD
30DE
30DF
30E0
30E1
30E2
30E3
30E4
30E5
30E6
30E7
30E8
30E9
30EA
30EB
30EC
30ED
30EF
30F2
30F3
30F4
30F5
30F6
EOH
}

sub InJaInputKatakanaSymbol {
<<EOH;
3001
3002
300C
300D
309B
309C
30FB
FF0D
EOH
}

sub InJaInputKeyKatakana {
<<EOH;
30A1
30A2
30A3
30A4
30A5
30A6
30A7
30A8
30A9
30AA
30AB
30AD
30AF
30B1
30B3
30B5
30B7
30B9
30BB
30BD
30BF
30C1
30C3
30C4
30C6
30C8
30CA
30CB
30CC
30CD
30CE
30CF
30D2
30D5
30D8
30DB
30DE
30DF
30E0
30E1
30E2
30E3
30E4
30E5
30E6
30E7
30E8
30E9
30EA
30EB
30EC
30ED
30EF
30F2
30F3
EOH
}

sub InJaInputLatin {
<<EOH;
0041
0042
0043
0044
0045
0046
0047
0048
0049
004A
004B
004C
004D
004E
004F
0050
0051
0052
0053
0054
0055
0056
0057
0058
0059
005A
0061
0062
0063
0064
0065
0066
0067
0068
0069
006A
006B
006C
006D
006E
006F
0070
0071
0072
0073
0074
0075
0076
0077
0078
0079
007A
EOH
}

sub InJaInputLatinCapital {
<<EOH;
0041
0042
0043
0044
0045
0046
0047
0048
0049
004A
004B
004C
004D
004E
004F
0050
0051
0052
0053
0054
0055
0056
0057
0058
0059
005A
EOH
}

sub InJaInputLatinSmall {
<<EOH;
0061
0062
0063
0064
0065
0066
0067
0068
0069
006A
006B
006C
006D
006E
006F
0070
0071
0072
0073
0074
0075
0076
0077
0078
0079
007A
EOH
}

sub InJaInputShiin {
<<EOH;
0062
0063
0064
0066
0067
0068
006A
006B
006C
006D
006E
0070
0071
0072
0073
0074
0076
0077
0078
0079
007A
EOH
}

sub InJaInputYomi {
<<EOH;
3041
3042
3043
3044
3045
3046
3047
3048
3049
304A
304B
304C
304D
304E
304F
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
305A
305B
305C
305D
305E
305F
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
306A
306B
306C
306D
306E
306F
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
307A
307B
307C
307D
307E
307F
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
308A
308B
308C
308D
308F
3092
3093
30A1
30A2
30A3
30A4
30A5
30A6
30A7
30A8
30A9
30AA
30AB
30AC
30AD
30AE
30AF
30B0
30B1
30B2
30B3
30B4
30B5
30B6
30B7
30B8
30B9
30BA
30BB
30BC
30BD
30BE
30BF
30C0
30C1
30C2
30C3
30C4
30C5
30C6
30C7
30C8
30C9
30CA
30CB
30CC
30CD
30CE
30CF
30D0
30D1
30D2
30D3
30D4
30D5
30D6
30D7
30D8
30D9
30DA
30DB
30DC
30DD
30DE
30DF
30E0
30E1
30E2
30E3
30E4
30E5
30E6
30E7
30E8
30E9
30EA
30EB
30EC
30ED
30EF
30F2
30F3
30FC
EOH
}

=head1 COLLECTION NAMES

=over 4

=item C<InJaInputBoin>

母音字 (JIS X 4063:2000 3.c))

=item C<InJaInputDigit>

数字 (JIS X 4064:2002 5.e))

=item C<InJaInputEnglishSymbol>

英字用特殊文字 (JIS X 6002-1980 4.2.4 (1))

=item C<InJaInputHiraganaMin>

平仮名 (最小集合) (JIS X 4064:2002 5.a))

=item C<InJaInputKanaSymbol>

仮名記号 (JIS X 4064:2002 5.c))

=item C<InJaInputKatakana>

片仮名 (最小集合) (JIS X 4064:2002 5.b))

=item C<InJaInputKatakanaSymbol>

片仮名用特殊文字 (JIS X 6002-1980 4.2.4 (2))

=item C<InJaInputKeyKatakana>

片仮名 (鍵盤) (JIS X 6002-1980 4.2.2)

=item C<InJaInputLatin>

英字 (JIS X 4064:2002 5.d))

=item C<InJaInputLatinCapital>

英字 (大文字) (JIS X 6002-1980 4.2.1 (1))

=item C<InJaInputLatinSmall>

英字 (小文字) (JIS X 6002-1980 4.2.1 (2))

=item C<InJaInputShiin>

子音字 (JIS X 4063:2000 3.b))

=item C<InJaInputYomi>

よみ文字列として交換を保証する文字 (JIS X 4062:1998 表1)

=back

=cut


=head1 EXAMPLE

 use Char::Class::JaInput;
 if ($s =~ /\p{InLatin}/) {
   print "Match!\n";
 }

=head1 SEE ALSO

JIS X 4062:1998, 『仮名漢字変換辞書交換形式 (Format for information interchange
for dictionaries of Japanese input method)』, 日本工業標準調査会 
(Japanese Industrial Standard Commitee (JISC), <http://www.jisc.go.jp/>), 1998.

JIS X 4063:2000, 『仮名漢字変換システムのための英字キー入力から仮名への変換方式
(Keystroke to KANA Transfer Method Using Latin Letter Key for Japanese Input 
Method)』, 日本工業標準調査会), 2000.

JIS X 4064:2002, 『仮名漢字変換システムの基本機能
(Basic functions of Kana‐Kanji conversion systems)』,
日本工業標準調査会, 2000.

JIS X 6002-1980, 『情報処理系けん盤配列 (Keyboard Layout for Information Processing
Using the JIS 7 Bit Coded Character Set)』,
日本工業標準調査会, 1980.

=head1 LICENSE

Copyright 2008 わかば (Wakaba) <w@suika.fam.cx>

This library and the library generated by it is free software;
you can redistribute them and/or modify them under the same
terms as Perl itself.

=cut

1;
### JaInput.pm ends here
1	wakaba	1.2	## This file is auto-generated (at 2008-11-24T04:21:28Z).
2	wakaba	1.1	## Do not edit by hand!
3			use strict;
4
5			package Char::Class::JaInput;
6			our $VERSION = '1.01';
7
8			use Exporter;
9			use vars qw(@EXPORT_OK @ISA $VERSION);
10			@ISA = qw(Exporter);
11
12			=head1 NAME
13
14			Char::Class::JaInput - Regular Expression Character Classes - C<JaInput>
15
16			=head1 DESCRIPTION
17
18			Character classes for Japanese input method
19
20
21			=cut
22
23			sub import ($;@) {
24			my ($self, @sub) = (shift, @_);
25			for (@sub) {
26			no strict 'refs';
27			*{'main::'.$_} = \&{$_};
28			}
29			$Exporter::ExportLevel = 1;
30			$self->SUPER::import (@_);
31			$Exporter::ExportLevel = 0;
32			}
33
34			@EXPORT_OK = qw(InJaInputBoin InJaInputDigit InJaInputEnglishSymbol InJaInputHiraganaMin InJaInputKanaSymbol InJaInputKatakana InJaInputKatakanaSymbol InJaInputKeyKatakana InJaInputLatin InJaInputLatinCapital InJaInputLatinSmall InJaInputShiin InJaInputYomi);
35
36			sub InJaInputBoin {
37			<<EOH;
38			0061
39			0065
40			0069
41			006F
42			0075
43			EOH
44			}
45
46			sub InJaInputDigit {
47			<<EOH;
48			0030
49			0031
50			0032
51			0033
52			0034
53			0035
54			0036
55			0037
56			0038
57			0039
58			EOH
59			}
60
61			sub InJaInputEnglishSymbol {
62			<<EOH;
63			"#$%&'()*+,-./:;<=>?@{\N{YEN SIGN}}^_`{\|}￣
64			EOH
65			}
66
67			sub InJaInputHiraganaMin {
68			<<EOH;
69			3041
70			3042
71			3043
72			3044
73			3045
74			3046
75			3047
76			3048
77			3049
78			304A
79			304B
80			304C
81			304D
82			304E
83			304F
84			3050
85			3051
86			3052
87			3053
88			3054
89			3055
90			3056
91			3057
92			3058
93			3059
94			305A
95			305B
96			305C
97			305D
98			305E
99			305F
100			3060
101			3061
102			3062
103			3063
104			3064
105			3065
106			3066
107			3067
108			3068
109			3069
110			306A
111			306B
112			306C
113			306D
114			306E
115			306F
116			3070
117			3071
118			3072
119			3073
120			3074
121			3075
122			3076
123			3077
124			3078
125			3079
126			307A
127			307B
128			307C
129			307D
130			307E
131			307F
132			3080
133			3081
134			3082
135			3083
136			3084
137			3085
138			3086
139			3087
140			3088
141			3089
142			308A
143			308B
144			308C
145			308D
146			308F
147			3092
148			3093
149			EOH
150			}
151
152			sub InJaInputKanaSymbol {
153			<<EOH;
154			3001
155			3002
156			300C
157			300D
158			309B
159			309C
160			30FB
161			30FC
162			EOH
163			}
164
165			sub InJaInputKatakana {
166			<<EOH;
167			30A1
168			30A2
169			30A3
170			30A4
171			30A5
172			30A6
173			30A7
174			30A8
175			30A9
176			30AA
177			30AB
178			30AC
179			30AD
180			30AE
181			30AF
182			30B0
183			30B1
184			30B2
185			30B3
186			30B4
187			30B5
188			30B6
189			30B7
190			30B8
191			30B9
192			30BA
193			30BB
194			30BC
195			30BD
196			30BE
197			30BF
198			30C0
199			30C1
200			30C2
201			30C3
202			30C4
203			30C5
204			30C6
205			30C7
206			30C8
207			30C9
208			30CA
209			30CB
210			30CC
211			30CD
212			30CE
213			30CF
214			30D0
215			30D1
216			30D2
217			30D3
218			30D4
219			30D5
220			30D6
221			30D7
222			30D8
223			30D9
224			30DA
225			30DB
226			30DC
227			30DD
228			30DE
229			30DF
230			30E0
231			30E1
232			30E2
233			30E3
234			30E4
235			30E5
236			30E6
237			30E7
238			30E8
239			30E9
240			30EA
241			30EB
242			30EC
243			30ED
244			30EF
245			30F2
246			30F3
247			30F4
248			30F5
249			30F6
250			EOH
251			}
252
253			sub InJaInputKatakanaSymbol {
254			<<EOH;
255			3001
256			3002
257			300C
258			300D
259			309B
260			309C
261			30FB
262			FF0D
263			EOH
264			}
265
266			sub InJaInputKeyKatakana {
267			<<EOH;
268			30A1
269			30A2
270			30A3
271			30A4
272			30A5
273			30A6
274			30A7
275			30A8
276			30A9
277			30AA
278			30AB
279			30AD
280			30AF
281			30B1
282			30B3
283			30B5
284			30B7
285			30B9
286			30BB
287			30BD
288			30BF
289			30C1
290			30C3
291			30C4
292			30C6
293			30C8
294			30CA
295			30CB
296			30CC
297			30CD
298			30CE
299			30CF
300			30D2
301			30D5
302			30D8
303			30DB
304			30DE
305			30DF
306			30E0
307			30E1
308			30E2
309			30E3
310			30E4
311			30E5
312			30E6
313			30E7
314			30E8
315			30E9
316			30EA
317			30EB
318			30EC
319			30ED
320			30EF
321			30F2
322			30F3
323			EOH
324			}
325
326			sub InJaInputLatin {
327			<<EOH;
328			0041
329			0042
330			0043
331			0044
332			0045
333			0046
334			0047
335			0048
336			0049
337			004A
338			004B
339			004C
340			004D
341			004E
342			004F
343			0050
344			0051
345			0052
346			0053
347			0054
348			0055
349			0056
350			0057
351			0058
352			0059
353			005A
354			0061
355			0062
356			0063
357			0064
358			0065
359			0066
360			0067
361			0068
362			0069
363			006A
364			006B
365			006C
366			006D
367			006E
368			006F
369			0070
370			0071
371			0072
372			0073
373			0074
374			0075
375			0076
376			0077
377			0078
378			0079
379			007A
380			EOH
381			}
382
383			sub InJaInputLatinCapital {
384			<<EOH;
385			0041
386			0042
387			0043
388			0044
389			0045
390			0046
391			0047
392			0048
393			0049
394			004A
395			004B
396			004C
397			004D
398			004E
399			004F
400			0050
401			0051
402			0052
403			0053
404			0054
405			0055
406			0056
407			0057
408			0058
409			0059
410			005A
411			EOH
412			}
413
414			sub InJaInputLatinSmall {
415			<<EOH;
416			0061
417			0062
418			0063
419			0064
420			0065
421			0066
422			0067
423			0068
424			0069
425			006A
426			006B
427			006C
428			006D
429			006E
430			006F
431			0070
432			0071
433			0072
434			0073
435			0074
436			0075
437			0076
438			0077
439			0078
440			0079
441			007A
442			EOH
443			}
444
445			sub InJaInputShiin {
446			<<EOH;
447			0062
448			0063
449			0064
450			0066
451			0067
452			0068
453			006A
454			006B
455			006C
456			006D
457			006E
458			0070
459			0071
460			0072
461			0073
462			0074
463			0076
464			0077
465			0078
466			0079
467			007A
468			EOH
469			}
470
471			sub InJaInputYomi {
472			<<EOH;
473			3041
474			3042
475			3043
476			3044
477			3045
478			3046
479			3047
480			3048
481			3049
482			304A
483			304B
484			304C
485			304D
486			304E
487			304F
488			3050
489			3051
490			3052
491			3053
492			3054
493			3055
494			3056
495			3057
496			3058
497			3059
498			305A
499			305B
500			305C
501			305D
502			305E
503			305F
504			3060
505			3061
506			3062
507			3063
508			3064
509			3065
510			3066
511			3067
512			3068
513			3069
514			306A
515			306B
516			306C
517			306D
518			306E
519			306F
520			3070
521			3071
522			3072
523			3073
524			3074
525			3075
526			3076
527			3077
528			3078
529			3079
530			307A
531			307B
532			307C
533			307D
534			307E
535			307F
536			3080
537			3081
538			3082
539			3083
540			3084
541			3085
542			3086
543			3087
544			3088
545			3089
546			308A
547			308B
548			308C
549			308D
550			308F
551			3092
552			3093
553			30A1
554			30A2
555			30A3
556			30A4
557			30A5
558			30A6
559			30A7
560			30A8
561			30A9
562			30AA
563			30AB
564			30AC
565			30AD
566			30AE
567			30AF
568			30B0
569			30B1
570			30B2
571			30B3
572			30B4
573			30B5
574			30B6
575			30B7
576			30B8
577			30B9
578			30BA
579			30BB
580			30BC
581			30BD
582			30BE
583			30BF
584			30C0
585			30C1
586			30C2
587			30C3
588			30C4
589			30C5
590			30C6
591			30C7
592			30C8
593			30C9
594			30CA
595			30CB
596			30CC
597			30CD
598			30CE
599			30CF
600			30D0
601			30D1
602			30D2
603			30D3
604			30D4
605			30D5
606			30D6
607			30D7
608			30D8
609			30D9
610			30DA
611			30DB
612			30DC
613			30DD
614			30DE
615			30DF
616			30E0
617			30E1
618			30E2
619			30E3
620			30E4
621			30E5
622			30E6
623			30E7
624			30E8
625			30E9
626			30EA
627			30EB
628			30EC
629			30ED
630			30EF
631			30F2
632			30F3
633			30FC
634			EOH
635			}
636
637			=head1 COLLECTION NAMES
638
639			=over 4
640
641			=item C<InJaInputBoin>
642
643			母音字 (JIS X 4063:2000 3.c))
644
645			=item C<InJaInputDigit>
646
647			数字 (JIS X 4064:2002 5.e))
648
649			=item C<InJaInputEnglishSymbol>
650
651			英字用特殊文字 (JIS X 6002-1980 4.2.4 (1))
652
653			=item C<InJaInputHiraganaMin>
654
655			平仮名 (最小集合) (JIS X 4064:2002 5.a))
656
657			=item C<InJaInputKanaSymbol>
658
659			仮名記号 (JIS X 4064:2002 5.c))
660
661			=item C<InJaInputKatakana>
662
663			片仮名 (最小集合) (JIS X 4064:2002 5.b))
664
665			=item C<InJaInputKatakanaSymbol>
666
667			片仮名用特殊文字 (JIS X 6002-1980 4.2.4 (2))
668
669			=item C<InJaInputKeyKatakana>
670
671			片仮名 (鍵盤) (JIS X 6002-1980 4.2.2)
672
673			=item C<InJaInputLatin>
674
675			英字 (JIS X 4064:2002 5.d))
676
677			=item C<InJaInputLatinCapital>
678
679			英字 (大文字) (JIS X 6002-1980 4.2.1 (1))
680
681			=item C<InJaInputLatinSmall>
682
683			英字 (小文字) (JIS X 6002-1980 4.2.1 (2))
684
685			=item C<InJaInputShiin>
686
687			子音字 (JIS X 4063:2000 3.b))
688
689			=item C<InJaInputYomi>
690
691			よみ文字列として交換を保証する文字 (JIS X 4062:1998 表1)
692
693			=back
694
695			=cut
696
697
698			=head1 EXAMPLE
699
700			use Char::Class::JaInput;
701			if ($s =~ /\p{InLatin}/) {
702			print "Match!\n";
703			}
704
705			=head1 SEE ALSO
706
707			JIS X 4062:1998, 『仮名漢字変換辞書交換形式 (Format for information interchange
708			for dictionaries of Japanese input method)』, 日本工業標準調査会
709			(Japanese Industrial Standard Commitee (JISC), <http://www.jisc.go.jp/>), 1998.
710
711			JIS X 4063:2000, 『仮名漢字変換システムのための英字キー入力から仮名への変換方式
712			(Keystroke to KANA Transfer Method Using Latin Letter Key for Japanese Input
713			Method)』, 日本工業標準調査会), 2000.
714
715			JIS X 4064:2002, 『仮名漢字変換システムの基本機能
716			(Basic functions of Kana‐Kanji conversion systems)』,
717			日本工業標準調査会, 2000.
718
719			JIS X 6002-1980, 『情報処理系けん盤配列 (Keyboard Layout for Information Processing
720			Using the JIS 7 Bit Coded Character Set)』,
721			日本工業標準調査会, 1980.
722
723			=head1 LICENSE
724
725	wakaba	1.2	Copyright 2008 わかば (Wakaba) <w@suika.fam.cx>
726	wakaba	1.1
727			This library and the library generated by it is free software;
728			you can redistribute them and/or modify them under the same
729			terms as Perl itself.
730
731			=cut
732
733			1;
734			### JaInput.pm ends here