@naanlang/naan 1.0.0

package/lib/env_node.js

@@ -0,0 +1,282 @@
+/*
+ * env_node.js
+ * Naanlib
+ *
+ *     Host Naan in the NodeJS REPL environment.
+ *
+ * column positioning:                          //                          //                      !
+ *
+ * Copyright (c) 2017-2021 by Richard C. Zulch
+ *
+ */
+
+(function(exports){
+
+/*
+ * NaanNodeREPL
+ *
+ *     This is executes Naan with a NodeJS REPL.
+ *
+ * Currently defined options are:
+ *  {
+ *      replDisable:    <boolean>               // disable REPL and just respond to textCommand in API
+ *  }
+ *
+ */
+
+exports.NaanNodeREPL = function NaanNodeREPL(options) {
+
+    "use strict";
+    /*jshint -W024 */
+    var undefined;
+
+    //
+    // Initialization
+    //
+    
+    if (typeof(options) != 'object')
+        options = { };
+    var repl = require('repl');
+    var process = require('process');
+    var Naan = require('./core/naanlib');
+    var naanlib = new Naan.Naanlib();
+    var servSelf = this;
+    naanlib.js.t = this;                                                    // allow us to be accessed from Naan
+    var termops;
+    var outEnable = !options.replDisable;
+
+
+    //==========================================================================
+    // API
+    //--------------------------------------------------------------------------
+
+    this.setRequire = function setRequire(req) {                            // override require function
+        naanlib.js.r = req;
+    };
+
+    this.setDirectory = function setDirectory(path) {                       // override base directory
+        naanlib.js.d = path;
+    };
+    
+    this.textCommand = function textCommand(cmd) {                          // send a command without echo
+        outEnable = true;
+        naanlib.textLine(cmd);
+    };
+
+
+    //==========================================================================
+    // NodeJS REPL Terminal Interface
+    //--------------------------------------------------------------------------
+
+    //
+    // Prepare the NodeJS console.
+    //
+
+    function myEval(cmd, context, filename, callback)
+    {                                                                       // Node REPL does too much crap
+    }
+    
+    if (!options.replDisable)
+    {
+        var nprompt = repl.start({ prompt: 'Naan> ', eval: myEval});
+    
+        nprompt.on('line', function(cmd) {                                  // process raw command line
+            if (cmd.charAt(0) != ".") {
+                textToRemoteTerm(cmd);
+                naanlib.textLine(cmd + "\n");
+            }
+        });
+    
+        //
+        // Hook the ^C interrupt
+        //
+    
+        nprompt._events.SIGINT = function () {
+            naanlib.escape();
+        };
+    
+        //
+        // Hook an exit command
+        //
+    
+        nprompt.on('exit', function() {
+            process.exit();
+        });
+    }
+
+    //
+    // Interpreter's console/debug output
+    //
+
+    naanlib.onText(function (text, level) {
+        if (level) {
+            if (level >= 5)
+                console.log("\x1b[36m" + text + "\x1b[0m");                 // cyan for builtin logging
+            else if (level >= 4)
+                console.log("\x1b[34m" + text + "\x1b[0m");                 // blue for Naan function logging
+            else if (level >= 3)
+                console.log("\x1b[31m" + text + "\x1b[0m");                 // light read for warnings
+            else if (level >= 2)
+                console.log("\x1b[32m" + text + "\x1b[0m");                 // green for Naan.debug.debuglog logging
+            else
+                console.log("\x1b[31m\x1b[1m" + text + "\x1b[0m");          // heavy red for errors
+            if (termops)
+            {
+                setTimeout(function () {
+                    termops.debugtext(text, level);
+                }, 1);
+            }
+        } else if (outEnable) {
+            process.stdout.write(text);
+            textToRemoteTerm(text);
+        }
+    });
+
+
+    //==========================================================================
+    // Naan Remote Terminal Interface
+    //--------------------------------------------------------------------------
+
+    //
+    // Attach
+    //
+    // Attach a terminal controller to our interpreter.
+    //
+
+    this.Attach = function(tops) {
+        termops = tops;
+    };
+
+    //
+    // Detach
+    //
+    // Detach the terminal from the interpreter.
+    //
+
+    this.Detach = function(tops) {
+        if (termops === tops)
+            termops = false;
+    };
+
+    //
+    // OnMessage
+    //
+    // Respond to a message. Note that this calls Naan via timeouts to handle the use case that the
+    // messages are originating from the interpreter itself, so that it does not call itself back
+    // recurxsively. That would be Very Bad™.
+    //
+            
+    this.ReplyMessage = function ReplyMessage(data) {
+        if (termops)
+        {
+            setTimeout(function () {
+                termops.messageout(data);
+            }, 1);
+        }
+        return (data);
+    };
+    
+    var nodeListener;
+    this.OnMessage = function OnMessage(proc) {
+        nodeListener = proc;
+        return (proc);
+    };
+
+    this.ReplyDebugger = function ReplyDebugger(data) {
+        if (termops)
+        {
+            setTimeout(function () {
+                termops.debugout(data);
+            }, 1);
+        }
+        return (data);
+    };
+
+    var debugListener;
+    this.OnDebugger = function OnDebugger(proc) {
+        debugListener = proc;
+        return (proc);
+    };
+
+    //
+    // DispatchMessage
+    //
+    // Respond to a message. Note that this calls Naan via timeouts to handle the use case that the
+    // messages are originating from the interpreter itself, so that it does not call itself back
+    // recurxsively. That would be Very Bad™.
+    //
+    
+    this.DispatchMessage = function(msg) {
+        if (msg.id == "interrupt")
+        {                                                                   // interrupt request from remote terminal
+            setTimeout(function () {
+                naanlib.escape();                                           // interrupt request from terminal
+            }, 1);
+        }
+        else if (msg.id == "keyline")
+        {                                                                   // typing from remote terminal
+            setTimeout(function () {
+                process.stdout.write(msg.text + "\r\n");
+                outEnable = true;
+                naanlib.textLine(msg.text);                                 // keyboard text from terminal
+            }, 1);
+        }
+        else if (msg.id == "targetin")
+        {
+            setTimeout(function () {
+                if (nodeListener)
+                    nodeListener(msg.data);                                 // received a generic message
+            }, 1);
+        }
+        else if (msg.id == "debugin")
+        {
+            setTimeout(function () {
+                if (debugListener)
+                    debugListener(msg.data);                                // received a debugger message
+            }, 1);
+        }
+    };
+    
+    // textToRemoteTerm
+    //
+    // Echo text typed locally to any remote terminal(s) that might be attached.
+    
+    function textToRemoteTerm(text) {
+        if (termops)
+        {
+            setTimeout(function () {
+                termops.textout(text);
+            }, 1);
+        }
+    }
+    
+    //
+    // Status updates
+    //
+    // Send status updates once per second while a terminal is attached.
+    //
+    
+    setInterval(function() {
+        if (termops && termops.status)
+        {
+            var samples = naanlib.status(1);
+            if (samples.length > 0)
+                termops.status({
+                    sample: samples[0]
+                });
+        }
+    }, 1000);
+    
+    
+    //==========================================================================
+    // Start the Naan Interpreter
+    //--------------------------------------------------------------------------
+
+    naanlib.banner();
+    naanlib.start();
+}
+
+})(typeof exports === 'undefined'? this.NaanNodeREPL={}: exports);
+
+if (typeof(module) && typeof(module.exports))
+    module.exports = this.NaanNodeREPL;                                     // export for NodeJS

