Mercurial > libguess
annotate guess.scm @ 6:c61a7765c8f5 default tip
added COPYING to make the licence and copyrights clear.
author | Yoshiki Yazawa <yaz@honeyplanet.jp> |
---|---|
date | Thu, 08 Mar 2012 11:08:07 +0900 |
parents | 70e2c306231e |
children |
rev | line source |
---|---|
0 | 1 ;;; |
2 ;;; This code is derivative of guess.c of Gauche-0.8.7. | |
3 ;;; The following is the original copyright notice. | |
4 ;;; | |
5 | |
6 ;;; | |
7 ;;; Auxiliary script to generate japanese code guessing table | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
8 ;;; |
0 | 9 ;;; Copyright (c) 2000-2003 Shiro Kawai, All rights reserved. |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
10 ;;; |
0 | 11 ;;; Redistribution and use in source and binary forms, with or without |
12 ;;; modification, are permitted provided that the following conditions | |
13 ;;; are met: | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
14 ;;; |
0 | 15 ;;; 1. Redistributions of source code must retain the above copyright |
16 ;;; notice, this list of conditions and the following disclaimer. | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
17 ;;; |
0 | 18 ;;; 2. Redistributions in binary form must reproduce the above copyright |
19 ;;; notice, this list of conditions and the following disclaimer in the | |
20 ;;; documentation and/or other materials provided with the distribution. | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
21 ;;; |
0 | 22 ;;; 3. Neither the name of the authors nor the names of its contributors |
23 ;;; may be used to endorse or promote products derived from this | |
24 ;;; software without specific prior written permission. | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
25 ;;; |
0 | 26 ;;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
27 ;;; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT | |
28 ;;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR | |
29 ;;; A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT | |
30 ;;; OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | |
31 ;;; SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED | |
32 ;;; TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR | |
33 ;;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF | |
34 ;;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING | |
35 ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS | |
36 ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
37 ;;; |
0 | 38 ;;; $Id: guess.scm,v 1.3 2003/07/05 03:29:10 shirok Exp $ |
39 ;;; | |
40 | |
41 (use srfi-1) | |
42 (use gauche.sequence) | |
43 | |
44 ;; This is a simple state machine compiler. | |
45 ;; | |
46 ;; <state-machine> : (define-dfa <name> <state> ...) | |
47 ;; <state> : (<name> (<input-set> <next-state> <score>) ...) | |
48 ;; <name> : symbol | |
49 ;; <next-state> : symbol | |
50 ;; <score> : real | |
51 ;; <input-set> : (<byte-or-range> ...) | |
52 ;; <byte-or-range> : <byte> | (<byte> <byte>) | |
53 ;; <byte> : integer between 0 and #xff | ASCII char | |
54 ;; | |
55 ;; When evaluated, the DFA generates a state transition table in | |
56 ;; C source format. | |
57 | |
58 (define-class <dfa> () | |
59 ((name :init-keyword :name :accessor name-of) | |
60 (states :init-keyword :states :accessor states-of) | |
61 (instances :allocation :class :init-value '()))) | |
62 | |
63 (define-class <state> () | |
64 ((name :init-keyword :name :accessor name-of) | |
65 (index :init-keyword :index :accessor index-of) | |
66 (arcs :init-keyword :arcs :accessor arcs-of :init-value '()))) | |
67 | |
68 (define-class <arc> () | |
69 ((from-state :init-keyword :from-state :accessor from-state-of) | |
70 (to-state :init-keyword :to-state :accessor to-state-of) | |
71 (ranges :init-keyword :ranges :accessor ranges-of) | |
72 (index :init-keyword :index :accessor index-of) | |
73 (score :init-keyword :score :accessor score-of))) | |
74 | |
75 ;; Create DFA | |
76 | |
77 (define-syntax define-dfa | |
78 (syntax-rules () | |
79 ((_ name . states) | |
80 (define name (make <dfa> | |
81 :name 'name | |
82 :states (resolve-states 'states)))))) | |
83 | |
84 (define-method initialize ((self <dfa>) initargs) | |
85 (next-method) | |
86 (slot-push! self 'instances self)) | |
87 | |
88 (define (all-dfas) (reverse (class-slot-ref <dfa> 'instances))) | |
89 | |
90 (define (resolve-states state-defs) | |
91 (let ((states (map (lambda (d i) (make <state> :name (car d) :index i)) | |
92 state-defs | |
93 (iota (length state-defs))))) | |
94 (fold (lambda (s d i) | |
95 (let1 num-arcs (length (cdr d)) | |
96 (set! (arcs-of s) | |
97 (map (lambda (arc aindex) | |
98 (make <arc> | |
99 :from-state s | |
100 :to-state (or (find (lambda (e) | |
101 (eq? (name-of e) (cadr arc))) | |
102 states) | |
103 (error "no such state" (cadr arc))) | |
104 :ranges (car arc) | |
105 :index aindex | |
106 :score (caddr arc))) | |
107 (cdr d) | |
108 (iota num-arcs i))) | |
109 (+ i num-arcs))) | |
110 0 | |
111 states state-defs) | |
112 states)) | |
113 | |
114 ;; Emit state table | |
115 (define (emit-dfa-table dfa) | |
116 (format #t "static signed char guess_~a_st[][256] = {\n" (name-of dfa)) | |
117 (for-each emit-state-table (states-of dfa)) | |
118 (print "};\n") | |
119 (format #t "static guess_arc guess_~a_ar[] = {\n" (name-of dfa)) | |
120 (for-each emit-arc-table | |
121 (append-map arcs-of (states-of dfa))) | |
122 (print "};\n") | |
123 ) | |
124 | |
125 (define (emit-state-table state) | |
126 (define (b2i byte) ;byte->integer | |
127 (if (char? byte) (char->integer byte) byte)) | |
128 (let1 arc-vec (make-vector 256 -1) | |
129 (dolist (br (arcs-of state)) | |
130 (dolist (range (ranges-of br)) | |
131 (if (pair? range) | |
132 (vector-fill! arc-vec (index-of br) | |
133 (b2i (car range)) (+ (b2i (cadr range)) 1)) | |
134 (set! (ref arc-vec (b2i range)) (index-of br))))) | |
135 (format #t " { /* state ~a */" (name-of state)) | |
136 (dotimes (i 256) | |
137 (when (zero? (modulo i 16)) (newline)) | |
138 (format #t " ~2d," (ref arc-vec i))) | |
139 (print "\n },") | |
140 )) | |
141 | |
142 (define (emit-arc-table arc) | |
143 (format #t " { ~2d, ~5s }, /* ~a -> ~a */\n" | |
144 (index-of (to-state-of arc)) | |
145 (score-of arc) | |
146 (name-of (from-state-of arc)) | |
147 (name-of (to-state-of arc)))) | |
148 ;; | |
149 ;; main | |
150 ;; | |
151 | |
152 (define (main args) | |
153 (unless (= (length args) 2) | |
154 (error "usage: ~a <outout-file.c>" (car args))) | |
155 (with-output-to-file (cadr args) | |
156 (lambda () | |
157 (print "/* State transition table for character code guessing */") | |
158 (print "/* This file is automatically generated by guess.scm */") | |
3
70e2c306231e
- implemented dfa utility functions.
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
2
diff
changeset
|
159 (print "") |
70e2c306231e
- implemented dfa utility functions.
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
2
diff
changeset
|
160 (print "#include \"dfa.h\"") |
0 | 161 (newline) |
162 (for-each emit-dfa-table (all-dfas)))) | |
163 0) | |
164 | |
165 ;;;============================================================ | |
166 ;;; DFA definitions | |
167 ;;; | |
168 | |
169 ;;; | |
170 ;;; EUC-JP | |
171 ;;; | |
172 | |
173 (define-dfa eucj | |
174 ;; first byte | |
175 (init | |
176 (((#x00 #x7f)) init 1.0) ; ASCII range | |
177 ((#x8e) jis0201_kana 0.8) ; JISX 0201 kana | |
178 ((#x8f) jis0213_2 0.95) ; JISX 0213 plane 2 | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
179 (((#xa1 #xfe)) jis0213_1 1.0)) ; JISX 0213 plane 1 |
0 | 180 ;; jis x 0201 kana |
181 (jis0201_kana | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
182 (((#xa1 #xdf)) init 1.0)) |
0 | 183 ;; jis x 0208 and jis x 0213 plane 1 |
184 (jis0213_1 | |
185 (((#xa1 #xfe)) init 1.0)) | |
186 ;; jis x 0213 plane 2 | |
187 (jis0213_2 | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
188 (((#xa1 #xfe)) init 1.0))) |
0 | 189 |
190 ;;; | |
191 ;;; Shift_JIS | |
192 ;;; | |
193 | |
194 (define-dfa sjis | |
195 ;; first byte | |
196 (init | |
197 (((#x00 #x7f)) init 1.0) ;ascii | |
198 (((#x81 #x9f) (#xe1 #xef)) jis0213 1.0) ;jisx0213 plane 1 | |
199 (((#xa1 #xdf)) init 0.8) ;jisx0201 kana | |
200 (((#xf0 #xfc)) jis0213 0.95) ;jisx0213 plane 2 | |
201 (((#xfd #xff)) init 0.8)) ;vendor extension | |
202 (jis0213 | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
203 (((#x40 #x7e) (#x80 #xfc)) init 1.0))) |
0 | 204 |
205 ;;; | |
206 ;;; UTF-8 | |
207 ;;; | |
208 | |
209 (define-dfa utf8 | |
210 (init | |
211 (((#x00 #x7f)) init 1.0) | |
212 (((#xc2 #xdf)) 1byte_more 1.0) | |
213 (((#xe0 #xef)) 2byte_more 1.0) | |
214 (((#xf0 #xf7)) 3byte_more 1.0) | |
215 (((#xf8 #xfb)) 4byte_more 1.0) | |
216 (((#xfc #xfd)) 5byte_more 1.0)) | |
217 (1byte_more | |
218 (((#x80 #xbf)) init 1.0)) | |
219 (2byte_more | |
220 (((#x80 #xbf)) 1byte_more 1.0)) | |
221 (3byte_more | |
222 (((#x80 #xbf)) 2byte_more 1.0)) | |
223 (4byte_more | |
224 (((#x80 #xbf)) 3byte_more 1.0)) | |
225 (5byte_more | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
226 (((#x80 #xbf)) 4byte_more 1.0))) |
0 | 227 |
228 ;;; | |
229 ;;; UCS-2LE | |
230 ;;; | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
231 (define-dfa ucs2le |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
232 (init |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
233 ((#xfe) bom-be 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
234 ((#xff) bom-le 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
235 (((#x00 #xfd)) byte2 1.0)) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
236 (bom-le |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
237 (((#x00 #xff)) init 1.0)) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
238 (bom-be |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
239 (((#x00 #xfe)) init 1.0)) ;; if be (0xfeff), die. |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
240 (byte2 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
241 (((#x00 #xff)) init 1.0))) |
0 | 242 |
243 ;;; | |
244 ;;; UCS-2BE | |
245 ;;; | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
246 (define-dfa ucs2be |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
247 (init |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
248 ((#xfe) bom-be 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
249 ((#xff) bom-le 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
250 (((#x00 #xfd)) byte2 1.0)) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
251 (bom-le |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
252 (((#x00 #xfd)) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
253 ((#xff) init 1.0)) ;; if le (0xfffe), die. |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
254 (bom-be |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
255 (((#x00 #xff)) init 1.0)) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
256 (byte2 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
257 (((#x00 #xff)) init 1.0))) |
0 | 258 |
259 ;;; | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
260 ;;; UTF-16 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
261 ;;; |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
262 (define-dfa utf16 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
263 (init |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
264 ((#xfe) bom-be 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
265 ((#xff) bom-le 1.0)) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
266 (init1 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
267 (((#x00 #xff)) byte2 1.0)) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
268 (bom-be |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
269 ((#xff) init1 1.0)) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
270 (bom-le |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
271 ((#xfe) init1 1.0)) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
272 (byte2 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
273 (((#x00 #xff)) init1 1.0))) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
274 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
275 ;;; |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
276 ;;; ISO2022JP (JIS) |
0 | 277 ;;; |
278 | |
279 ;; NB: for now, we just check the sequence of <ESC> $ or <ESC> '('. | |
280 '(define-dfa jis | |
281 (init | |
282 ((#x1b) esc 1.0) | |
283 (((#x00 #x1a) (#x1c #x1f)) init 1.0) ;C0 | |
284 (((#x20 #x7f)) init 1.0) ;ASCII | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
285 (((#xa1 #xdf)) init 0.7)) ;JIS8bit kana |
0 | 286 (esc |
287 ((#x0d #x0a) init 0.9) ;cancel | |
288 ((#\( ) esc-paren 1.0) | |
289 ((#\$ ) esc-$ 1.0) | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
290 ((#\& ) esc-& 1.0)) |
0 | 291 (esc-paren |
292 ((#\B #\J #\H) init 1.0) | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
293 ((#\I) jis0201kana 0.8)) |
0 | 294 (esc-$ |
295 ((#\@ #\B) kanji 1.0) | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
296 ((#\( ) esc-$-paren 1.0)) |
0 | 297 (esc-$-paren |
298 ((#\D #\O #\P) kanji 1.0)) | |
299 (esc-& | |
300 ((#\@ ) init 1.0)) | |
301 (jis0201kana | |
302 ((#x1b) esc 1.0) | |
303 (((#x20 #x5f)) jis0201kana 1.0)) | |
304 (kanji | |
305 ((#x1b) esc 1.0) | |
306 (((#x21 #x7e)) kanji-2 1.0)) | |
307 (kanji-2 | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
308 (((#x21 #x7e)) kanji 1.0)) ) |
0 | 309 |
310 ;;; | |
311 ;;; Big5 | |
312 ;;; | |
313 | |
314 (define-dfa big5 | |
315 ;; first byte | |
316 (init | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
317 (((#x00 #x7f)) init 1.0) ;ascii |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
318 (((#xa1 #xfe)) 2byte 1.0)) ;big5-2byte |
0 | 319 (2byte |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
320 (((#x40 #x7e) (#xa1 #xfe)) init 1.0))) |
0 | 321 |
322 ;;; | |
323 ;;; GB2312 (EUC-CN?) | |
324 ;;; | |
325 | |
326 (define-dfa gb2312 | |
327 ;; first byte | |
328 (init | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
329 (((#x00 #x7f)) init 1.0) ;ascii |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
330 (((#xa1 #xfe)) 2byte 1.0)) ;gb2312 2byte |
0 | 331 (2byte |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
332 (((#xa1 #xfe)) init 1.0))) |
0 | 333 |
334 ;;; | |
335 ;;; GB18030 | |
336 ;;; | |
337 | |
338 (define-dfa gb18030 | |
339 ;; first byte | |
340 (init | |
341 (((#x00 #x80)) init 1.0) ;ascii | |
342 (((#x81 #xfe)) 2byte 1.0) ;gb18030 2byte | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
343 (((#x81 #xfe)) 4byte2 1.0)) ;gb18030 2byte |
0 | 344 (2byte |
345 (((#x40 #x7e) (#x80 #xfe)) init 1.0)) | |
346 (4byte2 | |
347 (((#x30 #x39)) 4byte3 1.0)) | |
348 (4byte3 | |
349 (((#x81 #xfe)) 4byte4 1.0)) | |
350 (4byte4 | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
351 (((#x30 #x39)) init 1.0)) ) |
0 | 352 |
353 ;;; | |
354 ;;; EUC-KR | |
355 ;;; | |
356 | |
357 (define-dfa euck | |
358 ;; first byte | |
359 (init | |
360 (((#x00 #x7f)) init 1.0) ; ASCII range | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
361 (((#xa1 #xfe)) ks1001 1.0)) ; KSX 1001 |
0 | 362 ;; ks x 1001 |
363 (ks1001 | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
364 (((#xa1 #xfe)) init 1.0))) |
0 | 365 |
366 ;;; | |
367 ;;; Johab | |
368 ;;; | |
369 | |
370 (define-dfa johab | |
371 ;; first byte | |
372 (init | |
373 (((#x00 #x7f)) init 1.0) ; ASCII range | |
374 (((#x84 #xd3)) jamo51 1.0) ; jamo51 | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
375 (((#xd8 #xde) (#xe0 #xf9)) jamo42 0.95)) ; jamo42 |
0 | 376 ;; second byte |
377 (jamo51 | |
378 (((#x41 #x7e) (#x81 #xfe)) init 1.0)) | |
379 (jamo42 | |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
380 (((#x31 #x7e) (#x91 #xfe)) init 1.0))) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
381 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
382 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
383 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
384 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
385 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
386 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
387 ;;; |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
388 ;;; arabic |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
389 ;;; |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
390 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
391 (define-dfa iso8859_6 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
392 (init |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
393 (((#x00 #x7f)) init 1.0) ;ascii |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
394 ((#xa0) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
395 ((#xa4) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
396 ((#xac) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
397 ((#xad) init 1.0) ;SHY xxx |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
398 ((#xbb) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
399 ((#xbf) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
400 (((#xc1 #xda)) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
401 (((#xe0 #xf2)) init 1.0))) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
402 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
403 (define-dfa cp1256 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
404 (init |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
405 (((#x00 #x7f)) init 1.0) ;ascii |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
406 (((#x80 #xff)) init 1.0))) ;high bit |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
407 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
408 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
409 ;;; |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
410 ;;; greek |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
411 ;;; |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
412 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
413 (define-dfa iso8859_7 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
414 (init |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
415 (((#x00 #x7f)) init 1.0) ;ascii |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
416 (((#xa0 #xad)) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
417 (((#xaf #xd1)) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
418 (((#xd3 #xfe)) init 1.0))) |
0 | 419 |
2
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
420 (define-dfa cp1253 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
421 (init |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
422 (((#x00 #x7f)) init 1.0) ;ascii |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
423 ((#x80) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
424 (((#x82 #x87)) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
425 ((#x89) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
426 ((#x8b) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
427 (((#x91 #x97)) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
428 ((#x99) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
429 ((#x9b) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
430 (((#xa0 #xa9)) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
431 (((#xab #xd1)) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
432 (((#xd3 #xfe)) init 1.0))) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
433 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
434 ;;; |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
435 ;;; hebrew |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
436 ;;; |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
437 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
438 (define-dfa iso8859_8 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
439 (init |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
440 (((#x00 #x7f)) init 1.0) ;ascii |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
441 ((#xa0) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
442 (((#xa2 #xbe)) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
443 (((#xdf #xfa)) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
444 (((#xfd #xfe)) init 1.0))) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
445 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
446 (define-dfa cp1255 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
447 (init |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
448 (((#x00 #x7f)) init 1.0) ;ascii |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
449 ((#x80) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
450 (((#x82 #x89)) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
451 ((#x8b) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
452 (((#x91 #x99)) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
453 ((#x9b) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
454 (((#xa0 #xc9)) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
455 (((#xcb #xd8)) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
456 (((#xe0 #xfa)) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
457 (((#xfd #xfe)) init 1.0))) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
458 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
459 ;;; |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
460 ;;; turkish |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
461 ;;; |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
462 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
463 (define-dfa iso8859_9 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
464 (init |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
465 (((#x00 #x7f)) init 1.0) ;ascii |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
466 (((#xa0 #xff)) init 1.0))) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
467 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
468 (define-dfa cp1254 |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
469 (init |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
470 (((#x00 #x7f)) init 1.0) ;ascii |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
471 ((#x80) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
472 (((#x82 #x8c)) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
473 (((#x91 #x9c)) init 1.0) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
474 (((#x9f #xff)) init 1.0))) |
754a4550c64e
- added arabic, greek, hebrew and turkish DFAs
Yoshiki Yazawa <yaz@cc.rim.or.jp>
parents:
0
diff
changeset
|
475 |