js_dump_lit.ml

(* Copyright (C) 2017 Authors of BuckleScript
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Lesser General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * In addition to the permissions granted to you by the LGPL, you may combine
 * or link a "work that uses the Library" with a publicly distributed version
 * of this file to produce a combined library or application, then distribute
 * that combined work under the terms of your choosing, with no requirement
 * to comply with the obligations normally placed on you by section 4 of the
 * LGPL version 3 (or the corresponding section of a later version of the LGPL
 * should you choose to use a later version).
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)

let function_ = "function"
let var = "var" (* should be able to switch to [let] easily*)
let return = "return"
(* let eq = "=" *)
let require = "require"
let import = "import"
let from = "from"
let as_ = "as"
let export = "export"
let star = "*"
let lparen = "("
let rparen = ")"
let exports = "exports"
let dot = "."
let comma = ","
let colon = Ext_string.single_colon
let colon_space = ": "
let throw = "throw"
let default = "default"
let length = "length"
let char_code_at = "charCodeAt"
let new_ = "new"
let array = "Array"
let question = "?"      
let plusplus = "++"
let minusminus = "--"
let semi = ";"
let else_ = "else"
let if_ = "if"
let for_ = "for"
let try_ = "try"
let finally = "finally"

let this = "this"
let while_ = "while"
let empty_block = "empty_block"
let start_block = "start_block"
let end_block = "end_block"
let json = "JSON"
let stringify = "stringify"
let console = "console"
let define = "define"
let break = "break"
let continue = "continue"
let switch = "switch"
let strict_directive = "'use strict';"
let true_ = "true"
let false_ = "false"

let debugger = "debugger"
let tag = "TAG"
let bind = "bind"
let math = "Math"
let apply = "apply"
let null = "null"
let undefined = "undefined"
let string_cap = "String"
let fromCharcode = "fromCharCode"
let eq = "="
let le = "<="
let lt = "<"
let ge = ">="
let gt = ">"
let plus_plus = "++" 
(*  FIXME: use (i = i + 1 | 0) instead  *)
let minus_minus = "--"

let caml_block_create = "__"

(** debug symbols *)


let block_poly_var = "polyVar"
let block_variant = "variant"
let block_simple_variant = "simpleVariant"
let case = "case"