open Ast
open DisplayTypes.DisplayMode
open Type
open Common
open Error
open PlatformConfig
open DefineList
open MetaList
open Globals

exception Invalid_expr
exception Abort

type compiler_options = {
	opt_inlining : bool option;
	opt_transform : bool option;
}

(**
	Our access to the compiler from the macro api
**)

type 'value compiler_api = {
	pos : Globals.pos;
	get_com : unit -> Common.context;
	get_macro_com : unit -> Common.context;
	get_macro_stack : unit -> pos list;
	init_macros_done : unit -> bool;
	get_type : string -> Type.t option;
	get_module : string -> Type.t list;
	include_module : string -> unit;
	after_init_macros : (unit -> unit) -> unit;
	after_typing : (module_type list -> unit) -> unit;
	on_generate : (Type.t list -> unit) -> bool -> unit;
	after_generate : (unit -> unit) -> unit;
	on_type_not_found : (string -> 'value) -> unit;
	parse_string : string -> Globals.pos -> bool -> Ast.expr;
	register_file_contents : string -> string -> unit;
	parse : 'a . (Parser.parser_ctx -> (Ast.token * Globals.pos) Stream.t -> 'a) -> string -> 'a;
	type_expr : Ast.expr -> Type.texpr;
	resolve_type  : Ast.complex_type -> Globals.pos -> t;
	resolve_complex_type : Ast.type_hint -> Ast.type_hint;
	store_typed_expr : Type.texpr -> Ast.expr;
	allow_package : string -> unit;
	get_local_type : unit -> t option;
	get_expected_type : unit -> t option;
	get_call_arguments : unit -> Ast.expr list option;
	get_local_method : unit -> string;
	get_local_imports : unit -> Ast.import list;
	get_local_using : unit -> tclass list;
	get_local_vars : unit -> (string, Type.tvar) PMap.t;
	get_build_fields : unit -> 'value;
	define_type : 'value -> string option -> unit;
	define_module : string -> 'value list -> ((string * Globals.pos) list * Ast.import_mode) list -> Ast.type_path list -> unit;
	module_dependency : string -> string -> unit;
	current_module : unit -> module_def;
	format_string : string -> Globals.pos -> Ast.expr;
	cast_or_unify : Type.t -> texpr -> Globals.pos -> bool;
	add_global_metadata : string -> string -> (bool * bool * bool) -> pos -> unit;
	register_define : string -> Define.user_define -> unit;
	register_metadata : string -> Meta.user_meta -> unit;
	add_module_check_policy : string list -> int list -> bool -> unit;
	decode_expr : 'value -> Ast.expr;
	encode_expr : Ast.expr -> 'value;
	encode_ctype : Ast.type_hint -> 'value;
	decode_type : 'value -> t;
	info : ?depth:int -> string -> pos -> unit;
	warning : ?depth:int -> Warning.warning -> string -> pos -> unit;
	display_error : ?sub:macro_error list -> string -> pos -> unit;
	with_imports : 'a . import list -> placed_name list list -> (unit -> 'a) -> 'a;
	with_options : 'a . compiler_options -> (unit -> 'a) -> 'a;
	exc_string : 'a . string -> 'a;
	get_hxb_writer_config : unit -> 'value;
	set_hxb_writer_config : 'value -> unit;
}

type enum_type =
	| IExpr
	| IEFieldKind
	| IBinop
	| IUnop
	| IConst
	| ITParam
	| ICType
	| IField
	| IType
	| IFieldKind
	| IMethodKind
	| IVarAccess
	| IAccess
	| IClassKind
	| ITypedExpr
	| ITConstant
	| IModuleType
	| IFieldAccess
	| IAnonStatus
	| IQuoteStatus
	| IImportMode
	| IDisplayKind
	| IDisplayMode
	| ICapturePolicy
	| IVarScope
	| IVarScopingFlags
	| IPlatform
	| IPackageRule
	| IMessage
	| IFunctionKind
	| IStringLiteralKind

(**
	Our access to the interpreter from the macro api
**)

module type InterpApi = sig
	type value

	val vnull : value
	val vint : int -> value
	val vfloat : float -> value
	val vint32 : int32 -> value
	val vbool : bool -> value

	val encode_array : value list -> value
	val encode_string  : string -> value
	val encode_obj : (string * value) list -> value
	val encode_lazy : value Lazy.t -> value

	val vfun0 : (unit -> value) -> value
	val vfun1 : (value -> value) -> value
	val vfun2 : (value -> value -> value) -> value
	val vfun3 : (value -> value -> value -> value) -> value
	val vfun4 : (value -> value -> value -> value -> value) -> value
	val vfun5 : (value -> value -> value -> value -> value -> value) -> value

	val encode_pos : Globals.pos -> value
	val encode_enum : enum_type -> Globals.pos option -> int -> value list -> value
	val encode_string_map : ('a -> value) -> (string, 'a) PMap.t -> value

	val encode_tdecl : Type.module_type -> value
	val encode_lazytype : tlazy ref -> (unit -> value) -> value
	val encode_unsafe : Obj.t -> value

	val field : value -> string -> value

	val decode_bool : value -> bool
	val decode_int : value -> int
	val decode_i32 : value -> int32
	val decode_string : value -> string
	val decode_array : value -> value list

	val decode_pos : value -> Globals.pos
	val decode_enum : value -> int * value list
	val decode_tdecl : value -> Type.module_type
	val decode_lazytype : value -> tlazy ref
	val decode_unsafe : value -> Obj.t

	val decode_enum_with_pos : value -> (int * value list) * Globals.pos

	val encode_ref : 'a -> ('a -> value) -> (unit -> string) -> value
	val decode_ref : value -> 'a

	val compiler_error : Error.error -> 'a
	val error_message : string -> 'a
	val value_to_expr : value -> Globals.pos -> Ast.expr
	val value_signature : value -> string

	val encode_bytes : bytes -> value
	val decode_bytes : value -> bytes (* haxe.io.Bytes *)

	val prepare_callback : value -> int -> (value list -> value)

	val value_string : value -> string

	val handle_decoding_error : (string -> unit) -> value -> Type.t -> (string * int) list

	val get_api_call_pos : unit -> pos

	val associate_enum_value_pos : value -> pos -> unit
end

let s_type_path = Globals.s_type_path

(* convert float value to haxe expression, handling inf/-inf/nan *)
let haxe_float f p =
	let std = (Ast.EConst (Ast.Ident "std"), p) in
	let math = (efield (std, "Math"), p) in
	if (f = infinity) then
		(efield (math, "POSITIVE_INFINITY"), p)
	else if (f = neg_infinity) then
		(efield (math, "NEGATIVE_INFINITY"), p)
	else if (f <> f) then
		(efield (math, "NaN"), p)
	else
		(Ast.EConst (Ast.Float (Numeric.float_repres f, None)), p)

(* ------------------------------------------------------------------------------------------------------------- *)
(* Our macro api functor *)

module MacroApiImpl(InterpImpl:InterpApi) = struct

open InterpImpl

(*
	The whole encoding/decoding of compiler values from/to interpreter values based on interpreter api
*)

let null f = function
	| None -> vnull
	| Some v -> f v

let encode_enum ?(pos=None) k tag vl = encode_enum k pos tag vl

let encode_string_literal_kind qs =
	let tag = match qs with
		| SDoubleQuotes -> 0
		| SSingleQuotes -> 1
	in
	encode_enum IStringLiteralKind tag []

let encode_const c =
	let tag, pl = match c with
	| Int (s, suffix) -> 0, [encode_string s;null encode_string suffix]
	| Float (s, suffix) -> 1, [encode_string s;null encode_string suffix]
	| String(s,qs) -> 2, [encode_string s;encode_string_literal_kind qs]
	| Ident s -> 3, [encode_string s]
	| Regexp (s,opt) -> 4, [encode_string s;encode_string opt]
	in
	encode_enum IConst tag pl

let rec encode_binop op =
	let tag, pl = match op with
	| OpAdd -> 0, []
	| OpMult -> 1, []
	| OpDiv -> 2, []
	| OpSub -> 3, []
	| OpAssign -> 4, []
	| OpEq -> 5, []
	| OpNotEq -> 6, []
	| OpGt -> 7, []
	| OpGte -> 8, []
	| OpLt -> 9, []
	| OpLte -> 10, []
	| OpAnd -> 11, []
	| OpOr -> 12, []
	| OpXor -> 13, []
	| OpBoolAnd -> 14, []
	| OpBoolOr -> 15, []
	| OpShl -> 16, []
	| OpShr -> 17, []
	| OpUShr -> 18, []
	| OpMod -> 19, []
	| OpAssignOp op -> 20, [encode_binop op]
	| OpInterval -> 21, []
	| OpArrow -> 22, []
	| OpIn -> 23, []
	| OpNullCoal -> 24, []
	in
	encode_enum IBinop tag pl

let encode_unop op =
	let tag = match op with
	| Increment -> 0
	| Decrement -> 1
	| Not -> 2
	| Neg -> 3
	| NegBits -> 4
	| Spread -> 5
	in
	encode_enum IUnop tag []

let encode_import (path,mode) =
	let tag,pl = match mode with
		| INormal -> 0, []
		| IAsName(s,_) -> 1, [encode_string s]
		| IAll -> 2,[]
	in
	let mode = encode_enum IImportMode tag pl in
	encode_obj [
		"path", encode_array (List.map (fun (name,p) -> encode_obj [ "pos", encode_pos p; "name", encode_string name]) path);
		"mode", mode
	]

let encode_placed_name (s,p) =
	encode_string s

(* Globals.path *)
let encode_path (p,n) =
	encode_obj [
		"pack", encode_array (List.map encode_string p);
		"name", encode_string n;
	]

(* Ast.placed_type_path *)
let rec encode_ast_path ptp =
	let t = ptp.path in
	let fields = [
		"pack", encode_array (List.map encode_string t.tpackage);
		"name", encode_string t.tname;
		"params", encode_array (List.map encode_tparam t.tparams);
		"pos", encode_pos ptp.pos_full;
	] in
	let fields = if ptp.pos_full <> ptp.pos_path then
		("posPath", encode_pos ptp.pos_path) :: fields
	else
		fields
	in
	encode_obj (match t.tsub with
		| None -> fields
		| Some s -> ("sub", encode_string s) :: fields)

and encode_tparam = function
	| TPType t -> encode_enum ITParam 0 [encode_ctype t]
	| TPExpr e -> encode_enum ITParam 1 [encode_expr e]

and encode_access a =
	let tag = match fst a with
		| APublic -> 0
		| APrivate -> 1
		| AStatic -> 2
		| AOverride -> 3
		| ADynamic -> 4
		| AInline -> 5
		| AMacro -> 6
		| AFinal -> 7
		| AExtern -> 8
		| AAbstract -> 9
		| AOverload -> 10
		| AEnum -> 11

	in
	encode_enum ~pos:(Some (pos a)) IAccess tag []

and encode_meta_entry (m,ml,p) =
	encode_obj [
		"name", encode_string (Meta.to_string m);
		"params", encode_array (List.map encode_expr ml);
		"pos", encode_pos p;
	]

and encode_meta_content m =
	encode_array (List.map encode_meta_entry m)

and encode_field (f:class_field) =
	let tag, pl = match f.cff_kind with
		| FVar (t,e) -> 0, [null encode_ctype t; null encode_expr e]
		| FFun f -> 1, [encode_fun f]
		| FProp (get,set, t, e) -> 2, [encode_placed_name get; encode_placed_name set; null encode_ctype t; null encode_expr e]
	in
	encode_obj [
		"name",encode_placed_name f.cff_name;
		"name_pos", encode_pos (pos f.cff_name);
		"doc", null encode_string (gen_doc_text_opt f.cff_doc);
		"pos", encode_pos f.cff_pos;
		"kind", encode_enum IField tag pl;
		"meta", encode_meta_content f.cff_meta;
		"access", encode_array (List.map encode_access f.cff_access);
	]

