82 lines
3.8 KiB
OCaml
82 lines
3.8 KiB
OCaml
open Trace
|
|
open Ast_simplified
|
|
|
|
module Raw = Parser.Pascaligo.AST
|
|
module SMap = Map.String
|
|
|
|
(*
|
|
val nseq_to_list : 'a * 'a list -> 'a list
|
|
val npseq_to_list : 'a * ( 'b * 'a ) list -> 'a list
|
|
*)
|
|
val npseq_to_nelist : 'a * ( 'b * 'c ) list -> 'a * 'c list
|
|
(*
|
|
val pseq_to_list : ('a * ('b * 'a) list) option -> 'a list
|
|
val get_value : 'a Raw.reg -> 'a
|
|
*)
|
|
|
|
module Errors : sig
|
|
(*
|
|
val unsupported_cst_constr : Raw.pattern -> unit -> error
|
|
val unsupported_ass_None : Raw.wild -> unit -> error
|
|
val unsupported_entry_decl : 'a Raw.reg -> unit -> error
|
|
val unsupported_proc_decl : 'a Raw.reg -> unit -> error
|
|
*)
|
|
val bad_bytes : Location.t -> string -> unit -> error
|
|
(*
|
|
val unsupported_local_proc : Raw.wild -> unit -> error
|
|
val corner_case : loc:string -> string -> unit -> error
|
|
val unknown_predefined_type : string Raw.reg -> unit -> error
|
|
*)
|
|
val unsupported_arith_op : Raw.expr -> unit -> error
|
|
(*
|
|
val unsupported_set_expr : Raw.expr -> unit -> error
|
|
*)
|
|
val unsupported_proc_calls : 'a Raw.reg -> unit -> error
|
|
(*
|
|
val unsupported_for_loops : Raw.wild -> unit -> error
|
|
val unsupported_deep_map_assign : 'a Raw.reg -> unit -> error
|
|
val unsupported_empty_record_patch : 'a Raw.reg -> unit -> error
|
|
val unsupported_map_patches : 'a Raw.reg -> unit -> error
|
|
val unsupported_set_patches : 'a Raw.reg -> unit -> error
|
|
val unsupported_deep_map_rm : 'a Raw.reg -> unit -> error
|
|
val unsupported_set_removal : 'a Raw.reg -> unit -> error
|
|
val unsupported_non_var_pattern : Raw.pattern -> unit -> error
|
|
val only_constructors : Raw.pattern -> unit -> error
|
|
val unsupported_tuple_pattern : Raw.pattern -> unit -> error
|
|
val unsupported_deep_Some_patterns : Raw.pattern -> unit -> error
|
|
val unsupported_deep_list_patterns : 'a Raw.reg -> unit -> error
|
|
val unsupported_sub_blocks : 'a Raw.reg -> unit -> error
|
|
val simplifying_instruction : Raw.instruction -> unit -> error
|
|
*)
|
|
end
|
|
|
|
(*
|
|
val r_split : 'a Raw.reg -> 'a * Location.t
|
|
val return : expr -> ( expr option -> expr result ) result
|
|
val return_let_in : ?loc:Location.t -> string * type_expression option -> expr -> ( expr option -> expr result ) result
|
|
val simpl_type_expression : Raw.type_expr -> type_expression result
|
|
val simpl_list_type_expression : Raw.type_expr list -> type_expression result
|
|
*)
|
|
val simpl_expression : Raw.expr -> expr result
|
|
(*
|
|
val simpl_logic_expression : Raw.logic_expr -> expression result
|
|
val simpl_list_expression : Raw.list_expr -> expression result
|
|
val simpl_set_expression : Raw.set_expr -> expression result
|
|
val simpl_binop : string -> Raw.wild Raw.bin_op Region.reg -> expression result
|
|
val simpl_unop : string -> Raw.wild Raw.un_op Region.reg -> expression result
|
|
val simpl_tuple_expression : ?loc:Location.t -> Raw.expr list -> expression result
|
|
val simpl_local_declaration : Raw.local_decl -> ( expr option -> expr result) result
|
|
val simpl_data_declaration : Raw.data_decl -> ( expr option -> expr result ) result
|
|
val simpl_param : Raw.param_decl -> (type_name * type_expression) result
|
|
val simpl_fun_declaration : loc:Location.t -> Raw.fun_decl -> ((name * type_expression option) * expression) result
|
|
val simpl_declaration : Raw.declaration -> declaration Location.wrap result
|
|
val simpl_single_instruction : Raw.single_instr -> (expression option -> expression result) result
|
|
val simpl_path : Raw.path -> string * Ast_simplified.access_path
|
|
val simpl_cases : (Raw.pattern * 'a) list -> 'a matching result
|
|
val simpl_instruction_block : Raw.instruction -> (expression option -> expression result) result
|
|
val simpl_instruction : Raw.instruction -> (expression option -> expression result) result
|
|
val simpl_statements : Raw.statements -> (expression option -> expression result) result
|
|
val simpl_block : Raw.block -> (expression option -> expression result) result
|
|
*)
|
|
val simpl_program : Raw.ast -> program result
|