diff options
| author | Pierre Letouzey | 2014-01-24 17:25:13 +0100 |
|---|---|---|
| committer | Pierre Letouzey | 2014-01-30 18:36:49 +0100 |
| commit | 846ab8d4da6d2faf2c49dbdb5a6747b807471e7d (patch) | |
| tree | 39f74981cde263b4a2ac35ef2efa65ca7cd5c79b /lib/xml_utils.ml | |
| parent | 931121ebf1e2a4bfc4abe6ad7c78085b04bab363 (diff) | |
Remove useless Xml_utils
Diffstat (limited to 'lib/xml_utils.ml')
| -rw-r--r-- | lib/xml_utils.ml | 70 |
1 files changed, 0 insertions, 70 deletions
diff --git a/lib/xml_utils.ml b/lib/xml_utils.ml deleted file mode 100644 index 89407be194..0000000000 --- a/lib/xml_utils.ml +++ /dev/null @@ -1,70 +0,0 @@ -(* - * Xml Light, an small Xml parser/printer with DTD support. - * Copyright (C) 2003 Nicolas Cannasse (ncannasse@motion-twin.com) - * - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Lesser General Public - * License as published by the Free Software Foundation; either - * version 2.1 of the License, or (at your option) any later version. - * - * This library 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 - * Lesser General Public License for more details. - * - * You should have received a copy of the GNU Lesser General Public - * License along with this library; if not, write to the Free Software - * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - *) - -open Xml_datatype - -exception Not_element of xml -exception Not_pcdata of xml -exception No_attribute of string - -let tag = function - | Element (tag,_,_) -> tag - | x -> raise (Not_element x) - -let pcdata = function - | PCData text -> text - | x -> raise (Not_pcdata x) - -let attribs = function - | Element (_,attr,_) -> attr - | x -> raise (Not_element x) - -let attrib x att = - match x with - | Element (_,attr,_) -> - (try - let att = String.lowercase att in - snd (List.find (fun (n,_) -> String.lowercase n = att) attr) - with - Not_found -> - raise (No_attribute att)) - | x -> - raise (Not_element x) - -let children = function - | Element (_,_,clist) -> clist - | x -> raise (Not_element x) - -(*let enum = function - | Element (_,_,clist) -> List.to_enum clist - | x -> raise (Not_element x) -*) - -let iter f = function - | Element (_,_,clist) -> List.iter f clist - | x -> raise (Not_element x) - -let map f = function - | Element (_,_,clist) -> List.map f clist - | x -> raise (Not_element x) - -let fold f v = function - | Element (_,_,clist) -> List.fold_left f v clist - | x -> raise (Not_element x) - |