and encode_ctype t =
	let tag, pl = match fst t with
	| CTPath ptp ->
		0, [encode_ast_path ptp]
	| CTFunction (pl,r) ->
		1, [encode_array (List.map encode_ctype pl);encode_ctype r]
	| CTAnonymous fl ->
		2, [encode_array (List.map encode_field fl)]
	| CTParent t ->
		3, [encode_ctype t]
	| CTExtend (tl,fields) ->
		4, [encode_array (List.map encode_ast_path tl); encode_array (List.map encode_field fields)]
	| CTOptional t ->
		5, [encode_ctype t]
	| CTNamed (n,t) ->
		6, [encode_placed_name n; encode_ctype t]
	| CTIntersection tl ->
		7, [(encode_array (List.map encode_ctype tl))]
	in
	encode_enum ~pos:(Some (pos t)) ICType tag pl

and encode_tparam_decl tp =
	encode_obj [
		"name", encode_placed_name tp.tp_name;
		"name_pos", encode_pos (pos tp.tp_name);
		"params", encode_array (List.map encode_tparam_decl tp.tp_params);
		"constraints", (match tp.tp_constraints with
			| None -> encode_array []
			| Some th -> encode_array [encode_ctype th]);
		"meta", encode_meta_content tp.tp_meta;
	]

and encode_fun f =
	encode_obj [
		"params", encode_array (List.map encode_tparam_decl f.f_params);
		"args", encode_array (List.map (fun (n,opt,m,t,e) ->
			encode_obj [
				"name", encode_placed_name n;
				"name_pos", encode_pos (pos n);
				"opt", vbool opt;
				"meta", encode_meta_content m;
				"type", null encode_ctype t;
				"value", null encode_expr e;
			]
		) f.f_args);
		"ret", null encode_ctype f.f_type;
		"expr", null encode_expr f.f_expr
	]

and encode_display_kind dk =
	let tag, pl = match dk with
	| DKCall -> 0, []
	| DKDot -> 1, []
	| DKStructure -> 2, []
	| DKMarked -> 3, []
	| DKPattern outermost -> 4, [vbool outermost]
	in
	encode_enum IDisplayKind tag pl

and encode_display_mode dm =
	let tag, pl = match dm with
		| DMNone -> 0, []
		| DMDefault -> 1, []
		| DMDefinition -> 2, []
		| DMTypeDefinition -> 3, []
		| DMImplementation -> 4, []
		| DMPackage -> 5, []
		| DMHover -> 6, []
		| DMUsage (withDefinition,findDescendants,findBase) -> 7, [(vbool withDefinition); (vbool findDescendants); (vbool findBase)]
		| DMModuleSymbols None -> 8, []
		| DMModuleSymbols (Some s) -> 9, [(encode_string s)]
		| DMSignature -> 10, []
	in
	encode_enum IDisplayMode tag pl

and encode_platform p =
	let tag, pl = match p with
		| Cross -> 0, []
		| Js -> 1, []
		| Lua -> 2, []
		| Neko -> 3, []
		| Flash -> 4, []
		| Php -> 5, []
		| Cpp -> 6, []
		| Jvm -> 7, []
		| Python -> 8, []
		| Hl -> 9, []
		| Eval -> 10, []
		| CustomTarget s -> 11, [(encode_string s)]
	in
	encode_enum IPlatform tag pl

and encode_platform_config pc =
	encode_obj [
		"staticTypeSystem", vbool pc.pf_static;
		"sys", vbool pc.pf_sys;
		"capturePolicy", encode_capture_policy pc.pf_capture_policy;
		"padNulls", vbool pc.pf_pad_nulls;
		"addFinalReturn", vbool pc.pf_add_final_return;
		"overloadFunctions", vbool pc.pf_overload;
		"reservedTypePaths", encode_array (List.map encode_path pc.pf_reserved_type_paths);
		"supportsFunctionEquality", vbool pc.pf_supports_function_equality;
		"usesUtf16", vbool pc.pf_uses_utf16;
		"thisBeforeSuper", vbool pc.pf_this_before_super;
		"supportsThreads", vbool pc.pf_supports_threads;
		"supportsUnicode", vbool pc.pf_supports_unicode;
		"supportsRestArgs", vbool pc.pf_supports_rest_args;
		"exceptions", encode_exceptions_config pc.pf_exceptions;
		"scoping", encode_var_scoping_config pc.pf_scoping;
		"supportsAtomics", vbool pc.pf_supports_atomics;
	]

and encode_capture_policy cp =
	let tag = match cp with
		| CPNone -> 0
		| CPWrapRef -> 1
		| CPLoopVars -> 2
	in
	encode_enum ICapturePolicy tag []

and encode_var_scoping_config vsc =
	encode_obj [
		"scope", encode_var_scope vsc.vs_scope;
		"flags", encode_array (List.map encode_var_scoping_flags vsc.vs_flags);
	]

and encode_var_scope vs =
	let tag = match vs with
		| FunctionScope -> 0
		| BlockScope -> 1
	in
	encode_enum IVarScope tag []

and encode_var_scoping_flags vsf =
	let tag, pl = match vsf with
		| VarHoisting -> 0, []
		| NoShadowing -> 1, []
		| NoCatchVarShadowing -> 2, []
		| ReserveCurrentTopLevelSymbol -> 3, []
		| ReserveAllTopLevelSymbols -> 4, []
		| ReserveAllTypesFlat -> 5, []
		| ReserveNames (names) -> 6, [encode_array (List.map encode_string names)]
		| SwitchCasesNoBlocks -> 7, []
	in
	encode_enum IVarScopingFlags tag pl

and encode_exceptions_config ec =
	encode_obj [
		"nativeThrows", encode_array (List.map encode_path ec.ec_native_throws);
		"nativeCatches", encode_array (List.map encode_path ec.ec_native_catches);
		"avoidWrapping", vbool ec.ec_avoid_wrapping;
		"wildcardCatch", encode_path ec.ec_wildcard_catch;
		"baseThrow", encode_path ec.ec_base_throw;
		(* skipping "specialThrow" since cannot use "decode_texpr" here *)
	]

and encode_package_rule pr =
	let tag, pl = match pr with
		| Forbidden -> 0, []
		| Remap (path) -> 2, [encode_string path]
	in
	encode_enum IPackageRule tag pl

and encode_message cm =
	let tag, pl = match cm.cm_severity with
		| Globals.MessageSeverity.Information -> 0, [(encode_string cm.cm_message); (encode_pos cm.cm_pos)]
		| Warning | Hint -> 1, [(encode_string cm.cm_message); (encode_pos cm.cm_pos)]
		| Error -> Globals.die "" __LOC__
	in
	encode_enum IMessage tag pl

and encode_efield_kind efk =
	let i = match efk with
		| EFNormal -> 0
		| EFSafe -> 1
	in
	encode_enum IEFieldKind i []

and encode_expr e =
	let rec loop (e,p) =
		let tag, pl = match e with
			| EConst c ->
				0, [encode_const c]
			| EArray (e1,e2) ->
				1, [loop e1;loop e2]
			| EBinop (op,e1,e2) ->
				2, [encode_binop op;loop e1;loop e2]
			| EField (e,f,efk) ->
				3, [loop e;encode_string f;encode_efield_kind efk]
			| EParenthesis e ->
				4, [loop e]
			| EObjectDecl fl ->
				5, [encode_array (List.map (fun ((f,p,qs),e) -> encode_obj [
					"field",encode_string f;
					"name_pos",encode_pos p;
					"quotes",encode_enum IQuoteStatus (match qs with NoQuotes -> 0 | DoubleQuotes -> 1) [];
					"expr",loop e;
				]) fl)]
			| EArrayDecl el ->
				6, [encode_array (List.map loop el)]
			| ECall (e,el) ->
				7, [loop e;encode_array (List.map loop el)]
			| ENew (p,el) ->
				8, [encode_ast_path p; encode_array (List.map loop el)]
			| EUnop (op,flag,e) ->
				9, [encode_unop op; vbool (match flag with Prefix -> false | Postfix -> true); loop e]
			| EVars vl ->
				10, [encode_array (List.map (fun v ->
					encode_obj [
						"name",encode_placed_name v.ev_name;
						"namePos",encode_pos (pos v.ev_name);
						"isFinal",vbool v.ev_final;
						"isStatic",vbool v.ev_static;
						"type",null encode_ctype v.ev_type;
						"expr",null loop v.ev_expr;
						"meta",encode_meta_content v.ev_meta;
					]
				) vl)]
			| EFunction (kind,f) ->
				11, [encode_function_kind kind; encode_fun f]
			| EBlock el ->
				12, [encode_array (List.map loop el)]
			| EFor (e,eloop) ->
				13, [loop e;loop eloop]
			| EIf (econd,e,eelse) ->
				14, [loop econd;loop e;null loop eelse]
			| EWhile (econd,e,flag) ->
				15, [loop econd;loop e;vbool (match flag with NormalWhile -> true | DoWhile -> false)]
			| ESwitch (e,cases,eopt) ->
				16, [loop e;encode_array (List.map (fun (ecl,eg,e,p) ->
					encode_obj [
						"values",encode_array (List.map loop ecl);
						"guard",null loop eg;
						"expr",null loop e;
						"pos",encode_pos p;
					]
				) cases);null (fun (e,_) -> encode_null_expr e) eopt]
			| ETry (e,catches) ->
				17, [loop e;encode_array (List.map (fun (v,t,e,p) ->
					encode_obj [
						"name",encode_placed_name v;
						"name_pos",encode_pos (pos v);
						"type",null encode_ctype t;
						"expr",loop e;
						"pos",encode_pos p
					]
				) catches)]
			| EReturn eo ->
				18, [null loop eo]
			| EBreak ->
				19, []
			| EContinue ->
				20, []
			| EUntyped e ->
				21, [loop e]
			| EThrow e ->
				22, [loop e]
			| ECast (e,t) ->
				23, [loop e; null encode_ctype t]
			| EDisplay (e,dk) ->
				24, [loop e; encode_display_kind dk]
			| ETernary (econd,e1,e2) ->
				25, [loop econd;loop e1;loop e2]
			| ECheckType (e,t) ->
				26, [loop e; encode_ctype t]
			| EMeta (m,e) ->
				27, [encode_meta_entry m;loop e]
			| EIs (e,t) ->
				28, [loop e;encode_ctype t]
		in
		encode_obj [
			"pos", encode_pos p;
			"expr", encode_enum IExpr tag pl;
		]
	in
	encode_lazy (lazy (loop e))

and encode_null_expr e =
	match e with
	| None ->
		encode_obj ["pos", vnull;"expr",vnull]
	| Some e ->
		encode_expr e

and encode_function_kind kind =
	match kind with
	| FKAnonymous ->
		encode_enum IFunctionKind 0 []
	| FKNamed (name,inline) ->
		encode_enum IFunctionKind 1 [encode_placed_name name; vbool inline]
	| FKArrow ->
		encode_enum IFunctionKind 2 []

(* ---------------------------------------------------------------------- *)
(* EXPR DECODING *)

let opt f v =
	if v = vnull then None else Some (f v)

let opt_list f v =
	if v = vnull then [] else f v

let decode_opt_bool v =
	if v = vnull then false else decode_bool v

let decode_string_literal_kind v =
	if v = vnull then SDoubleQuotes else match decode_enum v with
	| 0,[] -> SDoubleQuotes
	| 1,[] -> SSingleQuotes
	| _ -> raise Invalid_expr

let decode_const c =
	match decode_enum c with
	| 0, [s;suffix] ->
		let decoded_suffix = opt decode_string suffix in
		(match decoded_suffix with
		| None | Some "i32" | Some "i64" | Some "u32" ->
			Int (decode_string s, decoded_suffix)
		| Some other ->
			raise Invalid_expr)
	| 1, [s;suffix] ->
		let decoded_suffix = opt decode_string suffix in
		(match decoded_suffix with
		| None | Some "f64" ->
			Float (decode_string s, opt decode_string suffix)
		| Some other ->
			raise Invalid_expr)
	| 2, [s;qs] -> String (decode_string s,decode_string_literal_kind qs)
	| 3, [s] -> Ident (decode_string s)
	| 4, [s;opt] -> Regexp (decode_string s, decode_string opt)
	| 5, [s] -> Ident (decode_string s) (** deprecated CType, keep until 3.0 release **)
	| _ -> raise Invalid_expr

