@tellahq/rescript 10.1.0-alpha.2 → 10.1.4-republish-1

package/scripts/ciTest.js

@@ -1,172 +0,0 @@
-//@ts-check
-var cp = require("child_process");
-var path = require("path");
-var fs = require("fs");
-
-var ounitTest = false;
-var mochaTest = false;
-var themeTest = false;
-var bsbTest = false;
-var formatTest = false;
-var all = false;
-
-if (process.argv.includes("-ounit")) {
-  ounitTest = true;
-}
-
-if (process.argv.includes("-mocha")) {
-  mochaTest = true;
-}
-
-if (process.argv.includes("-theme")) {
-  themeTest = true;
-}
-
-if (process.argv.includes("-bsb")) {
-  bsbTest = true;
-}
-
-if (process.argv.includes("-format")) {
-  formatTest = true;
-}
-
-if (process.argv.includes("-all")) {
-  all = true;
-}
-if (all) {
-  ounitTest = true;
-  mochaTest = true;
-  themeTest = true;
-  bsbTest = true;
-  formatTest = true;
-}
-
-function init() {
-  if (!require("./buildocaml.js").checkEnvCompiler()) {
-    // No compiler available on path.
-    // Assume that we built the compiler from source beforehand and add it to the path.
-    var vendorOCamlPath = path.join(
-      __dirname,
-      "..",
-      "native",
-      require("./buildocaml.js").getVersionPrefix(),
-      "bin"
-    );
-
-    process.env["PATH"] =
-      vendorOCamlPath + path.delimiter + process.env["PATH"];
-  }
-
-  var ninjaPath = path.join(__dirname, "..", process.platform, "ninja.exe");
-
-  if (!fs.existsSync(ninjaPath)) {
-    throw new Error("ninja could not be configured");
-  }
-}
-
-function runTests() {
-  // when binary was prebuilt, there can be no ocaml installation
-  // var output =
-  //     cp.execSync('which ocaml', { encoding: 'ascii' })
-  // console.log('OCaml:', output)
-
-  var binDir = path.join(__dirname, "..", "jscomp", "bin");
-  if (ounitTest) {
-    cp.execSync(
-      `ocamlc.opt -w "-d" -warn-error -a -I . -c js_compiler.mli js_compiler.ml`,
-      {
-        cwd: path.join(__dirname, "..", "lib", "4.06.1", "unstable"),
-        stdio: [0, 1, 2],
-      }
-    );
-    // running tests for native code
-    fs.copyFileSync(
-      path.join(
-        __dirname,
-        "..",
-        "lib",
-        "4.06.1",
-        "unstable",
-        "all_ounit_tests.ml"
-      ),
-      path.join(binDir, "all_ounit_tests.ml")
-    );
-    cp.execSync(
-      `ocamlopt.opt -g -w -40-30 -w "-d" ../stubs/ext_basic_hash_stubs.c  unix.cmxa str.cmxa all_ounit_tests.ml -o test.exe`,
-      {
-        cwd: binDir,
-        stdio: [0, 1, 2],
-      }
-    );
-
-    cp.execSync(path.join(binDir, "test.exe"), {
-      cwd: binDir,
-      stdio: [0, 1, 2],
-    });
-  }
-
-  // running generated js tests
-  if (mochaTest) {
-    cp.execSync(`npx mocha -t 10000 jscomp/test/**/*test.js`, {
-      cwd: path.join(__dirname, ".."),
-      stdio: [0, 1, 2],
-    });
-  }
-
-  if (bsbTest) {
-    console.log("Doing build_tests");
-    var buildTestDir = path.join(__dirname, "..", "jscomp", "build_tests");
-    var linkCmd = `npm link ../..`;
-    console.log(linkCmd);
-    cp.execSync(linkCmd, {
-      cwd: buildTestDir,
-      stdio: [0, 1, 2],
-      encoding: "utf8",
-    });
-    var files = fs.readdirSync(buildTestDir);
-    files.forEach(function (file) {
-      var testDir = path.join(buildTestDir, file);
-      if (file === "node_modules" || !fs.lstatSync(testDir).isDirectory()) {
-        return;
-      }
-      if (!fs.existsSync(path.join(testDir, "input.js"))) {
-        console.warn(`input.js does not exist in ${testDir}`);
-      } else {
-        console.log(`testing ${file}`);
-        // note existsSync test already ensure that it is a directory
-        cp.exec(
-          `node input.js`,
-          { cwd: testDir, encoding: "utf8" },
-          function (error, stdout, stderr) {
-            console.log(stdout);
-
-            if (error !== null) {
-              console.log(stderr);
-              throw new Error(`❌ error in ${file}: \n${error} `);
-            } else {
-              console.log("✅ success in ", file);
-            }
-          }
-        );
-      }
-    });
-  }
-
-  if (formatTest) {
-    cp.execSync("npm run checkFormat", {
-      cwd: path.join(__dirname, ".."),
-      stdio: [0, 1, 2],
-    });
-  }
-}
-
-function main() {
-  try {
-    init();
-    runTests();
-  } catch (err) {
-    console.error(err);
-    process.exit(2);
-  }
-}
-main();

