Module `Ppxlib`

Standard library for ppx rewriters

Make sure code using Ppxlib doesn't refer to compiler-libs without being explicit about it

include module type of struct include Ocaml_shadow end
  with module Ast_helper := Ocaml_shadow.Ast_helper
  with module Asttypes := Ocaml_shadow.Asttypes
  with module Docstrings := Ocaml_shadow.Docstrings
  with module Identifiable := Ocaml_shadow.Identifiable
  with module Lexer := Ocaml_shadow.Lexer
  with module Location := Ocaml_shadow.Location
  with module Longident := Ocaml_shadow.Longident
  with module Parse := Ocaml_shadow.Parse
  with module Parser := Ocaml_shadow.Parser
  with module Parsetree := Ocaml_shadow.Parsetree
  with module Pprintast := Ocaml_shadow.Pprintast
  with module Syntaxerr := Ocaml_shadow.Syntaxerr

module Do_not_use_directly = Ocaml_shadow.Do_not_use_directly

module Afl_instrument = Ocaml_shadow.Afl_instrument

module Alias_analysis = Ocaml_shadow.Alias_analysis

module Allocated_const = Ocaml_shadow.Allocated_const

module Annot = Ocaml_shadow.Annot

module Arch = Ocaml_shadow.Arch

module Arg_helper = Ocaml_shadow.Arg_helper

module Asmgen = Ocaml_shadow.Asmgen

module Asmlibrarian = Ocaml_shadow.Asmlibrarian

module Asmlink = Ocaml_shadow.Asmlink

module Asmpackager = Ocaml_shadow.Asmpackager

module Ast_invariants = Ocaml_shadow.Ast_invariants

module Ast_iterator = Ocaml_shadow.Ast_iterator

module Ast_mapper = Ocaml_shadow.Ast_mapper

module Attr_helper = Ocaml_shadow.Attr_helper

module Augment_specialised_args = Ocaml_shadow.Augment_specialised_args

module Available_regs = Ocaml_shadow.Available_regs

module Backend_intf = Ocaml_shadow.Backend_intf

module Backend_var = Ocaml_shadow.Backend_var

module Branch_relaxation = Ocaml_shadow.Branch_relaxation

module Branch_relaxation_intf = Ocaml_shadow.Branch_relaxation_intf

module Btype = Ocaml_shadow.Btype

module Build_export_info = Ocaml_shadow.Build_export_info

module Build_path_prefix_map = Ocaml_shadow.Build_path_prefix_map

module Builtin_attributes = Ocaml_shadow.Builtin_attributes

module Bytegen = Ocaml_shadow.Bytegen

module Bytelibrarian = Ocaml_shadow.Bytelibrarian

module Bytelink = Ocaml_shadow.Bytelink

module Bytepackager = Ocaml_shadow.Bytepackager

module Bytesections = Ocaml_shadow.Bytesections

module CSE = Ocaml_shadow.CSE

module CSEgen = Ocaml_shadow.CSEgen

module CamlinternalMenhirLib = Ocaml_shadow.CamlinternalMenhirLib

module Ccomp = Ocaml_shadow.Ccomp

module Clambda = Ocaml_shadow.Clambda

module Clambda_primitives = Ocaml_shadow.Clambda_primitives

module Clflags = Ocaml_shadow.Clflags

module Closure = Ocaml_shadow.Closure

module Closure_conversion = Ocaml_shadow.Closure_conversion

module Closure_conversion_aux = Ocaml_shadow.Closure_conversion_aux

module Closure_element = Ocaml_shadow.Closure_element

module Closure_id = Ocaml_shadow.Closure_id

module Closure_offsets = Ocaml_shadow.Closure_offsets

module Closure_origin = Ocaml_shadow.Closure_origin

module Cmi_format = Ocaml_shadow.Cmi_format

module Cmm = Ocaml_shadow.Cmm

module Cmmgen = Ocaml_shadow.Cmmgen

module Cmmgen_state = Ocaml_shadow.Cmmgen_state

module Cmo_format = Ocaml_shadow.Cmo_format

module Cmt_format = Ocaml_shadow.Cmt_format

module Cmx_format = Ocaml_shadow.Cmx_format

module Cmxs_format = Ocaml_shadow.Cmxs_format

module Coloring = Ocaml_shadow.Coloring

module Comballoc = Ocaml_shadow.Comballoc

module Compenv = Ocaml_shadow.Compenv

module Compilation_unit = Ocaml_shadow.Compilation_unit

module Compile = Ocaml_shadow.Compile

module Compile_common = Ocaml_shadow.Compile_common

module Compilenv = Ocaml_shadow.Compilenv

module Compmisc = Ocaml_shadow.Compmisc

module Compute_ranges = Ocaml_shadow.Compute_ranges

module Compute_ranges_intf = Ocaml_shadow.Compute_ranges_intf

module Config = Ocaml_shadow.Config

module Consistbl = Ocaml_shadow.Consistbl

module Convert_primitives = Ocaml_shadow.Convert_primitives

module Ctype = Ocaml_shadow.Ctype

module Datarepr = Ocaml_shadow.Datarepr

module Deadcode = Ocaml_shadow.Deadcode

