output update

AstConv/HtmlStruct.fs

@@ -24,9 +24,15 @@ open System.IO
             end
 
         /// 可访问页面
-        type PageAccess(hrefs: string) =
+        type PageAccess(name: string) =
             class
-                member this.pageURL(): string = hrefs
+                let mutable root: string = ""
+                member this.pageURL(): string = $"{root}{name}.html"
+                member this.setPageRoot(path: string) =
+                    if path.EndsWith "/" then
+                        root <- path
+                    else
+                        root <- path+"/"
             end
 
         /// 内容定义元素 =================================================================================
@@ -67,10 +73,10 @@ open System.IO
 
 
         /// 访问页面：概括页面、卷宗页面、故事线页面、节点汇总 =================================================
-        type VolumePage(page_hrefs: string, volume: IDomUnit, childs: IDomUnit list) =
+        type VolumePage(page_name: string, volume: IDomUnit, childs: IDomUnit list) =
             class
-                inherit PageAccess(page_hrefs)
-                new(page_hrefs, volume) = VolumePage(page_hrefs, volume, [])
+                inherit PageAccess(page_name)
+                new(page_name, volume) = VolumePage(page_name, volume, [])
 
                 interface IDomUnit with
                     member this.name():string = volume.name()
@@ -80,13 +86,13 @@ open System.IO
                 interface IContainer with
                     member this.children(): IDomUnit list = childs
                     member this.append(new_list: IDomUnit list): IContainer =
-                        VolumePage(page_hrefs, volume, childs@new_list)
+                        VolumePage(page_name, volume, childs@new_list)
             end
 
-        type StoryPage(page_hrefs: string, story: IDomUnit, childs: IDomUnit list) =
+        type StoryPage(page_name: string, story: IDomUnit, childs: IDomUnit list) =
             class
-                inherit PageAccess(page_hrefs)
-                new(page_hrefs, story) = StoryPage(page_hrefs, story, [])
+                inherit PageAccess(page_name)
+                new(page_name, story) = StoryPage(page_name, story, [])
                 
                 interface IDomUnit with
                     member this.name():string = story.name()
@@ -96,13 +102,13 @@ open System.IO
                 interface IContainer with
                     member this.children(): IDomUnit list = childs
                     member this.append(list: IDomUnit list): IContainer =
-                        StoryPage(page_hrefs, story, childs@list)
+                        StoryPage(page_name, story, childs@list)
             end
 
-        type PointPage(page_hrefs: string, point: IDomUnit, refer_list: IDomUnit list) =
+        type PointPage(page_name: string, point: IDomUnit, refer_list: IDomUnit list) =
             class
-                inherit PageAccess(page_hrefs)
-                new(page_hrefs, point) = PointPage(page_hrefs, point, [])
+                inherit PageAccess(page_name)
+                new(page_name, point) = PointPage(page_name, point, [])
 
                 member this.defines() = 
                     point
@@ -114,7 +120,7 @@ open System.IO
                 interface IContainer with
                     member this.children(): IDomUnit list = refer_list
                     member this.append(childs: IDomUnit list): IContainer =
-                        PointPage(page_hrefs, point, refer_list @ childs)
+                        PointPage(page_name, point, refer_list @ childs)
             end
 
 
@@ -324,7 +330,7 @@ open System.IO
     /// 内容组装 =========================================================================================
     module Assemble =
         /// 构建页面名称
-        let page_address_make(node: Present.IDomUnit): string =
+        let page_name_encode(node: Present.IDomUnit): string =
             let name_seqs = $"{node.name()}_{node.object().address()}".ToCharArray() |> Array.map(fun c-> string(uint16(c)))
             name_seqs |> Array.reduce(fun a b-> a+b)
 
@@ -336,7 +342,7 @@ open System.IO
                 match nodes.Head with
                 | :? Content.VolumeDefine as vole -> 
                     let con: Present.IContainer = vole
-                    Present.VolumePage(page_address_make(vole), vole, con.children())::volume_page_assemble(nodes.Tail)
+                    Present.VolumePage(page_name_encode(vole), vole, con.children())::volume_page_assemble(nodes.Tail)
                 | _ -> volume_page_assemble(nodes.Tail)
 
         /// 构建所有故事线页面
@@ -347,7 +353,7 @@ open System.IO
                 match nodes.Head with
                 | :? Content.StoryDefine as storye ->
                     let con: Present.IContainer = storye
-                    Present.StoryPage(page_address_make(storye), storye, con.children())::story_page_assemble(nodes.Tail)
+                    Present.StoryPage(page_name_encode(storye), storye, con.children())::story_page_assemble(nodes.Tail)
                 | _ -> story_page_assemble(nodes.Tail)
 
         /// 提取point-define和point-refer
@@ -473,7 +479,7 @@ open System.IO
                                 let defs = point_defs.Value :?> Content.PointDefine
                                 let name_seqs = $"{page_defs.Value.name()}&{slice_defs.Value.name()}&{point_defs.Value.name()}"
                                 let refer_point = Content.AssembleRefer<Content.PointDefine>(defs, name_seqs)
-                                let page_assemble = Present.PointPage(page_address_make(defs), refer_point)
+                                let page_assemble = Present.PointPage(page_name_encode(defs), refer_point)
                                 defs.setAssemble(page_assemble)
                                 name_seqs,page_assemble
                             )
@@ -490,6 +496,7 @@ open System.IO
 
         type PageText =
             interface
+                abstract member bindPage:unit ->obj
                 abstract member getHtmlText:unit -> string
             end
 
@@ -740,6 +747,9 @@ open System.IO
                         | _ -> ()
             
                 interface PageText with
+                    member this.bindPage():obj =
+                        page
+
                     member this.getHtmlText(): string =
                         let doc = this.getHtmlDocument()
 

AstConv/Program.fs

@@ -4,6 +4,7 @@ open System.Xml
 open HtmlStruct.Assemble
 open HtmlStruct.Content
 open HtmlStruct.Present
+open System.IO
 
 
 let doc = XmlDocument()
@@ -19,7 +20,8 @@ let volume_pages = volume_page_assemble(visitor.contents()) |> List.map<VolumePa
 let story_pages = story_page_assemble(visitor.contents())  |> List.map<StoryPage, IDomUnit> (fun x->x)
 let point_pages = point_page_assemble(volume_pages @ story_pages)
 
-let maker = volume_pages @ story_pages @ point_pages
+volume_pages @ story_pages @ point_pages |> List.iter (fun it -> (it:?>PageAccess).setPageRoot("E:"))
+let makers = volume_pages @ story_pages @ point_pages
             |> List.map(fun page_unit ->
                 match page_unit with
                 | :? PointPage as point ->
@@ -30,9 +32,7 @@ let maker = volume_pages @ story_pages @ point_pages
                     PageMaker<StoryPage>(story)
                 | _ -> failwith ""
             )
-let docx0 = maker.Item(5).getHtmlText()
-let docx1 = maker.Item(18).getHtmlText()
-let docx2 = maker.Item(22).getHtmlText()
 
-for refs in point_pages do
-    System.Console.WriteLine(refs.ToString())
+for refs in makers do
+    let file_path = (refs.bindPage() :?> PageAccess).pageURL()
+    File.WriteAllLines(file_path, [refs.getHtmlText()])