Here is your rosetta stone :)
I translated pa_json_static.ml.
To highlight a little the changes in the AST,
I want to show an input snippet and two translations:
For the old camlp4 it was:
| Object l ->
let ml = List.map (fun x -> (x.field_caml_name,
convert x.field_type)) l in
<:ctyp< < $list:ml$ > >>
The type of `ml' is (string * ctyp) list. The concept of quotations is
to get concrete syntax for abstract terms and then avoid to learn all
constructors and types. Alas for some of them you have to know the type.
In the new version you can express any term (except one) by concrete syntax.
The closest version is:
| Object l ->
let ml = List.map (fun x ->
<:ctyp< $lid:x.field_caml_name$ : $convert x.field_type$ >>) l in
<:ctyp< < $list:ml$ > >>
Here one doesn't know if methods declarations are a pair or something else and
we don't care. Since one knows the syntax << method_name : method_type >>.
At this place the list antiquotation $list:ml$ is a sugar for
$Ast.tySem_of_list ml$.
By changing a little more the code one can use something closer to the
object syntax.
| Object l ->
let ml = List.fold_right (fun x acc ->
<:ctyp< $lid:x.field_caml_name$ : $convert x.field_type$ ; $acc$ >>)
l <:ctyp<>> in
<:ctyp< < $ml$ > >>
The general syntax of object types (omiting `..' for the row variable) is
< meth1 : type1 ; ... ; methN : typeN > then one can avoid to construct a list
(since map is a fold_right with `::') and then call a function that destruct it.
Another thing to point out is the use of the nil type <:ctyp<>> that is quite
useful to start the folding.
In this translation I used both styles depending of the context.
The patch:
http://gallium.inria.fr/~pouillar/pub/camlp4/rosetta/pa_json_static/pa_json_static.patch
The new version (compiles with camlp4orf):
http://gallium.inria.fr/~pouillar/pub/camlp4/rosetta/pa_json_static/pa_json_static.ml
Cheers,
--
Nicolas Pouillard
_______________________________________________
Caml-list mailing list. Subscription management:
http://yquem.inria.fr/cgi-bin/mailman/listinfo/caml-list
Archives: http://caml.inria.fr
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners
Bug reports: http://caml.inria.fr/bin/caml-bugs
> Here is your rosetta stone :)
>
> I translated pa_json_static.ml.
Thanks a lot.
I backported it to camlp4 3.10.0+beta. Compiling the extension and
using it to preprocess a sample file now work fine (but I haven't tested
the correctness of the generated code).
The few things that didn't want to work with 3.10.0+beta were commented
out and replaced by workarounds.
People interested in upgrading their syntax extensions can read the
side-by-side diffs:
http://martin.jambon.free.fr/examples/pa_json_static_3100beta.html
Martin
--
Martin Jambon
http://martin.jambon.free.fr
For me it compiles but does not work:
D:\Work\Camlp4test>ocamlc -pp camlp4orf -I +camlp4 -c pa_json_static.ml
D:\Work\Camlp4test>camlp4 pa_json_static.cmo -parser OCaml -printer
OCaml test.ml
No level labelled "top" in entry "str_item"
Failure: "Grammar.extend"
(latest CVS with release310 tag)
BTW, have anyone tried to translate pa_IoXML? It thought I would look
into pa_json_static changes and do the same for IoXML, but in fact
it's quite hard, at least for me...
- Dmitry Bely
Wrong order for loaded modules....
camlp4 -parser OCaml pa_json_static.cmo -printer OCaml test.ml
or shorter:
camlp4 -parser o pa_json_static.cmo -printer o test.ml
or event shorter:
camlp4o pa_json_static.cmo -printer o test.ml
--
Nicolas Pouillard