update

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