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

package/scripts/pack.js

@@ -1,107 +0,0 @@
-//@ts-check
-var fs = require("fs");
-var path = require("path");
-var util = require("util");
-var child_process = require("child_process");
-// Note the escaping is escape to ocaml style string literals.
-// `util.format` is useful to escape to js style string literrals.
-// { name : "basic", children : ... }
-// { name : "xx", content : ... }
-/**
- *
- * @param {string} dir
- */
-function scanDir(dir) {
-  var files = fs.readdirSync(dir).sort();
-  var children = files.map(file => {
-    var curFile = path.join(dir, file);
-    var stat = fs.statSync(curFile);
-    if (stat.isFile()) {
-      var content = fs.readFileSync(curFile, "utf8");
-      return { name: file, content };
-    } else if (stat.isDirectory()) {
-      return scanDir(curFile);
-    }
-  });
-  return { name: path.basename(dir), children };
-}
-
-/**
- *
- * @param {string} s
- * @param {number} indent
- */
-function escape(s, indent) {
-  return (
-    " ".repeat(indent) +
-    '"' +
-    s.replace(/(\n|"|\\|\t|\r)/g, (match, _, offset) => {
-      switch (match) {
-        case "\n":
-          var o = `\\n\\
-${" ".repeat(indent)}`;
-          if (s[offset + 1] === " ") {
-            o += "\\";
-          }
-          return o;
-        default:
-          return "\\" + match;
-      }
-    }) +
-    '"'
-  );
-}
-
-function toString(data, indent) {
-  var output = "";
-  if (data.children) {
-    output += `${" ".repeat(indent)}Dir("${data.name}",[
-${data.children.map(x => toString(x, indent + 1)).join(";\n")}        
-${" ".repeat(indent)}])`;
-  } else {
-    output += `${" ".repeat(indent)}File("${data.name}",
-${escape(data.content, indent)}
-${" ".repeat(indent)})`;
-  }
-  return output;
-}
-
-/**
- *
- */
-function updateThemes() {
-  var templatesDir = path.join(__dirname, "..", "jscomp", "bsb", "templates");
-  var output = child_process.spawnSync(`git clean -dfx ${templatesDir}`, {
-    shell: true,
-    encoding: "utf-8",
-  });
-  if (output.error) {
-    throw output.error;
-  }
-  console.log(output.stdout);
-  if (output.status !== 0) {
-    console.log(output.stderr);
-  }
-
-  // run git clean -dfx . first
-  fs.writeFileSync(
-    path.join(templatesDir, "..", "bsb_templates.ml"),
-    `
-type  node = 
-  | Dir of string *  node list 
-  | File of string *  string  
-let root = ([
-${fs
-  .readdirSync(templatesDir)
-  .filter(x => fs.statSync(path.join(templatesDir, x)).isDirectory())
-  .map(x => toString(scanDir(path.join(templatesDir, x)), 3))
-  .join(";\n")}
-])`,
-    "utf8"
-  );
-}
-exports.updateThemes = updateThemes;
-
-if (require.main === module) {
-  updateThemes();
-}

package/scripts/prebuilt.js