module Debuginfo = Ocaml_shadow.Debuginfo

module Depend = Ocaml_shadow.Depend

module Dll = Ocaml_shadow.Dll

module Effect_analysis = Ocaml_shadow.Effect_analysis

module Emit = Ocaml_shadow.Emit

module Emitaux = Ocaml_shadow.Emitaux

module Emitcode = Ocaml_shadow.Emitcode

module Env = Ocaml_shadow.Env

module Envaux = Ocaml_shadow.Envaux

module Errors = Ocaml_shadow.Errors

module Export_id = Ocaml_shadow.Export_id

module Export_info = Ocaml_shadow.Export_info

module Export_info_for_pack = Ocaml_shadow.Export_info_for_pack

module Expunge = Ocaml_shadow.Expunge

module Extract_projections = Ocaml_shadow.Extract_projections

module Find_recursive_functions = Ocaml_shadow.Find_recursive_functions

module Flambda = Ocaml_shadow.Flambda

module Flambda_invariants = Ocaml_shadow.Flambda_invariants

module Flambda_iterators = Ocaml_shadow.Flambda_iterators

module Flambda_middle_end = Ocaml_shadow.Flambda_middle_end

module Flambda_to_clambda = Ocaml_shadow.Flambda_to_clambda

module Flambda_utils = Ocaml_shadow.Flambda_utils

module Freshening = Ocaml_shadow.Freshening

module Genprintval = Ocaml_shadow.Genprintval

module Id_types = Ocaml_shadow.Id_types

module Ident = Ocaml_shadow.Ident

module Import_approx = Ocaml_shadow.Import_approx

module Includeclass = Ocaml_shadow.Includeclass

module Includecore = Ocaml_shadow.Includecore

module Includemod = Ocaml_shadow.Includemod

module Inconstant_idents = Ocaml_shadow.Inconstant_idents

module Initialize_symbol_to_let_symbol =
  Ocaml_shadow.Initialize_symbol_to_let_symbol

module Inline_and_simplify = Ocaml_shadow.Inline_and_simplify

module Inline_and_simplify_aux = Ocaml_shadow.Inline_and_simplify_aux

module Inlining_cost = Ocaml_shadow.Inlining_cost

module Inlining_decision = Ocaml_shadow.Inlining_decision

module Inlining_decision_intf = Ocaml_shadow.Inlining_decision_intf

module Inlining_stats = Ocaml_shadow.Inlining_stats

module Inlining_stats_types = Ocaml_shadow.Inlining_stats_types

module Inlining_transforms = Ocaml_shadow.Inlining_transforms

module Instruct = Ocaml_shadow.Instruct

module Int_replace_polymorphic_compare =
  Ocaml_shadow.Int_replace_polymorphic_compare

module Interf = Ocaml_shadow.Interf

module Internal_variable_names = Ocaml_shadow.Internal_variable_names

module Interval = Ocaml_shadow.Interval

module Invariant_params = Ocaml_shadow.Invariant_params

module Lambda = Ocaml_shadow.Lambda

module Lift_code = Ocaml_shadow.Lift_code

module Lift_constants = Ocaml_shadow.Lift_constants

module Lift_let_to_initialize_symbol =
  Ocaml_shadow.Lift_let_to_initialize_symbol

module Linearize = Ocaml_shadow.Linearize

module Linkage_name = Ocaml_shadow.Linkage_name

module Linscan = Ocaml_shadow.Linscan

module Liveness = Ocaml_shadow.Liveness

module Load_path = Ocaml_shadow.Load_path

module Mach = Ocaml_shadow.Mach

module Main = Ocaml_shadow.Main

module Main_args = Ocaml_shadow.Main_args

module Makedepend = Ocaml_shadow.Makedepend

module Matching = Ocaml_shadow.Matching

module Meta = Ocaml_shadow.Meta

module Misc = Ocaml_shadow.Misc

module Mtype = Ocaml_shadow.Mtype

module Mutable_variable = Ocaml_shadow.Mutable_variable

module Numbers = Ocaml_shadow.Numbers

module Opcodes = Ocaml_shadow.Opcodes

module Oprint = Ocaml_shadow.Oprint

module Optcompile = Ocaml_shadow.Optcompile

module Opterrors = Ocaml_shadow.Opterrors

module Optmain = Ocaml_shadow.Optmain

module Outcometree = Ocaml_shadow.Outcometree

module Parameter = Ocaml_shadow.Parameter

module Parmatch = Ocaml_shadow.Parmatch

module Pass_wrapper = Ocaml_shadow.Pass_wrapper

module Path = Ocaml_shadow.Path

module Persistent_env = Ocaml_shadow.Persistent_env

module Pparse = Ocaml_shadow.Pparse

module Predef = Ocaml_shadow.Predef

module Primitive = Ocaml_shadow.Primitive

module Printast = Ocaml_shadow.Printast

module Printclambda = Ocaml_shadow.Printclambda

module Printclambda_primitives = Ocaml_shadow.Printclambda_primitives

module Printcmm = Ocaml_shadow.Printcmm

module Printinstr = Ocaml_shadow.Printinstr

module Printlambda = Ocaml_shadow.Printlambda

module Printlinear = Ocaml_shadow.Printlinear

