15 lines
326 B
Forth
15 lines
326 B
Forth
|
open AstAccess.AstImport
|
||
|
|
open HtmlStruct.Content
|
||
|
|
open System.Xml
|
||
|
|
|
||
|
|
let doc = XmlDocument()
|
||
|
|
doc.Load("E:/storyline.xast")
|
||
|
|
|
||
|
|
let prog = Program.GenerateFrom(doc)
|
||
|
|
|
||
|
|
let entry = AstVisitEntry(prog)
|
||
|
|
let visitor = UnitGenerate(prog)
|
||
|
|
entry.visitWith(visitor) |> ignore
|
||
|
|
|
||
|
|
for it in visitor.contents() do
|
||
|
|
printfn $"Name:{it.name()}"
|