/[suikacvs]/perl/charclass/lib/Char/Class/JaInput.pm
Suika

Contents of /perl/charclass/lib/Char/Class/JaInput.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations) (download)
Thu Jul 19 13:26:22 2007 UTC (17 years, 4 months ago) by wakaba
Branch: MAIN
++ ChangeLog	19 Jul 2007 13:21:24 -0000
2007-07-19  Wakaba  <wakaba@suika.fam.cx>

	* Makefile.PL: Updated.

	* readme.en.html: New document.

	* .htaccess: New file.

	* release/: New directory.

	* MANIFEST.SKIP: New file.

	* cvscommit.sh: New file.

++ charclass/lib/Char/Class/ChangeLog	19 Jul 2007 13:26:07 -0000
2007-07-19  Wakaba  <wakaba@suika.fam.cx>

	* JISX0221-src.upl (SEE ALSO): Links to |Char::Class::UCS|
	and |Char::Class::RFC1815| are added.

	* Makefile (%.html): New rule.
	(all): Make HTML files.
	(MODULES): |JaInput.pm| was missing.
	(clean): Call |clean-pod|.  Don't delete generated Perl modules.
	(clean-pod): New rule.
	(distclean): New.  (Note that the rule name is incorrect!)

	* RFC1815-src.upl (SEE ALSO): Links to |Char::Class::UCS|
	and |Char::Class::JISX0221| are added.

	* UCS-src.upl (SEE ALSO): Links to |Char::Class::JISX0221|
	and |Char::Class::RFC1815| are added.

	* mkpm.pl (generated pod's NAME): Was generated with a bad style.
	(generated pod's COLLECTION NAMES): |=back| was missing.
	(generated pod's EXAMPLE): Use a real class name.  Note that
	this does not work for e.g. Kana.

++ charclass/t/ChangeLog	19 Jul 2007 11:57:39 -0000
2007-07-19  Wakaba  <wakaba@suika.fam.cx>

	* perlbug.t: Number of tests were wrong.

1 wakaba 1.1 ## This file is auto-generated (at 2007-07-19T12:15:41Z).
2     ## 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     Copyright 2007 わかば (Wakaba) <w@suika.fam.cx>
726    
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

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24