package/lib/env_nodeworker.js

@@ -0,0 +1,165 @@
+/*
+ * env_nodeworker.js
+ * Naanlib
+ *
+ *     Host Naan in the NodeJS worker thread environment.
+ *
+ * column positioning:                          //                          //                      !
+ *
+ * Copyright (c) 2019-2021 by Richard C. Zulch
+ *
+ */
+
+
+/*
+ * NaanWorkerActivate
+ *
+ *     Activate a new worker.
+ *
+ */
+
+exports.NaanWorkerActivate = function NaanWorkerActivate(cbReady) {
+    
+    // initialize
+
+    var threads = require('worker_threads');
+    threads.parentPort.once('message', function (value) {
+        var naancon = new NaanControllerNodeWorker(value.hereIsYourPort);
+        cbReady(naancon);
+    });
+    
+    /*
+     * NaanControllerNodeWorker
+     *
+     *     This is the Node worker that executes Naan.
+     *
+     */
+    
+    function NaanControllerNodeWorker(msgPort) {
+    
+        "use strict";
+        /*jshint -W024 */
+        var undefined;
+    
+        //
+        // Initialization
+        //
+    
+        var Naanlang = require('./core/naanlib');
+        var naanlib = new Naanlang.Naanlib();
+        var workSelf = this;
+        workSelf.anaan = naanlib.js.n;
+        naanlib.js.t = workSelf;
+    
+    
+        //==========================================================================
+        // API
+        //--------------------------------------------------------------------------
+    
+        this.setRequire = function setRequire(req) {                        // override require function
+            naanlib.js.r = req;
+        };
+    
+        this.setDirectory = function setDirectory(path) {                   // override base directory
+            naanlib.js.d = path;
+        };
+        
+        this.textCommand = function textCommand(cmd) {                      // send a command
+            naanlib.textLine(cmd);
+        };
+    
+    
+        //==========================================================================
+        // NodeJS Worker Terminal Interface
+        //--------------------------------------------------------------------------
+    
+        naanlib.onText(function(text, level) {
+            if (level)
+                msgPort.postMessage({
+                    id: "debugtext",
+                    text: text,
+                    level: level
+                });
+            else
+                msgPort.postMessage({
+                    id: "textout",
+                    text: text
+                });
+        });
+    
+        setInterval(function() {
+            var samples = naanlib.status(1);
+            if (samples.length > 0)
+                msgPort.postMessage({                                       // periodic worker status
+                    id: "status",
+                    status: {
+                        sample: samples[0]
+                    }
+                });
+        }, 1000);
+        
+        workSelf.ReplyMessage = function ReplyMessage(data) {
+            msgPort.postMessage({                                           // worker is sending a message
+                id: "targetout",
+                data: data
+            });
+            return (data);
+        };
+        
+        var workerListener;
+        workSelf.OnMessage = function OnMessage(proc) {
+            workerListener = proc;
+            return (proc);
+        };
+            
+        workSelf.ReplyDebugger = function ReplyDebugger(data) {
+            msgPort.postMessage({                                           // target is sending debug data
+                id: "debugout",
+                data: data
+            });
+            return (data);
+        };
+    
+        var debugListener;
+        workSelf.OnDebugger = function OnDebugger(proc) {
+            debugListener = proc;
+            return (proc);
+        };
+    
+        msgPort.on("message", function(msg) {
+            if (msg.id == "interrupt")
+                naanlib.escape();                                           // interrupt request from terminal
+            else if (msg.id == "keyline")
+                naanlib.textLine(msg.text);                                 // keyboard text from terminal
+            else if (msg.id == "start")
+            {                                                               // start execution with optional state
+                if (typeof(__dirname) !== "undefined")
+                    naanlib.js.h = naanlib.js.d;                            // set host directory path
+                if (msg.dirpath)
+                    naanlib.js.d = msg.dirpath;                             // set owner directory path
+                naanlib.start({
+                    state: msg.state,
+                    cmd: msg.altcmd
+                });
+            }
+            else if (msg.id == "import")
+                importScripts(msg.script);                                  // load a JavaScript
+            else if (msg.id == "targetin")
+            {
+                if (workerListener)
+                    workerListener(msg.data);                               // worker received a message
+            }
+            else if (msg.id == "debugin")
+            {
+                if (debugListener)
+                    debugListener(msg.data);                                // target received a message
+            }
+        });
+        
+        msgPort.postMessage({
+            id: "loaded"                                                    // initialization complete
+        });
+        naanlib.banner();
+    }
+
+};