module Printmach = Ocaml_shadow.Printmach

module Printpat = Ocaml_shadow.Printpat

module Printtyp = Ocaml_shadow.Printtyp

module Printtyped = Ocaml_shadow.Printtyped

module Proc = Ocaml_shadow.Proc

module Profile = Ocaml_shadow.Profile

module Projection = Ocaml_shadow.Projection

module Rec_check = Ocaml_shadow.Rec_check

module Ref_to_variables = Ocaml_shadow.Ref_to_variables

module Reg = Ocaml_shadow.Reg

module Reg_availability_set = Ocaml_shadow.Reg_availability_set

module Reg_with_debug_info = Ocaml_shadow.Reg_with_debug_info

module Reload = Ocaml_shadow.Reload

module Reloadgen = Ocaml_shadow.Reloadgen

module Remove_free_vars_equal_to_args =
  Ocaml_shadow.Remove_free_vars_equal_to_args

module Remove_unused_arguments = Ocaml_shadow.Remove_unused_arguments

module Remove_unused_closure_vars = Ocaml_shadow.Remove_unused_closure_vars

module Remove_unused_program_constructs =
  Ocaml_shadow.Remove_unused_program_constructs

module Runtimedef = Ocaml_shadow.Runtimedef

module Schedgen = Ocaml_shadow.Schedgen

module Scheduling = Ocaml_shadow.Scheduling

module Selectgen = Ocaml_shadow.Selectgen

module Selection = Ocaml_shadow.Selection

module Semantics_of_primitives = Ocaml_shadow.Semantics_of_primitives

module Set_of_closures_id = Ocaml_shadow.Set_of_closures_id

module Set_of_closures_origin = Ocaml_shadow.Set_of_closures_origin

module Share_constants = Ocaml_shadow.Share_constants

module Simple_value_approx = Ocaml_shadow.Simple_value_approx

module Simplif = Ocaml_shadow.Simplif

module Simplify_boxed_integer_ops = Ocaml_shadow.Simplify_boxed_integer_ops

module Simplify_boxed_integer_ops_intf =
  Ocaml_shadow.Simplify_boxed_integer_ops_intf

module Simplify_common = Ocaml_shadow.Simplify_common

module Simplify_primitives = Ocaml_shadow.Simplify_primitives

module Spacetime_profiling = Ocaml_shadow.Spacetime_profiling

module Spill = Ocaml_shadow.Spill

module Split = Ocaml_shadow.Split

module Static_exception = Ocaml_shadow.Static_exception

module Strmatch = Ocaml_shadow.Strmatch

module Strongly_connected_components =
  Ocaml_shadow.Strongly_connected_components

module Stypes = Ocaml_shadow.Stypes

module Subst = Ocaml_shadow.Subst

module Switch = Ocaml_shadow.Switch

module Symbol = Ocaml_shadow.Symbol

module Symtable = Ocaml_shadow.Symtable

module Tag = Ocaml_shadow.Tag

module Targetint = Ocaml_shadow.Targetint

module Tast_iterator = Ocaml_shadow.Tast_iterator

module Tast_mapper = Ocaml_shadow.Tast_mapper

module Terminfo = Ocaml_shadow.Terminfo

module Topdirs = Ocaml_shadow.Topdirs

module Toploop = Ocaml_shadow.Toploop

module Topmain = Ocaml_shadow.Topmain

module Topstart = Ocaml_shadow.Topstart

module Trace = Ocaml_shadow.Trace

module Translattribute = Ocaml_shadow.Translattribute

module Translclass = Ocaml_shadow.Translclass

module Translcore = Ocaml_shadow.Translcore

module Translmod = Ocaml_shadow.Translmod

module Translobj = Ocaml_shadow.Translobj

module Translprim = Ocaml_shadow.Translprim

module Traverse_for_exported_symbols =
  Ocaml_shadow.Traverse_for_exported_symbols

module Typeclass = Ocaml_shadow.Typeclass

module Typecore = Ocaml_shadow.Typecore

module Typedecl = Ocaml_shadow.Typedecl

module Typedecl_immediacy = Ocaml_shadow.Typedecl_immediacy

module Typedecl_properties = Ocaml_shadow.Typedecl_properties

module Typedecl_unboxed = Ocaml_shadow.Typedecl_unboxed

module Typedecl_variance = Ocaml_shadow.Typedecl_variance

module Typedtree = Ocaml_shadow.Typedtree

module Typemod = Ocaml_shadow.Typemod

module Typeopt = Ocaml_shadow.Typeopt

module Types = Ocaml_shadow.Types

module Typetexp = Ocaml_shadow.Typetexp

module Un_anf = Ocaml_shadow.Un_anf

module Unbox_closures = Ocaml_shadow.Unbox_closures

module Unbox_free_vars_of_closures = Ocaml_shadow.Unbox_free_vars_of_closures

module Unbox_specialised_args = Ocaml_shadow.Unbox_specialised_args

module Untypeast = Ocaml_shadow.Untypeast

module Var_within_closure = Ocaml_shadow.Var_within_closure

module Variable = Ocaml_shadow.Variable

module Warnings = Ocaml_shadow.Warnings

