From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <joelr1@gmail.com>
X-Spam-Checker-Version: SpamAssassin 3.1.3 (2006-06-01) on yquem.inria.fr
X-Spam-Level: *
X-Spam-Status: No, score=1.1 required=5.0 tests=AWL,SPF_NEUTRAL 
	autolearn=disabled version=3.1.3
Received: from discorde.inria.fr (discorde.inria.fr [192.93.2.38])
	by yquem.inria.fr (Postfix) with ESMTP id C492BBC0A
	for <caml-list@yquem.inria.fr>; Mon, 21 May 2007 10:43:53 +0200 (CEST)
Received: from nz-out-0506.google.com (nz-out-0506.google.com [64.233.162.230])
	by discorde.inria.fr (8.13.6/8.13.6) with ESMTP id l4L8hq8X021909
	for <caml-list@inria.fr>; Mon, 21 May 2007 10:43:53 +0200
Received: by nz-out-0506.google.com with SMTP id l8so2080282nzf
        for <caml-list@inria.fr>; Mon, 21 May 2007 01:43:52 -0700 (PDT)
DKIM-Signature: a=rsa-sha1; c=relaxed/relaxed;
        d=gmail.com; s=beta;
        h=domainkey-signature:received:received:mime-version:content-transfer-encoding:message-id:content-type:to:from:subject:date:x-mailer;
        b=DuRnqLJKDY2Nxu7iCDVsKk6XvnM2COhWgS5aIGhy1LN14RWIfPt4FY1e6KmsMArDMr2dvsVLzPr9N7Nn1qCC4vw2m5+MPlz8ciDSkG0iKSMJY6KxIyvStCc8XyuAFaO2R3yHJocLIxVOTsmUqXkK/pkGkkctJ9VwhyODigzHl0k=
DomainKey-Signature: a=rsa-sha1; c=nofws;
        d=gmail.com; s=beta;
        h=received:mime-version:content-transfer-encoding:message-id:content-type:to:from:subject:date:x-mailer;
        b=qk7D7a4W5Lz6k5ae/ftG7i2TDm29qB+60PYxabcr+p4tNY1rQ1J/ROA9MC66EaNnbXePDbCaGndoxAJEU2cP09v4P3ulTNFthUkxSmEof0i/Yoi4OrkjlzLxKOyAoHyTiFlF8+el3zL2hut37yvrku2A5PHwAiNkllvuGQTgXpU=
Received: by 10.65.185.3 with SMTP id m3mr10317179qbp.1179737032484;
        Mon, 21 May 2007 01:43:52 -0700 (PDT)
Received: from ?192.168.1.33? ( [83.52.62.16])
        by mx.google.com with ESMTP id q17sm6399515qbq.2007.05.21.01.43.51;
        Mon, 21 May 2007 01:43:51 -0700 (PDT)
Mime-Version: 1.0 (Apple Message framework v752.3)
Content-Transfer-Encoding: 7bit
Message-Id: <8A1EBB03-0926-4C86-B1C8-5BE7B201A070@gmail.com>
Content-Type: text/plain; charset=US-ASCII; format=flowed
To: OCaml List <caml-list@inria.fr>
From: Joel Reymont <joelr1@gmail.com>
Subject: camlp4 3.10: What should this look like?
Date: Mon, 21 May 2007 09:43:53 +0100
X-Mailer: Apple Mail (2.752.3)
X-j-chkmail-Score: MSGID : 46515BC8.001 on discorde : j-chkmail score : XXX : 5/20 1 0.000 -> 3
X-Miltered: at discorde with ID 46515BC8.001 by Joe's j-chkmail (http://j-chkmail . ensmp . fr)!
X-Spam: no; 0.00; camlp:01 camlp:01 syntax:01 pcaml:01 expr:01 expr:01 pcaml:01 flags:01 flags:01 token:01 assert:01 match:02 string:02 string:02 loc:03 

What should this look like in the new camlp4 syntax?

EXTEND
   Pcaml.expr: LEVEL "expr1" [
     [ "PGSQL"; "("; dbh = Pcaml.expr; ")"; extras = LIST1 STRING ->
         let query, flags =
           match List.rev extras with
           | [] -> assert false
           | query :: flags -> query, flags in
         pgsql_expand ~flags loc dbh (Token.eval_string loc query)
     ]
   ];
END

	Thanks, Joel

--
http://wagerlabs.com/