17 lines
520 B
Factor
17 lines
520 B
Factor
! Copyright (C) 2008 Daniel Ehrenberg.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors values kernel sequences assocs io.files
|
|
io.encodings ascii math.ranges io splitting math.parser
|
|
namespaces make byte-arrays locals math sets io.encodings.ascii
|
|
words words.symbol compiler.units arrays interval-maps
|
|
unicode.data ;
|
|
IN: unicode.script
|
|
|
|
VALUE: script-table
|
|
|
|
"resource:basis/unicode/script/Scripts.txt" load-script
|
|
to: script-table
|
|
|
|
: script-of ( char -- script )
|
|
script-table interval-at ;
|