module X86_ast = Ocaml_shadow.X86_ast

module X86_dsl = Ocaml_shadow.X86_dsl

module X86_gas = Ocaml_shadow.X86_gas

module X86_masm = Ocaml_shadow.X86_masm

module X86_proc = Ocaml_shadow.X86_proc

Includes the overrides from Ppxlib_ast, as well as all the Ast definitions since we need them in every single ppx

include module type of struct include Ppxlib_ast end

module Ast = Ppxlib_ast.Ast

module Ast_helper = Ppxlib_ast.Ast_helper

module Ast_magic = Ppxlib_ast.Ast_magic

module Asttypes = Ppxlib_ast.Asttypes

module Docstrings = Ppxlib_ast.Docstrings

module Extra_warnings = Ppxlib_ast.Extra_warnings

module Lexer = Ppxlib_ast.Lexer

module Parse = Ppxlib_ast.Parse

module Parser = Ppxlib_ast.Parser

module Parsetree = Ppxlib_ast.Parsetree

module Pprintast = Ppxlib_ast.Pprintast

module Select_ast = Ppxlib_ast.Select_ast

module Selected_ast = Ppxlib_ast.Selected_ast

module Syntaxerr = Ppxlib_ast.Syntaxerr

module Import_for_core = Ppxlib_ast.Import_for_core

include module type of struct include Ast end

type position = Lexing.position = {

pos_fname : string;
pos_lnum : int;
pos_bol : int;
pos_cnum : int;

}

and location = Warnings.loc = {

loc_start : position;
loc_end : position;
loc_ghost : bool;

}

and location_stack = location list

and 'a loc = 'a Location.loc = {

txt : 'a;
loc : location;

}

and longident = Ppxlib_ast__.Import.Longident.t =

| Lident of string
| Ldot of longident * string
| Lapply of longident * longident

and longident_loc = longident loc

Auxiliary AST types used by parsetree and typedtree.

and rec_flag = Migrate_parsetree.Ast_408.Asttypes.rec_flag =

| Nonrecursive
| Recursive

and direction_flag = Migrate_parsetree.Ast_408.Asttypes.direction_flag =

| Upto
| Downto

and private_flag = Migrate_parsetree.Ast_408.Asttypes.private_flag =

| Private
| Public

and mutable_flag = Migrate_parsetree.Ast_408.Asttypes.mutable_flag =

| Immutable
| Mutable

and virtual_flag = Migrate_parsetree.Ast_408.Asttypes.virtual_flag =

| Virtual
| Concrete

and override_flag = Migrate_parsetree.Ast_408.Asttypes.override_flag =

| Override
| Fresh

and closed_flag = Migrate_parsetree.Ast_408.Asttypes.closed_flag =

| Closed
| Open

and label = string

and arg_label = Migrate_parsetree.Ast_408.Asttypes.arg_label =

| Nolabel
| Labelled of string
| Optional of string

and variance = Migrate_parsetree.Ast_408.Asttypes.variance =

| Covariant
| Contravariant
| Invariant

Abstract syntax tree produced by parsing

and constant = Migrate_parsetree.Ast_408.Parsetree.constant =

| Pconst_integer of string * char option
| Pconst_char of char
| Pconst_string of string * string option
| Pconst_float of string * char option

Extension points

and attribute = Migrate_parsetree.Ast_408.Parsetree.attribute = {

attr_name : string loc;
attr_payload : payload;
attr_loc : location;

}

and extension = string loc * payload

and attributes = attribute list

and payload = Migrate_parsetree.Ast_408.Parsetree.payload =

| PStr of structure
| PSig of signature
| PTyp of core_type
| PPat of pattern * expression option

Core language

and core_type = Migrate_parsetree.Ast_408.Parsetree.core_type = {

ptyp_desc : core_type_desc;
ptyp_loc : location;
ptyp_loc_stack : location_stack;
ptyp_attributes : attributes;

}

and core_type_desc = Migrate_parsetree.Ast_408.Parsetree.core_type_desc =

| Ptyp_any
| Ptyp_var of string
| Ptyp_arrow of arg_label * core_type * core_type
| Ptyp_tuple of core_type list
| Ptyp_constr of longident_loc * core_type list
| Ptyp_object of object_field list * closed_flag
| Ptyp_class of longident_loc * core_type list
| Ptyp_alias of core_type * string
| Ptyp_variant of row_field list * closed_flag * label list option
| Ptyp_poly of string loc list * core_type
| Ptyp_package of package_type
| Ptyp_extension of extension

and package_type = longident_loc * (longident_loc * core_type) list

and row_field = Migrate_parsetree.Ast_408.Parsetree.row_field = {

prf_desc : row_field_desc;
prf_loc : location;
prf_attributes : attributes;

}

and row_field_desc = Migrate_parsetree.Ast_408.Parsetree.row_field_desc =

| Rtag of label loc * bool * core_type list
| Rinherit of core_type

and object_field = Migrate_parsetree.Ast_408.Parsetree.object_field = {

pof_desc : object_field_desc;
pof_loc : location;
pof_attributes : attributes;

}

and object_field_desc = Migrate_parsetree.Ast_408.Parsetree.object_field_desc =

