xml-data? ( object -- ? ) - Factor Documentation

xml-data? ( object -- ? )

Vocabulary
xml .data

Inputs and outputs

object an object

Word description
Tests if the object is an instance of the xml-data class.

Definition

USING: classes.tuple.private kernel kernel.private slots.private
;

: xml-data? ( object -- ? )
dup tag 11 eq?
[ drop t ] [
dup
tuple?
[
layout-of
7
slot
dup
\ unescaped
eq?
[ drop t ]
[
dup \ instruction eq?
[ drop t ] [
dup \ directive eq?
[ drop t ] [
dup \ cdata eq?
~quotation~ ~quotation~ if
] if
] if
]
if
]
[ drop f ]
if
] if ;