DocTests.mjs

// Generated by ReScript, PLEASE EDIT WITH CARE

import * as Fs from "fs";
import * as Os from "os";
import * as Url from "url";
import * as Path from "path";
import * as Belt_List from "rescript/lib/es6/belt_List.js";
import * as Belt_Array from "rescript/lib/es6/belt_Array.js";
import * as Core__List from "../src/Core__List.mjs";
import * as Core__Array from "../src/Core__Array.mjs";
import * as RescriptCore from "../src/RescriptCore.mjs";
import * as Tools_Docgen from "@rescript/tools/npm/Tools_Docgen.mjs";
import * as Child_process from "child_process";
import * as Promises from "node:fs/promises";

var Path$1 = {};

var $$URL = {};

var Process = {};

var Fs$1 = {};

var $$Buffer = {};

var ChildProcess = {};

var OS = {};

var $$Node = {
  Path: Path$1,
  $$URL: $$URL,
  Process: Process,
  Fs: Fs$1,
  $$Buffer: $$Buffer,
  ChildProcess: ChildProcess,
  OS: OS
};

var dirname = Path.dirname(Url.fileURLToPath(import.meta.url));

var compilerDir = Path.join(dirname, "..", ".examples-tests");

var rescriptBin = Path.join(compilerDir, "node_modules", ".bin", "rescript");

var bscBin = Path.join(compilerDir, "node_modules", ".bin", "bsc");

var rescriptCoreCompiled = Path.join(compilerDir, "node_modules", "@rescript", "core", "lib", "ocaml");

function makePackageJson(coreVersion) {
  return "{\n  \"name\": \"test-compiler-examples\",\n  \"version\": \"1.0.0\",\n  \"dependencies\": {\n    \"@rescript/core\": \"file:rescript-core-" + coreVersion + ".tgz\",\n    \"rescript\": \"^11.0.1\"\n  }\n}\n";
}

var rescriptJson = "{\n  \"name\": \"dummy\",\n  \"sources\": {\n    \"dir\": \"dummy\",\n    \"subdirs\": true\n  },\n  \"bs-dependencies\": [\n    \"@rescript/core\"\n  ],\n  \"bsc-flags\": [\n    \"-open RescriptCore\"\n  ]\n}";

function prepareCompiler() {
  var corePath = Path.join(compilerDir, "..");
  if (!Fs.existsSync(compilerDir)) {
    Fs.mkdirSync(compilerDir);
  }
  Child_process.execFileSync("npm", [
        "pack",
        corePath
      ], {
        stdio: "ignore",
        cwd: compilerDir
      });
  var dict = JSON.parse(Fs.readFileSync(Path.join(corePath, "package.json")), undefined);
  var currentCoreVersion;
  if (!Array.isArray(dict) && (dict === null || typeof dict !== "object") && typeof dict !== "number" && typeof dict !== "string" && typeof dict !== "boolean") {
    throw {
          RE_EXN_ID: "Assert_failure",
          _1: [
            "DocTests.res",
            128,
            9
          ],
          Error: new Error()
        };
  }
  if (typeof dict === "object" && !Array.isArray(dict)) {
    var s = dict["version"];
    if (!Array.isArray(s) && (s === null || typeof s !== "object") && typeof s !== "number" && typeof s !== "string" && typeof s !== "boolean") {
      throw {
            RE_EXN_ID: "Assert_failure",
            _1: [
              "DocTests.res",
              126,
              11
            ],
            Error: new Error()
          };
    }
    if (typeof s === "string") {
      currentCoreVersion = s;
    } else {
      throw {
            RE_EXN_ID: "Assert_failure",
            _1: [
              "DocTests.res",
              126,
              11
            ],
            Error: new Error()
          };
    }
  } else {
    throw {
          RE_EXN_ID: "Assert_failure",
          _1: [
            "DocTests.res",
            128,
            9
          ],
          Error: new Error()
        };
  }
  Fs.writeFileSync(Path.join(compilerDir, "package.json"), makePackageJson(currentCoreVersion));
  Fs.writeFileSync(Path.join(compilerDir, "rescript.json"), rescriptJson);
  var dummyFolder = Path.join(compilerDir, "dummy");
  if (!Fs.existsSync(dummyFolder)) {
    Fs.mkdirSync(dummyFolder);
  }
  Child_process.execFileSync("npm", ["install"], {
        cwd: compilerDir
      });
  Child_process.execFileSync(rescriptBin, ["build"], {
        cwd: compilerDir
      });
}

prepareCompiler();

function createFileInTempDir(id) {
  return Path.join(Os.tmpdir(), id);
}

async function testCode(id, code) {
  var tempFileName = Path.join(Os.tmpdir(), id);
  await Promises.writeFile(tempFileName + ".res", code);
  var args = [
    tempFileName + ".res",
    "-I",
    rescriptCoreCompiled,
    "-w",
    "-3-109",
    "-uncurried",
    "-open",
    "RescriptCore"
  ];
  var promise = await new Promise((function (resolve, _reject) {
          var spawn = Child_process.spawn(bscBin, args);
          var stderr = [];
          spawn.stderr.on("data", (function (data) {
                  stderr.push(data);
                }));
          spawn.once("close", (function (_code, _signal) {
                  resolve(stderr);
                }));
        }));
  if (promise.length > 0) {
    return {
            TAG: "Error",
            _0: promise.map(function (e) {
                    return e.toString();
                  }).join("")
          };
  } else {
    return {
            TAG: "Ok",
            _0: undefined
          };
  }
}

