19 lines
378 B
Factor
19 lines
378 B
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 ;
|