basis/unicode/script/script.factor

   1 ! Copyright (C) 2008 Daniel Ehrenberg.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors values kernel sequences assocs io.files
   4 io.encodings ascii math.ranges io splitting math.parser
   5 namespaces make byte-arrays locals math sets io.encodings.ascii
   6 words words.symbol compiler.units arrays interval-maps
   7 unicode.data ;
   8 IN: unicode.script
   9
  10 <PRIVATE
  11
  12 VALUE: script-table
  13
  14 "vocab:unicode/script/Scripts.txt" load-key-value
  15 to: script-table
  16
  17 PRIVATE>
  18
  19 : script-of ( char -- script )
  20     script-table interval-at ;