diff --git a/AstConv/HtmlStruct.fs b/AstConv/HtmlStruct.fs
index 6228dca..3fdc899 100644
--- a/AstConv/HtmlStruct.fs
+++ b/AstConv/HtmlStruct.fs
@@ -5,7 +5,7 @@ open System.Xml
open System
/// 展现节点 =========================================================================================
module Present =
- /// 可访问元素
+ /// 可访问页面
type PageAccess(hrefs: string) =
class
member this.accessLink(): string = hrefs
@@ -59,7 +59,7 @@ open System
member this.object() =
volume.object()
member this.getHtmlWith(p: XmlElement): XmlElement =
- raise (System.NotImplementedException())
+ failwith "getHtmlWith"
interface IContainer with
member this.children(): IDomUnit list = childs
@@ -77,7 +77,7 @@ open System
member this.object() =
story.object()
member this.getHtmlWith(p: XmlElement): XmlElement =
- raise (System.NotImplementedException())
+ failwith "getHtmlWith"
interface IContainer with
member this.children(): IDomUnit list = childs
@@ -94,7 +94,7 @@ open System
member this.name():string = point.name()
member this.object() = point.object()
member this.getHtmlWith(p: XmlElement): XmlElement =
- raise (System.NotImplementedException())
+ failwith "getHtmlWith"
interface IContainer with
member this.children(): IDomUnit list = refer_list
@@ -111,7 +111,7 @@ open System
member this.name(): string = ""
member this.object() = word
member this.getHtmlWith(pnode: XmlElement): XmlElement =
- raise (System.NotImplementedException())
+ failwith "getHtmlWith"
end
@@ -126,12 +126,12 @@ open System
member this.name(): string = ref_signature
member this.object() = refs
member this.getHtmlWith(pnode: XmlElement): XmlElement =
- raise (System.NotImplementedException())
+ failwith "getHtmlWith"
interface Present.IContainer with
member this.children(): Present.IDomUnit list = items
member this.append(childs: Present.IDomUnit list): Present.IContainer =
- raise (System.NotImplementedException())
+ failwith "append"
end
let refer_assemble (refn: AstImport.PointRef) : PointRefer =
let texts = refn.children() |> List.map (fun dom -> TextContent(dom) :> Present.IDomUnit)
@@ -148,12 +148,12 @@ open System
member this.name(): string = defs.name()
member this.object() = defs
member this.getHtmlWith(pnode: XmlElement): XmlElement =
- raise (System.NotImplementedException())
+ failwith "getHtmlWith"
interface Present.IContainer with
member this.children(): Present.IDomUnit list = items
member this.append(childs: Present.IDomUnit list): Present.IContainer =
- raise (System.NotImplementedException())
+ failwith "append"
end
let point_assemble (defs: AstImport.PointDef) : PointDefine =
let texts = defs.children() |> List.map (fun dom -> TextContent(dom) :> Present.IDomUnit)
@@ -169,12 +169,12 @@ open System
member this.name() = from
member this.object() = item.object()
member this.getHtmlWith(pnode: XmlElement): XmlElement =
- raise (System.NotImplementedException())
+ failwith "getHtmlWith"
interface Present.IContainer with
member this.children(): Present.IDomUnit list = item.children()
member this.append(childs: Present.IDomUnit list): Present.IContainer =
- raise (System.NotImplementedException())
+ failwith "append"
end
@@ -184,12 +184,12 @@ open System
member this.name(): string = defs.name()
member this.object() = defs
member this.getHtmlWith(pnode: XmlElement): XmlElement =
- raise (System.NotImplementedException())
+ failwith "getHtmlWith"
interface Present.IContainer with
member this.children(): Present.IDomUnit list = items
member this.append(childs: Present.IDomUnit list): Present.IContainer =
- raise (System.NotImplementedException())
+ failwith "append"
end
let slice_assemble (defs: AstImport.SliceDef) : SliceDefine =
let childs = defs.children()
@@ -198,7 +198,7 @@ open System
| :? AstImport.PointRef as refs -> refer_assemble(refs)
| :? AstImport.PointDef as defs -> point_assemble(defs)
| :? AstImport.TextItem as text -> TextContent(text)
- | _ -> raise (System.NotImplementedException())
+ | _ -> failwith "match error"
)
SliceDefine(defs, childs)
@@ -210,12 +210,12 @@ open System
defs.name()
member this.object() = defs
member this.getHtmlWith(pnode: XmlElement): XmlElement =
- raise (System.NotImplementedException())
+ failwith "getHtmlWith"
interface Present.IContainer with
member this.children(): Present.IDomUnit list = childs
member this.append(childs: Present.IDomUnit list): Present.IContainer =
- raise (System.NotImplementedException())
+ failwith "append"
end
let story_assemble (defs: AstImport.StoryDef): StoryDefine =
let childs = defs.children()
@@ -223,7 +223,7 @@ open System
match data with
| :? AstImport.SliceDef as defs -> slice_assemble(defs)
| :? AstImport.TextItem as text -> TextContent(text)
- | _ -> raise (System.NotImplementedException())
+ | _ -> failwith "match error"
)
StoryDefine(defs, childs)
@@ -235,12 +235,12 @@ open System
defs.name()
member this.object() = defs
member this.getHtmlWith(pnode: XmlElement): XmlElement =
- raise (System.NotImplementedException())
+ failwith "getHtmlWith"
interface Present.IContainer with
member this.children(): Present.IDomUnit list = childs
member this.append(childs: Present.IDomUnit list): Present.IContainer =
- raise (System.NotImplementedException())
+ failwith "append"
end
let article_assemble (defs: AstImport.ArticleDef) : ArticleDefine =
let childs = defs.children()
@@ -248,7 +248,7 @@ open System
match data with
| :? AstImport.TextItem as text -> TextContent(text)
| :? AstImport.PointRef as refs -> refer_assemble(refs)
- | _ -> raise (System.NotImplementedException())
+ | _ -> failwith "match error"
)
ArticleDefine(defs, childs)
@@ -260,7 +260,7 @@ open System
defs.name()
member this.object() = defs
member this.getHtmlWith(pnode: XmlElement): XmlElement =
- raise (System.NotImplementedException())
+ failwith "getHtmlWith"
interface Present.IContainer with
member this.children(): Present.IDomUnit list = childs
@@ -273,7 +273,7 @@ open System
match data with
| :? AstImport.TextItem as text -> TextContent(text)
| :? AstImport.ArticleDef as defs -> article_assemble(defs)
- | _ -> raise (System.NotImplementedException())
+ | _ -> failwith "match error"
)
VolumeDefine(defs, childs)
@@ -307,7 +307,7 @@ open System
| :? AstImport.VolumeDef as defs ->
(refs_depth, VolumeDefine(defs, childs))::result_nodes
| :? AstImport.Program -> result_nodes
- | _ -> raise (System.NotImplementedException())
+ | _ -> failwith "match error"
result_nodes <- datas
if refs_depth > 0 then