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 ;
   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
  21 SYMBOL: xml-stack
  22
  23 SYMBOL: prolog-data
  24
  25 SYMBOL: depth
  26
  27 SYMBOL: interpolating?
  28
  29 SYMBOL: in-dtd?
  30
  31 SYMBOL: pe-table
  32
  33 SYMBOL: extra-entities