basis/unicode/script/script.factor

   1 ! Copyright (C) 2008 Daniel Ehrenberg.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: interval-maps namespaces parser simple-flat-file
   4 words.constant ;
   5 IN: unicode.script
   6
   7 <PRIVATE
   8
   9 <<
  10 "script-table" create-word-in
  11 "vocab:unicode/script/Scripts.txt" load-interval-file
  12 define-constant
  13 >>
  14
  15 PRIVATE>
  16
  17 : script-of ( char -- script )
  18     script-table interval-at ;