1a45a8aa0c8d8a226451df3bc9e67eb3bcb5952b
1 (* Function table management *)
3 type pos
= { current_element
: string;
13 | Type
of Ast_c.fullType
14 | Init
of Ast_c.initialiser
16 | Param
of Ast_c.parameterType
17 | ParamList
of Ast_c.parameterType
Ast_c.wrap2 list
18 | Expr
of Ast_c.expression
19 | ExprList
of Ast_c.argument
Ast_c.wrap2 list
20 | Decl
of Ast_c.declaration
21 | Field
of Ast_c.field
22 | FieldList
of Ast_c.field list
23 | Stmt
of Ast_c.statement
25 let fcts : (string, param_type list
-> string ref list
-> unit) Hashtbl.t
=
26 Hashtbl.create
11 (* Use prime number *)
28 (* ---------------------------------------------------------------------- *)
29 (* Match management *)
31 let inc_match = ref true
32 let include_match x
= inc_match := x
33 let dir () = !Flag.dir