function extractDocFromFile(file) {
  var toolsBin = Path.join(Path.dirname(dirname), "node_modules", ".bin", "rescript-tools");
  var spawn = Child_process.spawnSync(toolsBin, [
        "doc",
        file
      ]);
  return Tools_Docgen.decodeFromJson(JSON.parse(spawn.stdout.toString(), undefined));
}

function getExamples(param) {
  var loop = function (_items, _acc) {
    while(true) {
      var acc = _acc;
      var items = _items;
      if (!items) {
        return acc;
      }
      var match = items.hd;
      switch (match.kind) {
        case "value" :
            _acc = {
              hd: {
                id: match.id,
                kind: "value",
                name: match.name,
                docstrings: match.docstrings
              },
              tl: acc
            };
            _items = items.tl;
            continue ;
        case "type" :
            _acc = {
              hd: {
                id: match.id,
                kind: "type",
                name: match.name,
                docstrings: match.docstrings
              },
              tl: acc
            };
            _items = items.tl;
            continue ;
        case "module" :
            _acc = {
              hd: {
                id: match.id,
                kind: "module",
                name: match.name,
                docstrings: match.docstrings
              },
              tl: acc
            };
            _items = Belt_List.concatMany([
                  items.tl,
                  Core__List.fromArray(match.items)
                ]);
            continue ;
        case "moduleAlias" :
            _acc = {
              hd: {
                id: match.id,
                kind: "moduleAlias",
                name: match.name,
                docstrings: match.docstrings
              },
              tl: acc
            };
            _items = Belt_List.concatMany([
                  items.tl,
                  Core__List.fromArray(match.items)
                ]);
            continue ;
        
      }
    };
  };
  return Core__List.toArray(loop(Core__List.fromArray(param.items), /* [] */0)).filter(function (param) {
              return param.docstrings.length > 0;
            });
}

function getCodeBlocks(example) {
  var loopEndCodeBlock = function (_lines, _acc) {
    while(true) {
      var acc = _acc;
      var lines = _lines;
      if (!lines) {
        return RescriptCore.panic("Failed to find end of code block for " + example.kind + ": " + example.id);
      }
      var hd = lines.hd;
      if (hd.trim().endsWith("```")) {
        return acc;
      }
      _acc = {
        hd: hd,
        tl: acc
      };
      _lines = lines.tl;
      continue ;
    };
  };
  var loop = function (_lines, _acc) {
    while(true) {
      var acc = _acc;
      var lines = _lines;
      if (!lines) {
        return acc;
      }
      var rest = lines.tl;
      if (lines.hd.trim().startsWith("```res")) {
        var code = loopEndCodeBlock(rest, /* [] */0);
        _acc = {
          hd: Core__List.toArray(Core__List.reverse(code)).join("\n"),
          tl: acc
        };
        _lines = rest;
        continue ;
      }
      _lines = rest;
      continue ;
    };
  };
  return Core__List.toArray(loop(Core__List.fromArray(Core__Array.reduce(example.docstrings, [], (function (acc, docstring) {
                            return acc.concat(docstring.split("\n"));
                          }))), /* [] */0));
}

async function main() {
  var results = await Promise.all(getExamples(extractDocFromFile("src/RescriptCore.res")).map(async function (example) {
            var id = example.id.replaceAll(".", "_");
            var codes = getCodeBlocks(example);
            var results = await Promise.all(codes.map(async function (code, $$int) {
                      var id$1 = id + "_" + $$int.toString();
                      return await testCode(id$1, code);
                    }));
            return [
                    example,
                    results
                  ];
          }));
  var errors = Belt_Array.keepMap(results, (function (param) {
          var errors = Belt_Array.keepMap(param[1], (function (result) {
                  if (result.TAG === "Ok") {
                    return ;
                  } else {
                    return result._0;
                  }
                }));
          if (errors.length > 0) {
            return [
                    param[0],
                    errors
                  ];
          }
          
        }));
  errors.forEach(function (param) {
        var test = param[0];
        var cyan = function (s) {
          return "\x1b[36m" + s + "\x1b[0m";
        };
        var other = test.kind;
        var kind = other === "moduleAlias" ? "module alias" : other;
        var errorMessage = param[1].map(function (e) {
                return e.split("\n").filter(function (param, i) {
                              return i !== 2;
                            }).join("\n");
              }).join("\n");
        var message = "\x1B[1;31merror\x1B[0m: failed to compile examples from " + kind + " " + cyan(test.id) + "\n" + errorMessage;
        process.stderr.write(message);
      });
  if (errors.length === 0) {
    return 0;
  } else {
    return 1;
  }
}

var exitCode = await main();

process.exit(exitCode);

var Docgen;

export {
  $$Node ,
  Docgen ,
  dirname ,
  compilerDir ,
  rescriptBin ,
  bscBin ,
  rescriptCoreCompiled ,
  makePackageJson ,
  rescriptJson ,
  prepareCompiler ,
  createFileInTempDir ,
  testCode ,
  extractDocFromFile ,
  getExamples ,
  getCodeBlocks ,
  main ,
  exitCode ,
}
/* dirname Not a pure module */