From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.1.3 (2006-06-01) on yquem.inria.fr X-Spam-Level: X-Spam-Status: No, score=0.0 required=5.0 tests=AWL autolearn=disabled version=3.1.3 X-Original-To: caml-list@yquem.inria.fr Delivered-To: caml-list@yquem.inria.fr Received: from mail3-relais-sop.national.inria.fr (mail3-relais-sop.national.inria.fr [192.134.164.104]) by yquem.inria.fr (Postfix) with ESMTP id BA872BC6C for ; Wed, 30 Jan 2008 11:40:48 +0100 (CET) X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: AuE6AEzgn0fUnw6GXmdsb2JhbACCNo1nFQoOFAefRQ X-IronPort-AV: E=Sophos;i="4.25,276,1199660400"; d="scan'208";a="8531065" Received: from pih-relay08.plus.net ([212.159.14.134]) by mail3-smtp-sop.national.inria.fr with ESMTP; 30 Jan 2008 11:40:48 +0100 Received: from [80.229.56.224] (helo=beast.local) by pih-relay08.plus.net with esmtp (Exim) id 1JKAN5-0004JW-Ck for caml-list@yquem.inria.fr; Wed, 30 Jan 2008 10:40:47 +0000 From: Jon Harrop Organization: Flying Frog Consultancy Ltd. To: caml-list@yquem.inria.fr Subject: Re: [Caml-list] [OSR] Suggested topic - XML processing API Date: Wed, 30 Jan 2008 10:35:31 +0000 User-Agent: KMail/1.9.7 References: <52FAAA41-5B70-4F87-9F83-B8A96EA48D34@erratique.ch> In-Reply-To: MIME-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit Content-Disposition: inline Message-Id: <200801301035.31447.jon@ffconsultancy.com> X-Plusnet-Relay: 1c6c8adefe89684f736f0af6bea9b564 X-Spam: no; 0.00; node:01 node:01 frog:98 wrote:01 caml-list:01 minor:01 api:02 string:02 string:02 element:03 element:03 identifiers:04 redundant:05 namespace:07 namespace:07 On Wednesday 30 January 2008 03:26:00 Jim Miller wrote: > type xmlNode = > > | XmlElement of (namespace: string * tagName: string * attributes: > > (string * string) list * (children:xmlNode list) ) > > | XmlPCData of (text:string) Just a minor quibble but might I suggest removing the redundant Xml/xml from all of the identifiers: type element = { namespace: string; tagName: string; attributes: (string * string) list; children: node list } and node = | Element of element | Text of string;; -- Dr Jon D Harrop, Flying Frog Consultancy Ltd. http://www.ffconsultancy.com/products/?e