codeboss
/
WsParser_VS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update

This commit is contained in:
codeboss 2025-02-20 14:50:38 +08:00
parent 1d41c55535
commit 4233a10f04
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
AstConv/HtmlStruct.fs
View File

@ -63,8 +63,8 @@ open System
interface IContainer with
member this.children(): IDomUnit list = childs
member this.append(childs: IDomUnit list): IContainer =
raise (System.NotImplementedException())
member this.append(new_list: IDomUnit list): IContainer =
VolumePage(page_hrefs, volume, childs@new_list)
end
type StoryPage(page_hrefs: string, story: IDomUnit, childs: IDomUnit list) =
@ -81,8 +81,8 @@ open System
interface IContainer with
member this.children(): IDomUnit list = childs
member this.append(childs: IDomUnit list): IContainer =
raise (System.NotImplementedException())
member this.append(list: IDomUnit list): IContainer =
StoryPage(page_hrefs, story, childs@list)
end
type PointPage(page_hrefs: string, point: IDomUnit, refer_list: IDomUnit list) =

4
AstConv/Program.fs
View File

@ -17,7 +17,7 @@ entry.visitWith(visitor) |> ignore
let volume_pages = volume_page_assemble(visitor.contents()) |> List.map<VolumePage, IDomUnit> (fun x->x)
let story_pages = story_page_assemble(visitor.contents()) |> List.map<StoryPage, IDomUnit> (fun x->x)
let refers = point_page_assemble(volume_pages @ story_pages)
let point_pages = point_page_assemble(volume_pages @ story_pages)
for refs in refers do
for refs in point_pages do
System.Console.WriteLine(refs.ToString())