balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tmp, compiles

Browse Source
This commit is contained in:
Your Name 2019-03-04 13:18:55 +01:00
parent 0cb43cff8b
commit 26eafdf87e
1 changed files with 47 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
AST.ml
View File

@ -460,38 +460,55 @@ let core_pattern_to_region = function
(* Printing the tokens with their source regions *) (* Printing the tokens with their source regions *)
type xyz = type xyz =
< asgnmnt_instr : asgnmnt_instr -> unit; < asgnmnt_instr : asgnmnt_instr -> unit;
bind_to : (region * variable) option -> unit; block : block reg -> unit; bind_to : (region * variable) option -> unit;
bytes : (string * MBytes.t) reg -> unit; cartesian : cartesian -> unit; block : block reg -> unit;
case : case -> unit; cases : cases -> unit; bytes : (string * MBytes.t) reg -> unit;
conditional : conditional -> unit; constr : constr -> unit; cartesian : cartesian -> unit;
constr_app : constr_app -> unit; core_pattern : core_pattern -> unit; case : case -> unit;
down : region option -> unit; empty_list : empty_list -> unit; cases : cases -> unit;
empty_set : empty_set -> unit; expr : expr -> unit; conditional : conditional -> unit;
field_decl : field_decl -> unit; field_decls : field_decls -> unit; constr : constr -> unit;
for_collect : for_collect reg -> unit; for_int : for_int reg -> unit; constr_app : constr_app -> unit;
for_loop : for_loop -> unit; fun_call : fun_call -> unit; core_pattern : core_pattern -> unit;
fun_decl : fun_decl reg -> unit; instruction : instruction -> unit; down : region option -> unit;
instructions : instructions -> unit; int : (string * Z.t) reg -> unit; empty_list : empty_list -> unit;
empty_set : empty_set -> unit;
expr : expr -> unit;
field_decl : field_decl -> unit;
field_decls : field_decls -> unit;
for_collect : for_collect reg -> unit;
for_int : for_int reg -> unit;
for_loop : for_loop -> unit;
fun_call : fun_call -> unit;
fun_decl : fun_decl reg -> unit;
instruction : instruction -> unit;
instructions : instructions -> unit;
int : (string * Z.t) reg -> unit;
lambda_decl : lambda_decl -> unit; lambda_decl : lambda_decl -> unit;
list : (expr, region) nsepseq brackets -> unit; list : (expr, region) nsepseq brackets -> unit;
list_pattern : list_pattern -> unit; loop : loop -> unit; list_pattern : list_pattern -> unit;
map_lookup : map_lookup reg -> unit; match_instr : match_instr -> unit; loop : loop -> unit;
map_lookup : map_lookup reg -> unit;
match_instr : match_instr -> unit;
none_expr : none_expr -> unit; none_expr : none_expr -> unit;
nsepseq : 'a. string -> ('a -> unit) -> 'a * (region * 'a) list -> unit; nsepseq : 'a. string -> ('a -> unit) -> 'a * (region * 'a) list -> unit;
operations_decl : (region * type_expr) reg -> unit; operations_decl : (region * type_expr) reg -> unit;
par_expr : expr par -> unit; par_type : type_expr par -> unit; par_expr : expr par -> unit;
par_type : type_expr par -> unit;
param_decl : param_decl -> unit; param_decl : param_decl -> unit;
parameter_decl : (region * variable * region * type_expr) reg -> unit; parameter_decl : (region * variable * region * type_expr) reg -> unit;
parameters : parameters -> unit; pattern : pattern -> unit; parameters : parameters -> unit;
patterns : core_pattern par -> unit; proc_decl : proc_decl reg -> unit; pattern : pattern -> unit;
patterns : core_pattern par -> unit;
proc_decl : proc_decl reg -> unit;
psome : (region * core_pattern par) reg -> unit; psome : (region * core_pattern par) reg -> unit;
ptuple : (core_pattern, region) nsepseq par -> unit; ptuple : (core_pattern, region) nsepseq par -> unit;
raw : (core_pattern * region * pattern) par -> unit; raw : (core_pattern * region * pattern) par -> unit;
record_type : record_type -> unit; record_type : record_type -> unit;
sepseq : 'a. sepseq : 'a.
string -> string ->
('a -> unit) -> ('a * (region * 'a) list) option -> unit; ('a -> unit) -> ('a * (region * 'a) list) option -> unit;
set : (expr, region) nsepseq braces -> unit; set : (expr, region) nsepseq braces -> unit;
single_instr : single_instr -> unit; single_instr : single_instr -> unit;
some_app : (region * arguments) reg -> unit; some_app : (region * arguments) reg -> unit;
@ -501,12 +518,17 @@ type xyz =
sugar : (core_pattern, region) sepseq brackets -> unit; sugar : (core_pattern, region) sepseq brackets -> unit;
sum_type : (variant, region) nsepseq reg -> unit; sum_type : (variant, region) nsepseq reg -> unit;
token : region -> string -> unit; token : region -> string -> unit;
tuple : arguments -> unit; type_app : (type_name * type_tuple) reg -> unit; tuple : arguments -> unit;
type_app : (type_name * type_tuple) reg -> unit;
type_decl : (region * variable * region * type_expr) reg -> unit; type_decl : (region * variable * region * type_expr) reg -> unit;
type_expr : type_expr -> unit; type_tuple : type_tuple -> unit; type_expr : type_expr -> unit;
value_decls : value_decls -> unit; var : variable -> unit; type_tuple : type_tuple -> unit;
var_decl : var_decl reg -> unit; var_kind : var_kind -> unit; value_decls : value_decls -> unit;
variant : variant -> unit; while_loop : while_loop -> unit > ;; var : variable -> unit;
var_decl : var_decl reg -> unit;
var_kind : var_kind -> unit;
variant : variant -> unit;
while_loop : while_loop -> unit >
let printf = Printf.printf let printf = Printf.printf