steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

unicode.data: using interval-sets.

db4
John Benediktsson 2014-05-18 22:50:03 -07:00
parent 00fbe7dfe9
commit 97e658fc17
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/unicode/data/data.factor
View File

@ -1,10 +1,11 @@
! Copyright (C) 2008, 2009 Daniel Ehrenberg. ! Copyright (C) 2008, 2009 Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays ascii assocs byte-arrays combinators USING: arrays ascii assocs byte-arrays combinators
combinators.short-circuit grouping hashtables interval-maps combinators.short-circuit grouping hashtables interval-sets
io.encodings.utf8 io.files kernel locals make math math.bitwise io.encodings.utf8 io.files kernel locals make math math.bitwise
math.order math.parser math.ranges memoize namespaces sequences math.order math.parser math.ranges memoize namespaces sequences
sets simple-flat-file sorting splitting strings.parser ; sets simple-flat-file sorting splitting strings.parser ;
QUALIFIED: interval-sets
IN: unicode.data IN: unicode.data
<PRIVATE <PRIVATE
@ -35,7 +36,7 @@ CONSTANT: name-map H{ }
: name>char ( name -- char ) name-map at ; inline : name>char ( name -- char ) name-map at ; inline
: char>name ( char -- name ) name-map value-at ; inline : char>name ( char -- name ) name-map value-at ; inline
: property ( property -- interval-map ) properties at ; foldable : property ( property -- interval-map ) properties at ; foldable
: property? ( char property -- ? ) property interval-key? ; inline : property? ( char property -- ? ) property interval-sets:in? ; inline
: ch>lower ( ch -- lower ) simple-lower ?at drop ; inline : ch>lower ( ch -- lower ) simple-lower ?at drop ; inline
: ch>upper ( ch -- upper ) simple-upper ?at drop ; inline : ch>upper ( ch -- upper ) simple-upper ?at drop ; inline
: ch>title ( ch -- title ) simple-title ?at drop ; inline : ch>title ( ch -- title ) simple-title ?at drop ; inline