]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/gTopLevel/xml2Gdome.ml
added ocaml-http 0.0.1
[helm.git] / helm / gTopLevel / xml2Gdome.ml
index 43a2fc7ddfaa5199b1989143b470ac265962602d..8c6298d09026b93e7443f5014c6c68caa28b26d1 100644 (file)
@@ -1,3 +1,28 @@
+(* Copyright (C) 2000-2002, HELM Team.
+ * 
+ * This file is part of HELM, an Hypertextual, Electronic
+ * Library of Mathematics, developed at the Computer Science
+ * Department, University of Bologna, Italy.
+ * 
+ * HELM is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License
+ * as published by the Free Software Foundation; either version 2
+ * of the License, or (at your option) any later version.
+ * 
+ * HELM is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with HELM; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
+ * MA  02111-1307, USA.
+ * 
+ * For details, see the HELM World-Wide-Web page,
+ * http://cs.unibo.it/helm/.
+ *)
+
 let document_of_xml (domImplementation : Gdome.domImplementation) strm =
  let module G = Gdome in
  let module X = Xml in
@@ -8,11 +33,8 @@ let document_of_xml (domImplementation : Gdome.domImplementation) strm =
     | _ -> assert false
   in
    let document =
-(*CSC: erroraccio bruttissimo in gmetadom!!! *)
-    new Gdome.document (
     domImplementation#createDocument ~namespaceURI:None
      ~qualifiedName:(Gdome.domString root_name) ~doctype:None
-    )
    in
    let rec aux (node : Gdome.node) =
     parser