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 io ;
   4 IN: xml.state
   5
   6 TUPLE: spot char line column next check version-1.0? ;
   7
   8 C: <spot> spot
   9
  10 : get-char ( -- char ) spot get char>> ;
  11 : set-char ( char -- ) spot get swap >>char drop ;
  12 : get-line ( -- line ) spot get line>> ;
  13 : set-line ( line -- ) spot get swap >>line drop ;
  14 : get-column ( -- column ) spot get column>> ;
  15 : set-column ( column -- ) spot get swap >>column drop ;
  16 : get-next ( -- char ) spot get next>> ;
  17 : set-next ( char -- ) spot get swap >>next drop ;
  18 : get-check ( -- ? ) spot get check>> ;
  19 : check ( -- ) spot get t >>check drop ;
  20 : version-1.0? ( -- ? ) spot get version-1.0?>> ;
  21 : set-version ( string -- )
  22     spot get swap "1.0" = >>version-1.0? drop ;
  23
  24 SYMBOL: xml-stack
  25
  26 SYMBOL: depth
  27
  28 SYMBOL: interpolating?
  29
  30 SYMBOL: in-dtd?
  31
  32 SYMBOL: pe-table
  33
  34 SYMBOL: extra-entities