let rec decode_op op =
	match decode_enum op with
	| 0, [] -> OpAdd
	| 1, [] -> OpMult
	| 2, [] -> OpDiv
	| 3, [] -> OpSub
	| 4, [] -> OpAssign
	| 5, [] -> OpEq
	| 6, [] -> OpNotEq
	| 7, [] -> OpGt
	| 8, [] -> OpGte
	| 9, [] -> OpLt
	| 10, [] -> OpLte
	| 11, [] -> OpAnd
	| 12, [] -> OpOr
	| 13, [] -> OpXor
	| 14, [] -> OpBoolAnd
	| 15, [] -> OpBoolOr
	| 16, [] -> OpShl
	| 17, [] -> OpShr
	| 18, [] -> OpUShr
	| 19, [] -> OpMod
	| 20, [op] -> OpAssignOp (decode_op op)
	| 21, [] -> OpInterval
	| 22,[] -> OpArrow
	| 23,[] -> OpIn
	| 24,[] -> OpNullCoal
	| _ -> raise Invalid_expr

let decode_unop op =
	match decode_enum op with
	| 0, [] -> Increment
	| 1, [] -> Decrement
	| 2, [] -> Not
	| 3, [] -> Neg
	| 4, [] -> NegBits
	| 5, [] -> Spread
	| _ -> raise Invalid_expr

let decode_import_mode t =
	match decode_enum t with
	| 0, [] -> INormal
	| 1, [alias] -> IAsName (decode_string alias,Globals.null_pos) (* TODO: is it okay to lose the pos here? *)
	| 2, [] -> IAll
	| _ -> raise Invalid_expr

let decode_import t = (List.map (fun o -> ((decode_string (field o "name")), (decode_pos (field o "pos")))) (decode_array (field t "path")), decode_import_mode (field t "mode"))

let maybe_decode_pos p = try decode_pos p with Invalid_expr -> Globals.null_pos

let decode_pos_default p pd = try decode_pos p with Invalid_expr -> pd

let decode_placed_name vp v =
	decode_string v,maybe_decode_pos vp

let decode_opt_array f v =
	if v = vnull then [] else List.map f (decode_array v)

let decode_sub_errors sub =
	let rec decode_sub o =
		let msg = decode_string (field o "msg") in
		let pos = decode_pos (field o "pos") in
		let sub = decode_opt_array decode_sub (field o "sub") in
		{msg; pos; sub}
	in
	decode_opt_array decode_sub sub

(* Ast.placed_type_path *)
let rec decode_ast_path t =
	let pack = List.map decode_string (decode_array (field t "pack"))
	and name = decode_string (field t "name")
	and params = decode_opt_array decode_tparam (field t "params")
	and sub = opt decode_string (field t "sub") in
	let p_full = field t "pos" in
	let p_full = if p_full = vnull then Globals.null_pos else decode_pos p_full in
	let p_path = field t "posPath" in
	let p_path = if p_path = vnull then p_full else decode_pos p_path in
	make_ptp (mk_type_path ~params ?sub (pack,name)) ~p_path p_full

and decode_tparam v =
	match decode_enum v with
	| 0,[t] -> TPType (decode_ctype t)
	| 1,[e] -> TPExpr (decode_expr e)
	| _ -> raise Invalid_expr

and decode_tparams v =
	decode_opt_array decode_tparam_decl v

and decode_tparam_decl v =
	let vconstraints = field v "constraints" in
	let vdefault = field v "defaultType" in
	{
		tp_name = decode_placed_name (field v "name_pos") (field v "name");
		tp_constraints = if vconstraints = vnull then None else (match decode_array vconstraints with
			| [] -> None
			| [t] -> Some (decode_ctype t)
			| tl -> Some (CTIntersection (List.map decode_ctype tl),Globals.null_pos)
		);
		tp_default = opt decode_ctype vdefault;
		tp_params = decode_tparams (field v "params");
		tp_meta = decode_meta_content (field v "meta");
	}

and decode_fun v =
	{
		f_params = decode_tparams (field v "params");
		f_args = List.map (fun o ->
			decode_placed_name (field o "name_pos") (field o "name"),
			decode_opt_bool (field o "opt"),
			decode_meta_content (field o "meta"),
			opt decode_ctype (field o "type"),
			opt decode_expr (field o "value")
		) (decode_array (field v "args"));
		f_type = opt decode_ctype (field v "ret");
		f_expr = opt decode_expr (field v "expr");
	}

and decode_access v =
	let (i,_),p = decode_enum_with_pos v in
	let a = match i with
	| 0 -> APublic
	| 1 -> APrivate
	| 2 -> AStatic
	| 3 -> AOverride
	| 4 -> ADynamic
	| 5 -> AInline
	| 6 -> AMacro
	| 7 -> AFinal
	| 8 -> AExtern
	| 9 -> AAbstract
	| 10 -> AOverload
	| 11 -> AEnum
	| _ -> raise Invalid_expr
	in
	a,p

and decode_meta_entry v =
	Meta.from_string (decode_string (field v "name")), decode_opt_array decode_expr (field v "params"), decode_pos (field v "pos")

and decode_meta_content m = decode_opt_array decode_meta_entry m

and decode_doc = opt (fun s -> { doc_own = Some (decode_string s); doc_inherited = [] })

and decode_class_field_kind v =
	match decode_enum v with
	| 0, [t;e] ->
		FVar (opt decode_ctype t, opt decode_expr e)
	| 1, [f] ->
		FFun (decode_fun f)
	| 2, [get;set; t; e] ->
		FProp (decode_placed_name vnull get, decode_placed_name vnull set, opt decode_ctype t, opt decode_expr e)
	| _ ->
		raise Invalid_expr

and decode_field v =
	let fkind = decode_class_field_kind (field v "kind") in
	let pos = decode_pos (field v "pos") in
	{
		cff_name = (decode_string (field v "name"),decode_pos_default (field v "name_pos") pos);
		cff_doc = decode_doc (field v "doc");
		cff_pos = pos;
		cff_kind = fkind;
		cff_access = List.map decode_access (opt_list decode_array (field v "access"));
		cff_meta = opt_list decode_meta_content (field v "meta");
	}

and decode_ctype t =
	let (i,args),p = decode_enum_with_pos t in
	(match i,args with
	| 0, [p] ->
		CTPath (decode_ast_path p)
	| 1, [a;r] ->
		CTFunction (List.map decode_ctype (decode_array a), decode_ctype r)
	| 2, [fl] ->
		CTAnonymous (List.map decode_field (decode_array fl))
	| 3, [t] ->
		CTParent (decode_ctype t)
	| 4, [tl;fl] ->
		CTExtend (List.map decode_ast_path (decode_array tl), List.map decode_field (decode_array fl))
	| 5, [t] ->
		CTOptional (decode_ctype t)
	| 6, [n;t] ->
		CTNamed ((decode_string n,p), decode_ctype t)
	| 7, [tl] ->
		CTIntersection (List.map decode_ctype (decode_array tl))
	| _ ->
		raise Invalid_expr),p

and decode_display_kind v = match (decode_enum v) with
	| 0, [] -> DKCall
	| 1, [] -> DKDot
	| 2, [] -> DKStructure
	| 3, [] -> DKMarked
	| 4, [outermost] -> DKPattern (decode_bool outermost)
	| _ -> raise Invalid_expr

and decode_function_kind kind = if kind = vnull then FKAnonymous else match decode_enum kind with
	| 0, [] -> FKAnonymous
	| 1, [name;inline] -> FKNamed ((decode_string name,Globals.null_pos), decode_opt_bool inline)
	| 2, [] -> FKArrow
	| _ -> raise Invalid_expr

and decode_expr v =
	let rec loop v =
		let p = decode_pos (field v "pos") in
		(decode (field v "expr") p, p)
	and decode e p =
		match decode_enum e with
		| 0, [c] ->
			EConst (decode_const c)
		| 1, [e1;e2] ->
			EArray (loop e1, loop e2)
		| 2, [op;e1;e2] ->
			EBinop (decode_op op, loop e1, loop e2)
		| 3, [e;f;efk] ->
			let efk = if efk == vnull then
				EFNormal
			else match decode_enum efk with
				| 0,[] -> EFNormal
				| 1,[] -> EFSafe
				| _ -> raise Invalid_expr
			in
			EField (loop e, decode_string f, efk)
		| 4, [e] ->
			EParenthesis (loop e)
		| 5, [a] ->
			EObjectDecl (List.map (fun o ->
				let name,p = decode_placed_name (field o "name_pos") (field o "field") in
				let vquotes = field o "quotes" in
				let quotes = if vquotes = vnull then NoQuotes
				else match decode_enum vquotes with
					| 0,[] -> NoQuotes
					| 1,[] -> DoubleQuotes
					| _ -> raise Invalid_expr
				in
				(name,p,quotes),loop (field o "expr")
			) (decode_array a))
		| 6, [a] ->
			EArrayDecl (List.map loop (decode_array a))
		| 7, [e;el] ->
			ECall (loop e,List.map loop (decode_array el))
		| 8, [t;el] ->
			ENew (decode_ast_path t,List.map loop (decode_array el))
		| 9, [op;f;e] ->
			EUnop (decode_unop op,(if decode_bool f then Postfix else Prefix),loop e)
		| 10, [vl] ->
			EVars (List.map (fun v ->
				let vfinal = field v "isFinal" in
				let final = if vfinal == vnull then false else decode_bool vfinal in
				let vstatic = field v "isStatic" in
				let static = if vstatic == vnull then false else decode_bool vstatic in
				let vmeta = field v "meta" in
				let meta = if vmeta == vnull then [] else decode_meta_content vmeta in
				let name_pos = maybe_decode_pos (field v "namePos") in
				let name_pos = if name_pos = null_pos then p else name_pos in
				let name = ((decode_string (field v "name")), name_pos)
				and t = opt decode_ctype (field v "type")
				and eo = opt loop (field v "expr") in
				mk_evar ~final ~static ?t ?eo ~meta name
			) (decode_array vl))
		| 11, [kind;f] ->
			EFunction (decode_function_kind kind,decode_fun f)
		| 12, [el] ->
			EBlock (List.map loop (decode_array el))
		| 13, [e1;e2] ->
			EFor (loop e1, loop e2)
		| 14, [e1;e2;e3] ->
			EIf (loop e1, loop e2, opt loop e3)
		| 15, [e1;e2;flag] ->
			EWhile (loop e1,loop e2,if decode_bool flag then NormalWhile else DoWhile)
		| 16, [e;cases;eo] ->
			let cases = List.map (fun c ->
				(List.map loop (decode_array (field c "values")),opt loop (field c "guard"),opt loop (field c "expr"),maybe_decode_pos (field c "pos"))
			) (decode_array cases) in
			ESwitch (loop e,cases,opt (fun v -> (if field v "expr" = vnull then None else Some (decode_expr v)),p) eo)
		| 17, [e;catches] ->
			let catches = List.map (fun c ->
				((decode_placed_name (field c "name_pos") (field c "name")),(opt decode_ctype (field c "type")),loop (field c "expr"),maybe_decode_pos (field c "pos"))
			) (decode_array catches) in
			ETry (loop e, catches)
		| 18, [e] ->
			EReturn (opt loop e)
		| 19, [] ->
			EBreak
		| 20, [] ->
			EContinue
		| 21, [e] ->
			EUntyped (loop e)
		| 22, [e] ->
			EThrow (loop e)
		| 23, [e;t] ->
			ECast (loop e,opt decode_ctype t)
		| 24, [e;dk] ->
			EDisplay (loop e,decode_display_kind dk)
		| 25, [e1;e2;e3] ->
			ETernary (loop e1,loop e2,loop e3)
		| 26, [e;t] ->
			ECheckType (loop e, (decode_ctype t))
		| 27, [m;e] ->
			EMeta (decode_meta_entry m,loop e)
		| 28, [e;t] ->
			EIs (loop e,decode_ctype t)
		| _ ->
			raise Invalid_expr
	in
	try
		loop v
	with Stack_overflow ->
		raise Invalid_expr

