@live-codes/browser-compilers 0.4.8 → 0.4.9

package/dist/turbopascal/turbopascal.js

@@ -0,0 +1,96 @@
+// based on https://github.com/MikeRalphson/turbopascal/blob/master/tpc.js
+const turbopascal = {
+  compiler: new Promise((resolve) => {
+    requirejs.config({
+      baseUrl: 'https://cdn.jsdelivr.net/npm/turbopascal@1.0.3',
+      paths: {
+        underscore: 'https://cdn.jsdelivr.net/npm/underscore@1.13.2/underscore-umd.min',
+      },
+    });
+
+    require([
+      'Stream',
+      'Lexer',
+      'CommentStripper',
+      'Parser',
+      'PascalError',
+      'Compiler',
+      'Machine',
+      'SymbolTable',
+    ], function (
+      Stream,
+      Lexer,
+      CommentStripper,
+      Parser,
+      PascalError,
+      Compiler,
+      Machine,
+      SymbolTable,
+    ) {
+      function compile(source, run, DEBUG_TRACE) {
+        let self = this;
+
+        if (!source) {
+          return;
+        }
+
+        let stream = new Stream(source);
+        let lexer = new CommentStripper(new Lexer(stream));
+        let parser = new Parser(lexer);
+
+        let result = { parsed: false, compiled: false };
+
+        try {
+          // Create the symbol table of built-in constants, functions, and procedures.
+          let builtinSymbolTable = SymbolTable.makeBuiltinSymbolTable();
+
+          // Parse the program into a parse tree. Create the symbol table as we go.
+          let root = parser.parse(builtinSymbolTable);
+          result.tree = root.print('');
+          result.parsed = true;
+
+          // Compile to bytecode.
+          let compiler = new Compiler();
+          let bytecode = compiler.compile(root);
+          result.compiled = true;
+          result.bytecode = bytecode;
+          result.pSrc = bytecode.print();
+
+          if (run) {
+            // Execute the bytecode.
+            let machine = new Machine(bytecode, this.keyboard);
+            if (DEBUG_TRACE) {
+              machine.setDebugCallback(function (state) {
+                $state.append(state + '\\n');
+              });
+            }
+            machine.setFinishCallback(function (runningTime) {});
+            machine.setOutputCallback(function (line) {
+              console.log(line);
+            });
+            machine.setOutChCallback(function (line) {
+              console.log(line);
+            });
+            machine.setInputCallback(function (callback) {
+              self.screen.addCursor();
+              self._setInputMode(INPUT_STRING, function (line) {
+                self._setInputMode(INPUT_RUNNING);
+                callback(line);
+              });
+            });
+            machine.run();
+          }
+        } catch (e) {
+          console.warn(e.message);
+          // Print parsing errors.
+          if (e instanceof PascalError) {
+            console.warn(e.getMessage());
+          }
+          console.warn(e.stack);
+        }
+        return result;
+      }
+      resolve(compile);
+    });
+  }),
+};

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@live-codes/browser-compilers",
-  "version": "0.4.8",
+  "version": "0.4.9",
   "description": "Compilers that run in the browser, for use in livecodes.io",
   "author": "Hatem Hosny",
   "license": "MIT",

package/scripts/vendors.js

@@ -21,7 +21,7 @@ function mkdirp(dir) {
   }
 }
 
-var vendor_modules = path.resolve(__dirname + '/../vendor_modules/src');
+var vendor_modules_src = path.resolve(__dirname + '/../vendor_modules/src');
 var targetDir = path.resolve(__dirname + '/../dist');
 
 /** @type {Partial<esbuild.BuildOptions>} */
