From d977a765e2d9d02f65692a89f5212da12f9af6dd Mon Sep 17 00:00:00 2001 From: codeboss <2422523675@qq.com> Date: Wed, 19 Feb 2025 21:19:18 +0800 Subject: [PATCH] update --- AstConv/HtmlStruct.fs | 157 +++++++++++++++++++++++++++++++++++------- AstConv/Program.fs | 13 +++- 2 files changed, 145 insertions(+), 25 deletions(-) diff --git a/AstConv/HtmlStruct.fs b/AstConv/HtmlStruct.fs index 9c5986c..96dabd0 100644 --- a/AstConv/HtmlStruct.fs +++ b/AstConv/HtmlStruct.fs @@ -3,25 +3,20 @@ open AstAccess open System.Xml open System - + /// 展现节点 ========================================================================================= module Present = /// 可访问元素 - type Access(hrefs: string) = + type PageAccess(hrefs: string) = class member this.accessLink(): string = hrefs end - /// 回退访问元素 - type Backward(hrefs: string) = - class - member this.backwardLink(): string = hrefs - end - /// 内容元素：分卷、章节、引用节点、故事线、情节、定义节点、引用节点 type IDomUnit = interface abstract member name:unit -> string - abstract member getHtml:XmlElement -> XmlElement + abstract member object:unit -> AstImport.AstObject + abstract member getHtmlWith: pnode:XmlElement -> XmlElement end /// 容器节点：分卷、章节、故事线、情节 @@ -31,16 +26,41 @@ open System abstract member children:unit -> IDomUnit list end + /// 内容定义元素 ================================================================================= + type Forwards(item: AstImport.AstObject) = + class + let mutable assemble_page_url: string = "" + + member this.elementID(): string = + item.address() + member this.setAssembleURL(url: string) = + assemble_page_url <- url + member this.assembleURL():string = + assemble_page_url + end + + /// 回访定义元素 ================================================================================= + type Backwards(bind_item: Forwards, bind_page: PageAccess) = + class + member this.elementID(): string = + bind_item.elementID() + member this.backwardsLink(): string = + $"{bind_page.accessLink()}#{bind_item.elementID()}" + end + + /// 访问页面：概括页面、卷宗页面、故事线页面、节点汇总 ================================================= type VolumePage(page_hrefs: string, volume: IDomUnit, childs: IDomUnit list) = class - inherit Access(page_hrefs) + inherit PageAccess(page_hrefs) new(page_hrefs, volume) = VolumePage(page_hrefs, volume, []) interface IDomUnit with member this.name():string = volume.name() - member this.getHtml(p: XmlElement): XmlElement = + member this.object() = + volume.object() + member this.getHtmlWith(p: XmlElement): XmlElement = raise (System.NotImplementedException()) interface IContainer with @@ -51,13 +71,15 @@ open System type StoryPage(page_hrefs: string, story: IDomUnit, childs: IDomUnit list) = class - inherit Access(page_hrefs) + inherit PageAccess(page_hrefs) new(page_hrefs, story) = StoryPage(page_hrefs, story, []) interface IDomUnit with member this.name():string = story.name() - member this.getHtml(p: XmlElement): XmlElement = + member this.object() = + story.object() + member this.getHtmlWith(p: XmlElement): XmlElement = raise (System.NotImplementedException()) interface IContainer with @@ -68,13 +90,15 @@ open System type PointPage(page_hrefs: string, point: IDomUnit, refer_list: IDomUnit list) = class - inherit Access(page_hrefs) + inherit PageAccess(page_hrefs) new(page_hrefs, point) = PointPage(page_hrefs, point, []) interface IDomUnit with member this.name():string = point.name() - member this.getHtml(p: XmlElement): XmlElement = + member this.object() = + point.object() + member this.getHtmlWith(p: XmlElement): XmlElement = raise (System.NotImplementedException()) interface IContainer with @@ -90,20 +114,24 @@ open System class interface Present.IDomUnit with member this.name(): string = "" - member this.getHtml(pnode: XmlElement): XmlElement = + member this.object() = word + member this.getHtmlWith(pnode: XmlElement): XmlElement = raise (System.NotImplementedException()) end type PointRefer(refs: AstImport.PointRef, items: Present.IDomUnit list) = class + inherit Present.Forwards(refs) + let ref_signature = $"@{refs.storyRef()}&{refs.sliceRef()}&{refs.pointRef()}" let lines = refs.children() |> List.map (fun x->x.content()) interface Present.IDomUnit with member this.name(): string = ref_signature - member this.getHtml(pnode: XmlElement): XmlElement = + member this.object() = refs + member this.getHtmlWith(pnode: XmlElement): XmlElement = raise (System.NotImplementedException()) interface Present.IContainer with @@ -118,12 +146,15 @@ open System type PointDefine(defs: AstImport.PointDef, items: Present.IDomUnit list) = class + inherit Present.Forwards(defs) + let lines = defs.children() |> List.map (fun x->x.content()) interface Present.IDomUnit with member this.name(): string = defs.name() - member this.getHtml(pnode: XmlElement): XmlElement = + member this.object() = defs + member this.getHtmlWith(pnode: XmlElement): XmlElement = raise (System.NotImplementedException()) interface Present.IContainer with @@ -136,12 +167,33 @@ open System PointDefine(defs, texts) + /// 具有回退功能的元素 + type AssemblePoint<'T when 'T :> Present.Forwards and 'T :> Present.IDomUnit and 'T:> Present.IContainer>(item: 'T, page: Present.PageAccess) = + class + inherit Present.Backwards(item, page) + + interface Present.IDomUnit with + member this.name(): string = + item.name() + member this.object() = item.object() + member this.getHtmlWith(pnode: XmlElement): XmlElement = + raise (System.NotImplementedException()) + + interface Present.IContainer with + member this.children(): Present.IDomUnit list = + item.children() + member this.append(childs: Present.IDomUnit list): Present.IContainer = + raise (System.NotImplementedException()) + end + + type SliceDefine(defs: AstImport.SliceDef, items: Present.IDomUnit list) = class interface Present.IDomUnit with member this.name(): string = defs.name() - member this.getHtml(pnode: XmlElement): XmlElement = + member this.object() = defs + member this.getHtmlWith(pnode: XmlElement): XmlElement = raise (System.NotImplementedException()) interface Present.IContainer with @@ -166,7 +218,8 @@ open System interface Present.IDomUnit with member this.name(): string = defs.name() - member this.getHtml(pnode: XmlElement): XmlElement = + member this.object() = defs + member this.getHtmlWith(pnode: XmlElement): XmlElement = raise (System.NotImplementedException()) interface Present.IContainer with @@ -190,7 +243,8 @@ open System interface Present.IDomUnit with member this.name(): string = defs.name() - member this.getHtml(pnode: XmlElement): XmlElement = + member this.object() = defs + member this.getHtmlWith(pnode: XmlElement): XmlElement = raise (System.NotImplementedException()) interface Present.IContainer with @@ -214,7 +268,8 @@ open System interface Present.IDomUnit with member this.name(): string = defs.name() - member this.getHtml(pnode: XmlElement): XmlElement = + member this.object() = defs + member this.getHtmlWith(pnode: XmlElement): XmlElement = raise (System.NotImplementedException()) interface Present.IContainer with @@ -274,6 +329,7 @@ open System end + /// 内容组装 ========================================================================================= module Assemble = /// 构建页面名称 let page_address_make(node: Present.IDomUnit): string = @@ -300,4 +356,59 @@ open System | :? Content.StoryDefine as storye -> let con: Present.IContainer = storye Present.StoryPage(page_address_make(storye), storye, con.children())::story_page_build(nodes.Tail) - | _ -> story_page_build(nodes.Tail) \ No newline at end of file + | _ -> story_page_build(nodes.Tail) + + /// 提取point-define和point-refer + let rec point_peers_extract(nodes: Present.IDomUnit list):(Present.IDomUnit option*Present.IDomUnit option)list = + match nodes with + | [] -> [] + | _ -> + let head_data = nodes.Head + match head_data with + | :? Content.StoryDefine as story_e -> + let con = story_e :> Present.IContainer + let items = point_peers_extract(con.children())@point_peers_extract(nodes.Tail) + items |> List.map( + fun (x,y)-> + match x with + | None -> (Some(story_e :> Present.IDomUnit), y) + | _ -> (x, y) + ) + | :? Present.StoryPage as story_e -> + let con = story_e :> Present.IContainer + let items = point_peers_extract(con.children())@point_peers_extract(nodes.Tail) + items |> List.map( + fun (x,y)-> + match x with + | None -> (Some(story_e :> Present.IDomUnit), y) + | _ -> (x, y) + ) + | :? Content.VolumeDefine as volume_e -> + let con = volume_e :> Present.IContainer + let items = point_peers_extract(con.children())@point_peers_extract(nodes.Tail) + items |> List.map ( + fun (x,y) -> + match x with + | None -> (Some(volume_e), y) + | _ -> (x, y) + ) + | :? Present.VolumePage as volume_e -> + let con = volume_e :> Present.IContainer + let items = point_peers_extract(con.children())@point_peers_extract(nodes.Tail) + items |> List.map ( + fun (x,y) -> + match x with + | None -> (Some(volume_e), y) + | _ -> (x, y) + ) + | :? Content.SliceDefine as slice_e -> + let con = slice_e :> Present.IContainer + point_peers_extract(con.children())@point_peers_extract(nodes.Tail) + | :? Content.ArticleDefine as article_e -> + let con = article_e :> Present.IContainer + point_peers_extract(con.children())@point_peers_extract(nodes.Tail) + | :? Content.PointRefer as refer_e -> + (None, Some(refer_e :> Present.IDomUnit))::point_peers_extract(nodes.Tail) + | :? Content.PointDefine as define_e -> + (None, Some(define_e))::point_peers_extract(nodes.Tail) + | _ -> point_peers_extract(nodes.Tail) diff --git a/AstConv/Program.fs b/AstConv/Program.fs index 8b384ca..8b89584 100644 --- a/AstConv/Program.fs +++ b/AstConv/Program.fs @@ -1,6 +1,10 @@ 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") @@ -11,5 +15,10 @@ let entry = AstVisitEntry(prog) let visitor = UnitGenerate(prog) entry.visitWith(visitor) |> ignore -for it in visitor.contents() do - printfn $"Name:{it.name()}" \ No newline at end of file +let volume_pages = volume_page_build(visitor.contents()) |> List.map (fun x->x) +let story_pages = story_page_build(visitor.contents()) |> List.map (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()}" \ No newline at end of file