basis/xml/state/state.factor

   1 ! Copyright (C) 2005, 2009 Daniel Ehrenberg
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors kernel namespaces ;
   4 IN: xml.state
   5
   6 TUPLE: spot char line column next check version-1.0? stream ;
   7
   8 C: <spot> spot
   9
  10 : get-char ( -- char ) spot get char>> ; inline
  11 : get-line ( -- line ) spot get line>> ; inline
  12 : get-column ( -- column ) spot get column>> ; inline
  13 : get-next ( -- char ) spot get next>> ; inline
  14 : get-check ( -- ? ) spot get check>> ; inline
  15 : check ( -- ) spot get t >>check drop ; inline
  16 : version-1.0? ( -- ? ) spot get version-1.0?>> ; inline
  17 : set-version ( string -- )
  18     spot get swap "1.0" = >>version-1.0? drop ; inline
  19
  20 SYMBOL: xml-stack
  21 SYMBOL: depth
  22 SYMBOL: interpolating?
  23 SYMBOL: in-dtd?
  24 SYMBOL: pe-table
  25 SYMBOL: extra-entities