package/lib/node_repl.js

@@ -0,0 +1,25 @@
+/*
+ * node_repl.js
+ * Naanlib
+ *
+ *     Provide a Naan repl in Node.
+ *
+ * column positioning:                          //                          //                      !
+ *
+ * Copyright (c) 2021 by Richard C. Zulch
+ *
+ */
+
+"use strict";
+
+
+/*
+ * Begin
+ *
+ */
+
+var NaanNodeREPL = require('./env_node.js');
+
+var naanrepl = new NaanNodeREPL();
+naanrepl.setDirectory(__dirname);
+naanrepl.textCommand("nodeparse('node_repl_init.nlg');;");

package/lib/node_repl_init.nlg

@@ -0,0 +1,52 @@
+/*
+ * node_repl_init.nlg
+ * Naanlib
+ *
+ *     Initialize the Naan repl in Node.
+ *
+ * column positioning:                          //                          //                      !
+ *
+ * Copyright (c) 2018-2021 by Richard C. Zulch
+ *
+ */
+
+loglevel(2);
+
+
+/*
+ * debug
+ *
+ *     Handy utility to enter the debugger just before an expression is evaluated.
+ *
+ */
+
+macro debug(expr) {
+    if atom(expr)
+        first(expr)
+    else {
+        expr = list(list(Naan.debug.debugger, 1), expr)
+        second(eval(expr)) }
+};
+
+
+/*
+ * dcaller
+ *
+ *     Report the caller of the specified function for debugging. By default this ignores lambda
+ * functions, but you can pass true for argument two to report them.
+ *
+ */
+
+function dcaller(proc, lambdaOK, local x, found) {
+    for x in stacktrace()
+        if procedure(list(x.0)) {
+            if !lambdaOK && lambda(x.1)
+                continue
+            if found && !proc
+                return (x.1)                                                // found procedure name symbol
+            else if x.1 == dcaller
+                found = true
+            else if proc && x.1 == proc
+                proc = false }
+    false
+};

package/package.json

@@ -0,0 +1,13 @@
+{
+    "name": "@naanlang/naan",
+    "version": "1.0.0",
+    "author": "Richard C. Zulch",
+    "description": "Naan™ software platform",
+    "main": "./lib/core/naanlib.js",
+    "browser": "./dist/naanlib.min.js",
+    "license" : "MIT",
+    "scripts": {
+        "start": "node lib/node_repl.js",
+        "test": "node test/node_test.js"
+    }
+}