@@ -1,99 +0,0 @@
-#!/usr/bin/env node
-//@ts-check
-var cp = require("child_process");
-var path = require("path");
-var { is_windows } = require("./config.js");
-
-var root = path.join(__dirname, "..");
-var root_config = { cwd: root, stdio: [0, 1, 2], encoding: "utf8" };
-
-var ocamlVersion = require("./buildocaml.js").getVersionPrefix();
-var fs = require("fs");
-var package_config = require(path.join(__dirname, "..", "package.json"));
-var bsVersion = fs.readFileSync(
-  path.join(__dirname, "..", "jscomp", "common", "bs_version.ml"),
-  "utf-8"
-);
-/**
- *
- * @param {string} bsVersion
- * @param {string} version
- */
-function verifyVersion(bsVersion, version) {
-  try {
-    let [major, minor] = bsVersion
-      .split("\n")
-      .find(x => x.startsWith("let version = "))
-      .split("=")[1]
-      .trim()
-      .slice(1, -1)
-      .split(".");
-    let [specifiedMajor, specifiedMinor] = version.split(".");
-    console.log(
-      `package.json ${specifiedMajor}.${specifiedMinor} vs ABI : ${major}.${minor}`
-    );
-    return major === specifiedMajor && minor === specifiedMinor;
-  } catch (e) {
-    return false;
-  }
-}
-var assert = require("assert");
-
-assert(verifyVersion(bsVersion, package_config.version));
-
-function isHostPlatform() {
-  return process.platform === "darwin" || process.platform === "linux";
-}
-function rebuild() {
-  cp.execSync(`node ${path.join(__dirname, "ninja.js")} cleanbuild`, {
-    cwd: __dirname,
-    stdio: [0, 1, 2],
-  });
-}
-
-var use_env_compiler = process.argv.includes("-use-env-compiler");
-var bin_path = require("./bin_path").absolutePath;
-
-function buildCompiler() {
-  var prebuilt = "prebuilt.ninja";
-  var content = require("./ninjaFactory.js").libNinja({
-    ocamlopt: use_env_compiler
-      ? `ocamlopt.opt`
-      : `../native/${ocamlVersion}/bin/ocamlopt.opt`,
-    INCL: "4.06.1",
-    isWin: is_windows,
-  });
-
-  fs.writeFileSync(path.join(root, "lib", prebuilt), content, "ascii");
-  // This is for ninja access
-  process.env.PATH = `${bin_path}${path.delimiter}${process.env.PATH}`;
-  let ninjaPath = `ninja.exe`;
-  console.log(`start build`);
-  cp.execSync(
-    `${ninjaPath} -C lib -f ${prebuilt} -v -t clean && ${ninjaPath} -v -C lib -f ${prebuilt}`,
-    root_config
-  );
-  console.log("compiler built done");
-}
-if (!is_windows) {
-  if (!process.argv.includes("-no-clean")) {
-    require("./pack").updateThemes();
-    rebuild();
-    require("./ninja.js").updateRelease();
-  }
-}
-
-function createNinjaTar() {
-  if (isHostPlatform()) {
-    require("./installUtils.js").install();
-    console.log(`status in ninja submodule:`);
-    cp.execSync(`git -C ninja status -uno`, { cwd: root, stdio: [0, 1, 2] });
-    cp.execSync(
-      `git -C ninja archive --format=tar.gz HEAD -o ../vendor/ninja.tar.gz`,
-      { cwd: root, stdio: [0, 1, 2] }
-    );
-  }
-}
-
-createNinjaTar();
-buildCompiler();

package/scripts/release.js

@@ -1,41 +0,0 @@
-#!/usr/bin/env node
-//@ts-check
-
-// used as a unit of releasing
-var path = require("path");
-var fs = require("fs");
-var cp = require("child_process");
-var rootDir = path.join(__dirname, "..");
-var libJsDir = path.join(rootDir, "lib", "js");
-var jscompDir = path.join(rootDir, "jscomp");
-
-function run() {
-  // Note removing js file would affect `release.ninja`
-  // for (let file of fs.readdirSync(libJsDir)) {
-  //     if (file.endsWith('.js')) {
-  //         fs.unlinkSync(path.join(libJsDir, file))
-  //     }
-  // }
-
-  cp.execSync(
-    `git clean -dfx stubs ext common syntax depends core bsb main .`,
-    { cwd: jscompDir, encoding: "utf8", stdio: [0, 1, 2] }
-  );
-  // cp.execSync(`git clean -dfx templates && ocp-ocamlres templates -o bsb_templates.ml`,
-  //     { cwd: path.join(jscompDir,'bsb'), encoding: 'utf8', stdio: [0, 1, 2] })
-  cp.execSync(`ninja -t clean -g && ninja`, {
-    cwd: jscompDir,
-    encoding: "utf8",
-    stdio: [0, 1, 2],
-  });
-  cp.execSync("ninja", { cwd: path.join(rootDir, "lib"), stdio: [0, 1, 2] });
-  cp.execSync("ninja -f release.ninja -t clean && ninja -f release.ninja", {
-    cwd: path.join(rootDir, "jscomp"),
-    stdio: [0, 1, 2],
-  });
-  require("./doc_gen").main();
-}
-if (require.main === module) {
-  run();
-}
-exports.run = run;

package/scripts/repl.js

