1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
ppx_tools
=========
Tools for authors of syntactic tools (such as ppx rewriters).
This package is licensed by LexiFi under the terms of the MIT license.
The tools are installed as a findlib package called 'ppx_tools'.
Executables are thus accessible through the ocamlfind driver (e.g.:
ocamlfind ppx_tools/dumpast).
Main contributors:
- Alain Frisch
- Peter Zotov (whitequark)
- Gabriel Radanne (Drup)
Master : [](https://travis-ci.org/alainfrisch/ppx_tools)
4.05 : [](https://travis-ci.org/alainfrisch/ppx_tools)
4.04 : [](https://travis-ci.org/alainfrisch/ppx_tools)
4.03 : [](https://travis-ci.org/alainfrisch/ppx_tools)
4.02 : [](https://travis-ci.org/alainfrisch/ppx_tools)
ppx_metaquot
------------
A ppx filter to help writing programs which manipulate the Parsetree,
by allowing the programmer to use concrete syntax for expressions
creating Parsetree fragments and patterns deconstructing Parsetree
fragments. See the top of ppx_metaquot.ml for a description of the
supported extensions.
Usage:
ocamlfind ocamlc -c -package ppx_tools.metaquot my_ppx_code.ml
rewriter
--------
An utility to help testing ppx rewriters that runs the rewriter on
user-provided code and returns the result.
Usage:
ocamlfind ppx_tools/rewriter ./my_ppx_rewriter sample.ml
See the integrated help message for more details:
ocamlfind ppx_tools/rewriter -help
Ast_mapper_class
----------------
This module implements an API similar to Ast_mapper from the
compiler-libs, i.e. a generic mapper from Parsetree to Parsetree
implemeting a deep identity copy, which can be customized with a
custom behavior for each syntactic category. The difference with
Ast_mapper is that Ast_mapper_class implements the open recursion
using a class.
dumpast
-------
This tool parses fragments of OCaml code (or entire source files) and
dump the resulting internal Parsetree representation. Intended uses:
- Help to learn about the OCaml Parsetree structure and how it
corresponds to OCaml source syntax.
- Create fragments of Parsetree to be copy-pasted into the source
code of syntax-manipulating programs (such as ppx rewriters).
Usage:
ocamlfind ppx_tools/dumpast -e "1 + 2"
The tool can be used to show the Parsetree representation of small
fragments of syntax passed on the command line (-e for expressions, -p
for patterns, -t for type expressions) or for entire .ml/mli files.
The standard -pp and -ppx options are supported, but only applied on
whole files. The tool has further option to control how location and
attribute fields in the Parsetree should be displayed.
genlifter
---------
This tool generates a virtual "lifter" class for one or several OCaml
type constructors. It does so by loading the .cmi files which define
those types. The generated lifter class exposes one method to "reify"
type constructors passed on the command-line and other type
constructors accessible from them. The class is parametrized over the
target type of the reification, and it must provide method to deal
with basic types (int, string, char, int32, int64, nativeint) and data
type builders (record, constr, tuple, list, array). As an example,
calling:
ocamlfind ppx_tools/genlifter -I +compiler-libs Location.t
produces the following class:
class virtual ['res] lifter =
object (this)
method lift_Location_t : Location.t -> 'res=
fun
{ Location.loc_start = loc_start; Location.loc_end = loc_end;
Location.loc_ghost = loc_ghost }
->
this#record "Location.t"
[("loc_start", (this#lift_Lexing_position loc_start));
("loc_end", (this#lift_Lexing_position loc_end));
("loc_ghost", (this#lift_bool loc_ghost))]
method lift_bool : bool -> 'res=
function
| false -> this#constr "bool" ("false", [])
| true -> this#constr "bool" ("true", [])
method lift_Lexing_position : Lexing.position -> 'res=
fun
{ Lexing.pos_fname = pos_fname; Lexing.pos_lnum = pos_lnum;
Lexing.pos_bol = pos_bol; Lexing.pos_cnum = pos_cnum }
->
this#record "Lexing.position"
[("pos_fname", (this#string pos_fname));
("pos_lnum", (this#int pos_lnum));
("pos_bol", (this#int pos_bol));
("pos_cnum", (this#int pos_cnum))]
end
_dumpast_ is a direct example of using _genlifter_ applied on the
OCaml Parsetree definition itself. ppx_metaquot is another
similar example.
|