(* ---------------------------------------------------------------------- *)
(* TYPE ENCODING *)

let encode_pmap_array convert m =
	let l = ref [] in
	PMap.iter (fun _ v -> l := !l @ [(convert v)]) m;
	encode_array !l

let encode_and_map_array convert l =
	encode_array (List.map convert l)

let vopt f v = match v with
	| None -> vnull
	| Some v -> f v

let encode_meta m set =
	let meta = ref m in
	encode_obj [
		"get", vfun0 (fun() ->
			encode_meta_content (!meta)
		);
		"add", vfun3 (fun k vl p ->
			let el = List.map decode_expr (decode_array vl) in
			meta := (Meta.from_string (decode_string k), el, decode_pos p) :: !meta;
			set (!meta);
			vnull
		);
		"extract", vfun1 (fun k ->
			let k = Meta.from_string (decode_string k) in
			encode_and_map_array encode_meta_entry (List.filter (fun (m,_,_) -> m = k) (!meta))
		);
		"remove", vfun1 (fun k ->
			let k = Meta.from_string (decode_string k) in
			meta := List.filter (fun (m,_,_) -> m <> k) (!meta);
			set (!meta);
			vnull
		);
		"has", vfun1 (fun k ->
			let k = Meta.from_string (decode_string k) in
			vbool (List.exists (fun (m,_,_) -> m = k) (!meta));
		);
	]

let rec encode_mtype t fields =
	let i = t_infos t in
	encode_obj ([
		"__t", 	encode_tdecl t;
		"pack", encode_array (List.map encode_string (fst i.mt_path));
		"name", encode_string (snd i.mt_path);
		"pos", encode_pos i.mt_pos;
		"module", encode_string (s_type_path i.mt_module.m_path);
		"isPrivate", vbool i.mt_private;
		"meta", encode_meta i.mt_meta (fun m -> i.mt_meta <- m);
		"doc", null encode_string (get_own_doc_opt i.mt_doc);
		"params", encode_type_params i.mt_params;
	] @ fields)

and encode_type_params tl =
	encode_array (List.map (fun tp ->
		encode_obj [
			"name",encode_string tp.ttp_name;
			"t",encode_type tp.ttp_type;
			"defaultType",(match tp.ttp_default with None -> vnull | Some t -> encode_type t);
		]
	) tl)

and encode_tenum e =
	encode_mtype (TEnumDecl e) [
		"isExtern", vbool (has_enum_flag e EnExtern);
		"exclude", vfun0 (fun() -> add_enum_flag e EnExcluded; vnull);
		"constructs", encode_string_map encode_efield e.e_constrs;
		"names", encode_array (List.map encode_string e.e_names);
	]

and encode_tabstract a =
	encode_mtype (TAbstractDecl a) [
		"type", encode_type a.a_this;
		"impl", (match a.a_impl with None -> vnull | Some c -> encode_clref c);
		"binops", encode_array (List.map (fun (op,cf) -> encode_obj [ "op",encode_binop op; "field",encode_cfield cf]) a.a_ops);
		"unops", encode_array (List.map (fun (op,postfix,cf) -> encode_obj [ "op",encode_unop op; "postFix",vbool (match postfix with Postfix -> true | Prefix -> false); "field",encode_cfield cf]) a.a_unops);
		"from", encode_array ((List.map (fun t -> encode_obj [ "t",encode_type t; "field",vnull]) a.a_from) @ (List.map (fun (t,cf) -> encode_obj [ "t",encode_type t; "field",encode_cfield cf]) a.a_from_field));
		"to", encode_array ((List.map (fun t -> encode_obj [ "t",encode_type t; "field",vnull]) a.a_to) @ (List.map (fun (t,cf) -> encode_obj [ "t",encode_type t; "field",encode_cfield cf]) a.a_to_field));
		"array", encode_array (List.map encode_cfield a.a_array);
		"resolve", (match a.a_read with None -> vnull | Some cf -> encode_cfref cf);
		"resolveWrite", (match a.a_write with None -> vnull | Some cf -> encode_cfref cf);
		"defaultValue", (match a.a_default with None -> vnull | Some lazy_texpr -> encode_ref lazy_texpr (fun lazy_texpr -> lazy_texpr |> Lazy.force |> encode_texpr) (fun () -> "default value") )
	]

and encode_efield f =
	encode_obj [
		"name", encode_string f.ef_name;
		"type", encode_type f.ef_type;
		"pos", encode_pos f.ef_pos;
		"namePos", encode_pos f.ef_name_pos;
		"index", vint f.ef_index;
		"meta", encode_meta f.ef_meta (fun m -> f.ef_meta <- m);
		"doc", null encode_string (get_own_doc_opt f.ef_doc);
		"params", encode_type_params f.ef_params;
	]

and encode_cfield f =
	encode_obj [
		"name", encode_string f.cf_name;
		"type", encode_lazy_type f.cf_type;
		"isPublic", vbool (has_class_field_flag f CfPublic);
		"params", encode_type_params f.cf_params;
		"meta", encode_meta f.cf_meta (fun m -> f.cf_meta <- m);
		"expr", vfun0 (fun() ->
			ignore (follow f.cf_type);
			(match f.cf_expr with None -> vnull | Some e -> encode_texpr e)
		);
		"kind", encode_field_kind f.cf_kind;
		"pos", encode_pos f.cf_pos;
		"namePos",encode_pos f.cf_name_pos;
		"doc", null encode_string (get_own_doc_opt f.cf_doc);
		"overloads", encode_ref f.cf_overloads (encode_and_map_array encode_cfield) (fun() -> "overloads");
		"isExtern", vbool (has_class_field_flag f CfExtern);
		"isFinal", vbool (has_class_field_flag f CfFinal);
		"isAbstract", vbool (has_class_field_flag f CfAbstract);
	]

and encode_field_kind k =
	let tag, pl = (match k with
		| Type.Var v -> 0, [encode_var_access v.v_read; encode_var_access v.v_write]
		| Method m -> 1, [encode_method_kind m]
	) in
	encode_enum IFieldKind tag pl

and encode_var_access a =
	let tag, pl = (match a with
		| AccNormal -> 0, []
		| AccNo -> 1, []
		| AccNever -> 2, []
		| AccCall -> 4, []
		| AccPrivateCall -> 5, []
		| AccInline	-> 6, []
		| AccRequire (s,msg) -> 7, [encode_string s; null encode_string msg]
		| AccCtor -> 8, []
	) in
	encode_enum IVarAccess tag pl

and encode_method_kind m =
	let tag, pl = (match m with
		| MethNormal -> 0, []
		| MethInline -> 1, []
		| MethDynamic -> 2, []
		| MethMacro -> 3, []
	) in
	encode_enum IMethodKind tag pl

and encode_class_kind k =
	let tag, pl = (match k with
		| KNormal -> 0, []
		| KTypeParameter ttp -> 1, [encode_tparams (get_constraints ttp)] (* TTPTODO *)
		| KModuleFields m -> 2, [encode_string (s_type_path m.m_path)]
		| KExpr e -> 3, [encode_expr e]
		| KGeneric -> 4, []
		| KGenericInstance (cl, params) -> 5, [encode_clref cl; encode_tparams params]
		| KMacroType -> 6, []
		| KAbstractImpl a -> 7, [encode_abref a]
		| KGenericBuild cfl -> 8, []
	) in
	encode_enum IClassKind tag pl

and encode_tclass c =
	ignore(c.cl_build());
	encode_mtype (TClassDecl c) [
		"kind", encode_class_kind c.cl_kind;
		"isExtern", vbool (has_class_flag c CExtern);
		"exclude", vfun0 (fun() -> add_class_flag c CExcluded; c.cl_init <- None; vnull);
		"isInterface", vbool (has_class_flag c CInterface);
		"isFinal", vbool (has_class_flag c CFinal);
		"isAbstract", vbool (has_class_flag c CAbstract);
		"superClass", (match c.cl_super with
			| None -> vnull
			| Some (c,pl) -> encode_obj ["t",encode_clref c;"params",encode_tparams pl]
		);
		"interfaces", encode_array (List.map (fun (c,pl) -> encode_obj ["t",encode_clref c;"params",encode_tparams pl]) c.cl_implements);
		"fields", encode_ref c.cl_ordered_fields (encode_and_map_array encode_cfield) (fun() -> "class fields");
		"statics", encode_ref c.cl_ordered_statics (encode_and_map_array encode_cfield) (fun() -> "class fields");
		"constructor", (match c.cl_constructor with None -> vnull | Some cf -> encode_cfref cf);
		"init", (match TClass.get_cl_init c with None -> vnull | Some e -> encode_texpr e);
		"overrides", (encode_array (List.map encode_cfref (List.filter (fun cf -> has_class_field_flag cf CfOverride) c.cl_ordered_fields)))
	]

and encode_ttype t =
	encode_mtype (TTypeDecl t) [
		"isExtern", vbool false;
		"exclude", vfun0 (fun() -> vnull);
		"type", encode_type t.t_type;
	]

and encode_tanon a =
	encode_obj [
		"fields", encode_pmap_array encode_cfield a.a_fields;
		"status", encode_anon_status !(a.a_status);
	]

and encode_anon_status s =
	let tag, pl = (match s with
		| Closed -> 0, []
		| Type.Const -> 2, []
		| Extend tl -> 3, [encode_ref tl (fun tl -> encode_array (List.map encode_type tl)) (fun() -> "<extended types>")]
		| ClassStatics cl -> 4, [encode_clref cl]
		| EnumStatics en -> 5, [encode_enref en]
		| AbstractStatics ab -> 6, [encode_abref ab]
	)
	in
	encode_enum IAnonStatus tag pl

and encode_tparams pl =
	encode_array (List.map encode_type pl)

and encode_clref c =
	encode_ref c encode_tclass (fun() -> s_type_path c.cl_path)

and encode_enref en =
	encode_ref en encode_tenum (fun() -> s_type_path en.e_path)

and encode_cfref cf =
	encode_ref cf encode_cfield (fun() -> cf.cf_name)

and encode_abref ab =
	encode_ref ab encode_tabstract (fun() -> s_type_path ab.a_path)

and encode_type t =
	let rec loop = function
		| TMono r ->
			(match r.tm_type with
			| None -> 0, [encode_ref r (fun r -> match r.tm_type with None -> vnull | Some t -> encode_type t) (fun() -> "<mono>")]
			| Some t -> loop t)
		| TEnum (e, pl) ->
			1 , [encode_ref e encode_tenum (fun() -> s_type_path e.e_path); encode_tparams pl]
		| TInst (c, pl) ->
			2 , [encode_clref c; encode_tparams pl]
		| TType (t,pl) ->
			3 , [encode_ref t encode_ttype (fun() -> s_type_path t.t_path); encode_tparams pl]
		| TFun (pl,ret) ->
			let pl = List.map (fun (n,o,t) ->
				encode_obj [
					"name",encode_string n;
					"opt",vbool o;
					"t",encode_type t
				]
			) pl in
			4 , [encode_array pl; encode_type ret]
		| TAnon a ->
			5, [encode_ref a encode_tanon (fun() -> "<anonymous>")]
		| TDynamic None ->
			6, [vnull]
		| TDynamic (Some tsub) ->
			6, [encode_type tsub]
		| TLazy f ->
			loop (lazy_type f)
		| TAbstract (a, pl) ->
			8, [encode_abref a; encode_tparams pl]
	in
	let tag, pl = loop t in
	encode_enum IType tag pl

and encode_lazy_type t =
	let rec loop = function
		| TMono r ->
			(match r.tm_type with
			| Some t -> loop t
			| _ -> encode_type t)
		| TLazy f ->
			(match !f with
			| LAvailable t ->
				encode_type t
			| _ ->
				encode_enum IType 7 [encode_lazytype f (fun() ->
					(match !f with
					| LAvailable t ->
						encode_type t
					| LWait _ ->
						encode_type (lazy_type f)
					| LProcessing _ ->
						(* our type in on the processing stack, error instead of returning most likely an unbound mono *)
						error_message "Accessing a type while it's being typed");
				)])
		| _ ->
			encode_type t
	in
	loop t