@@ -1,151 +0,0 @@
-#!/usr/bin/env node
-
-/*
- * This script is used to compile a bundled compiler file into a standalone JS bundle.
- * The compiled output (including the compiled stdlib files), will be put in the defined
- * `PLAYGROUND` directory.
- *
- * Example:
- *
- * ```
- * mkdir playground && mkdir playground/stdlib
- * PLAYGROUND=../playground node scripts/repl.js
- * ```
- *
- * You may also pass an alternative JSOO entrypoint (we have multiple defined
- * in `jscomp/snapshot.ninja`) as a first parameter:
- *
- * ```
- * # Builds the "simpler" JS bundle
- * mkdir playground && mkdir playground/stdlib
- * PLAYGROUND=../playground node scripts/repl.js js_compiler
- * ```
- */
-
-//@ts-check
-var child_process = require("child_process");
-var fs = require("fs");
-var path = require("path");
-
-var ocamlVersion = "4.06.1";
-var jscompDir = path.join(__dirname, "..", "jscomp");
-var sourceDir = path.join(__dirname, "..", "lib", ocamlVersion, "unstable");
-
-var config = {
-  cwd: jscompDir,
-  encoding: "utf8",
-  stdio: [0, 1, 2],
-  shell: true,
-};
-/**
- *
- * @param {string} cmd
- */
-function e(cmd) {
-  console.log(`>>>>>> running command: ${cmd}`);
-  child_process.execSync(cmd, config);
-  console.log(`<<<<<<`);
-}
-
-if (!process.env.PLAYGROUND) {
-  var defaultPlayground = path.join(__dirname, "..", "playground");
-  console.warn(`PLAYGROUND env var unset, defaulting to ${defaultPlayground}`);
-  process.env.PLAYGROUND = defaultPlayground;
-}
-
-const BUILD_THIRD_PARTY = process.env.BUILD_THIRD_PARTY || false;
-var playground = process.env.PLAYGROUND;
-var OCAMLC = `ocamlc.opt`;
-
-// This mini project is needed to build cmij files for third party deps like @rescript/react
-const PLAYGROUND_BUNDLING = path.join(
-  __dirname,
-  "..",
-  "packages",
-  "playground-bundling"
-);
-
-var JSOO = `js_of_ocaml`;
-
-function prepare(isDev, targetCompilerFile) {
-  var [env, ocamlFlag, jsooFlag] = isDev
-    ? ["development", "-g ", "--pretty "]
-    : ["production", "", ""];
-  console.log(
-    `building byte code version of target compiler file '${targetCompilerFile}' [${env}]`
-  );
-
-  if (!fs.existsSync(playground)) {
-    console.log(`Creating output folder "${playground}"`);
-
-    // Create both, the `playground` and `playground/stdlib` dir
-    const stdlibDir = path.join(playground, "stdlib");
-    fs.mkdirSync(stdlibDir, { recursive: true });
-  }
-
-  const mliFile = path.join(sourceDir, targetCompilerFile + ".mli");
-  const mlFile = path.join(sourceDir, targetCompilerFile + ".ml");
-
-  // There may be a situation where the .mli file doesn't exist (mostly when
-  // the snapshot hasn't been checked into `lib/4.06.1/unstable`
-  e(`touch ${mliFile}`);
-  e(
-    `${OCAMLC} ${ocamlFlag}-w -30-40 -no-check-prims -I ${sourceDir} ${mliFile} ${mlFile} -o jsc.byte `
-  );
-  console.log(
-    `building js version for compiler target '${targetCompilerFile}'`
-  );
-  e(`${JSOO} compile jsc.byte ${jsooFlag}-o compiler.js`);
-  console.log("copy js artifacts");
-  e(`cp ../lib/js/*.js ${playground}/stdlib`);
-  e(`mv ./compiler.js ${playground}`);
-
-  // BUILDING THIRD PARTY CMIJ FILES
-  if (BUILD_THIRD_PARTY) {
-    console.log("Building third party packages...");
-    e(`cd ${PLAYGROUND_BUNDLING} && npm run build`);
-  }
-}
-
-function prepublish() {
-  var mainPackageJson = JSON.parse(
-    fs.readFileSync(path.join(__dirname, "..", "package.json"))
-  );
-  var packageJson = JSON.stringify(
-    {
-      name: "rescript-compiler",
-      version: mainPackageJson.version,
-      license: mainPackageJson.license,
-      description: mainPackageJson.description,
-      repository: mainPackageJson.repository,
-      author: mainPackageJson.author,
-      maintainers: mainPackageJson.maintainers,
-      bugs: mainPackageJson.bugs,
-      homepage: mainPackageJson.homepage,
-      main: "compiler.js",
-    },
-    null,
-    2
-  );
-
-  fs.writeFileSync(jscompDir + `/${playground}/package.json`, packageJson, {
-    encoding: "utf8",
-  });
-}
-
-// Relevant target compiler files can be found in jscomp/snapshot.ninja
-let targetCompilerFile = "js_playground_compiler";
-
-// Let's derive the target file to compile from the last argument list.
-if (process.argv.length > 2) {
-  const lastArg = process.argv[process.argv.length - 1];
-
-  if (!lastArg.startsWith("-")) {
-    targetCompilerFile = lastArg;
-  }
-}
-
-prepare(process.argv.includes("-development"), targetCompilerFile);
-if (process.argv.includes("-prepublish")) {
-  prepublish();
-}

