24 lines
687 B
Forth
24 lines
687 B
Forth
open AstAccess.AstImport
|
|
open HtmlStruct.Content
|
|
open System.Xml
|
|
open HtmlStruct.Assemble
|
|
open HtmlStruct.Content
|
|
open HtmlStruct.Present
|
|
|
|
|
|
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
|
|
|
|
let volume_pages = volume_page_build(visitor.contents()) |> List.map<VolumePage, IDomUnit> (fun x->x)
|
|
let story_pages = story_page_build(visitor.contents()) |> List.map<StoryPage, IDomUnit> (fun x->x)
|
|
|
|
let refers = point_peers_extract(volume_pages @ story_pages)
|
|
for it in refers do
|
|
let (x,y)= it
|
|
printfn $"{x.Value.name()}&{y.Value.name()}" |