On 5/21/07, Joel Reymont <joelr1@gmail.com> wrote:
> What should this look like in the new camlp4 syntax?

Something like (not tested):

open Camlp4.PreCast;;
open Syntax;;
EXTEND Gram
   expr: LEVEL "top" [
     [ "PGSQL"; "("; dbh = expr; ")"; extras = LIST1 STRING ->
         let query, flags =
           match List.rev extras with
           | [] -> assert false
           | query :: flags -> query, flags in
         pgsql_expand ~flags loc dbh (Camlp4.Struct.Token.Eval.string query)
     ]
   ];
END

-- 
Nicolas Pouillard