22 lines
632 B
Factor
22 lines
632 B
Factor
! Copyright (C) 2009 Daniel Ehrenberg.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: assocs io.encodings.binary io.files kernel namespaces sequences
|
|
values xml xml.entities accessors xml.state ;
|
|
IN: xml.entities.html
|
|
|
|
VALUE: html-entities
|
|
|
|
: read-entities-file ( file -- table )
|
|
file>dtd entities>> ;
|
|
|
|
: get-html ( -- table )
|
|
{ "lat1" "special" "symbol" } [
|
|
"resource:basis/xml/entities/html/xhtml-"
|
|
swap ".ent" 3append read-entities-file
|
|
] map first3 assoc-union assoc-union ;
|
|
|
|
get-html to: html-entities
|
|
|
|
: with-html-entities ( quot -- )
|
|
html-entities swap with-entities ; inline
|