| Otag of label loc * core_type
| Oinherit of core_type

and pattern = Migrate_parsetree.Ast_408.Parsetree.pattern = {

ppat_desc : pattern_desc;
ppat_loc : location;
ppat_loc_stack : location_stack;
ppat_attributes : attributes;

}

and pattern_desc = Migrate_parsetree.Ast_408.Parsetree.pattern_desc =

| Ppat_any
| Ppat_var of string loc
| Ppat_alias of pattern * string loc
| Ppat_constant of constant
| Ppat_interval of constant * constant
| Ppat_tuple of pattern list
| Ppat_construct of longident_loc * pattern option
| Ppat_variant of label * pattern option
| Ppat_record of (longident_loc * pattern) list * closed_flag
| Ppat_array of pattern list
| Ppat_or of pattern * pattern
| Ppat_constraint of pattern * core_type
| Ppat_type of longident_loc
| Ppat_lazy of pattern
| Ppat_unpack of string loc
| Ppat_exception of pattern
| Ppat_extension of extension
| Ppat_open of longident_loc * pattern

and expression = Migrate_parsetree.Ast_408.Parsetree.expression = {

pexp_desc : expression_desc;
pexp_loc : location;
pexp_loc_stack : location_stack;
pexp_attributes : attributes;

}

and expression_desc = Migrate_parsetree.Ast_408.Parsetree.expression_desc =

| Pexp_ident of longident_loc
| Pexp_constant of constant
| Pexp_let of rec_flag * value_binding list * expression
| Pexp_function of case list
| Pexp_fun of arg_label * expression option * pattern * expression
| Pexp_apply of expression * (arg_label * expression) list
| Pexp_match of expression * case list
| Pexp_try of expression * case list
| Pexp_tuple of expression list
| Pexp_construct of longident_loc * expression option
| Pexp_variant of label * expression option
| Pexp_record of (longident_loc * expression) list * expression option
| Pexp_field of expression * longident_loc
| Pexp_setfield of expression * longident_loc * expression
| Pexp_array of expression list
| Pexp_ifthenelse of expression * expression * expression option
| Pexp_sequence of expression * expression
| Pexp_while of expression * expression
| Pexp_for of pattern * expression * expression * direction_flag * expression
| Pexp_constraint of expression * core_type
| Pexp_coerce of expression * core_type option * core_type
| Pexp_send of expression * label loc
| Pexp_new of longident_loc
| Pexp_setinstvar of label loc * expression
| Pexp_override of (label loc * expression) list
| Pexp_letmodule of string loc * module_expr * expression
| Pexp_letexception of extension_constructor * expression
| Pexp_assert of expression
| Pexp_lazy of expression
| Pexp_poly of expression * core_type option
| Pexp_object of class_structure
| Pexp_newtype of string loc * expression
| Pexp_pack of module_expr
| Pexp_open of open_declaration * expression
| Pexp_letop of letop
| Pexp_extension of extension
| Pexp_unreachable

and case = Migrate_parsetree.Ast_408.Parsetree.case = {

pc_lhs : pattern;
pc_guard : expression option;
pc_rhs : expression;

}

and letop = Migrate_parsetree.Ast_408.Parsetree.letop = {

let_ : binding_op;
ands : binding_op list;
body : expression;

}

and binding_op = Migrate_parsetree.Ast_408.Parsetree.binding_op = {

pbop_op : string loc;
pbop_pat : pattern;
pbop_exp : expression;
pbop_loc : location;

}

and value_description = Migrate_parsetree.Ast_408.Parsetree.value_description = {

pval_name : string loc;
pval_type : core_type;
pval_prim : string list;
pval_attributes : attributes;
pval_loc : location;

}

and type_declaration = Migrate_parsetree.Ast_408.Parsetree.type_declaration = {

ptype_name : string loc;
ptype_params : (core_type * variance) list;
ptype_cstrs : (core_type * core_type * location) list;
ptype_kind : type_kind;
ptype_private : private_flag;
ptype_manifest : core_type option;
ptype_attributes : attributes;
ptype_loc : location;

}

and type_kind = Migrate_parsetree.Ast_408.Parsetree.type_kind =

| Ptype_abstract
| Ptype_variant of constructor_declaration list
| Ptype_record of label_declaration list
| Ptype_open

and label_declaration = Migrate_parsetree.Ast_408.Parsetree.label_declaration = {

pld_name : string loc;
pld_mutable : mutable_flag;
pld_type : core_type;
pld_loc : location;
pld_attributes : attributes;

}

and constructor_declaration =
  Migrate_parsetree.Ast_408.Parsetree.constructor_declaration =
  {

pcd_name : string loc;
pcd_args : constructor_arguments;
pcd_res : core_type option;
pcd_loc : location;
pcd_attributes : attributes;

}

and constructor_arguments =
  Migrate_parsetree.Ast_408.Parsetree.constructor_arguments =

| Pcstr_tuple of core_type list
| Pcstr_record of label_declaration list

and type_extension = Migrate_parsetree.Ast_408.Parsetree.type_extension = {

ptyext_path : longident_loc;
ptyext_params : (core_type * variance) list;
ptyext_constructors : extension_constructor list;
ptyext_private : private_flag;
ptyext_loc : location;
ptyext_attributes : attributes;

}

