Module Js_of_ocaml_compiler.Javascript
module Num : sig ... endmodule Label : sig ... endtype location=|Pi of Parse_info.t|N|Utype identifier= stringtype ident_string={name : identifier;var : Code.Var.t option;loc : location;}type ident=|S of ident_string|V of Code.Var.tand array_litteral= element_listand element_list= expression option listand binop=and unop=|Not|Neg|Pl|Typeof|Void|Delete|Bnot|IncrA|DecrA|IncrB|DecrBand arguments= expression listand property_name_and_value_list= (property_name * expression) listand property_name=|PNI of identifier|PNS of string|PNN of Num.tand expression=|ESeq of expression * expression|ECond of expression * expression * expression|EBin of binop * expression * expression|EUn of unop * expression|ECall of expression * arguments * location|EAccess of expression * expression|EDot of expression * identifier|ENew of expression * arguments option|EVar of ident|EFun of function_expression|EStr of string * [ `Bytes | `Utf8 ]|EArr of array_litteral|EBool of bool|ENum of Num.t|EObj of property_name_and_value_list|EQuote of string|ERegexp of string * string optionand statement=|Block of block|Variable_statement of variable_declaration list|Empty_statement|Expression_statement of expression|If_statement of expression * statement * location * (statement * location) option|Do_while_statement of statement * location * expression|While_statement of expression * statement * location|For_statement of (expression option, variable_declaration list) either * expression option * expression option * statement * location|ForIn_statement of (expression, variable_declaration) either * expression * statement * location|Continue_statement of Label.t option|Break_statement of Label.t option|Return_statement of expression option|Labelled_statement of Label.t * statement * location|Switch_statement of expression * case_clause list * statement_list option * case_clause list|Throw_statement of expression|Try_statement of block * (ident * block) option * block option|Debugger_statementand ('left, 'right) either=|Left of 'left|Right of 'rightand block= statement_listand statement_list= (statement * location) listand variable_declaration= ident * initialiser optionand case_clause= expression * statement_listand initialiser= expression * locationand function_declaration= ident * formal_parameter_list * function_body * locationand function_expression= ident option * formal_parameter_list * function_body * locationand formal_parameter_list= ident listand function_body= source_elementsand program= source_elementsand source_elements= (source_element * location) listand source_element=|Statement of statement|Function_declaration of function_declaration
val compare_ident : ident -> ident -> intval is_ident : string -> boolval ident : ?loc:location -> ?var:Code.Var.t -> identifier -> ident