Handbook
Glossary
trivial-response-body ( code message -- )
Vocabulary
http
.
server
.
responses
Inputs
code
an
object
message
an
object
Outputs
None
Definition
USING:
xml.data
xml.syntax.private
xml.writer
;
IN:
http.server.responses
:
trivial-response-body
( code message -- )
2
nenum
T{
xml
{
prolog
T{
prolog
{
version
"1.0"
}
{
encoding
"UTF-8"
}
}
}
{
before
V{
T{
doctype-decl
{
name
"html"
}
}
"\n "
}
}
{
body
T{
tag
{
name
T{
name
{
space
""
}
{
main
"html"
}
{
url
""
}
}
}
{
children
V{
"\n "
~tag~
"\n "
}
}
}
}
{
after
V{
""
}
}
}
interpolate-xml
write-xml
;