Commit | Line | Data |
9fa7846b |
1 | #!../../miniperl |
2 | |
3 | # |
4 | # We use the "two rows of 8" perspective to map the syllables onto the |
5 | # expected forms as per the various asundry Ethiopic locales... |
6 | # |
7 | open (GEEZ, ">Is/Y0.pl"); |
8 | open (KAIB, ">Is/Y1.pl"); |
9 | open (SALS, ">Is/Y2.pl"); |
10 | open (RABI, ">Is/Y3.pl"); |
11 | open (HAMS, ">Is/Y4.pl"); |
12 | open (SADS, ">Is/Y5.pl"); |
13 | open (SABI, ">Is/Y6.pl"); |
14 | |
15 | open (DIQALA_GEEZ, ">Is/Y8.pl"); |
16 | open (DIQALA_SALS, ">Is/Y10.pl"); |
17 | open (DIQALA_RABI, ">Is/Y11.pl"); # which is sometimes just DIQALA |
18 | open (DIQALA_HAMS, ">Is/Y12.pl"); |
19 | open (DIQALA_SADS, ">Is/Y13.pl"); # though people outside of unicode.org |
20 | # might say DIQALA_KAIB... |
21 | |
22 | @fh = qw( |
7711098a |
23 | GEEZ KAIB SALS RABI HAMS SADS SABI none |
24 | DIQALA_GEEZ none DIQALA_SALS DIQALA_RABI DIQALA_HAMS DIQALA_SADS |
9fa7846b |
25 | ); |
26 | |
27 | |
28 | for $form (0..$#fh) { |
29 | $FILE = $fh[$form]; |
30 | print $FILE "return <<'END'\n" if ($FILE ne "none"); |
31 | } |
32 | |
33 | |
34 | open (ETHIOPIC, "EthiopicSyllables.txt"); |
35 | while (<ETHIOPIC>) { |
36 | ($uni, $form) = split (/\s+/ ); |
37 | $FILE = $fh[$form]; |
38 | print $FILE "$uni\n"; |
39 | } |
40 | close (ETHIOPIC); |
41 | |
42 | |
43 | for $form (0..$#fh) { |
44 | $FILE = $fh[$form]; |
45 | print $FILE "END\n" if ($FILE ne "none"); |
46 | } |
47 | |
48 | close (GEEZ); |
49 | close (KAIB); |
50 | close (SALS); |
51 | close (RABI); |
52 | close (HAMS); |
53 | close (SADS); |
54 | close (SABI); |
55 | |
56 | close (DIQALA_GEEZ); |
57 | close (DIQALA_SALS); |
58 | close (DIQALA_RABI); |
59 | close (DIQALA_HAMS); |
60 | close (DIQALA_SADS); |
61 | |
62 | symlink ( "Is/Y11.pl", "Is/Y7.pl" ); |
63 | symlink ( "Is/Y13.pl", "Is/Y9.pl" ); |