Add example workspace-project

Author: fhammerschmidt

analysis/examples/workspace-project/.gitignore

@@ -0,0 +1,27 @@
+*.exe
+*.obj
+*.out
+*.compile
+*.native
+*.byte
+*.cmo
+*.annot
+*.cmi
+*.cmx
+*.cmt
+*.cmti
+*.cma
+*.a
+*.cmxa
+*.obj
+*~
+*.annot
+*.cmj
+*.bak
+lib
+*.mlast
+*.mliast
+.vscode
+.merlin
+.bsb.lock
+/node_modules/

analysis/examples/workspace-project/README.md

@@ -0,0 +1,7 @@
+# ReScript workspaces example (monorepo)
+
+```
+npm install
+npm run build
+npm run start
+```

analysis/examples/workspace-project/app/bsconfig.json

@@ -0,0 +1,11 @@
+{
+  "name": "app",
+  "bsc-flags": ["-open Common"],
+  "bs-dependencies": ["common", "myplugin"],
+  "sources": [
+    {
+      "dir": "src",
+      "subdirs": true
+    }
+  ]
+}

analysis/examples/workspace-project/app/package.json

@@ -0,0 +1,4 @@
+{
+	"name": "app",
+	"version": "0.1.0"
+}

analysis/examples/workspace-project/app/src/App.res

@@ -0,0 +1 @@
+let _ = Myplugin.Promise.resolve(Utils.printError("Oh no!"))

analysis/examples/workspace-project/bsconfig.json

@@ -0,0 +1,12 @@
+{
+  "name": "workspace-project",
+  "version": "0.1.0",
+  "sources": [],
+  "package-specs": {
+    "module": "es6",
+    "in-source": true
+  },
+  "suffix": ".mjs",
+  "pinned-dependencies": ["common", "myplugin", "app"],
+  "bs-dependencies": ["common", "myplugin", "app"]
+}

analysis/examples/workspace-project/common/bsconfig.json

@@ -0,0 +1,10 @@
+{
+  "name": "common",
+  "namespace": true,
+  "sources": [
+    {
+      "dir": "src",
+      "subdirs": true
+    }
+  ]
+}

analysis/examples/workspace-project/common/package.json

@@ -0,0 +1,4 @@
+{
+	"name": "common",
+	"version": "0.1.0"
+}

analysis/examples/workspace-project/common/src/Utils.mjs

@@ -0,0 +1,14 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function printError(error) {
+  var errorMessage = "\u001b[31m" + error;
+  console.log(errorMessage);
+  
+}
+
+export {
+  printError ,
+  
+}
+/* No side effect */

analysis/examples/workspace-project/common/src/Utils.res

@@ -0,0 +1,4 @@
+let printError = error => {
+  let errorMessage = `\u001b[31m${error}`
+  Js.log(errorMessage)
+}

analysis/examples/workspace-project/myplugin/bsconfig.json

@@ -0,0 +1,10 @@
+{
+  "name": "myplugin",
+  "namespace": true,
+  "sources": [
+    {
+      "dir": "src",
+      "subdirs": true
+    }
+  ]
+}

analysis/examples/workspace-project/myplugin/package.json

@@ -0,0 +1,4 @@
+{
+	"name": "myplugin",
+	"version": "0.1.0"
+}

analysis/examples/workspace-project/myplugin/src/Promise.mjs

@@ -0,0 +1,20 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Curry from "rescript/lib/es6/curry.js";
+import * as Js_exn from "rescript/lib/es6/js_exn.js";
+import * as Caml_exceptions from "rescript/lib/es6/caml_exceptions.js";
+
+var JsError = /* @__PURE__ */Caml_exceptions.create("Promise-Myplugin.JsError");
+
+function $$catch(promise, callback) {
+  return promise.catch(function (err) {
+              return Curry._1(callback, Js_exn.anyToExnInternal(err));
+            });
+}
+
+export {
+  JsError ,
+  $$catch ,
+  
+}
+/* No side effect */

analysis/examples/workspace-project/myplugin/src/Promise.res

@@ -0,0 +1,46 @@
+type t<+'a> = Js.Promise.t<'a>
+
+exception JsError(Js.Exn.t)
+external unsafeToJsExn: exn => Js.Exn.t = "%identity"
+
+@new
+external make: ((@uncurry (. 'a) => unit, (. 'e) => unit) => unit) => t<'a> = "Promise"
+
+@val @scope("Promise")
+external resolve: 'a => t<'a> = "resolve"
+
+@send external then: (t<'a>, @uncurry ('a => t<'b>)) => t<'b> = "then"
+
+@send
+external thenResolve: (t<'a>, @uncurry ('a => 'b)) => t<'b> = "then"
+
+@send external finally: (t<'a>, unit => unit) => t<'a> = "finally"
+
+@scope("Promise") @val
+external reject: exn => t<_> = "reject"
+
+@scope("Promise") @val
+external all: array<t<'a>> => t<array<'a>> = "all"
+
+@scope("Promise") @val
+external all2: ((t<'a>, t<'b>)) => t<('a, 'b)> = "all"
+
+@scope("Promise") @val
+external all3: ((t<'a>, t<'b>, t<'c>)) => t<('a, 'b, 'c)> = "all"
+
+@scope("Promise") @val
+external all4: ((t<'a>, t<'b>, t<'c>, t<'d>)) => t<('a, 'b, 'c, 'd)> = "all"
+
+@scope("Promise") @val
+external all5: ((t<'a>, t<'b>, t<'c>, t<'d>, t<'e>)) => t<('a, 'b, 'c, 'd, 'e)> = "all"
+
+@scope("Promise") @val
+external all6: ((t<'a>, t<'b>, t<'c>, t<'d>, t<'e>, t<'f>)) => t<('a, 'b, 'c, 'd, 'e, 'f)> = "all"
+
+@send
+external _catch: (t<'a>, @uncurry (exn => t<'a>)) => t<'a> = "catch"
+
+let catch = (promise, callback) => _catch(promise, err => callback(Js.Exn.anyToExnInternal(err)))
+
+@scope("Promise") @val
+external race: array<t<'a>> => t<'a> = "race"

analysis/examples/workspace-project/package-lock.json

@@ -0,0 +1,26 @@
+{
+  "name": "workspace-project",
+  "private": true,
+  "version": "0.1.0",
+  "scripts": {
+    "clean": "rescript clean",
+    "build": "rescript build -with-deps",
+    "start": "node app/src/App.mjs",
+    "watch": "rescript build -w"
+  },
+  "keywords": [
+    "ReScript"
+  ],
+  "author": "",
+  "license": "MIT",
+  "devDependencies": {
+    "rescript": "^10.0.0-beta.3"
+  },
+  "workspaces": {
+    "packages": [
+      "app",
+      "common",
+      "myplugin"
+    ]
+  }
+}