and decode_type t =
	match decode_enum t with
	| 0, [r] -> TMono (decode_ref r)
	| 1, [e; pl] -> TEnum (decode_ref e, List.map decode_type (decode_array pl))
	| 2, [c; pl] -> TInst (decode_ref c, List.map decode_type (decode_array pl))
	| 3, [t; pl] -> TType (decode_ref t, List.map decode_type (decode_array pl))
	| 4, [pl; r] -> TFun (List.map (fun p -> decode_string (field p "name"), decode_bool (field p "opt"), decode_type (field p "t")) (decode_array pl), decode_type r)
	| 5, [a] -> TAnon (decode_ref a)
	| 6, [t] -> if t = vnull then t_dynamic else TDynamic (Some (decode_type t))
	| 7, [f] -> TLazy (decode_lazytype f)
	| 8, [a; pl] -> TAbstract (decode_ref a, List.map decode_type (decode_array pl))
	| _ -> raise Invalid_expr

and decode_type_decl t =
	decode_tdecl (field t "__t")

(* ---------------------------------------------------------------------- *)
(* TEXPR Encoding *)

and encode_tconst c =
	let tag, pl = match c with
		| TInt i -> 0,[vint32 i]
		| TFloat f -> 1,[encode_string f]
		| TString s -> 2,[encode_string s]
		| TBool b -> 3,[vbool b]
		| TNull -> 4,[]
		| TThis -> 5,[]
		| TSuper -> 6,[]
	in
	encode_enum ITConstant tag pl

and encode_tvar v =
	let f_extra ve =
		encode_obj [
			"params",encode_type_params ve.v_params;
			"expr",vopt encode_texpr ve.v_expr;
		]
	in
	encode_obj [
		"id", vint v.v_id;
		"name", encode_string v.v_name;
		"t", encode_type v.v_type;
		"capture", vbool (has_var_flag v VCaptured);
		"extra", vopt f_extra v.v_extra;
		"meta", encode_meta v.v_meta (fun m -> v.v_meta <- m);
		"isStatic", vbool (has_var_flag v VStatic);
		"$", encode_unsafe (Obj.repr v);
	]

and encode_module_type mt =
	let tag,pl = match mt with
		| TClassDecl c -> 0,[encode_clref c]
		| TEnumDecl e -> 1,[encode_enref e]
		| TTypeDecl t -> 2,[encode_ref t encode_ttype (fun () -> s_type_path t.t_path)]
		| TAbstractDecl a -> 3,[encode_abref a]
	in
	encode_enum IModuleType tag pl

and encode_tfunc func =
	encode_obj [
		"args",encode_array (List.map (fun (v,c) ->
			encode_obj [
				"v",encode_tvar v;
				"value",match c with None -> vnull | Some c -> encode_texpr c
			]
		) func.tf_args);
		"t",encode_type func.tf_type;
		"expr",encode_texpr func.tf_expr
	]

and encode_field_access fa =
	let encode_instance c tl =
		encode_obj [
			"c",encode_clref c;
			"params",encode_tparams tl
		]
	in
	let tag,pl = match fa with
		| FInstance(c,tl,cf) -> 0,[encode_clref c;encode_tparams tl;encode_cfref cf]
		| FStatic(c,cf) -> 1,[encode_clref c;encode_cfref cf]
		| FAnon(cf) -> 2,[encode_cfref cf]
		| FDynamic(s) -> 3,[encode_string s]
		| FClosure(co,cf) -> 4,[(match co with Some (c,tl) -> encode_instance c tl | None -> vnull);encode_cfref cf]
		| FEnum(en,ef) -> 5,[encode_enref en;encode_efield ef]
	in
	encode_enum IFieldAccess tag pl

and encode_texpr e =
	let rec loop e =
		let tag, pl = match e.eexpr with
			| TConst c -> 0,[encode_tconst c]
			| TLocal v -> 1,[encode_tvar v]
			| TArray(e1,e2) -> 2,[loop e1; loop e2]
			| TBinop(op,e1,e2) -> 3,[encode_binop op;loop e1;loop e2]
			| TField(e1,fa) -> 4,[loop e1;encode_field_access fa]
			| TTypeExpr mt -> 5,[encode_module_type mt]
			| TParenthesis e1 -> 6,[loop e1]
			| TObjectDecl fl -> 7, [encode_array (List.map (fun ((f,_,_),e) ->
				encode_obj [
					"name",encode_string f;
					"expr",loop e;
				]) fl)]
			| TArrayDecl el -> 8,[encode_texpr_list el]
			| TCall(e1,el) -> 9,[loop e1;encode_texpr_list el]
			| TNew(c,pl,el) -> 10,[encode_clref c;encode_tparams pl;encode_texpr_list el]
			| TUnop(op,flag,e1) -> 11,[encode_unop op;vbool (flag = Postfix);loop e1]
			| TFunction func -> 12,[encode_tfunc func]
			| TVar (v,eo) -> 13,[encode_tvar v;vopt encode_texpr eo]
			| TBlock el -> 14,[encode_texpr_list el]
			| TIf(eif,ethen,eelse) -> 16,[loop eif;loop ethen;vopt encode_texpr eelse]
			| TWhile(econd,e1,flag) -> 17,[loop econd;loop e1;vbool (flag = NormalWhile)]
			| TSwitch switch ->
				let switch_subject = if switch.switch_exhaustive then
					let meta = (Meta.Exhaustive,[],null_pos) in
					{switch.switch_subject with eexpr = (TMeta(meta,switch.switch_subject))}
				else
					switch.switch_subject
				in
				18,[
					loop switch_subject;
					encode_array (List.map (fun case -> encode_obj ["values",encode_texpr_list case.case_patterns;"expr",loop case.case_expr]) switch.switch_cases);
					vopt encode_texpr switch.switch_default
				]
			| TTry(e1,catches) -> 19,[
				loop e1;
				encode_array (List.map (fun (v,e) ->
					encode_obj [
						"v",encode_tvar v;
						"expr",loop e
					]) catches
				)]
			| TReturn e1 -> 20,[vopt encode_texpr e1]
			| TBreak -> 21,[]
			| TContinue -> 22,[]
			| TThrow e1 -> 23,[loop e1]
			| TCast(e1,mt) -> 24,[loop e1;match mt with None -> vnull | Some mt -> encode_module_type mt]
			| TMeta(m,e1) -> 25,[encode_meta_entry m;loop e1]
			| TEnumParameter(e1,ef,i) -> 26,[loop e1;encode_efield ef;vint i]
			| TEnumIndex e1 -> 27,[loop e1]
			| TIdent s -> 28,[encode_string s]
		in
		encode_obj [
			"pos", encode_pos e.epos;
			"expr", encode_enum ITypedExpr tag pl;
			"t", encode_type e.etype
		]
	in
	loop e

and encode_texpr_list el =
	encode_array (List.map encode_texpr el)

(* ---------------------------------------------------------------------- *)
(* TEXPR Decoding *)

let decode_tconst c =
	match decode_enum c with
	| 0, [s] -> TInt (decode_i32 s)
	| 1, [s] -> TFloat (decode_string s)
	| 2, [s] -> TString (decode_string s)
	| 3, [s] -> TBool (decode_bool s)
	| 4, [] -> TNull
	| 5, [] -> TThis
	| 6, [] -> TSuper
	| _ -> raise Invalid_expr

let decode_tvar v =
	(Obj.obj (decode_unsafe (field v "$")) : tvar)

let decode_var_access v =
	match decode_enum v with
	| 0, [] -> AccNormal
	| 1, [] -> AccNo
	| 2, [] -> AccNever
	| 4, [] -> AccCall
	| 5, [] -> AccPrivateCall
	| 6, [] -> AccInline
	| 7, [s1;s2] -> AccRequire(decode_string s1, opt decode_string s2)
	| 8, [] -> AccCtor
	| _ -> raise Invalid_expr

let decode_method_kind v =
	match decode_enum v with
	| 0, [] -> MethNormal
	| 1, [] -> MethInline
	| 2, [] -> MethDynamic
	| 3, [] -> MethMacro
	| _ -> raise Invalid_expr

let decode_field_kind v =
	match decode_enum v with
	| 0, [vr;vw] -> Type.Var({v_read = decode_var_access vr; v_write = decode_var_access vw})
	| 1, [m] -> Method (decode_method_kind m)
	| _ -> raise Invalid_expr

let decode_efield v =
	let rec get_enum t =
		match follow t with
		| TEnum (enm,_) -> enm
		| TFun (_,t) -> get_enum t
		| _ -> raise Not_found
	in
	let name = decode_string (field v "name") in
	try
		let enm = get_enum (decode_type (field v "type")) in
		PMap.find name enm.e_constrs
	with Not_found ->
		raise Invalid_expr

let decode_field_access v =
	match decode_enum v with
	| 0, [c;tl;cf] ->
		let c = decode_ref c in
		FInstance(c,List.map decode_type (decode_array tl),decode_ref cf)
	| 1, [c;cf] -> FStatic(decode_ref c,decode_ref cf)
	| 2, [cf] -> FAnon(decode_ref cf)
	| 3, [s] -> FDynamic(decode_string s)
	| 4, [co;cf] ->
		let co = if co = vnull then None else Some (decode_ref (field co "c"),List.map decode_type (decode_array (field co "params"))) in
		FClosure(co,decode_ref cf)
	| 5, [e;ef] -> FEnum(decode_ref e,decode_efield ef)
	| _ -> raise Invalid_expr

let decode_module_type v =
	match decode_enum v with
	| 0, [c] -> TClassDecl (decode_ref c)
	| 1, [en] -> TEnumDecl (decode_ref en)
	| 2, [t] -> TTypeDecl (decode_ref t)
	| 3, [a] -> TAbstractDecl (decode_ref a)
	| _ -> raise Invalid_expr

let rec decode_tfunc v =
	{
		tf_args = List.map (fun v -> decode_tvar (field v "v"),opt decode_texpr (field v "value")) (decode_array (field v "args"));
		tf_type = decode_type (field v "t");
		tf_expr = decode_texpr (field v "expr")
	}

and decode_texpr v =
	let rec loop v =
		let p = decode_pos (field v "pos") in
		mk (decode (field v "expr") p) (decode_type (field v "t")) p
	and decode e p =
		match decode_enum e with
		| 0, [c] ->	TConst(decode_tconst c)
		| 1, [v] -> TLocal(decode_tvar v)
		| 2, [v1;v2] -> TArray(loop v1,loop v2)
		| 3, [op;v1;v2] -> TBinop(decode_op op,loop v1,loop v2)
		| 4, [v1;fa] -> TField(loop v1,decode_field_access fa)
		| 5, [mt] -> TTypeExpr(decode_module_type mt)
		| 6, [v1] -> TParenthesis(loop v1)
		| 7, [v] -> TObjectDecl(List.map (fun v -> (decode_string (field v "name"),p,NoQuotes),loop (field v "expr")) (decode_array v))
		| 8, [vl] -> TArrayDecl(List.map loop (decode_array vl))
		| 9, [v1;vl] -> TCall(loop v1,List.map loop (decode_array vl))
		| 10, [c;tl;vl] -> TNew(decode_ref c,List.map decode_type (decode_array tl),List.map loop (decode_array vl))
		| 11, [op;pf;v1] -> TUnop(decode_unop op,(if decode_bool pf then Postfix else Prefix),loop v1)
		| 12, [f] -> TFunction(decode_tfunc f)
		| 13, [v;eo] -> TVar(decode_tvar v,opt loop eo)
		| 14, [vl] -> TBlock(List.map loop (decode_array vl))
		(* 15 was TFor *)
		| 16, [vif;vthen;velse] -> TIf(loop vif,loop vthen,opt loop velse)
		| 17, [vcond;v1;b] -> TWhile(loop vcond,loop v1,if decode_bool b then NormalWhile else DoWhile)
		| 18, [v1;cl;vdef] ->
			let is_exhaustive e1 def =
				let rec loop e1 = match e1.eexpr with
					| TMeta((Meta.Exhaustive,_,_),_) -> true
					| TMeta(_, e1) | TParenthesis e1 -> loop e1
					| _ -> false
				in
				def <> None || loop e1
			in
			let subject = loop v1 in
			let cases = List.map (fun v -> {
					case_patterns = List.map loop (decode_array (field v "values"));
					case_expr = loop (field v "expr")
				}) (decode_array cl)
			in
			let default = opt loop vdef in
			let switch = mk_switch subject cases default (is_exhaustive subject default) in
			TSwitch switch
		| 19, [v1;cl] -> TTry(loop v1,List.map (fun v -> decode_tvar (field v "v"),loop (field v "expr")) (decode_array cl))
		| 20, [vo] -> TReturn(opt loop vo)
		| 21, [] -> TBreak
		| 22, [] -> TContinue
		| 23, [v1] -> TThrow(loop v1)
		| 24, [v1;mto] -> TCast(loop v1,opt decode_module_type mto)
		| 25, [m;v1] -> TMeta(decode_meta_entry m,loop v1)
		| 26, [v1;ef;i] -> TEnumParameter(loop v1,decode_efield ef,decode_int i)
		| 27, [v1] -> TEnumIndex(loop v1)
		| 28, [v1] -> TIdent(decode_string v1)
		| i,el -> Printf.printf "%i %i\n" i (List.length el); raise Invalid_expr
	in
	try
		loop v
	with Stack_overflow ->
		raise Invalid_expr