package/scripts/cover.sh

@@ -1,3 +0,0 @@
-#!/bin/sh
-set -e
-node ./node_modules/istanbul/lib/cli.js cover --report html ./node_modules/.bin/_mocha --   jscomp/test/*test.js "$@"

package/scripts/curry_gen.ml

@@ -1,167 +0,0 @@
-
-
-(* no mli file emitted, since mli is not very meaningful 
-   except which identifiers are exposed 
-   exported functions:
-
-   - [ app f args]
-      called when apply a curried function with a list of arugments
-   - [ _1 o arg ]  .. [ _n]
-      called when apply a curried function with [n] argument
-   - [ __1 o] .. [ __n o]
-*)
-let prelude ={|
-(* Copyright (C) 2015 -  Hongbo Zhang, Authors of ReScript
- * 
- * 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. *)
-
-(* Generated by scripts/curry_gen.ml *)  
-external function_length : 'a -> int = "#function_length"
-external apply_args : ('a -> 'b) -> _ array -> 'b = "#apply"
-external sub : 'a array -> int -> int -> 'a array = "?array_sub"
-
-(* Public *)
-let rec app f args = 
-  let init_arity = function_length f in
-  let arity = if init_arity = 0 then 1 else init_arity in (* arity fixing *)
-  let len = Caml_array_extern.length args in
-  let d = arity - len in 
-  if d = 0 then 
-    apply_args f  args (* f.apply (null,args) *)
-  else if d < 0 then 
-    (* TODO: could avoid copy by tracking the index *)
-    app (Obj.magic (apply_args f (sub args 0 arity)))
-      (sub args arity (-d))
-  else 
-    Obj.magic (fun x -> app f (Caml_array_extern.append args [|x|] ))
-  
-|}
-
-let list_init n  fn = Array.to_list (Array.init n fn)
-    
-let generate_case
-    ?arity
-    ~args_number args_array args =
-  match arity with
-  | None ->
-    Printf.sprintf " _ -> Obj.magic (app o [|%s|])"
-      (String.concat ";"args)      
-  | Some arity ->     
-    Printf.sprintf " %d -> %s" arity
-      (if arity >= args_number then
-         Printf.sprintf "apply%d (Obj.magic o) %s"
-           arity (String.concat " " args)
-       else
-         Printf.sprintf
-           "app (apply%d (Obj.magic o) %s) [|%s|]"
-           arity
-           (String.concat " "(Array.to_list (Array.sub args_array 0 arity)))          
-           (String.concat ";"
-              (Array.to_list (Array.sub args_array arity (args_number - arity)))))
-
-
-
-let number = 8
-
-let generate_apply arity =
-  let vars =
-    list_init (arity + 1)
-      (fun i -> Printf.sprintf "'a%d" i) in
-  let ty =
-    match vars with
-    | [] -> assert false
-    | x::xs
-      ->       
-      List.fold_left
-        (fun acc x -> acc ^ " -> " ^ x )
-        x xs in         
-  Printf.sprintf
-    "(* Internal use *)\n\
-    external apply%d : (%s) -> %s = \"#apply%d\""
-    arity ty ty arity
-    
-
-
-let generate_fun args_number =
-  let args_array =
-    Array.init args_number (fun i -> Printf.sprintf "a%d" i) in
-  let args =  Array.to_list args_array in
-  let args_string =  (String.concat " " args) in
-
-  Printf.sprintf {|
-
-let %%private curry_%d o %s arity =
-  match arity with
-  |%s    
-
-(* Public *)  
-let _%d o %s =
-  let arity = function_length o in
-  if arity = %d then apply%d o %s
-  else curry_%d o %s arity     
-
-(* Public *)
-let __%d o =
-  let arity = function_length o in
-  if arity = %d then o
-  else fun %s -> _%d o %s
-|}
-    args_number
-    args_string
-    (String.concat "\n  |"
-
-       (list_init (number - 1) 
-          (fun arity -> generate_case ~arity:(arity + 1) ~args_number args_array args)
-        @ [ generate_case ~args_number args_array args]          
-       )
-    )
-
-    args_number
-    args_string
-    args_number
-    args_number
-    args_string
-    args_number
-    args_string
-    
-
-    args_number
-    args_number
-    args_string
-    args_number
-    args_string
-    
-let () =
-  print_endline
-  @@ Printf.sprintf
-    "%s\n%s\n%s"
-    prelude
-    (String.concat "\n"
-       (list_init number (fun i -> generate_apply (i + 1)))       
-    )    
-    (String.concat "\n"
-       (list_init 8 (fun i -> generate_fun (i + 1))))
-
-(* local variables: *)
-(* compile-command: "ocaml curry_gen.ml > ../jscomp/runtime/curry.ml" *)
-(* end: *)

package/scripts/dbg

@@ -1,13 +0,0 @@
-#!/usr/bin/env node
-var cp = require("child_process");
-var path = require("path");
-
-var file = process.argv[2];
-console.log(file);
-var fmt = path.parse(file);
-
-process.env.RES_DEBUG_FILE = 1;
-var ninja = path.join(__dirname, "..", process.platform, "ninja.exe");
-cp.execSync(`touch ${file} && ${ninja} ${fmt.dir}/${fmt.name}.cmj`, {
-  stdio: [0, 1, 2]
-});

package/scripts/dedupe.js

@@ -1,44 +0,0 @@
-//@ts-check
-var fs = require("fs");
-var cp = require("child_process");
-var path = require("path");
-
-var jscompDir = path.join(__dirname, "..", "jscomp");
-
-var sourceDirs = [
-  "stubs",
-  "ext",
-  "common",
-  "syntax",
-  "depends",
-  "core",
-  "super_errors",
-  "outcome_printer",
-  "bsb",
-  "ounit",
-  "ounit_tests",
-  "main",
-];
-
-var files = cp.execSync(`git ls-files ${sourceDirs.join(" ")}`, {
-  cwd: jscompDir,
-  encoding: "utf8",
-});
-
-var filesPath = files.split("\n");
-
-/**
- * @type {Map<string,string>}
- */
-var collection = new Map();
-for (let file of filesPath) {
-  let base = path.basename(file);
-  if (collection.has(base)) {
-    if (base.endsWith(".ml") && !file.includes("templates")) {
-      console.log(`duplicate ${base} : ${collection.get(base)} vs ${file}`);
-    }
-  } else {
-    collection.set(base, file);
-  }
-}
-debugger;