package/scripts/shake.js

@@ -1,138 +0,0 @@
-//@ts-check
-// usage : node ./script/shake.js bsb
-var cp = require("child_process");
-var path = require("path");
-var fs = require("fs");
-
-var bsc = path.join(__dirname, "..", process.platform, "bsc");
-var ocamlopt = path.join(
-  __dirname,
-  "..",
-  "native",
-  "4.06.1",
-  "bin",
-  "ocamlopt.opt"
-);
-
-var base = process.argv[2];
-if (base === undefined) {
-  console.error(`please specifiy a base`);
-  process.exit(2);
-}
-var file = `${base}.ml`;
-var cwd = path.join(__dirname, "..", "lib", "4.06.1");
-
-// TODO replace it with yours
-var esy = `/Users/hongbozhang/git/genType/_esy/default/build/install/default/bin`;
-
-/**
- *
- * @param {string} file
- */
-function dsource(file) {
-  let tmp = path.join(cwd, "tmp.ml");
-  var output = cp.spawnSync(
-    `${bsc} -bs-no-builtin-ppx -bs-syntax-only -dsource  -c ${file} 2>${tmp}`,
-    {
-      cwd,
-      encoding: "utf8",
-      shell: true,
-    }
-  );
-  // check output.status
-  if (output.status === 0) {
-    //  fs.writeFileSync(path.join(cwd, file), output.stderr);
-    fs.copyFileSync(tmp, path.join(cwd, file));
-    fs.unlinkSync(tmp);
-  } else {
-    console.error(`dsource failure`);
-    console.error(fs.readFileSync(tmp) + "");
-    process.exit(2);
-  }
-
-  // fs.copyFileSync(path.join(cwd, tmp), path.join(cwd, file));
-}
-
-/**
- *
- * @param {string} file
- * @param {string} msg
- */
-function checkDiff(file, msg) {
-  var output = cp.spawnSync(`git diff --quiet ${file}`, {
-    shell: true,
-    encoding: "utf8",
-    cwd,
-  });
-  if (output.status !== 0) {
-    var output = cp.spawnSync(
-      `git add ${file} && git commit -m "${msg} for ${file}"`,
-      { shell: true, encoding: "utf8", cwd }
-    );
-    if (output.status !== 0) {
-      console.error(`diff failure for ${file} -- ${msg}`);
-      process.exit(2);
-    } else {
-      console.log(output.stdout);
-    }
-  } else {
-    console.log(`nothing changes to ${file}`);
-  }
-}
-/**
- *
- * @param {string} file
- */
-function shake(file) {
-  let tmp = path.join(cwd, "tmp.ml");
-  var output = cp.spawnSync(
-    `${bsc} -bs-no-builtin-ppx -bs-syntax-only -dsource  -ppx ${esy}/deadcodeppx.exe -c ${file} 2>${tmp}`,
-    {
-      cwd,
-      encoding: "utf8",
-      shell: true,
-    }
-  );
-  if (output.status !== 0) {
-    console.error(`shake failure`);
-    console.error(fs.readFileSync(tmp) + "");
-    process.exit(2);
-  } else {
-    // fs.writeFileSync(path.join(cwd, file), output.stderr);
-    fs.copyFileSync(tmp, path.join(cwd, file));
-    fs.unlinkSync(tmp);
-  }
-}
-
-/**
- *
- * @param {string} file
- */
-function attachDead(file) {
-  var output = cp.spawnSync(`${ocamlopt} -bin-annot  -c ${file}`, {
-    cwd,
-    encoding: "utf8",
-    shell: true,
-  });
-
-  var genType = path.join(esy, "genType.exe");
-
-  output = cp.spawnSync(`Write=1 ${genType} -dce-cmt ${base}.cmt`, {
-    cwd,
-    encoding: "utf8",
-    shell: true,
-  });
-  if (output.status !== 0) {
-    console.error(`dce failure`);
-    console.error(output.stderr);
-    process.exit(2);
-  }
-  // fs.writeFileSync(path.join(cwd,file),output.stderr)
-}
-
-// normalize files
-dsource(file);
-checkDiff(file, `dsource changes`);
-attachDead(file);
-shake(file);
-checkDiff(file, `shake`);

