factor/basis/unicode/script/script.factor

! Copyright (C) 2008 Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license.
USING: interval-maps namespaces parser simple-flat-file
words.constant ;
IN: unicode.script

<PRIVATE

<<
"script-table" create-word-in
"vocab:unicode/script/Scripts.txt" load-interval-file
define-constant
>>

PRIVATE>

: script-of ( char -- script )
    script-table interval-at ;
remove dead code, add copyright 2008-10-05 19:36:56 -04:00			`! Copyright (C) 2008 Daniel Ehrenberg.`
			`! See http://factorcode.org/license.txt for BSD license.`
unicode.script: change to use a constant instead of a global. 2014-05-19 17:29:16 -04:00			`USING: interval-maps namespaces parser simple-flat-file`
			`words.constant ;`
unicode.script 2008-05-05 00:33:54 -04:00			`IN: unicode.script`

Some reorganizing in Unicode; regexp class changes 2009-03-17 20:39:04 -04:00			`<PRIVATE`

unicode.script: change to use a constant instead of a global. 2014-05-19 17:29:16 -04:00			`<<`
core: Rename create to create-word, create-in to create-word-in. 2015-06-08 15:38:38 -04:00			`"script-table" create-word-in`
More docs for Unicode and simple-flat-file; moving more parsing code there 2009-03-20 20:53:54 -04:00			`"vocab:unicode/script/Scripts.txt" load-interval-file`
unicode.script: change to use a constant instead of a global. 2014-05-19 17:29:16 -04:00			`define-constant`
			`>>`
Unicode script uses interval maps 2008-05-06 00:47:22 -04:00
Some reorganizing in Unicode; regexp class changes 2009-03-17 20:39:04 -04:00			`PRIVATE>`

unicode.script 2008-05-05 00:33:54 -04:00			`: script-of ( char -- script )`
unicode.script: change to use a constant instead of a global. 2014-05-19 17:29:16 -04:00			`script-table interval-at ;`