package/scripts/doc_gen.js

@@ -1,117 +0,0 @@
-//@ts-check
-
-// This assume you already have cmi at hand
-// Okay to use ES6 since it is generated before shipping
-
-var fs = require("fs");
-
-var path = require("path");
-var child_process = require("child_process");
-
-var versionPrefix = require("./buildocaml.js").getVersionPrefix();
-var stdlibVersion = versionPrefix.includes("4.02")
-  ? "stdlib-402"
-  : "stdlib-406";
-var runtime_dir = path.join(__dirname, "..", "jscomp", "runtime");
-var others_dir = path.join(__dirname, "..", "jscomp", "others");
-var stdlib_dir = path.join(__dirname, "..", "jscomp", stdlibVersion);
-var jscomp = path.join(__dirname, "..", "jscomp");
-var runtime_prefix = path.relative(jscomp, runtime_dir);
-var others_prefix = path.relative(jscomp, others_dir);
-var ocamldoc = path.join(
-  __dirname,
-  "..",
-  "native",
-  versionPrefix,
-  "bin",
-  "ocamldoc.opt"
-);
-
-/**
- *
- * @param {string} s
- */
-const capitalize = s => {
-  if (typeof s !== "string") return "";
-  return s.charAt(0).toUpperCase() + s.slice(1);
-};
-/**
- *
- * @param {string} filename
- */
-const strip = filename => filename.split(".").slice(0, -1).join(".");
-function main() {
-  /**
-   * @type {string[]}
-   */
-  var hidden_list = [];
-  var runtime_files = fs
-    .readdirSync(runtime_dir)
-    .filter(
-      file =>
-        file.startsWith("js") &&
-        (file.endsWith(".ml") || file.endsWith(".mli")) &&
-        !file.endsWith(".cppo.ml") &&
-        !file.endsWith(".cppo.mli")
-    )
-    .map(x => {
-      if (x.includes("internal")) {
-        hidden_list.push(capitalize(strip(x)));
-      }
-      return path.join(runtime_prefix, x);
-    })
-    .join(" ");
-
-  var others_files = fs
-    .readdirSync(others_dir)
-    .filter(
-      file =>
-        (file.endsWith(".ml") || file.endsWith(".mli")) &&
-        !file.endsWith(".cppo.ml") &&
-        !file.endsWith(".cppo.mli")
-    )
-    .map(x => {
-      if (x.includes("internal")) {
-        hidden_list.push(capitalize(strip(x)));
-      }
-      return path.join(others_prefix, x);
-    })
-    .join(" ");
-
-  var odoc_gendir = path.join(__dirname, "..", "odoc_gen");
-
-  var api_doc_dir = path.join(__dirname, "..", "docs", "api");
-  var intro = path.join(__dirname, "..", "jscomp", "others", "intro.txt");
-  //
-  var generator = `-g ${odoc_gendir}/generator.cmxs`;
-  // var generator = `-html`
-
-  var hidden_modules = ``;
-  // hidden_modules =  `-hide ${hidden_list.join(',')}`
-
-  var prefix_flags = `${ocamldoc}  ${generator} ${hidden_modules} -w -40 -nostdlib -nopervasives  -I ${others_dir} -I ${runtime_dir} -open Bs_stdlib_mini -charset utf-8  -intro ${intro} -sort -ppx '${path.join(
-    __dirname,
-    "..",
-    process.platform,
-    "bsc"
-  )} -as-ppx'  -d ${api_doc_dir}`;
-
-  // -html it is weird
-  // It is weird, -html will unload the plugin
-
-  // It seems ocamldoc does need require all files for indexing modules, WTF ocamldoc !!
-  var cmd = `${prefix_flags}  ${runtime_files} ${others_files}`;
-
-  console.log(`Running ${cmd}`);
-
-  child_process.execSync(cmd, { cwd: jscomp, encoding: "utf8" });
-}
-exports.main = main;
-if (require.main === module) {
-  main();
-}
-// console.log(`runtime files : ${runtime_files}`)
-// child_process.execSync(`${prefix_flags} ${runtime_files} `, {cwd : runtime_dir})
-
-// console.log(`others files : ${others_files}`)
-// child_process.execSync(`${prefix_flags} ${others_files} `, {cwd : others_dir})

