/[suikacvs]/perl/charclass/lib/Char/Class/Kana-src.upl
Suika

Contents of /perl/charclass/lib/Char/Class/Kana-src.upl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (hide annotations) (download)
Sat Aug 24 02:43:29 2002 UTC (22 years, 3 months ago) by wakaba
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +8 -1 lines
2002-08-24  Wakaba <w@suika.fam.cx>

	* Kana-src.upl: New script.
	* Makefile: Updated.
	* mkpm.pl: Support qw(^!.+) line.
	* Alphabet-src.upl, UCS-src.upl: New scripts.

1 wakaba 1.1 #!/usr/local/bin/perl
2     use utf8; ## This file is written in UTF-8
3     use strict;
4     require 'mkpm.pl';
5     use vars qw(%PROP %SET %SET_ALIAS %HSET %KSET %SSET);
6     $PROP{module_name} = 'Kana';
7     $PROP{version} = do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
8     $PROP{author_name} = 'Wakaba';
9     $PROP{author_mail} = 'w@suika.fam.cx';
10    
11     $HSET{All} = <<EOH;
12     !3041 3096
13     !309D 309F
14     EOH
15     $KSET{All} = <<EOH;
16     !30A1 30FA
17     !30FD 30FF
18     !31F0 31FF
19     EOH
20     $SSET{All} = <<EOH;
21     !3099 309C
22     !3031 3035
23     !303B
24     !30FC
25     EOH
26    
27     $HSET{Seion} = <<EOH;
28     あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほ
29     まみむめもやゆよらりるれろわゐゑを
30     EOH
31     $KSET{Seion} = <<EOH;
32     アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホ
33     マミムメモヤユヨラリルレロワヰヱヲ
34     EOH
35    
36     $HSET{Hatsuon} = <<EOH;
37     !3098
38     EOH
39     $KSET{Hatsuon} = <<EOH;
40     !30F3
41     EOH
42    
43     $HSET{Voiced} = <<EOH;
44     ゔがぎぐげござじずぜぞだぢづでどばびぶべぼ
45     EOH
46     $KSET{Voiced} = <<EOH;
47     ヴガギグゲゴザジズゼゾダヂヅデドバビブベボヷヸヹヺ
48     EOH
49    
50     $HSET{SemiVoiced} = <<EOH;
51     ぱぴぷぺぽ
52     EOH
53     $KSET{SemiVoiced} = <<EOH;
54     パピプペポ
55     EOH
56    
57     $HSET{Small} = <<EOH;
58     ぁぃぅぇぉゕゖっゃゅょゎ
59     EOH
60     $KSET{Small} = <<EOH;
61     ァィゥェォヵㇰヶㇱㇲッㇳㇴㇵㇶㇷㇸㇹㇺャュョㇻㇼㇽㇾㇿヮ
62     EOH
63    
64 wakaba 1.2 $HSET{Digraph} = <<EOH;
65    
66     EOH
67     $KSET{Digraph} = <<EOH;
68    
69     EOH
70    
71 wakaba 1.1 %SET_ALIAS = ();
72    
73     my $mode = shift (@main::ARGV);
74     if ($mode eq '--hiragana') {
75     $PROP{module_name} = 'Hiragana';
76     %SET = %HSET;
77     } elsif ($mode eq '--katakana') {
78     $PROP{module_name} = 'Katakana';
79     %SET = %KSET;
80     } else {
81     my $prev = '';
82     for (grep $_ ne $prev && ($prev = $_), sort (keys %HSET, keys %KSET, keys %SSET)) {
83     $SET{$_} ||= $HSET{$_} . $KSET{$_} . $SSET{$_};
84     }
85     }
86    
87     &print_module;
88    
89 wakaba 1.2 ## $Date: 2002/08/23 23:16:32 $
90 wakaba 1.1 ### Kana-src.upl ends here

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24  
Google Analytics is used in this page; Cookies are used. 忍者AdMax is used in this page; Cookies are used. Privacy policy.