Version française
Home     About     Download     Resources     Contact us    
Browse thread
camlp4 3.10: What should this look like?
[ Home ] [ Index: by date | by threads ]
[ Search: ]

[ Message by date: previous | next ] [ Message in thread: previous | next ] [ Thread: previous | next ]
Date: -- (:)
From: Joel Reymont <joelr1@g...>
Subject: camlp4 3.10: What should this look like?
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/