and extension_constructor =
  Migrate_parsetree.Ast_408.Parsetree.extension_constructor =
  {

pext_name : string loc;
pext_kind : extension_constructor_kind;
pext_loc : location;
pext_attributes : attributes;

}

and type_exception = Migrate_parsetree.Ast_408.Parsetree.type_exception = {

ptyexn_constructor : extension_constructor;
ptyexn_loc : location;
ptyexn_attributes : attributes;

}

and extension_constructor_kind =
  Migrate_parsetree.Ast_408.Parsetree.extension_constructor_kind =

| Pext_decl of constructor_arguments * core_type option
| Pext_rebind of longident_loc

Class language

and class_type = Migrate_parsetree.Ast_408.Parsetree.class_type = {

pcty_desc : class_type_desc;
pcty_loc : location;
pcty_attributes : attributes;

}

and class_type_desc = Migrate_parsetree.Ast_408.Parsetree.class_type_desc =

| Pcty_constr of longident_loc * core_type list
| Pcty_signature of class_signature
| Pcty_arrow of arg_label * core_type * class_type
| Pcty_extension of extension
| Pcty_open of open_description * class_type

and class_signature = Migrate_parsetree.Ast_408.Parsetree.class_signature = {

pcsig_self : core_type;
pcsig_fields : class_type_field list;

}

and class_type_field = Migrate_parsetree.Ast_408.Parsetree.class_type_field = {

pctf_desc : class_type_field_desc;
pctf_loc : location;
pctf_attributes : attributes;

}

and class_type_field_desc =
  Migrate_parsetree.Ast_408.Parsetree.class_type_field_desc =

| Pctf_inherit of class_type
| Pctf_val of label loc * mutable_flag * virtual_flag * core_type
| Pctf_method of label loc * private_flag * virtual_flag * core_type
| Pctf_constraint of core_type * core_type
| Pctf_attribute of attribute
| Pctf_extension of extension

and 'a class_infos = 'a Migrate_parsetree.Ast_408.Parsetree.class_infos = {

pci_virt : virtual_flag;
pci_params : (core_type * variance) list;
pci_name : string loc;
pci_expr : 'a;
pci_loc : location;
pci_attributes : attributes;

}

and class_description = class_type class_infos

and class_type_declaration = class_type class_infos

and class_expr = Migrate_parsetree.Ast_408.Parsetree.class_expr = {

pcl_desc : class_expr_desc;
pcl_loc : location;
pcl_attributes : attributes;

}

and class_expr_desc = Migrate_parsetree.Ast_408.Parsetree.class_expr_desc =

| Pcl_constr of longident_loc * core_type list
| Pcl_structure of class_structure
| Pcl_fun of arg_label * expression option * pattern * class_expr
| Pcl_apply of class_expr * (arg_label * expression) list
| Pcl_let of rec_flag * value_binding list * class_expr
| Pcl_constraint of class_expr * class_type
| Pcl_extension of extension
| Pcl_open of open_description * class_expr

and class_structure = Migrate_parsetree.Ast_408.Parsetree.class_structure = {

pcstr_self : pattern;
pcstr_fields : class_field list;

}

and class_field = Migrate_parsetree.Ast_408.Parsetree.class_field = {

pcf_desc : class_field_desc;
pcf_loc : location;
pcf_attributes : attributes;

}

and class_field_desc = Migrate_parsetree.Ast_408.Parsetree.class_field_desc =

| Pcf_inherit of override_flag * class_expr * string loc option
| Pcf_val of label loc * mutable_flag * class_field_kind
| Pcf_method of label loc * private_flag * class_field_kind
| Pcf_constraint of core_type * core_type
| Pcf_initializer of expression
| Pcf_attribute of attribute
| Pcf_extension of extension

and class_field_kind = Migrate_parsetree.Ast_408.Parsetree.class_field_kind =

| Cfk_virtual of core_type
| Cfk_concrete of override_flag * expression

and class_declaration = class_expr class_infos

Module language

and module_type = Migrate_parsetree.Ast_408.Parsetree.module_type = {

pmty_desc : module_type_desc;
pmty_loc : location;
pmty_attributes : attributes;

}

and module_type_desc = Migrate_parsetree.Ast_408.Parsetree.module_type_desc =

| Pmty_ident of longident_loc
| Pmty_signature of signature
| Pmty_functor of string loc * module_type option * module_type
| Pmty_with of module_type * with_constraint list
| Pmty_typeof of module_expr
| Pmty_extension of extension
| Pmty_alias of longident_loc

and signature = signature_item list

and signature_item = Migrate_parsetree.Ast_408.Parsetree.signature_item = {

psig_desc : signature_item_desc;
psig_loc : location;

}

and signature_item_desc =
  Migrate_parsetree.Ast_408.Parsetree.signature_item_desc =

| Psig_value of value_description
| Psig_type of rec_flag * type_declaration list
| Psig_typesubst of type_declaration list
| Psig_typext of type_extension
| Psig_exception of type_exception
| Psig_module of module_declaration
| Psig_modsubst of module_substitution
| Psig_recmodule of module_declaration list
| Psig_modtype of module_type_declaration
| Psig_open of open_description
| Psig_include of include_description
| Psig_class of class_description list
| Psig_class_type of class_type_declaration list
| Psig_attribute of attribute
| Psig_extension of extension * attributes