package/scripts/tasks.js

@@ -1,149 +0,0 @@
-//@ts-check
-
-process.env["BS_VSCODE"] = "1";
-
-var fs = require("fs");
-var path = require("path");
-var cp = require("child_process");
-var sourceDirs = [
-  "ext",
-  "common",
-  "frontend",
-  "depends",
-  "core",
-  "super_errors",
-  "outcome_printer",
-  "bsb",
-  "main",
-  "others",
-  "stdlib-406",
-  "runtime",
-  "test",
-  "ml",
-  "ounit_tests",
-  "bsb_helper",
-  "refmt",
-  "napkin",
-  "js_parser",
-];
-
-var buildAppending = false;
-var isBuilding = false;
-
-var jscompDir = path.join("..", "jscomp");
-/**
- *
- * @param {Date} d
- */
-function showDate(d) {
-  return `${d.getHours()}:${d.getMinutes()}:${d.getSeconds()}`;
-}
-function rebuild() {
-  if (isBuilding) {
-    buildAppending = true;
-  } else {
-    console.log(">>>> Start compiling");
-    isBuilding = true;
-
-    cp.fork(path.join(__dirname, "ninja.js"), ["build"]).on(
-      "exit",
-      buildFinished
-    );
-  }
-}
-/**
- *
- * @param {number} code
- * @param {string} signal
- */
-function buildFinished(code, signal) {
-  isBuilding = false;
-  if (buildAppending) {
-    buildAppending = false;
-    rebuild();
-  } else {
-    if (code !== 0) {
-      // console.log(`File "package.json", line 1, characters 1-1:`);
-      // console.log(`Error: Failed to build ${showDate(new Date())}`);
-    }
-    console.log(">>>> Finish compiling (options: R|clean|config)");
-    // TODO: check ninja exit error code
-    if (code === 0) {
-      // This is not always correct
-      // ninjaFile.updateDev();
-      // This file is cached
-      cp.fork(path.join(__dirname, "ninja.js"), ["-dev"]);
-    }
-  }
-}
-/**
- *
- * @param {string} eventType
- * @param {string} filename
- */
-function onSourceChange(eventType, filename) {
-  // console.log('event ', eventType,filename)
-  if (
-    filename.endsWith(".ml") ||
-    filename.endsWith(".mli") ||
-    filename.endsWith(".mll") ||
-    filename.endsWith(".mly") ||
-    filename.endsWith(".json") ||
-    filename.endsWith(".re") ||
-    filename.endsWith(".rei") ||
-    filename.endsWith(".res") ||
-    filename.endsWith(".resi")
-  ) {
-    rebuild();
-  }
-}
-
-sourceDirs.forEach(x => {
-  fs.watch(path.join(jscompDir, x), "utf8", onSourceChange);
-});
-
-fs.watch(path.join("..", "package.json"), "utf8", onSourceChange);
-
-rebuild();
-
-var readline = require("readline");
-readline
-  .createInterface({
-    input: process.stdin,
-    output: process.stdout,
-  })
-  .on("line", input => {
-    switch (input.toLowerCase()) {
-      case "r":
-        rebuild();
-        break;
-      case "config":
-        if (isBuilding) {
-          console.log(`it's building`);
-        } else {
-          isBuilding = true;
-          cp.fork(path.join(__dirname, "ninja.js"), ["config"]).on(
-            "close",
-            () => {
-              isBuilding = false;
-              rebuild();
-            }
-          );
-        }
-        break;
-      case "clean":
-        if (isBuilding) {
-          console.log(`it's building`);
-        } else {
-          isBuilding = true;
-          cp.fork(path.join(__dirname, "ninja.js"), ["cleanbuild"]).on(
-            "close",
-            () => {
-              isBuilding = false;
-            }
-          );
-        }
-
-        break;
-    }
-  });

package/scripts/test.sh

@@ -1,3 +0,0 @@
-#!/bin/sh
-set -e
-node ./node_modules/mocha/bin/mocha './jscomp/test/**/*_test.js'  -R list "$@"