Fixing USING: lines
parent
af9d70c65a
commit
d5160ce791
|
@ -5,7 +5,7 @@ sequences strings splitting calendar continuations accessors vectors
|
|||
math.order hashtables byte-arrays destructors
|
||||
io io.sockets io.streams.string io.files io.timeouts
|
||||
io.pathnames io.encodings io.encodings.string io.encodings.ascii
|
||||
io.encodings.utf8 io.encodings.8-bit io.encodings.binary
|
||||
io.encodings.utf8 io.encodings.8-bit io.encodings.binary io.crlf
|
||||
io.streams.duplex fry ascii urls urls.encoding present
|
||||
http http.parsers http.client.post-data ;
|
||||
IN: http.client
|
||||
|
|
|
@ -14,6 +14,7 @@ io.encodings.binary
|
|||
io.streams.limited
|
||||
io.servers.connection
|
||||
io.timeouts
|
||||
io.crlf
|
||||
fry logging logging.insomniac calendar urls urls.encoding
|
||||
mime.multipart
|
||||
unicode.categories
|
||||
|
|
|
@ -150,10 +150,10 @@ TUPLE: tag
|
|||
[ assure-name ] [ T{ attrs } assoc-like ] [ ] tri*
|
||||
tag boa ;
|
||||
|
||||
: attr ( tag name -- string )
|
||||
: attr ( tag/xml name -- string )
|
||||
swap attrs>> at ;
|
||||
|
||||
: set-attr ( tag value name -- )
|
||||
: set-attr ( tag/xml value name -- )
|
||||
rot attrs>> set-at ;
|
||||
|
||||
! They also follow the sequence protocol (for children)
|
||||
|
@ -188,9 +188,6 @@ C: <xml> xml
|
|||
CONSULT: sequence-protocol xml body>> ;
|
||||
INSTANCE: xml sequence
|
||||
|
||||
CONSULT: assoc-protocol xml body>> ;
|
||||
INSTANCE: xml assoc
|
||||
|
||||
CONSULT: tag xml body>> ;
|
||||
|
||||
CONSULT: name xml body>> ;
|
||||
|
|
|
@ -5,7 +5,7 @@ USING: kernel namespaces make xmode.rules xmode.tokens
|
|||
xmode.marker.state xmode.marker.context xmode.utilities
|
||||
xmode.catalog sequences math assocs combinators strings
|
||||
parser-combinators.regexp splitting parser-combinators ascii
|
||||
ascii combinators.short-circuit accessors ;
|
||||
ascii combinators.short-circuit accessors xml.data ;
|
||||
|
||||
! Based on org.gjt.sp.jedit.syntax.TokenMarker
|
||||
|
||||
|
|
Loading…
Reference in New Issue