and module_declaration = Migrate_parsetree.Ast_408.Parsetree.module_declaration =
  {

pmd_name : string loc;
pmd_type : module_type;
pmd_attributes : attributes;
pmd_loc : location;

}

and module_substitution =
  Migrate_parsetree.Ast_408.Parsetree.module_substitution =
  {

pms_name : string loc;
pms_manifest : longident_loc;
pms_attributes : attributes;
pms_loc : location;

}

and module_type_declaration =
  Migrate_parsetree.Ast_408.Parsetree.module_type_declaration =
  {

pmtd_name : string loc;
pmtd_type : module_type option;
pmtd_attributes : attributes;
pmtd_loc : location;

}

and 'a open_infos = 'a Migrate_parsetree.Ast_408.Parsetree.open_infos = {

popen_expr : 'a;
popen_override : override_flag;
popen_loc : location;
popen_attributes : attributes;

}

and open_description = longident_loc open_infos

and open_declaration = module_expr open_infos

and 'a include_infos = 'a Migrate_parsetree.Ast_408.Parsetree.include_infos = {

pincl_mod : 'a;
pincl_loc : location;
pincl_attributes : attributes;

}

and include_description = module_type include_infos

and include_declaration = module_expr include_infos

and with_constraint = Migrate_parsetree.Ast_408.Parsetree.with_constraint =

| Pwith_type of longident_loc * type_declaration
| Pwith_module of longident_loc * longident_loc
| Pwith_typesubst of longident_loc * type_declaration
| Pwith_modsubst of longident_loc * longident_loc

and module_expr = Migrate_parsetree.Ast_408.Parsetree.module_expr = {

pmod_desc : module_expr_desc;
pmod_loc : location;
pmod_attributes : attributes;

}

and module_expr_desc = Migrate_parsetree.Ast_408.Parsetree.module_expr_desc =

| Pmod_ident of longident_loc
| Pmod_structure of structure
| Pmod_functor of string loc * module_type option * module_expr
| Pmod_apply of module_expr * module_expr
| Pmod_constraint of module_expr * module_type
| Pmod_unpack of expression
| Pmod_extension of extension

and structure = structure_item list

and structure_item = Migrate_parsetree.Ast_408.Parsetree.structure_item = {

pstr_desc : structure_item_desc;
pstr_loc : location;

}

and structure_item_desc =
  Migrate_parsetree.Ast_408.Parsetree.structure_item_desc =

| Pstr_eval of expression * attributes
| Pstr_value of rec_flag * value_binding list
| Pstr_primitive of value_description
| Pstr_type of rec_flag * type_declaration list
| Pstr_typext of type_extension
| Pstr_exception of type_exception
| Pstr_module of module_binding
| Pstr_recmodule of module_binding list
| Pstr_modtype of module_type_declaration
| Pstr_open of open_declaration
| Pstr_class of class_declaration list
| Pstr_class_type of class_type_declaration list
| Pstr_include of include_declaration
| Pstr_attribute of attribute
| Pstr_extension of extension * attributes

and value_binding = Migrate_parsetree.Ast_408.Parsetree.value_binding = {

pvb_pat : pattern;
pvb_expr : expression;
pvb_attributes : attributes;
pvb_loc : location;

}

and module_binding = Migrate_parsetree.Ast_408.Parsetree.module_binding = {

pmb_name : string loc;
pmb_expr : module_expr;
pmb_attributes : attributes;
pmb_loc : location;

}

Toplevel

and toplevel_phrase = Migrate_parsetree.Ast_408.Parsetree.toplevel_phrase =

| Ptop_def of structure
| Ptop_dir of toplevel_directive

and toplevel_directive = Migrate_parsetree.Ast_408.Parsetree.toplevel_directive =
  {

pdir_name : string loc;
pdir_arg : directive_argument option;
pdir_loc : location;

}

and directive_argument = Migrate_parsetree.Ast_408.Parsetree.directive_argument =
  {

pdira_desc : directive_argument_desc;
pdira_loc : location;

}

and directive_argument_desc =
  Migrate_parsetree.Ast_408.Parsetree.directive_argument_desc =

| Pdir_string of string
| Pdir_int of string * char option
| Pdir_ident of longident
| Pdir_bool of bool

class virtual map : object ... end

class virtual iter : object ... end

class virtual 'acc fold : object ... end

class virtual 'acc fold_map : object ... end

class virtual 'ctx map_with_context : object ... end

class virtual 'res lift : object ... end

module Ast_builder : sig ... end

Helpers for build OCaml AST fragments

module Ast_pattern : sig ... end

First class AST patterns

module Ast_traverse : sig ... end

AST traversal classes

module Attribute : sig ... end

Attribute hygiene

module Code_path : sig ... end

module Caller_id : sig ... end

module Context_free : sig ... end

Context free rewriting

module Deriving : sig ... end

Deriving code from type declarations

module Driver : sig ... end

module Expansion_context : sig ... end

module Extension : sig ... end

