REBOL []
rel: does [ do %html-parser.r ]
---: does [ print "--------------------" ]
do %power-mezz/mezz/module.r
load-module/from %power-mezz/
pprint: func [ b tab /local b1 ] [
prin tab print "["
foreach b1 b [
either block? b1
[ pprint b1 join tab " " ]
[ prin tab probe b1 ]
wait 0.05
]
prin tab print "]"
]
module [
Imports: [
%parsers/rule-arguments.r
%parsers/common-rules.r
%mezz/text-encoding.r
%parsers/ml-parser.r
%mezz/collect.r
%mezz/expand-macros.r
%mezz/macros/trees.r
%mezz/trees.r
%mezz/niwashi.r
%mezz/load-html.r
]
] [
p: {tHEADING
first para
second para
}
print HM: mold H: load-html p
---
pprint H ""
]
halt
==prints=============================
[root none [] [html [...] [] [head [...] [] [title [...] [] [text [...] [value "t"]]]] [body [...] [] [h2 [...] [] [text [...] [value "HEADING"]
]] [p [...] [] [text [...] [value "first para"]]] [p [...] [] [text [...] [value "second para"]]]]]]
--------------------
[
root
none
[
]
[
html
[
[
html
[
[
html
[
[
html
[
[
html
[
[
html
[
[
html
[
[
html
[
[
html
[
[
html
[
[
html
[
[
html
[
[
html
[
[
html
[
[
html
[