(* ---------------------------------------------------------------------- *)
(* TYPE DEFINITION *)

let decode_type_def v =
	let pack = List.map decode_string (decode_array (field v "pack")) in
	let name = decode_placed_name (field v "name_pos") (field v "name") in
	let meta = decode_meta_content (field v "meta") in
	let pos = decode_pos (field v "pos") in
	let isExtern = decode_opt_bool (field v "isExtern") in
	let fields = List.map decode_field (decode_array (field v "fields")) in
	let doc = decode_doc (field v "doc") in
	let mk fl dl =
		{
			d_name = name;
			d_doc = doc;
			d_params = decode_tparams (field v "params");
			d_meta = meta;
			d_flags = fl;
			d_data = dl;
		}
	in
	let tdef = (match decode_enum (field v "kind") with
	| 0, [] ->
		let conv f =
			let loop ((n,_),opt,_,t,_) =
				match t with
				| None -> raise Invalid_expr
				| Some t -> n, opt, t
			in
			let args, params, t = (match f.cff_kind with
				| FVar (t,None) -> [], [], t
				| FFun f -> List.map loop f.f_args, f.f_params, f.f_type
				| _ -> raise Invalid_expr
			) in
			{
				ec_name = f.cff_name;
				ec_doc = f.cff_doc;
				ec_meta = f.cff_meta;
				ec_pos = f.cff_pos;
				ec_args = args;
				ec_params = params;
				ec_type = t;
			}
		in
		EEnum (mk (if isExtern then [EExtern] else []) (List.map conv fields))
	| 1, [] ->
		ETypedef (mk (if isExtern then [TDExtern] else []) (CTAnonymous fields,pos))
	| 2, [ext;impl;interf;final;abstract] ->
		let flags = if isExtern then [HExtern] else [] in
		let is_interface = decode_opt_bool interf in
		let is_final = decode_opt_bool final in
		let is_abstract = decode_opt_bool abstract in
		let interfaces = (match opt (fun v -> List.map decode_ast_path (decode_array v)) impl with Some l -> l | _ -> [] ) in
		let flags = (match opt decode_ast_path ext with None -> flags | Some t -> HExtends t :: flags) in
		let flags = if is_interface then begin
				let flags = HInterface :: flags in
				List.map (fun t -> HExtends t) interfaces @ flags
			end else begin
				List.map (fun t -> HImplements t) interfaces @ flags
			end
		in
		let flags = if is_final then HFinal :: flags else flags in
		let flags = if is_abstract then HAbstract :: flags else flags in
		EClass (mk flags fields)
	| 3, [t] ->
		ETypedef (mk (if isExtern then [TDExtern] else []) (decode_ctype t))
	| 4, [tthis;tflags;tfrom;tto] ->
		let flags = match opt decode_array tflags with
			| None -> []
			| Some ta -> List.map (fun f -> match decode_enum f with
				| 0, [] -> AbEnum
				| 1, [ct] -> AbFrom (decode_ctype ct)
				| 2, [ct] -> AbTo (decode_ctype ct)
				| _ -> raise Invalid_expr
		) ta in
		let flags = match opt decode_array tfrom with None -> flags | Some ta -> List.map (fun t -> AbFrom (decode_ctype t)) ta @ flags in
		let flags = match opt decode_array tto with None -> flags | Some ta -> (List.map (fun t -> AbTo (decode_ctype t)) ta) @ flags in
		let flags = match opt decode_ctype tthis with None -> flags | Some t -> (AbOver t) :: flags in
		let flags = if isExtern then AbExtern :: flags else flags in
		EAbstract(mk flags fields)
	| 5, [fk;al] ->
		let fk = decode_class_field_kind fk in
		let al = List.map decode_access (opt_list decode_array al) in
		(* let al = if isExtern then (AExtern,pos) :: al else al in *)
		EStatic (mk al fk)
	| _ ->
		raise Invalid_expr
	) in
	(* if our package ends with an uppercase letter, then it's the module name *)
	let pack,name = (match List.rev pack with
		| last :: l when String.length last > 0 && StringHelper.starts_uppercase_identifier last -> List.rev l, last
		| _ -> pack, fst name
	) in
	(pack, name), tdef, pos

let decode_path v =
	let pack = List.map decode_string (decode_array (field v "pack"))
	and name = decode_string (field v "name") in
	(pack,name)

let decode_platform_config v =
	let capture_policy = match decode_enum (field v "capturePolicy") with
		| 0, [] -> CPNone
		| 1, [] -> CPWrapRef
		| 2, [] -> CPLoopVars
		| _ -> raise Invalid_expr
	in
	let v_exc = field v "exceptions" in
	let exception_config = {
		ec_native_throws = List.map decode_path (decode_array (field v_exc "nativeThrows"));
		ec_native_catches = List.map decode_path (decode_array (field v_exc "nativeCatches"));
		ec_avoid_wrapping = decode_bool (field v_exc "avoidWrapping");
		ec_wildcard_catch = decode_path (field v_exc "wildcardCatch");
		ec_base_throw = decode_path (field v_exc "baseThrow");
		ec_special_throw = (fun _ -> (* wtf is this? *) false);
	} in
	let v_scoping = field v "scoping" in
	let decode_scope_flag v = match decode_enum v with
		| 0, [] -> VarHoisting
		| 1, [] -> NoShadowing
		| 2, [] -> NoCatchVarShadowing
		| 3, [] -> ReserveCurrentTopLevelSymbol
		| 4, [] -> ReserveAllTopLevelSymbols
		| 5, [] -> ReserveAllTypesFlat
		| 6, [sl] -> ReserveNames (List.map decode_string (decode_array sl))
		| 7, [] -> SwitchCasesNoBlocks
		| _ -> raise Invalid_expr
	in
	let var_scoping_config = {
		vs_scope = (match decode_enum (field v_scoping "scope") with
			| 0,[] -> FunctionScope
			| 1,[] -> BlockScope
			| _ -> raise Invalid_expr
		);
		vs_flags = List.map decode_scope_flag (decode_array (field v_scoping "flags"));
	} in
	{
		pf_static = decode_bool (field v "staticTypeSystem");
		pf_sys = decode_bool (field v "sys");
		pf_capture_policy = capture_policy;
		pf_pad_nulls = decode_bool (field v "padNulls");
		pf_add_final_return = decode_bool (field v "addFinalReturn");
		pf_overload = decode_bool (field v "overloadFunctions");
		pf_can_skip_non_nullable_argument = false;
		pf_reserved_type_paths = List.map decode_path (decode_array (field v "reservedTypePaths"));
		pf_supports_function_equality = decode_bool (field v "supportsFunctionEquality");
		pf_uses_utf16 = decode_bool (field v "usesUtf16");
		pf_this_before_super = decode_bool (field v "thisBeforeSuper");
		pf_supports_threads = decode_bool (field v "supportsThreads");
		pf_supports_unicode = decode_bool (field v "supportsUnicode");
		pf_supports_rest_args = decode_bool (field v "supportsRestArgs");
		pf_exceptions = exception_config;
		pf_scoping = var_scoping_config;
		pf_supports_atomics = decode_bool (field v "supportsAtomics");
	}

(* ---------------------------------------------------------------------- *)
(* VALUE-TO-CONSTANT *)

let rec make_const e =
	match e.eexpr with
	| TConst c ->
		(match c with
		| TInt i -> vint32 i
		| TFloat s -> vfloat (float_of_string s)
		| TString s -> encode_string s
		| TBool b -> vbool b
		| TNull -> vnull
		| TThis | TSuper -> raise Exit)
	| TParenthesis e | TMeta(_,e) | TCast(e,None) ->
		make_const e
	| TObjectDecl el ->
		encode_obj (List.map (fun ((f,_,_),e) -> f, make_const e) el)
	| TArrayDecl al ->
		encode_array (List.map make_const al)
	| _ ->
		raise Exit


(* ------------------------------------------------------------------------- *)
(* MACRO API *)

(**

	Our macro API implementation. It gets called by the interpreter and
	accesses the compiler with the compiler_api

**)

let macro_api ccom get_api =
	let decode_type v =
		try decode_type v
		with Invalid_expr -> (get_api()).exc_string "Invalid expression"
	in
	let decode_expr v =
		try decode_expr v
		with Invalid_expr -> (get_api()).exc_string "Invalid expression"
	in
	let decode_texpr v =
		try decode_texpr v
		with Invalid_expr -> (get_api()).exc_string "Invalid expression"
	in
	let failwith s = (get_api()).exc_string s in
	[
		"contains_display_position", vfun1 (fun p ->
			let p = decode_pos p in
			let display_pos = DisplayPosition.display_position in
			let same_file() =
				let dfile = display_pos#get.pfile in
				dfile = p.pfile
				|| (
					let com = ccom() in
					(Filename.is_relative p.pfile || Filename.is_relative dfile)
					&& (com.file_keys#get dfile = com.file_keys#get p.pfile)
				)
			in
			vbool (display_pos#enclosed_in p && same_file())
		);
		"current_pos", vfun0 (fun() ->
			encode_pos (get_api()).pos
		);
		"get_macro_stack", vfun0 (fun () ->
			let stack = ((get_api()).get_macro_stack ()) in
			encode_array (List.map encode_pos stack)
		);
		"init_macros_done", vfun0 (fun () ->
			vbool ((get_api()).init_macros_done ())
		);
		"error", vfun3 (fun msg p sub ->
			let msg = decode_string msg in
			let p = decode_pos p in
			let sub = decode_sub_errors sub in
			(get_api()).display_error ~sub msg p;
			raise Abort
		);
		"fatal_error", vfun3 (fun msg p sub ->
			let msg = decode_string msg in
			let pos = decode_pos p in
			let sub = decode_sub_errors sub in
			raise (Error.Fatal_error (Error.convert_error {msg; pos; sub}))
		);
		"report_error", vfun3 (fun msg p sub ->
			let msg = decode_string msg in
			let p = decode_pos p in
			let sub = decode_sub_errors sub in
			(get_api()).display_error ~sub msg p;
			vnull
		);
		"warning", vfun3 (fun msg p depth ->
			let msg = decode_string msg in
			let p = decode_pos p in
			let depth = decode_int depth in
			(get_api()).warning ~depth WUser msg p;
			vnull
		);
		"info", vfun3 (fun msg p depth ->
			let msg = decode_string msg in
			let p = decode_pos p in
			let depth = decode_int depth in
			(get_api()).info ~depth msg p;
			vnull
		);
		"get_messages", vfun0 (fun() ->
			encode_array (List.map (fun msg -> encode_message msg) ((ccom()).get_messages()));
		);
		"filter_messages", vfun1 (fun predicate ->
			let predicate = prepare_callback predicate 2 in
			(ccom()).filter_messages (fun msg -> (
				decode_bool (predicate [encode_message msg])
			));
			vnull
		);
		"class_path", vfun0 (fun() ->
			encode_array (List.map encode_string (ccom()).class_paths#as_string_list);
		);
		"resolve_path", vfun1 (fun file ->
			let file = decode_string file in
			encode_string (try Common.find_file (ccom()) file with Not_found -> failwith ("File not found '" ^ file ^ "'"))
		);
		"define", vfun2 (fun s v ->
			let s = decode_string s in
			let com = ccom() in
			if v = vnull then
				Common.external_define com s
			else
				Common.external_define_value com s (decode_string v);
			vnull
		);
		"defined", vfun1 (fun s ->
			vbool (Common.external_defined (ccom()) (decode_string s))
		);
		"defined_value", vfun1 (fun s ->
			try encode_string (Common.external_defined_value (ccom()) (decode_string s)) with Not_found -> vnull
		);
		"get_defines", vfun0 (fun() ->
			encode_string_map encode_string (Common.defines_for_external (ccom()))
		);
		"get_type", vfun1 (fun s ->
			let tname = decode_string s in
			match (get_api()).get_type tname with
			| None -> failwith ("Type not found '" ^ tname ^ "'")
			| Some t -> encode_type t
		);
		"get_module", vfun1 (fun s ->
			encode_array (List.map encode_type ((get_api()).get_module (decode_string s)))
		);
		"include_module", vfun1 (fun s ->
			(get_api()).include_module (decode_string s);
			vnull
		);
		"on_after_init_macros", vfun1 (fun f ->
			let f = prepare_callback f 1 in
			(get_api()).after_init_macros (fun tctx -> ignore(f []));
			vnull
		);
		"on_after_typing", vfun1 (fun f ->
			let f = prepare_callback f 1 in
			(get_api()).after_typing (fun tl -> ignore(f [encode_array (List.map encode_module_type tl)]));
			vnull
		);
		"on_generate", vfun2 (fun f b ->
			let f = prepare_callback f 1 in
			(get_api()).on_generate (fun tl -> ignore(f [encode_array (List.map encode_type tl)])) (decode_bool b);
			vnull
		);
		"on_after_generate", vfun1 (fun f ->
			let f = prepare_callback f 0 in
			(get_api()).after_generate (fun () -> ignore(f []));
			vnull
		);
		"on_type_not_found", vfun1 (fun f ->
			let f = prepare_callback f 1 in
			(get_api()).on_type_not_found (fun path -> f [encode_string path]);
			vnull
		);
		"do_parse", vfun3 (fun s p b ->
			let s = decode_string s in
			if s = "" then (get_api()).exc_string "Invalid expression";
			encode_expr ((get_api()).parse_string s (decode_pos p) (decode_bool b))
		);
		"register_file_contents", vfun2 (fun f c ->
			let f = decode_string f in
			let content = decode_string c in
			(get_api()).register_file_contents f content;
			vnull
		);
		"make_expr", vfun2 (fun v p ->
			encode_expr (value_to_expr v (decode_pos p))
		);
		"signature", vfun1 (fun v ->
			try
				encode_string (Digest.to_hex (value_signature v))
			with Invalid_argument msg ->
				(get_api()).exc_string msg
		);
		"to_complex_type", vfun1 (fun v ->
			try	encode_ctype (TExprToExpr.convert_type' (decode_type v))
			with Exit -> vnull
		);
		"unify", vfun2 (fun t1 t2 ->
			let e1 = mk (TObjectDecl []) (decode_type t1) Globals.null_pos in
			vbool (((get_api()).cast_or_unify) (decode_type t2) e1 Globals.null_pos)
		);
		"typeof", vfun1 (fun v ->
			encode_type ((get_api()).type_expr (decode_expr v)).etype
		);
		"type_expr", vfun1 (fun v ->
			encode_texpr ((get_api()).type_expr (decode_expr v))
		);
		"resolve_type", vfun2 (fun t p ->
			encode_type ((get_api()).resolve_type (fst (decode_ctype t)) (decode_pos p));
		);
		"resolve_complex_type", vfun2 (fun ct p ->
			encode_ctype ((get_api()).resolve_complex_type (fst (decode_ctype ct),decode_pos p))
		);
		"s_type", vfun1 (fun v ->
			encode_string (Type.s_type (print_context()) (decode_type v))
		);
		"s_expr", vfun2 (fun v b ->
			let f = if decode_opt_bool b then Type.s_expr_pretty false "" false else Type.s_expr_ast true "" in
			encode_string (f (Type.s_type (print_context())) (decode_texpr v))
		);
		"format_string", vfun2 (fun s p ->
			encode_expr ((get_api()).format_string (decode_string s) (decode_pos p))
		);
		"allow_package", vfun1 (fun s ->
			(get_api()).allow_package (decode_string s);
			vnull
		);
		"add_global_metadata_impl", vfun5 (fun s1 s2 b1 b2 b3 ->
			(get_api()).add_global_metadata (decode_string s1) (decode_string s2) (decode_bool b1,decode_bool b2,decode_bool b3) (get_api_call_pos());
			vnull
		);
		"register_define_impl", vfun2 (fun d src ->
			let flags : define_parameter list = [] in

			let platforms = decode_opt_array decode_string (field d "platforms") in
			let flags = match platforms with
				| [] -> flags
				| _ ->(Platforms (List.map (fun p -> (Globals.parse_platform p)) platforms)) :: flags
			in

			let params = decode_opt_array decode_string (field d "params") in
			let flags = List.append flags (List.map (fun p -> (HasParam p : define_parameter)) params) in

			let links = decode_opt_array decode_string (field d "links") in
			let flags = List.append flags (List.map (fun l -> (Link l : define_parameter)) links) in

			(get_api()).register_define (decode_string (field d "define")) {
				doc = decode_string (field d "doc");
				flags = flags;
				source = opt decode_string src;
			};
			vnull
		);
		"register_metadata_impl", vfun2 (fun m src ->
			let flags : meta_parameter list = [] in

			let platforms = decode_opt_array decode_string (field m "platforms") in
			let flags =
				if (List.length platforms) = 0 then flags
				else (Platforms (List.map (fun p -> (Globals.parse_platform p)) platforms)) :: flags
			in

			let targets = decode_opt_array decode_string (field m "targets") in
			let flags =
				if (List.length targets) = 0 then flags
				else (UsedOn (List.map MetaList.parse_meta_usage targets)) :: flags
			in

			let params = decode_opt_array decode_string (field m "params") in
			let flags = List.append flags (List.map (fun p -> HasParam p) params) in

			let links = decode_opt_array decode_string (field m "links") in
			let flags = List.append flags (List.map (fun l -> Link l) links) in

			(get_api()).register_metadata (decode_string (field m "metadata")) {
				doc = decode_string (field m "doc");
				flags = flags;
				source = opt decode_string src;
			};
			vnull
		);
		"set_custom_js_generator", vfun1 (fun f ->
			let f = prepare_callback f 1 in
			let gen com js_ctx =
				Genjs.setup_kwds com;
				let api = encode_obj [
					"outputFile", encode_string com.file;
					"types", encode_array (List.map (fun t -> encode_type (type_of_module_type t)) com.types);
					"main", (match com.main.main_expr with None -> vnull | Some e -> encode_texpr e);
					"generateValue", vfun1 (fun v ->
						let e = decode_texpr v in
						let str = Genjs.gen_single_expr js_ctx e false in
						encode_string str
					);
					"isKeyword", vfun1 (fun v ->
						vbool (Hashtbl.mem Genjs.kwds (decode_string v))
					);
					"hasFeature", vfun1 (fun v ->
						vbool (Gctx.has_feature com (decode_string v))
					);
					"addFeature", vfun1 (fun v ->
						Gctx.add_feature com (decode_string v);
						vnull
					);
					"quoteString", vfun1 (fun v ->
						encode_string ("\"" ^ StringHelper.s_escape (decode_string v) ^ "\"")
					);
					"buildMetaData", vfun1 (fun t ->
						match Texpr.build_metadata com.basic (decode_type_decl t) with
						| None -> vnull
						| Some e -> encode_texpr e
					);
					"generateStatement", vfun1 (fun v ->
						let e = decode_texpr v in
						let str = Genjs.gen_single_expr js_ctx e true in
						encode_string str
					);
					"setTypeAccessor", vfun1 (fun callb ->
						let callb = prepare_callback callb 1 in
						js_ctx.Genjs.type_accessor <- (fun t ->
							decode_string (callb [encode_type (type_of_module_type t)])
						);
						vnull
					);
					"setCurrentClass", vfun1 (fun c ->
						Genjs.set_current_class js_ctx (match decode_type_decl c with TClassDecl c -> c | _ -> Globals.die "" __LOC__);
						vnull
					);
				] in
				ignore(f [api]);
			in
			let com = ccom() in
			com.js_gen <- Some (fun() ->
				Path.mkdir_from_path com.file;
				let js_ctx = Genjs.alloc_ctx (Common.to_gctx com) (Gctx.get_es_version com.defines) in
				gen (Common.to_gctx com) js_ctx;
			);
			vnull
		);
		"flush_disk_cache", vfun0 (fun () ->
			let com = (get_api()).get_com() in
			com.class_paths#clear_cache;
			vnull
		);
		"get_pos_infos", vfun1 (fun p ->
			let p = decode_pos p in
			encode_obj ["min",vint p.Globals.pmin;"max",vint p.Globals.pmax;"file",encode_string p.Globals.pfile]
		);
		"make_position", vfun3 (fun min max file ->
			encode_pos { Globals.pmin = decode_int min; Globals.pmax = decode_int max; Globals.pfile = decode_string file }
		);
		"add_resource", vfun2 (fun name data ->
			let name = decode_string name in
			let data = decode_bytes data in
			let data = Bytes.unsafe_to_string data in
			if name = "" then failwith "Empty resource name";
			Hashtbl.replace (ccom()).resources name data;
			let m = (get_api()).current_module() in
			DynArray.add m.m_extra.m_cache_bound_objects (Resource(name,data));
			vnull
		);
		"get_resources", vfun0 (fun() ->
			let pmap_resources = Hashtbl.fold (fun k v acc -> PMap.add k v acc) (ccom()).resources PMap.empty in
			let encode_string_to_bytes s = encode_bytes (Bytes.of_string s) in
			encode_string_map encode_string_to_bytes pmap_resources
		);
		"get_local_module", vfun0 (fun() ->
			let m = (get_api()).current_module() in
			encode_string (s_type_path m.m_path);
		);
		"get_local_type", vfun0 (fun() ->
			match (get_api()).get_local_type() with
			| None -> vnull
			| Some t -> encode_type t
		);
		"get_expected_type", vfun0 (fun() ->
			match (get_api()).get_expected_type() with
			| None -> vnull
			| Some t -> encode_type t
		);
		"get_call_arguments", vfun0 (fun() ->
			match (get_api()).get_call_arguments() with
			| None -> vnull
			| Some el -> encode_array (List.map encode_expr el)
		);
		"get_local_method", vfun0 (fun() ->
			encode_string ((get_api()).get_local_method())
		);
		"get_local_using", vfun0 (fun() ->
			encode_array (List.map encode_clref ((get_api()).get_local_using()))
		);
		"get_local_imports", vfun0 (fun() ->
			encode_array (List.map encode_import ((get_api()).get_local_imports()))
		);
		"local_vars", vfun1 (fun as_var ->
			let as_var = decode_opt_bool as_var in
			let vars = (get_api()).get_local_vars() in
			encode_string_map (if as_var then encode_tvar else (fun v -> encode_type v.v_type)) vars
		);
		"follow_with_abstracts", vfun2 (fun v once ->
			let t = decode_type v in
			let follow_once t =
				match t with
				| TMono r ->
					(match r.tm_type with
					| None -> t
					| Some t -> t)
				| TAbstract (a,tl) when not (Meta.has Meta.CoreType a.a_meta) ->
					Abstract.get_underlying_type a tl
				| TAbstract _ | TEnum _ | TInst _ | TFun _ | TAnon _ | TDynamic _ ->
					t
				| TType (t,tl) ->
					apply_typedef t tl
				| TLazy f ->
					lazy_type f
			in
			encode_type (if decode_opt_bool once then follow_once t else Abstract.follow_with_abstracts t)
		);
		"follow", vfun2 (fun v once ->
			let t = decode_type v in
			encode_type (if decode_opt_bool once then follow_once t else follow t)
		);
		"get_build_fields", vfun0 (fun() ->
			(get_api()).get_build_fields()
		);
		"define_type", vfun2 (fun v m ->
			(get_api()).define_type v (opt decode_string m);
			vnull
		);
		"make_monomorph", vfun0 (fun() ->
			let t = TMono (Monomorph.create ()) in
			encode_type t
		);
		"define_module", vfun4 (fun path vl ui ul ->
			(get_api()).define_module (decode_string path) (decode_array vl) (List.map decode_import (decode_array ui)) (List.map (fun ptp -> ptp.path) (List.map decode_ast_path (decode_array ul)));
			vnull
		);
		"add_class_path", vfun1 (fun cp ->
			let com = ccom() in
			let cp = decode_string cp in
			let path = Path.add_trailing_slash cp in
			let cp = new ClassPath.directory_class_path path User in
			com.class_paths#add cp;
			(match com.get_macros() with
			| Some(mcom) ->
				mcom.class_paths#add cp#clone;
			| None ->
				());
			com.class_paths#clear_cache;
			vnull
		);
		"add_native_lib", vfun1 (fun file ->
			let file = decode_string file in
			let com = ccom() in
			let open CompilationContext in
			let kind = match com.platform with
				| Jvm -> JavaLib
				| Flash -> SwfLib
				| _ -> failwith "Unsupported platform"
			in
			let lib = create_native_lib file false kind in
			NativeLibraryHandler.add_native_lib com lib ();
			vnull
		);
		"register_module_dependency", vfun2 (fun m file ->
			(get_api()).module_dependency (decode_string m) (decode_string file);
			vnull
		);
		"get_typed_expr", vfun1 (fun e ->
			let e = decode_texpr e in
			encode_expr (TExprToExpr.convert_expr e)
		);
		"store_expr", vfun1 (fun e ->
			let api = get_api() in
			let te = (api.type_expr (decode_expr e)) in
			encode_expr (api.store_typed_expr te)
		);
		"store_typed_expr", vfun1 (fun e ->
			let e = decode_texpr e in
			encode_expr ((get_api()).store_typed_expr e)
		);
		"type_and_store_expr", vfun1 (fun e ->
			let api = get_api() in
			let te = (api.type_expr (decode_expr e)) in
			let v_e = encode_expr (api.store_typed_expr te) in
			let v_to_string () = (s_type (print_context())) te.etype in
			encode_obj ["expr",v_e;"type",encode_ref te.etype encode_type v_to_string]
		);
		"get_output", vfun0 (fun() ->
			encode_string (ccom()).file
		);
		"set_output", vfun1 (fun s ->
			(ccom()).file <- decode_string s;
			vnull
		);
		"get_display_pos", vfun0 (fun() ->
			let p = DisplayPosition.display_position#get in
			if p = Globals.null_pos then
				vnull
			else
				encode_obj ["file",encode_string p.Globals.pfile;"pos",vint p.Globals.pmin]
		);
		"get_display_mode", vfun0 (fun() ->
			encode_display_mode (ccom()).display.dms_kind;
		);
		"get_configuration", vfun0 (fun() ->
			let com = ccom() in
			encode_obj [
				"version", vint com.version.version;
				"args", encode_array (List.map encode_string com.args);
				"debug", vbool com.debug;
				"verbose", vbool com.verbose;
				"foptimize", vbool com.foptimize;
				"platform", encode_platform com.platform;
				"platformConfig", encode_platform_config com.config;
				"stdPath", encode_array (List.map (fun path -> encode_string path#path) com.class_paths#get_std_paths);
				"mainClass", (match com.main.main_path with None -> vnull | Some path -> encode_path path);
				"packageRules", encode_string_map encode_package_rule com.package_rules;
			]
		);
		"set_platform_configuration", vfun1 (fun v ->
			(ccom()).config <- decode_platform_config v;
			vnull
		);
		"get_main_expr", vfun0 (fun() ->
			match (ccom()).main.main_expr with None -> vnull | Some e -> encode_texpr e
		);
		"get_module_types", vfun0 (fun() ->
			encode_array (List.map encode_module_type (ccom()).types)
		);
		"type_to_module_type", vfun1 (fun(t) ->
			encode_module_type (module_type_of_type (decode_type t))
		);
		"module_type_to_type", vfun1 (fun(t) ->
			encode_type (type_of_module_type (decode_module_type t))
		);
		"apply_params", vfun3 (fun tpl tl t ->
			let tl = List.map decode_type (decode_array tl) in
			let tpl = List.map (fun v ->
				let t = decode_type (field v "t") in
				let default = None in (* we don't care here *)
				let c = match t with
					| TInst(({cl_kind = KTypeParameter _} as c),_) ->
						c
					| _ ->
						(get_api()).exc_string (Printf.sprintf "Unexpected type where type parameter was expected: %s" (s_type_kind t))
				in
				mk_type_param c TPHType default None
			) (decode_array tpl) in
			let rec map t = match t with
				| TInst({cl_kind = KTypeParameter _},_) ->
					begin try
						(* use non-physical equality check here to make apply_params work *)
						extract_param_type (List.find (fun tp2 -> type_iseq t tp2.ttp_type) tpl)
					with Not_found ->
						Type.map map t
					end
				| _ -> Type.map map t
			in
			let t = (map (decode_type t)) in
			let t = try
				apply_params tpl tl t
			with ApplyParamsMismatch ->
				let msg = Printf.sprintf "Could not apply type parameters to %s:\n\tparams: %s\n\ttypes: %s"
					(s_type_kind t)
					(String.concat ", " (List.map (s_type_param s_type_kind) tpl))
					(String.concat ", " (List.map s_type_kind tl))
				in
				(get_api()).exc_string msg
			in
			encode_type t
		);
		"include_file", vfun2 (fun file position ->
			let file = decode_string file in
			let position = decode_string position in
			let file = if Sys.file_exists file then
				file
			else try Common.find_file (ccom()) file with
				| Not_found ->
					failwith ("unable to find file for inclusion: " ^ file)
			in
			(ccom()).include_files <- (file, position) :: (ccom()).include_files;
			let m = (get_api()).current_module() in
			DynArray.add m.m_extra.m_cache_bound_objects (IncludeFile(file,position));
			vnull
		);
		(* Compilation server *)
		"server_add_module_check_policy", vfun3 (fun filter policy recursive ->
			let filter = List.map decode_string (decode_array filter) in
			let policy = List.map decode_int (decode_array policy) in
			(get_api()).add_module_check_policy filter policy (decode_bool recursive);
			vnull
		);
		"server_invalidate_module", vfun1 (fun p ->
			let mpath = parse_path (decode_string p) in
			let com = ccom() in
			(try
				ignore(com.module_lut#find mpath);
				let msg = "Cannot invalidate loaded module " ^ (s_type_path mpath) in
				let pos = get_api_call_pos() in
				compiler_error (Error.make_error (Custom msg) pos)
			with Not_found ->
				com.cs#taint_module mpath ServerInvalidateModule);
			vnull
		);
		"server_invalidate_files", vfun1 (fun a ->
			let com = ccom() in
			let cs = com.cs in
			List.iter (fun v ->
				let s = decode_string v in
				let s = com.file_keys#get s in
				cs#taint_modules s ServerInvalidateFiles;
				cs#remove_files s;
			) (decode_array a);
			vnull
		);
		"server_stats", vfun0 (fun () ->
			encode_obj [
				"filesParsed", vint !(stats.s_files_parsed);
				"modulesTyped", vint !(stats.s_modules_typed);
				"modulesRestoredFromHxb", vint !(stats.s_modules_restored);
				"classesBuilt", vint !(stats.s_classes_built);
				"methodsTyped", vint !(stats.s_methods_typed);
				"macrosCalled", vint !(stats.s_macros_called);
			]
		);
		"position_to_range", vfun1 (fun p ->
			let p = decode_pos p in
			let l1,c1,l2,c2 = Lexer.get_pos_coords p in
			let make_pos line character =
				encode_obj [
					"line",vint line;
					"character",vint character;
				]
			in
			let pos_start = make_pos l1 c1 in
			let pos_end = make_pos l2 c2 in
			let range = encode_obj [
				"start",pos_start;
				"end",pos_end;
			] in
			let location = encode_obj [
				"file",encode_string p.Globals.pfile;
				"range",range
			] in
			location
		);
		"position_to_zero_range", vfun1 (fun p ->
			let p = decode_pos p in
			encode_pos (mk_zero_range_pos p)
		);
		"on_null_safety_report", vfun1 (fun f ->
			let f = prepare_callback f 1 in
			(ccom()).callbacks#add_null_safety_report (fun (errors:(string*pos) list) ->
				let encode_item (msg,pos) =
					encode_obj [("msg", encode_string msg); ("pos", encode_pos pos)]
				in
				ignore(f [encode_array (List.map encode_item errors)])
			);
			vnull
		);
		"timer", vfun1 (fun id ->
			let com = ccom() in
			let full_id = com.timer_ctx.current.id @ [decode_string id] in
			(* TIMERTODO: Exposing this seems potentially dangerous... Have to at least document. *)
			let stop = Timer.start_timer com.timer_ctx full_id in
			vfun0 (fun() -> stop(); vnull)
		);
		"map_anon_ref", vfun2 (fun a_ref fn ->
			let a = decode_ref a_ref
			and fn = prepare_callback fn 1 in
			match map (fun t -> decode_type (fn [encode_type t])) (TAnon a) with
			| TAnon a -> encode_ref a encode_tanon (fun() -> "<anonymous>")
			| _ -> Globals.die "" __LOC__
		);
		"with_imports", vfun3(fun imports usings f ->
			let imports = List.map decode_string (decode_array imports) in
			let imports = List.map ((get_api()).parse (fun pctx s -> Grammar.parse_import' pctx s Globals.null_pos)) imports in
			let usings = List.map decode_string (decode_array usings) in
			let usings = List.map ((get_api()).parse (fun pctx s -> Grammar.parse_using' pctx s Globals.null_pos)) usings in
			let f = prepare_callback f 0 in
			(get_api()).with_imports imports usings (fun () -> f [])
		);
		"with_options", vfun2(fun opts f ->
			let o = {
				opt_inlining = opt decode_bool (field opts "allowInlining");
				opt_transform = opt decode_bool (field opts "allowTransform");
			} in
			let f = prepare_callback f 0 in
			(get_api()).with_options o (fun() -> f []);
		);
		"set_var_name", vfun2(fun v name ->
			let v = decode_tvar v in
			let name = decode_string name in
			v.v_name <- name;
			vnull;
		);
		"send_json", vfun1 (fun json ->
			begin match (ccom()).json_out with
			| Some api ->
				let json = decode_string json in
				let lexbuf = Sedlexing.Utf8.from_string json in
				let parse = Json.Reader.read_json lexbuf in
				api.send_result parse;
				vbool true
			| None ->
				vbool false
			end
		);
		"get_hxb_writer_config", vfun0 (fun () ->
			(get_api()).get_hxb_writer_config ()
		);
		"set_hxb_writer_config", vfun1 (fun v ->
			(get_api()).set_hxb_writer_config v;
			vnull
		);
		"associate_enum_value_pos",vfun2 (fun ve vp ->
			let p = decode_pos vp in
			associate_enum_value_pos ve p;
			vnull;
		);
	]
end