@@ -75,21 +75,21 @@ esbuild.buildSync({
 // asciidoctor.css
 mkdirp(targetDir + '/asciidoctor.css');
 fs.copyFileSync(
-  path.resolve(vendor_modules + '/asciidoctor.css/asciidoctor.css'),
+  path.resolve(vendor_modules_src + '/asciidoctor.css/asciidoctor.css'),
   path.resolve(targetDir + '/asciidoctor.css/asciidoctor.css'),
 );
 
 // stylus
 mkdirp(targetDir + '/stylus');
 fs.copyFileSync(
-  path.resolve(vendor_modules + '/stylus/stylus.min.js'),
+  path.resolve(vendor_modules_src + '/stylus/stylus.min.js'),
   path.resolve(targetDir + '/stylus/stylus.min.js'),
 );
 
 // pug
 mkdirp(targetDir + '/pug');
 fs.copyFileSync(
-  path.resolve(vendor_modules + '/pug/pug.min.js'),
+  path.resolve(vendor_modules_src + '/pug/pug.min.js'),
   path.resolve(targetDir + '/pug/pug.min.js'),
 );
 
@@ -147,7 +147,7 @@ esbuild.buildSync({
 // clientside-haml-js
 mkdirp(targetDir + '/clientside-haml-js');
 fs.copyFileSync(
-  path.resolve(vendor_modules + '/clientside-haml-js/haml.js'),
+  path.resolve(vendor_modules_src + '/clientside-haml-js/haml.js'),
   path.resolve(targetDir + '/clientside-haml-js/haml.js'),
 );
 
@@ -163,12 +163,12 @@ esbuild.build({
 // livescript
 mkdirp(targetDir + '/livescript');
 fs.copyFileSync(
-  path.resolve(vendor_modules + '/livescript/livescript-min.js'),
+  path.resolve(vendor_modules_src + '/livescript/livescript-min.js'),
   path.resolve(targetDir + '/livescript/livescript-min.js'),
 );
 // prelude.ls (livescript base library)
 fs.copyFileSync(
-  path.resolve(vendor_modules + '/livescript/prelude-browser-min.js'),
+  path.resolve(vendor_modules_src + '/livescript/prelude-browser-min.js'),
   path.resolve(targetDir + '/livescript/prelude-browser-min.js'),
 );
 
@@ -208,7 +208,7 @@ esbuild.build({
 // JSCPP
 mkdirp(targetDir + '/jscpp');
 fs.copyFileSync(
-  path.resolve(vendor_modules + '/jscpp/JSCPP.es5.min.js'),
+  path.resolve(vendor_modules_src + '/jscpp/JSCPP.es5.min.js'),
   path.resolve(targetDir + '/jscpp/JSCPP.es5.min.js'),
 );
 
@@ -216,18 +216,25 @@ fs.copyFileSync(
 mkdirp(targetDir + '/wacl');
 mkdirp(targetDir + '/wacl/tcl');
 fs.copyFileSync(
-  path.resolve(vendor_modules + '/wacl/tcl/wacl.js'),
+  path.resolve(vendor_modules_src + '/wacl/tcl/wacl.js'),
   path.resolve(targetDir + '/wacl/tcl/wacl.js'),
 );
 fs.copyFileSync(
-  path.resolve(vendor_modules + '/wacl/tcl/wacl.wasm'),
+  path.resolve(vendor_modules_src + '/wacl/tcl/wacl.wasm'),
   path.resolve(targetDir + '/wacl/tcl/wacl.wasm'),
 );
 fs.copyFileSync(
-  path.resolve(vendor_modules + '/wacl/tcl/wacl-custom.data'),
+  path.resolve(vendor_modules_src + '/wacl/tcl/wacl-custom.data'),
   path.resolve(targetDir + '/wacl/tcl/wacl-custom.data'),
 );
 fs.copyFileSync(
-  path.resolve(vendor_modules + '/wacl/tcl/wacl-library.data'),
+  path.resolve(vendor_modules_src + '/wacl/tcl/wacl-library.data'),
   path.resolve(targetDir + '/wacl/tcl/wacl-library.data'),
 );
+
+// turbopascal
+mkdirp(targetDir + '/turbopascal');
+fs.copyFileSync(
+  path.resolve(vendor_modules_src + '/turbopascal/turbopascal.js'),
+  path.resolve(targetDir + '/turbopascal/turbopascal.js'),
+);

package/vendor-licenses.md

@@ -46,6 +46,8 @@ Stylus: [MIT License](https://github.com/stylus/stylus/blob/59bc665db295981d4e3f
 
 Svelte: [MIT License](https://github.com/sveltejs/svelte/blob/dafbdc286eef3de2243088a9a826e6899e20465c/LICENSE)
 
+turbopascal: [BSD 2-Clause License](https://github.com/MikeRalphson/turbopascal/blob/cfcc5ee6d93f32664bb6127aa751c68841ca5c1d/LICENSE)
+
 wacl: [BSD 3-Clause License](https://github.com/ecky-l/wacl/blob/9daacabb0102a9986f33263261350edfeebdd83b/LICENSE)
 
 wasm-refmt: [MIT License](https://github.com/xtuc/webassemblyjs/blob/45f733aa96476d74c8ac57598e13406a48a6fdc8/LICENSE)

package/vendor_modules/src/turbopascal/LICENSE

@@ -0,0 +1,22 @@
+Copyright (c) 2013, Lawrence Kesteloot
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+- Redistributions of source code must retain the above copyright notice, this
+  list of conditions and the following disclaimer.
+- Redistributions in binary form must reproduce the above copyright notice,
+  this list of conditions and the following disclaimer in the documentation
+  and/or other materials provided with the distribution.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
+ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

package/vendor_modules/src/turbopascal/turbopascal.js

@@ -0,0 +1,96 @@
+// based on https://github.com/MikeRalphson/turbopascal/blob/master/tpc.js
+const turbopascal = {
+  compiler: new Promise((resolve) => {
+    requirejs.config({
+      baseUrl: 'https://cdn.jsdelivr.net/npm/turbopascal@1.0.3',
+      paths: {
+        underscore: 'https://cdn.jsdelivr.net/npm/underscore@1.13.2/underscore-umd.min',
+      },
+    });
+
+    require([
+      'Stream',
+      'Lexer',
+      'CommentStripper',
+      'Parser',
+      'PascalError',
+      'Compiler',
+      'Machine',
+      'SymbolTable',
+    ], function (
+      Stream,
+      Lexer,
+      CommentStripper,
+      Parser,
+      PascalError,
+      Compiler,
+      Machine,
+      SymbolTable,
+    ) {
+      function compile(source, run, DEBUG_TRACE) {
+        let self = this;
+
+        if (!source) {
+          return;
+        }
+
+        let stream = new Stream(source);
+        let lexer = new CommentStripper(new Lexer(stream));
+        let parser = new Parser(lexer);
+
+        let result = { parsed: false, compiled: false };
+
+        try {
+          // Create the symbol table of built-in constants, functions, and procedures.
+          let builtinSymbolTable = SymbolTable.makeBuiltinSymbolTable();
+
+          // Parse the program into a parse tree. Create the symbol table as we go.
+          let root = parser.parse(builtinSymbolTable);
+          result.tree = root.print('');
+          result.parsed = true;
+
+          // Compile to bytecode.
+          let compiler = new Compiler();
+          let bytecode = compiler.compile(root);
+          result.compiled = true;
+          result.bytecode = bytecode;
+          result.pSrc = bytecode.print();
+
+          if (run) {
+            // Execute the bytecode.
+            let machine = new Machine(bytecode, this.keyboard);
+            if (DEBUG_TRACE) {
+              machine.setDebugCallback(function (state) {
+                $state.append(state + '\\n');
+              });
+            }
+            machine.setFinishCallback(function (runningTime) {});
+            machine.setOutputCallback(function (line) {
+              console.log(line);
+            });
+            machine.setOutChCallback(function (line) {
+              console.log(line);
+            });
+            machine.setInputCallback(function (callback) {
+              self.screen.addCursor();
+              self._setInputMode(INPUT_STRING, function (line) {
+                self._setInputMode(INPUT_RUNNING);
+                callback(line);
+              });
+            });
+            machine.run();
+          }
+        } catch (e) {
+          console.warn(e.message);
+          // Print parsing errors.
+          if (e instanceof PascalError) {
+            console.warn(e.getMessage());
+          }
+          console.warn(e.stack);
+        }
+        return result;
+      }
+      resolve(compile);
+    });
+  }),
+};