module File_path : sig ... end

Return the path used as root in a file

module Loc : sig ... end

Located items

module Location : sig ... end

Overrides the Location module of OCaml

module Longident : sig ... end

Overrides the Longident module of OCaml

module Merlin_helpers : sig ... end

Some helpers to annotate the AST so merlin can decide which branches to look at and which branches to ignore.

module Reserved_namespaces : sig ... end

module Spellcheck : sig ... end

val lident : Base.String.t -> Longident.t

val core_type_of_type_declaration : 
  Migrate_parsetree.Ast_408.Parsetree.type_declaration ->
  Migrate_parsetree.Ast_408.Parsetree.core_type

val name_type_params_in_td : 
  Migrate_parsetree.Ast_408.Parsetree.type_declaration ->
  Migrate_parsetree.Ast_408.Parsetree.type_declaration

val combinator_type_of_type_declaration : 
  Migrate_parsetree.Ast_408.Parsetree.type_declaration ->
  f:
    (loc:Location.t ->
      Migrate_parsetree.Ast_408.Parsetree.core_type ->
      Migrate_parsetree.Ast_408.Parsetree.core_type) ->
  Migrate_parsetree.Ast_408.Parsetree.core_type

val gen_symbol : ?prefix:Base.String.t -> Base.Unit.t -> Base.String.t

gen_symbol ?prefix () generates a fresh variable name with prefix.

parameter prefix
default = "_x"

val string_of_core_type : 
  Migrate_parsetree.Ast_408.Parsetree.core_type ->
  Base.String.t

val assert_no_attributes : 
  Migrate_parsetree.Ast_408.Parsetree.attribute list ->
  Base.Unit.t

val assert_no_attributes_in : Ast_traverse.iter

val get_type_param_name : 
  (Migrate_parsetree.Ast_408.Parsetree.core_type
   * Migrate_parsetree.Ast_408.Asttypes.variance) ->
  Base.String.t Loc.t

get_tparam_id tp

returns
the string identifier associated with tp if it is a type parameter.

class type_is_recursive : Migrate_parsetree.Ast_408.Asttypes.rec_flag -> Migrate_parsetree.Ast_408.Parsetree.type_declaration
                                                    Base.List.t -> object ... end

(new type_is_recursive rec_flag tds)#go () returns whether rec_flag, tds is really a recursive type. We disregard recursive occurrences appearing in arrow types. You can override the search for certain type expressions by inheriting from this class.

val really_recursive : 
  Migrate_parsetree.Ast_408.Asttypes.rec_flag ->
  Migrate_parsetree.Ast_408.Parsetree.type_declaration Base.List.t ->
  Migrate_parsetree.Ast_408.Asttypes.rec_flag

really_recursive rec_flag tds = (new type_is_recursive rec_flag tds)#go ()

val loc_of_payload : 
  Migrate_parsetree.Ast_408.Parsetree.attribute ->
  Location.t

val loc_of_attribute : 
  Migrate_parsetree.Ast_408.Parsetree.attribute ->
  Location.t

val loc_of_extension : 
  (string Location.loc * Migrate_parsetree.Ast_408.Parsetree.payload) ->
  Location.t

val curry_applications : 
  Migrate_parsetree.Ast_408.Parsetree.expression ->
  Migrate_parsetree.Ast_408.Parsetree.expression

convert multi-arg function applications into a cascade of 1-arg applications

val attribute_of_warning : 
  Location.t ->
  Base.String.t ->
  Migrate_parsetree.Ast_408.Parsetree.attribute

Encode a warning message into an 'ocaml.ppwarning' attribute which can be inserted in a generated Parsetree. The compiler will be responsible for reporting the warning.

val is_polymorphic_variant : 
  Migrate_parsetree.Ast_408.Parsetree.type_declaration ->
  sig_:Base.Bool.t ->
  [> `Definitely | `Maybe | `Surely_not ]

val mk_named_sig : 
  loc:Location.t ->
  sg_name:Base.String.t ->
  handle_polymorphic_variant:Base.Bool.t ->
  Migrate_parsetree.Ast_408.Parsetree.type_declaration Base.List.t ->
  Migrate_parsetree.Ast_408.Parsetree.module_type
    Migrate_parsetree.Ast_408.Parsetree.include_infos
    Base.Option.t

mk_named_sig ~loc ~sg_name:"Foo" ~handle_polymorphic_variant tds will generate

  include Foo (* or Foo1, Foo2, Foo3 *)
    with type (* ('a, 'b, 'c) *) t := (* ('a, 'b, 'c) *) t

when:

there is only one type declaration
the type is named t
there are less than 4 type parameters
there are no constraints on the type parameters

It will take care of giving fresh names to unnamed type parameters.

Install

dune-project
Dependency

Authors

Maintainers

Sources

doc/ppxlib/Ppxlib/index.html

Module `Ppxlib`

Extension points

Core language

Class language

Module language

Toplevel

package ppxlib

Install

dune-project Dependency

Authors

Maintainers

Sources

doc/ppxlib/Ppxlib/index.html

Module Ppxlib

Extension points

Core language

Class language

Module language

Toplevel

dune-project
Dependency

Module `Ppxlib`