2008-10-05 19:36:56 -04:00
|
|
|
! Copyright (C) 2008 Daniel Ehrenberg.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2009-03-20 20:53:54 -04:00
|
|
|
USING: values interval-maps simple-flat-file ;
|
2008-05-05 00:33:54 -04:00
|
|
|
IN: unicode.script
|
|
|
|
|
|
2009-03-17 20:39:04 -04:00
|
|
|
<PRIVATE
|
|
|
|
|
|
2008-05-06 00:47:22 -04:00
|
|
|
VALUE: script-table
|
2008-05-05 00:33:54 -04:00
|
|
|
|
2009-03-20 20:53:54 -04:00
|
|
|
"vocab:unicode/script/Scripts.txt" load-interval-file
|
2009-01-07 13:23:07 -05:00
|
|
|
to: script-table
|
2008-05-06 00:47:22 -04:00
|
|
|
|
2009-03-17 20:39:04 -04:00
|
|
|
PRIVATE>
|
|
|
|
|
|
2008-05-05 00:33:54 -04:00
|
|
|
: script-of ( char -- script )
|
2009-01-07 13:23:07 -05:00
|
|
|
script-table interval-at ;
|
