修复情节链条断掉
This commit is contained in:
parent
269815bf18
commit
bb592170c6
|
@ -3,7 +3,6 @@
|
||||||
open AstAccess
|
open AstAccess
|
||||||
open System.Xml
|
open System.Xml
|
||||||
open System
|
open System
|
||||||
open System.Xml.Linq
|
|
||||||
open System.IO
|
open System.IO
|
||||||
|
|
||||||
/// 展现节点 =========================================================================================
|
/// 展现节点 =========================================================================================
|
||||||
|
@ -1072,7 +1071,7 @@ open System.IO
|
||||||
| :? AstImport.SliceDef as defs ->
|
| :? AstImport.SliceDef as defs ->
|
||||||
let points = defs.children()|> List.filter(fun d -> not(d :? AstImport.TextItem))
|
let points = defs.children()|> List.filter(fun d -> not(d :? AstImport.TextItem))
|
||||||
match points with
|
match points with
|
||||||
| [] -> []
|
| [] -> slice_combine(items.Tail)
|
||||||
| _ ->
|
| _ ->
|
||||||
(points.Head, points.Item(points.Length-1))::slice_combine(items.Tail)
|
(points.Head, points.Item(points.Length-1))::slice_combine(items.Tail)
|
||||||
| :? AstImport.StoryDef as defs ->
|
| :? AstImport.StoryDef as defs ->
|
||||||
|
|
|
@ -2,7 +2,7 @@
|
||||||
"profiles": {
|
"profiles": {
|
||||||
"AstConv": {
|
"AstConv": {
|
||||||
"commandName": "Project",
|
"commandName": "Project",
|
||||||
"commandLineArgs": "-file \"E:/storyline.xast\" -odir \"E:/diro\""
|
"commandLineArgs": "-file \"E:/storyline.xast\" -odir \"E:/\""
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
Loading…
Reference in New Issue