package/scripts/js_internal_gen.js

@@ -1,135 +0,0 @@
-var assert = require("assert");
-
-function initArray(n) {
-  var res = new Array(n);
-  for (var i = 0; i < n; ++i) {
-    res[i] = i;
-  }
-  return res;
-}
-
-function gen_normal(arity) {
-  if (arity === 0) {
-    return "unit -> 'a0";
-  } else {
-    return initArray(arity + 1)
-      .map(x => `'a${x}`)
-      .join(" -> ");
-  }
-}
-
-function gen_bs(arity) {
-  if (arity === 0) {
-    return "([`Arity_0], 'a0) fn";
-  } else {
-    return `([\`Arity_${arity} of ( ${initArray(arity)
-      .map(x => `'a${x}`)
-      .join(" * ")} )], 'a${arity}) fn`;
-  }
-}
-
-function gen_bs_this(arity) {
-  assert.notEqual(arity, 0);
-  return `([\`Arity_${arity} of ( ${initArray(arity)
-    .map(x => `'a${x}`)
-    .join(" * ")} )], 'a${arity} ) meth_callback`;
-}
-
-function gen_bs_meth(arity) {
-  if (arity === 0) {
-    return `([\`Arity_0], 'a0) meth`;
-  }
-  return `([\`Arity_${arity} of ( ${initArray(arity)
-    .map(x => `'a${x}`)
-    .join(" * ")} )], 'a${arity}) meth`;
-}
-
-function generate_mk(arity) {
-  return `external fn_mk${arity} : (${gen_normal(arity)}) -> (${gen_bs(
-    arity
-  )}) = "#fn_mk" "${arity}" `;
-}
-
-function generate_call_back_mk(arity) {
-  var arity = arity + 1;
-  return `external fn_method${arity} : (${gen_normal(arity)}) -> (${gen_bs_this(
-    arity
-  )}) = "#fn_method" "${arity}" `;
-}
-
-function generate_run(arity) {
-  if (arity === 0) {
-    return `external fn_run0 : (([\`Arity_0], 'a0) fn) ->  'a0  = "#fn_run" "0" `;
-  }
-
-  return `external fn_run${arity} : (${gen_bs(arity)}) -> (${gen_normal(
-    arity
-  )} ) = "#fn_run" "${arity}" `;
-}
-
-function generate_method_run(arity) {
-  if (arity === 0) {
-    return `external method_run0 : (([\`Arity_0], 'a0) meth) -> 'a0 = "#method_run" "0" `;
-  }
-  return `external method_run${arity} : (${gen_bs_meth(
-    arity
-  )}) -> (${gen_normal(arity)} ) = "#method_run" "${arity}" `;
-}
-
-var prelude = `
-(* Generated by scripts/js_unsafe_gen.ml *)  
-type (-'obj, +'a) meth_callback
-type (-'arg, + 'result) meth
-type (-'arg, + 'result) fn 
-(** Js uncurried function *)
-external (!)  : 'a t -> 'a = "#unsafe_downgrade"
-external debugger : unit -> unit = "#debugger"
-external raw_expr : string -> 'a = "#raw_expr"
-external raw_stmt : string -> 'a = "#raw_stmt"
-external raw_function: string ->  'a = "#raw_function"
-external unsafe_downgrade : 'a t -> 'a = "#unsafe_downgrade"
-`.split("\n");
-
-function genAll(prefix) {
-  var arities = initArray(10);
-  var code = `${prefix} ${Array.prototype
-    .concat(
-      prelude,
-      arities.map(generate_mk),
-      arities.map(generate_call_back_mk),
-      arities.map(generate_run),
-      arities.map(generate_method_run)
-    )
-    .map(x => " " + x)
-    .join("\n")}
-end`;
-  // console.log(arities, arities.map(x=>generate_call_back_mk(x)))
-  return code;
-}
-
-var fs = require("fs");
-var path = require("path");
-
-if (require.main === module) {
-  // fs.writeFileSync(path.join(__dirname, '..', 'jscomp', 'runtime', 'js_unsafe.ml'), genAll(), 'utf8')
-  var jsMlFile = path.join(__dirname, "..", "jscomp", "runtime", "js.ml");
-  var jsMliFile = path.join(__dirname, "..", "jscomp", "runtime", "js.mli");
-  var replacement = genAll("module Internal = struct");
-
-  var jsCode = fs.readFileSync(jsMlFile, "utf8");
-  fs.writeFileSync(
-    jsMlFile,
-    jsCode.replace(/module Internal = struct([^])*?end/m, replacement),
-    "utf8"
-  );
-
-  jsCode = fs.readFileSync(jsMliFile, "utf8");
-  fs.writeFileSync(
-    jsMliFile,
-    jsCode.replace(
-      /module Internal : sig([^])*?end/m,
-      genAll("module Internal : sig")
-    ),
-    "utf8"
-  );
-}

package/scripts/jsconfig.json

@@ -1,12 +0,0 @@
-{
-  "compilerOptions": {
-    "alwaysStrict": true,
-    "noImplicitAny": true,
-    // , "strictNullChecks": true
-    "target": "es2018",
-    // target need be set up
-    // otherwise some method is missing
-    "module": "commonjs"
-    // setup to understand commonjs module
-  }
-}

package/scripts/littlecase.js

@@ -1,21 +0,0 @@
-//@ts-check
-
-let fs = require("fs");
-let path = require("path");
-
-function copyReasonReact() {
-  let dir = path.join(__dirname, "..", "..", "reason-react", "src");
-  let files = fs.readdirSync(dir);
-  files.forEach(x => {
-    if (!(x.endsWith(".re") || x.endsWith(".rei"))) {
-      return;
-    }
-    let little = x[0].toLowerCase() + x.slice(1);
-    let src = path.join(dir, x);
-    let dst = path.join(__dirname, "..", "jscomp", "test", little);
-    console.log(`${src} -> ${dst}`);
-    fs.copyFileSync(src, dst);
-  });
-}
-
-copyReasonReact();