完善章节关系关联图和故事线关联图
This commit is contained in:
parent
1167090fb5
commit
e50acdebb7
|
|
@ -995,103 +995,101 @@ open System.IO
|
||||||
}}"""
|
}}"""
|
||||||
end
|
end
|
||||||
|
|
||||||
//type VolumeGraphMake(gname: string, story_volume_set: Present.PageAccess list) =
|
type VolumeGraphMake(gname: string, story_volume_set: Present.PageAccess list) =
|
||||||
// class
|
class
|
||||||
// member private this.node_collect(objs: AstImport.AstObject list) =
|
member private this.nodedefs_collect(objs: AstImport.AstObject list) =
|
||||||
// match objs with
|
match objs with
|
||||||
// | [] -> []
|
| [] -> []
|
||||||
// | _ ->
|
| _ ->
|
||||||
// match objs.Head with
|
match objs.Head with
|
||||||
// | :? AstImport.StoryDef as story ->
|
| :? AstImport.StoryDef as story ->
|
||||||
// let list = this.node_collect(story.children())
|
let list_a = this.nodedefs_collect(story.children())
|
||||||
// (list|> List.map(fun (_, b, c) -> Some(story :> AstImport.AstObject), b, c))@this.node_collect(objs.Tail)
|
(list_a|> List.map(fun (_, b) -> Some(objs.Head), b))@this.nodedefs_collect(objs.Tail)
|
||||||
// | :? AstImport.SliceDef as slice ->
|
|
||||||
// let list = this.node_collect(slice.children())
|
|
||||||
// (list|> List.map(fun (_, _, c) -> None, Some(slice :> AstImport.AstObject), c))@this.node_collect(objs.Tail)
|
|
||||||
// | :? AstImport.VolumeDef as volume ->
|
|
||||||
// let list = this.node_collect(volume.children())
|
|
||||||
// (list|> List.map(fun (_, b, c) -> Some(volume), b, c))@this.node_collect(objs.Tail)
|
|
||||||
// | :? AstImport.ArticleDef as article ->
|
|
||||||
// let list = this.node_collect(article.children())
|
|
||||||
// (list|> List.map(fun (_, _, c) -> None, Some(article), c))@this.node_collect(objs.Tail)
|
|
||||||
// | :? AstImport.PointDef as point ->
|
|
||||||
// (None, None, point :> AstImport.AstObject)::this.node_collect(objs.Tail)
|
|
||||||
// | :? AstImport.PointRef as refer ->
|
|
||||||
// (None, None, refer)::this.node_collect(objs.Tail)
|
|
||||||
// | _ -> this.node_collect(objs.Tail)
|
|
||||||
|
|
||||||
// member this.getGraphCode(): string =
|
| :? AstImport.FragmentSlice as slice ->
|
||||||
// let storys = story_volume_set
|
(None, objs.Head)::this.nodedefs_collect(objs.Tail)
|
||||||
// |> List.filter(fun dt -> dt :? Present.StoryPage)
|
|
||||||
// |> List.map(fun d -> d :?> Present.StoryPage)
|
|
||||||
// |> List.map(fun d -> d :> Present.IDomUnit)
|
|
||||||
// |> List.map(fun d -> d.object())
|
|
||||||
// let volumes= story_volume_set
|
|
||||||
// |> List.filter(fun dt -> dt :? Present.VolumePage)
|
|
||||||
// |> List.map(fun dt -> dt :?> Present.VolumePage)
|
|
||||||
// |> List.map(fun d -> d :> Present.IDomUnit)
|
|
||||||
// |> List.map(fun d -> d.object())
|
|
||||||
|
|
||||||
// let rec point_code_generate(list: AstImport.AstObject list) =
|
| :? AstImport.VolumeDef as volume ->
|
||||||
// match list with
|
let list_a = this.nodedefs_collect(volume.children())
|
||||||
// | [] -> []
|
(list_a|> List.map(fun (_, b)-> Some(objs.Head), b))@this.nodedefs_collect(objs.Tail)
|
||||||
// | _ ->
|
|
||||||
// let item_current = list.Head
|
|
||||||
// match item_current with
|
|
||||||
// | :? AstImport.StoryDef as story ->
|
|
||||||
// let subcluster = point_code_generate(story.children())
|
|
||||||
// let clusters_desc = if subcluster.Length > 0 then subcluster|> List.reduce(fun a b -> a + "\n" + b) else ""
|
|
||||||
// let story_desc = $""" subgraph cluster_{story.address()} {{ label="{story.name()}" {clusters_desc} }} """
|
|
||||||
// story_desc::point_code_generate(list.Tail)
|
|
||||||
// | :? AstImport.SliceDef as slice ->
|
|
||||||
// let node_exists = point_code_generate(slice.children())
|
|
||||||
// let nodes_desc = if node_exists.Length > 0 then node_exists|> List.reduce(fun a b -> a+"\n"+b) else ""
|
|
||||||
// let slice_desc = $""" subgraph cluster_{slice.address()} {{ label="{slice.name()}" {nodes_desc} }} """
|
|
||||||
// slice_desc::point_code_generate(list.Tail)
|
|
||||||
// | :? AstImport.PointDef as point ->
|
|
||||||
// let node_desc = $""" node_{point.address()}[label="{point.name()}" shape="rect" style="diagonals"] """
|
|
||||||
// node_desc::point_code_generate(list.Tail)
|
|
||||||
// | :? AstImport.PointRef as refer ->
|
|
||||||
// let refer_desc = $""" node_{refer.address()}[label="{refer.pointRef()}" style="dotted"] """
|
|
||||||
// refer_desc::point_code_generate(list.Tail)
|
|
||||||
// | :? AstImport.ArticleDef as article ->
|
|
||||||
// let refer_descx = point_code_generate(article.children())
|
|
||||||
// let nodes_desc = if refer_descx.Length > 0 then refer_descx|> List.reduce(fun a b -> a+"\n"+b) else ""
|
|
||||||
// let article_desc = $""" subgraph cluster_{article.address()} {{ label="{article.name()}" {nodes_desc} }} """
|
|
||||||
// article_desc::point_code_generate(list.Tail)
|
|
||||||
// | :? AstImport.VolumeDef as volume ->
|
|
||||||
// let subclusters = point_code_generate(volume.children())
|
|
||||||
// let clusters_desc = if subclusters.Length > 0 then subclusters|> List.reduce(fun a b -> a + "\n" + b) else ""
|
|
||||||
// let volume_desc = $""" subgraph cluster_{volume.address()} {{ label="{volume.name()}" {clusters_desc} }} """
|
|
||||||
// volume_desc::point_code_generate(list.Tail)
|
|
||||||
// | _ -> point_code_generate(list.Tail)
|
|
||||||
|
|
||||||
// let clusters_desc = (point_code_generate(storys)@point_code_generate(volumes))|> List.reduce(fun a b -> a + "\n" + b)
|
| :? AstImport.ArticleDef as article ->
|
||||||
|
(None, objs.Head)::this.nodedefs_collect(objs.Tail)
|
||||||
|
|
||||||
// let points_about = this.node_collect(storys @ volumes)
|
| _ -> this.nodedefs_collect(objs.Tail)
|
||||||
// let point_map = points_about|> List.filter(fun (_, _, d) -> d :? AstImport.PointDef)
|
|
||||||
// |> List.map(fun (a, b, c) ->
|
|
||||||
// let story_def = a.Value :?> AstImport.StoryDef
|
|
||||||
// let slice_def = b.Value :?> AstImport.SliceDef
|
|
||||||
// $"{story_def.name()}&{slice_def.name()}&{(c :?> AstImport.PointDef).name()}", c.address()
|
|
||||||
// )
|
|
||||||
// let rec refers_link_assemble(nodes: (string*string)list) =
|
|
||||||
// match nodes with
|
|
||||||
// | [] -> []
|
|
||||||
// | _ ->
|
|
||||||
// let node_sig, address = nodes.Head
|
|
||||||
// let referx = points_about|> List.filter(fun (_, _, n) -> n :? AstImport.PointRef)
|
|
||||||
// |> List.map(fun (_, _, c) -> c :?> AstImport.PointRef)
|
|
||||||
// |> List.filter(fun n ->
|
|
||||||
// let sig_ref = $"{n.storyRef()}&{n.sliceRef()}&{n.pointRef()}"
|
|
||||||
// sig_ref = node_sig
|
|
||||||
// )
|
|
||||||
// let code_curr = referx |> List.map(fun x-> $"node_{x.address()}--node_{address}")
|
|
||||||
// code_curr@refers_link_assemble(nodes.Tail)
|
|
||||||
|
|
||||||
// let temps = refers_link_assemble(point_map)
|
member this.getGraphCode(): string =
|
||||||
// let refer_arrows = refers_link_assemble(point_map)|> List.reduce(fun a b -> a + "\n" + b)
|
let storys = story_volume_set
|
||||||
|
|> List.filter(fun dt -> dt :? Present.StoryPage)
|
||||||
|
|> List.map(fun d -> d :?> Present.StoryPage)
|
||||||
|
|> List.map(fun d -> d :> Present.IDomUnit)
|
||||||
|
|> List.map(fun d -> d.object())
|
||||||
|
let volumes= story_volume_set
|
||||||
|
|> List.filter(fun dt -> dt :? Present.VolumePage)
|
||||||
|
|> List.map(fun dt -> dt :?> Present.VolumePage)
|
||||||
|
|> List.map(fun d -> d :> Present.IDomUnit)
|
||||||
|
|> List.map(fun d -> d.object())
|
||||||
|
|
||||||
// $"""graph{{ label="{gname}" {clusters_desc} {refer_arrows} }}"""
|
// 生成所有cluster
|
||||||
|
let rec point_code_generate(list: AstImport.AstObject list) =
|
||||||
|
match list with
|
||||||
|
| [] -> []
|
||||||
|
| _ ->
|
||||||
|
let item_current = list.Head
|
||||||
|
match item_current with
|
||||||
|
| :? AstImport.StoryDef as story ->
|
||||||
|
let sub_content = point_code_generate(story.children())
|
||||||
|
let content_desc = if sub_content.Length > 0 then sub_content|> List.reduce(fun a b -> a + b) else ""
|
||||||
|
let story_desc = $"""subgraph cluster_{story.address()} {{ label="{story.name()}" {content_desc} }}
|
||||||
|
"""
|
||||||
|
story_desc::point_code_generate(list.Tail)
|
||||||
|
|
||||||
// end
|
| :? AstImport.FragmentSlice as slice ->
|
||||||
|
let slice_desc = $"""node_{slice.address()}[label="{slice.name()}" shape="rect"]
|
||||||
|
"""
|
||||||
|
slice_desc::point_code_generate(list.Tail)
|
||||||
|
|
||||||
|
| :? AstImport.VolumeDef as volume ->
|
||||||
|
let sub_content = point_code_generate(volume.children())
|
||||||
|
let content_desc = if sub_content.Length > 0 then sub_content|> List.reduce(fun a b -> a + b) else ""
|
||||||
|
let volume_desc = $""" subgraph cluster_{volume.address()} {{ label="{volume.name()}" {content_desc} }}
|
||||||
|
"""
|
||||||
|
volume_desc::point_code_generate(list.Tail)
|
||||||
|
|
||||||
|
| :? AstImport.ArticleDef as article ->
|
||||||
|
let article_desc = $"""node_{article.address()}[label="{article.name()}"]
|
||||||
|
"""
|
||||||
|
article_desc::point_code_generate(list.Tail)
|
||||||
|
|
||||||
|
| _ -> point_code_generate(list.Tail)
|
||||||
|
let clusters_desc = (point_code_generate(storys)@point_code_generate(volumes))|> List.reduce(fun a b -> a + b)
|
||||||
|
|
||||||
|
// 提取所有可视节点
|
||||||
|
let child_nodes = this.nodedefs_collect(storys)@this.nodedefs_collect(volumes)
|
||||||
|
// 获取节点字典
|
||||||
|
let node_map = child_nodes|> List.filter(fun (_, b) -> b:? AstImport.FragmentSlice)
|
||||||
|
|> List.map(fun (a, b) ->
|
||||||
|
let story_e = a.Value :?> AstImport.StoryDef
|
||||||
|
let fragm_e = b :?> AstImport.FragmentSlice
|
||||||
|
$"{story_e.name()}&{fragm_e.name()}", b.address())
|
||||||
|
|
||||||
|
let rst = child_nodes |> List.filter(fun (_, b) -> b:? AstImport.ArticleDef) // 筛选文章节点
|
||||||
|
|> List.map(fun (_, b) -> b:?> AstImport.ArticleDef) // 获取文章节点
|
||||||
|
|> List.map(fun v -> v, (v.children()|> List.filter(fun v-> v:? AstImport.FragmentRef))) // 获取文章节点和他的引用线
|
||||||
|
|> List.filter(fun (_, al)-> al.Length > 0)
|
||||||
|
|
||||||
|
let refers = rst|> List.map(fun (a, refsa) ->
|
||||||
|
refsa|> List.map(fun refn ->
|
||||||
|
let refx = refn :?> AstImport.FragmentRef
|
||||||
|
let target_name = $"""{refx.storyRef()}&{refx.sliceRef()}"""
|
||||||
|
let _, target_address = node_map|> List.filter(fun (a, _) -> a = target_name)|> List.item 0
|
||||||
|
$"""node_{a.address()}--node_{target_address}
|
||||||
|
"""
|
||||||
|
)
|
||||||
|
)
|
||||||
|
|> List.reduce (fun a b -> a @ b)
|
||||||
|
|> List.reduce (fun a b -> a + b)
|
||||||
|
|
||||||
|
$"""graph{{ label="{gname}" {clusters_desc} {refers} }}"""
|
||||||
|
|
||||||
|
end
|
||||||
|
|
@ -71,9 +71,9 @@ stream.Write(graph_code)
|
||||||
stream.Flush()
|
stream.Flush()
|
||||||
Process.Start("dot", $"""-Tsvg -o{Path.Combine(dir_o.FullName, "storys_display.svg")} {Path.Combine(dir_o.FullName, "storys_display.dot")}""") |> ignore
|
Process.Start("dot", $"""-Tsvg -o{Path.Combine(dir_o.FullName, "storys_display.svg")} {Path.Combine(dir_o.FullName, "storys_display.dot")}""") |> ignore
|
||||||
|
|
||||||
//let graph2 = VolumeGraphMake("卷章引用网络", (volume_pages@story_pages)|> List.map(fun d -> d :?> PageAccess))
|
let graph2 = VolumeGraphMake("卷章引用网络", (volume_pages@story_pages)|> List.map(fun d -> d :?> PageAccess))
|
||||||
//let graph2_code = graph2.getGraphCode()
|
let graph2_code = graph2.getGraphCode()
|
||||||
//let stream2 = new StreamWriter(Path.Combine(dir_o.FullName, "volume_display.dot"), false)
|
let stream2 = new StreamWriter(Path.Combine(dir_o.FullName, "volume_display.dot"), false)
|
||||||
//stream2.Write(graph2_code)
|
stream2.Write(graph2_code)
|
||||||
//stream2.Flush()
|
stream2.Flush()
|
||||||
//Process.Start("dot", $"""-Tsvg -o{Path.Combine(dir_o.FullName, "volume_display.svg")} {Path.Combine(dir_o.FullName, "volume_display.dot")}""") |> ignore
|
Process.Start("dot", $"""-Tsvg -o{Path.Combine(dir_o.FullName, "volume_display.svg")} {Path.Combine(dir_o.FullName, "volume_display.dot")}""") |> ignore
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue