From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 21 Mar 2009 08:32:10 +0000 (-0500)
Subject: Update unicode.categories.syntax
X-Git-Tag: 0.94~1877^2~54^2~2
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=3de9723d222ced9ed25a40324211b1e10bfc40a9

Update unicode.categories.syntax
---

3de9723d222ced9ed25a40324211b1e10bfc40a9
diff --cc basis/unicode/categories/syntax/syntax.factor
index 0000000000,87f143aadc..849f361fcd
mode 000000,100644..100644
--- a/basis/unicode/categories/syntax/syntax.factor
+++ b/basis/unicode/categories/syntax/syntax.factor
@@@ -1,0 -1,36 +1,34 @@@
+ ! Copyright (C) 2008, 2009 Daniel Ehrenberg.
+ ! See http://factorcode.org/license.txt for BSD license.
+ USING: unicode.data kernel math sequences parser unicode.data.private
+ bit-arrays namespaces sequences.private arrays classes.parser
+ assocs classes.predicate sets fry splitting accessors ;
+ IN: unicode.categories.syntax
+ 
+ ! For use in CATEGORY:
+ SYMBOLS: Cn Lu Ll Lt Lm Lo Mn Mc Me Nd Nl No Pc Pd Ps Pe Pi Pf Po Sm Sc Sk So Zs Zl Zp Cc Cf Cs Co | ;
+ 
+ <PRIVATE
+ 
+ : [category] ( categories code -- quot )
+     '[ dup category# _ member? [ drop t ] _ if ] ;
+ 
+ : integer-predicate-class ( word predicate -- )
+     integer swap define-predicate-class ;
+ 
+ : define-category ( word categories code -- )
+     [category] integer-predicate-class ;
+ 
+ : define-not-category ( word categories code -- )
+     [category] [ not ] compose integer-predicate-class ;
+ 
+ : parse-category ( -- word tokens quot )
+     CREATE-CLASS \ ; parse-until { | } split1
+     [ [ name>> categories-map at ] map ]
+     [ [ [ ] like ] [ [ drop f ] ] if* ] bi* ;
+ 
+ PRIVATE>
+ 
 -: CATEGORY:
 -    parse-category define-category ; parsing
++SYNTAX: CATEGORY: parse-category define-category ;
+ 
 -: CATEGORY-NOT:
 -    parse-category define-not-category ; parsing
++SYNTAX: CATEGORY-NOT: parse-category define-not-category ;