1 ! Copyright (C) 2005, 2007 Daniel Ehrenberg
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel sequences unicode.syntax math math.order ;
6 CATEGORY: 1.0name-start* Ll Lu Lo Lt Nl \u000559\u0006E5\u0006E6_ ;
7 : 1.0name-start? ( char -- ? )
8 dup 1.0name-start*? [ drop t ]
9 [ HEX: 2BB HEX: 2C1 between? ] if ;
11 CATEGORY: 1.0name-char Ll Lu Lo Lt Nl Mc Me Mn Lm Nd _-.\u000387 ;
13 CATEGORY: 1.1name-start Ll Lu Lo Lm Ln Nl _ ;
15 CATEGORY: 1.1name-char Ll Lu Lo Lm Ln Nl Mc Mn Nd Pc Cf _-.\u0000b7 ;
17 : name-start? ( 1.0? char -- ? )
18 swap [ 1.0name-start? ] [ 1.1name-start? ] if ;
20 : name-char? ( 1.0? char -- ? )
21 swap [ 1.0name-char? ] [ 1.1name-char? ] if ;