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
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
|
(* camlp5r *)
(* pp_debug.ml,v *)
module Pp_MLast = struct
value ref_pp_str_item = ref (fun pps (x : MLast.str_item) ->
Format.fprintf pps "<unrecognized str_item>") ;
value ref_pp_loc = ref (fun pps (x : MLast.loc) ->
Format.fprintf pps "<unrecognized loc>") ;
value ref_pp_type_var = ref (fun pps (x : MLast.type_var) ->
Format.fprintf pps "<unrecognized type_var>") ;
value ref_pp_longid = ref (fun pps (x : MLast.longid) ->
Format.fprintf pps "<unrecognized longid>") ;
value ref_pp_ctyp = ref (fun pps (x : MLast.ctyp) ->
Format.fprintf pps "<unrecognized ctyp>") ;
value ref_pp_poly_variant = ref (fun pps (x : MLast.poly_variant) ->
Format.fprintf pps "<unrecognized poly_variant>") ;
value ref_pp_patt = ref (fun pps (x : MLast.patt) ->
Format.fprintf pps "<unrecognized patt>") ;
value ref_pp_expr = ref (fun pps (x : MLast.expr) ->
Format.fprintf pps "<unrecognized expr>") ;
value ref_pp_case_branch = ref (fun pps (x : MLast.case_branch) ->
Format.fprintf pps "<unrecognized case_branch>") ;
value ref_pp_module_type = ref (fun pps (x : MLast.module_type) ->
Format.fprintf pps "<unrecognized module_type>") ;
value ref_pp_functor_parameter = ref (fun pps (x : MLast.functor_parameter) ->
Format.fprintf pps "<unrecognized functor_parameter>") ;
value ref_pp_sig_item = ref (fun pps (x : MLast.sig_item) ->
Format.fprintf pps "<unrecognized sig_item>") ;
value ref_pp_with_constr = ref (fun pps (x : MLast.with_constr) ->
Format.fprintf pps "<unrecognized with_constr>") ;
value ref_pp_module_expr = ref (fun pps (x : MLast.module_expr) ->
Format.fprintf pps "<unrecognized module_expr>") ;
value ref_pp_str_item = ref (fun pps (x : MLast.str_item) ->
Format.fprintf pps "<unrecognized str_item>") ;
value ref_pp_type_decl = ref (fun pps (x : MLast.type_decl) ->
Format.fprintf pps "<unrecognized type_decl>") ;
value ref_pp_generic_constructor = ref (fun pps (x : MLast.generic_constructor) ->
Format.fprintf pps "<unrecognized generic_constructor>") ;
value ref_pp_extension_constructor = ref (fun pps (x : MLast.extension_constructor) ->
Format.fprintf pps "<unrecognized extension_constructor>") ;
value ref_pp_type_extension = ref (fun pps (x : MLast.type_extension) ->
Format.fprintf pps "<unrecognized type_extension>") ;
value ref_pp_class_type = ref (fun pps (x : MLast.class_type) ->
Format.fprintf pps "<unrecognized class_type>") ;
value ref_pp_class_sig_item = ref (fun pps (x : MLast.class_sig_item) ->
Format.fprintf pps "<unrecognized class_sig_item>") ;
value ref_pp_class_expr = ref (fun pps (x : MLast.class_expr) ->
Format.fprintf pps "<unrecognized class_expr>") ;
value ref_pp_class_str_item = ref (fun pps (x : MLast.class_str_item) ->
Format.fprintf pps "<unrecognized class_str_item>") ;
value ref_pp_longid_lident = ref (fun pps (x : MLast.longid_lident) ->
Format.fprintf pps "<unrecognized longid_lident>") ;
value ref_pp_payload = ref (fun pps (x : MLast.payload) ->
Format.fprintf pps "<unrecognized payload>") ;
value ref_pp_attribute_body = ref (fun pps (x : MLast.attribute_body) ->
Format.fprintf pps "<unrecognized attribute_body>") ;
value ref_pp_attribute = ref (fun pps (x : MLast.attribute) ->
Format.fprintf pps "<unrecognized attribute>") ;
value ref_pp_attributes_no_anti = ref (fun pps (x : MLast.attributes_no_anti) ->
Format.fprintf pps "<unrecognized attributes_no_anti>") ;
value ref_pp_attributes = ref (fun pps (x : MLast.attributes) ->
Format.fprintf pps "<unrecognized attributes>") ;
value pp_loc x = ref_pp_loc.val x ;
value pp_type_var x = ref_pp_type_var.val x ;
value pp_longid x = ref_pp_longid.val x ;
value pp_ctyp x = ref_pp_ctyp.val x ;
value pp_poly_variant x = ref_pp_poly_variant.val x ;
value pp_patt x = ref_pp_patt.val x ;
value pp_expr x = ref_pp_expr.val x ;
value pp_case_branch x = ref_pp_case_branch.val x ;
value pp_module_type x = ref_pp_module_type.val x ;
value pp_functor_parameter x = ref_pp_functor_parameter.val x ;
value pp_sig_item x = ref_pp_sig_item.val x ;
value pp_with_constr x = ref_pp_with_constr.val x ;
value pp_module_expr x = ref_pp_module_expr.val x ;
value pp_str_item x = ref_pp_str_item.val x ;
value pp_type_decl x = ref_pp_type_decl.val x ;
value pp_generic_constructor x = ref_pp_generic_constructor.val x ;
value pp_extension_constructor x = ref_pp_extension_constructor.val x ;
value pp_type_extension x = ref_pp_type_extension.val x ;
value pp_class_type x = ref_pp_class_type.val x ;
value pp_class_sig_item x = ref_pp_class_sig_item.val x ;
value pp_class_expr x = ref_pp_class_expr.val x ;
value pp_class_str_item x = ref_pp_class_str_item.val x ;
value pp_longid_lident x = ref_pp_longid_lident.val x ;
value pp_payload x = ref_pp_payload.val x ;
value pp_attribute_body x = ref_pp_attribute_body.val x ;
value pp_attribute x = ref_pp_attribute.val x ;
value pp_attributes_no_anti x = ref_pp_attributes_no_anti.val x ;
value pp_attributes x = ref_pp_attributes.val x ;
value show_fun ppf x = Format.asprintf "%a" ppf x ;
value show_loc x = show_fun pp_loc x ;
value show_type_var x = show_fun pp_type_var x ;
value show_longid x = show_fun pp_longid x ;
value show_ctyp x = show_fun pp_ctyp x ;
value show_poly_variant x = show_fun pp_poly_variant x ;
value show_patt x = show_fun pp_patt x ;
value show_expr x = show_fun pp_expr x ;
value show_case_branch x = show_fun pp_case_branch x ;
value show_module_type x = show_fun pp_module_type x ;
value show_functor_parameter x = show_fun pp_functor_parameter x ;
value show_sig_item x = show_fun pp_sig_item x ;
value show_with_constr x = show_fun pp_with_constr x ;
value show_module_expr x = show_fun pp_module_expr x ;
value show_str_item x = show_fun pp_str_item x ;
value show_type_decl x = show_fun pp_type_decl x ;
value show_generic_constructor x = show_fun pp_generic_constructor x ;
value show_extension_constructor x = show_fun pp_extension_constructor x ;
value show_type_extension x = show_fun pp_type_extension x ;
value show_class_type x = show_fun pp_class_type x ;
value show_class_sig_item x = show_fun pp_class_sig_item x ;
value show_class_expr x = show_fun pp_class_expr x ;
value show_class_str_item x = show_fun pp_class_str_item x ;
value show_longid_lident x = show_fun pp_longid_lident x ;
value show_payload x = show_fun pp_payload x ;
value show_attribute_body x = show_fun pp_attribute_body x ;
value show_attribute x = show_fun pp_attribute x ;
value show_attributes_no_anti x = show_fun pp_attributes_no_anti x ;
value show_attributes x = show_fun pp_attributes x ;
end;
module Pp_outcometree = struct
value ref_pp_out_sig_item = ref (fun pps (x : Outcometree.out_sig_item) ->
Format.fprintf pps "<unrecognized out_sig_item>") ;
value pp_out_sig_item x = ref_pp_out_sig_item.val x ;
value show_out_sig_item x = Pp_MLast.show_fun pp_out_sig_item x ;
end ;
|
