1 ! Copyright (C) 2005, 2009 Daniel Ehrenberg
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel sequences unicode.categories.syntax math math.order
7 CATEGORY: 1.0name-start
9 [ HEX: 2BB HEX: 2C1 between? ]
10 [ "\u000559\u0006E5\u0006E6_:" member? ]
13 CATEGORY: 1.0name-char
14 Ll Lu Lo Lt Nl Mc Me Mn Lm Nd |
15 "_-.\u000387:" member? ;
17 CATEGORY: 1.1name-start
21 CATEGORY: 1.1name-char
22 Ll Lu Lo Lm Ln Nl Mc Mn Nd Pc Cf |
23 "_-.\u0000b7:" member? ;
25 : name-start? ( 1.0? char -- ? )
26 swap [ 1.0name-start? ] [ 1.1name-start? ] if ;
28 : name-char? ( 1.0? char -- ? )
29 swap [ 1.0name-char? ] [ 1.1name-char? ] if ;
31 : text? ( 1.0? char -- ? )
33 ! #x9 | #xA | #xD | [#x20-#xD7FF] | [#xE000-#xFFFD] | [#x10000-#x10FFFF]
35 ! [#x1-#xD7FF] | [#xE000-#xFFFD] | [#x10000-#x10FFFF]
37 { [ dup HEX: 20 < ] [ swap [ "\t\r\n" member? ] [ zero? not ] if ] }
38 { [ nip dup HEX: D800 < ] [ drop t ] }
39 { [ dup HEX: E000 < ] [ drop f ] }
40 [ { HEX: FFFE HEX: FFFF } member? not ]
43 HINTS: text? { object fixnum } ;