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 simple-flat-file ;
   4 IN: unicode.script
   5
   6 <PRIVATE
   7
   8 SYMBOL: script-table
   9
  10 "vocab:unicode/script/Scripts.txt" load-interval-file
  11 script-table set-global
  12
  13 PRIVATE>
  14
  15 : script-of ( char -- script )
  16     script-table get-global interval-at ;