Add .mli for SAST pretty printer with minimal comments
This commit is contained in:
parent
fcfbbcb9c1
commit
0207d1f88f
33
src/stages/ast_simplified/PP.mli
Normal file
33
src/stages/ast_simplified/PP.mli
Normal file
@ -0,0 +1,33 @@
|
|||||||
|
(** Pretty printer for the Simplified Abstract Syntax Tree *)
|
||||||
|
|
||||||
|
open Types
|
||||||
|
|
||||||
|
val type_expression : Format.formatter -> type_expression -> unit
|
||||||
|
|
||||||
|
val literal : Format.formatter -> literal -> unit
|
||||||
|
|
||||||
|
val expression : Format.formatter -> expression -> unit
|
||||||
|
|
||||||
|
val option_type_name : Format.formatter -> string * type_expression option -> unit
|
||||||
|
|
||||||
|
val assoc_expression : Format.formatter -> (expr * expr) -> unit
|
||||||
|
|
||||||
|
val access : Format.formatter -> access -> unit
|
||||||
|
|
||||||
|
val access_path : Format.formatter -> access_path -> unit
|
||||||
|
|
||||||
|
val type_annotation : Format.formatter -> type_expression option -> unit
|
||||||
|
|
||||||
|
val single_record_patch : Format.formatter -> string * expr -> unit
|
||||||
|
|
||||||
|
val single_tuple_patch : Format.formatter -> int * expr -> unit
|
||||||
|
|
||||||
|
(* Shows the type expected for the matched value *)
|
||||||
|
val matching_type : Format.formatter -> 'a matching -> unit
|
||||||
|
|
||||||
|
val matching_variant_case_type : Format.formatter -> (string * string) * 'a -> unit
|
||||||
|
|
||||||
|
val declaration : Format.formatter -> declaration -> unit
|
||||||
|
|
||||||
|
(** Pretty print a full program AST *)
|
||||||
|
val program : Format.formatter -> program -> unit
|
Loading…
Reference in New Issue
Block a user