From 1be951596f767a89810f6e4d440dd73928943ee8 Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Fri, 22 Nov 2019 18:17:03 +0000
Subject: [PATCH] begin further reorganization of the source tree

FossilOrigin-Name: 4645fa7e95b86179341a90f76786b7a2258fc5861c655f107f1a7117da8770b0
---
 interface/alternates/retro12.html             | 610 ------------------
 .../alternates => vm/nga-csharp}/retro.cs     |   0
 .../pascal => vm/nga-pascal}/bridge.pas       |   0
 .../pascal => vm/nga-pascal}/listener.lpr     |   0
 .../pascal => vm/nga-pascal}/nga.inc          |   0
 .../pascal => vm/nga-pascal}/nga.pas          |   0
 .../alternates => vm/nga-python}/retro.py     |   0
 7 files changed, 610 deletions(-)
 delete mode 100644 interface/alternates/retro12.html
 rename {interface/alternates => vm/nga-csharp}/retro.cs (100%)
 rename {interface/alternates/pascal => vm/nga-pascal}/bridge.pas (100%)
 rename {interface/alternates/pascal => vm/nga-pascal}/listener.lpr (100%)
 rename {interface/alternates/pascal => vm/nga-pascal}/nga.inc (100%)
 rename {interface/alternates/pascal => vm/nga-pascal}/nga.pas (100%)
 rename {interface/alternates => vm/nga-python}/retro.py (100%)
diff --git a/interface/alternates/retro12.html b/interface/alternates/retro12.html
deleted file mode 100644
index f430bd8..0000000
--- a/interface/alternates/retro12.html
+++ /dev/null
@@ -1,610 +0,0 @@
-
-<html xmlns="http://www.w3.org/1999/xhtml">
-<head>
-  <title>RETRO FORTH</title>
-  <style type="text/css">
-  *::-webkit-scrollbar {
-    width: 0.5em;
-  }
- 
-  *::-webkit-scrollbar-track {
-    -webkit-box-shadow: inset 0 0 6px rgba(0,0,0,0.3);
-  }
-
-  *::-webkit-scrollbar-thumb {
-    background-color: #333333;
-    outline: 1px solid slategrey;
-  }
-
-body {
-  background: #212121;
-  color: #ababab;
-  font-size: 22pt;
-  font-family: monospace;
-  height:100%;
-  margin:0;
-  padding:0;
-}
-
-.left, .mid, .right {
-  float: left;
-  height: 100vp;
-  overflow: auto; overflow-x:hidden;
-  height:100%;
-}
-
-.left, .mid {
-  width: 40%;
-}
-
-.mid {
-  background: #1A1A1A;
-}
-
-.right {
-  width: 20%;
-}
-
-textarea, iframe {
-  width:100%;
-  height:100%; 
-  box-sizing: border-box;         /* For IE and modern versions of Chrome */
-  -moz-box-sizing: border-box;    /* For Firefox                          */
-  -webkit-box-sizing: border-box; /* For Safari                           */
-  background: #212121;
-  color: #ababab;
-  font-size: 22pt;
-  border: 0px;
-}
-
-button {
-  background: #121212;
-  color: orange;
-  border: 1px solid orange;
-  font-size: 22pt;
-}
-</style>
-<body onLoad='loadproject()'>
-<div class='left'>
-<textarea id='input' onchange='saveproject()'>
-</textarea>
-</div>
-<div class='mid'>
-<div style='float: right; margin-right: 10px;'>
-<button onclick='cls()'>Clear</button>
-<button onclick='go()'>Go</button>
-</div>
-<div>
-<xmp id='console'>
-</xmp>
-</div>
-</div>
-<div class='right'>
-<iframe src='http://forth.works:9999'></iframe>
-</div>
-</body>
-<script>
-/* Nga ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-   Copyright (c) 2008 - 2018, Charles Childers
-   Copyright (c) 2009 - 2010, Luke Parrish
-   Copyright (c) 2010,        Marc Simpson
-   Copyright (c) 2010,        Jay Skeer
-   Copyright (c) 2011,        Kenneth Keating
-   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-
-var IMAGE_SIZE = 524288 * 4; /* Amount of simulated RAM    */
-var DATA_DEPTH = 8192; /* Depth of data stack        */
-var ADDRESS_DEPTH = 32768; /* Depth of the stacks        */
-
-function Stack(size) {
-    this.sp = 0;
-    this.data = new Array(size);
-    this.push = function(n) {
-        this.sp++;
-        this.data[this.sp] = n;
-    }
-    this.pop = function() {
-        return this.data[this.sp--];
-    }
-    this.depth = function() {
-        return this.sp;
-    }
-    this.tos = function() {
-        return this.data[this.sp];
-    }
-    this.nos = function() {
-        return this.data[this.sp - 1];
-    }
-    this.dup = function() {
-        this.push(this.tos());
-    }
-    this.drop = function() {
-        this.sp--;
-    }
-    this.swap = function() {
-        var a = this.nos();
-        this.data[this.sp - 1] = this.tos();
-        this.data[this.sp] = a;
-    }
-    this.inc = function() {
-        this.data[this.sp]++;
-    }
-    this.dec = function() {
-        this.data[this.sp]--;
-    }
-    this.reset = function() {
-        this.sp = 0;
-    }
-}
-
-function Opcodes() {
-    this.NOP = 0;
-    this.LIT = 1;
-    this.DUP = 2;
-    this.DROP = 3;
-    this.SWAP = 4;
-    this.PUSH = 5;
-    this.POP = 6;
-    this.JUMP = 7;
-    this.CALL = 8;
-    this.CCALL = 9;
-    this.RETURN = 10;
-    this.EQ = 11;
-    this.NEQ = 12;
-    this.LT = 13;
-    this.GT = 14;
-    this.FETCH = 15;
-    this.STORE = 16;
-    this.ADD = 17;
-    this.SUB = 18;
-    this.MUL = 19;
-    this.DIVMOD = 20;
-    this.AND = 21;
-    this.OR = 22;
-    this.XOR = 23;
-    this.SHIFT = 24;
-    this.ZERO_EXIT = 25;
-    this.END = 26;
-    this.IE = 27;
-    this.IQ = 28;
-    this.II = 29;
-}
-var ip = 0;
-var data = new Stack(DATA_DEPTH);
-var address = new Stack(ADDRESS_DEPTH);
-var image = new Array(IMAGE_SIZE);
-var vm = new Opcodes();
-var instructions = new Array(vm.II + 1);
-
-function rxPrepareVM() {
-    ip = 0;
-    data.reset();
-    address.reset();
-}
-
-instructions[vm.NOP] = function() {}
-instructions[vm.LIT] = function() {
-    ip++;
-    data.push(image[ip]);
-}
-instructions[vm.DUP] = function() {
-    data.dup();
-}
-instructions[vm.DROP] = function() {
-    data.drop();
-}
-instructions[vm.SWAP] = function() {
-    data.swap();
-}
-instructions[vm.PUSH] = function() {
-    address.push(data.pop());
-}
-instructions[vm.POP] = function() {
-    data.push(address.pop())
-}
-instructions[vm.JUMP] = function() {
-    ip = data.pop() - 1;
-}
-instructions[vm.CALL] = function() {
-    address.push(ip);
-    ip = data.pop() - 1;
-}
-instructions[vm.CCALL] = function() {
-    var a, b;
-    a = data.pop();
-    b = data.pop();
-    if (b != 0) {
-        address.push(ip);
-        ip = a - 1;
-    }
-}
-instructions[vm.RETURN] = function() {
-    ip = address.pop();
-}
-instructions[vm.EQ] = function() {
-    var a, b;
-    a = data.pop();
-    b = data.pop();
-    if (b == a)
-        data.push(-1);
-    else
-        data.push(0);
-}
-instructions[vm.NEQ] = function() {
-    var a, b;
-    a = data.pop();
-    b = data.pop();
-    if (b != a)
-        data.push(-1);
-    else
-        data.push(0);
-}
-instructions[vm.LT] = function() {
-    var a, b;
-    a = data.pop();
-    b = data.pop();
-    if (b < a)
-        data.push(-1);
-    else
-        data.push(0);
-}
-instructions[vm.GT] = function() {
-    var a, b;
-    a = data.pop();
-    b = data.pop();
-    if (b > a)
-        data.push(-1);
-    else
-        data.push(0);
-}
-instructions[vm.FETCH] = function() {
-    x = data.pop();
-    if (x == -1)
-        data.push(data.sp);
-    else if (x == -2)
-        data.push(address.sp);
-    else if (x == -3)
-        data.push(IMAGE_SIZE);
-    else if (x == -4)
-        data.push(-2147483648);
-    else if (x == -5)
-        data.push(2147483647);
-    else
-        data.push(image[x]);
-}
-instructions[vm.STORE] = function() {
-    image[data.tos()] = data.nos();
-    data.drop();
-    data.drop();
-}
-instructions[vm.ADD] = function() {
-    var x = data.pop();
-    var y = data.pop();
-    data.push(x + y);
-}
-instructions[vm.SUB] = function() {
-    var x = data.pop();
-    var y = data.pop();
-    data.push(y - x);
-}
-instructions[vm.MUL] = function() {
-    var x = data.pop();
-    var y = data.pop();
-    data.push(y * x);
-}
-instructions[vm.DIVMOD] = function() {
-    var b = data.pop();
-    var a = data.pop();
-    if (b == 0) {
-        ip = 0;
-        data.sp = 0;
-        address.sp = 0;
-    } else {
-        var x = Math.abs(b);
-        var y = Math.abs(a);
-        var q = Math.floor(y / x);
-        var r = y % x;
-        if (a < 0 && b < 0)
-            r = r * -1;
-        if (a > 0 && b < 0)
-            q = q * -1;
-        if (a < 0 && b > 0) {
-            r = r * -1;
-            q = q * -1;
-        }
-        data.push(r);
-        data.push(q);
-    }
-}
-instructions[vm.AND] = function() {
-    var x = data.pop();
-    var y = data.pop();
-    data.push(x & y);
-}
-instructions[vm.OR] = function() {
-    var x = data.pop();
-    var y = data.pop();
-    data.push(x | y);
-}
-instructions[vm.XOR] = function() {
-    var x = data.pop();
-    var y = data.pop();
-    data.push(x ^ y);
-}
-instructions[vm.SHIFT] = function() {
-    var x = data.pop();
-    var y = data.pop();
-    if (x < 0)
-        data.push(y << (x * -1));
-    else
-        data.push(y >>= x);
-}
-instructions[vm.ZERO_EXIT] = function() {
-    if (data.tos() == 0) {
-        data.drop();
-        ip = address.pop();
-    }
-}
-instructions[vm.END] = function() {
-    ip = IMAGE_SIZE;
-}
-instructions[vm.IE] = function() {
-    data.push(1);
-}
-instructions[vm.IQ] = function() {
-    data.drop();
-    data.push(0);
-    data.push(0);
-}
-instructions[vm.II] = function() {
-    data.pop();
-    var s = String.fromCharCode(data.pop());
-    document.getElementById('console').innerHTML += s;
-}
-window.addEventListener('load', function(e) {
-    rxPrepareVM();
-}, false);
-
-function processOpcode(opcode) {
-    if (opcode != 0) {
-        instructions[opcode]();
-        checkStack();
-    }
-}
-
-function validatePackedOpcodes(opcode) {
-    var raw = opcode;
-    var current;
-    var valid = -1;
-    var i = 0;
-    while (i < 4) {
-        current = raw & 0xFF;
-        if (!current >= 0 && current <= 29)
-            valid = 0;
-        raw = raw >> 8;
-        i++;
-    }
-}
-
-function ngaProcessPackedOpcodes(opcode) {
-    var raw = opcode;
-    ops = new Array(3);
-    ops[0] = raw & (255);
-    raw = raw >> 8;
-    ops[1] = raw & (255);
-    raw = raw >> 8;
-    ops[2] = raw & (255);
-    raw = raw >> 8;
-    ops[3] = raw & (255);
-    processOpcode(ops[0]);
-    processOpcode(ops[1]);
-    processOpcode(ops[2]);
-    processOpcode(ops[3]);
-}
-
-var ngaImage = [
-<<<IMAGE>>>
-];
-
-/* Nga - Retro - JavaScript Interface ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-   Copyright (c) 2008 - 2018, Charles Childers
-   Copyright (c) 2009 - 2010, Luke Parrish
-   Copyright (c) 2010,        Marc Simpson
-   Copyright (c) 2010,        Jay Skeer
-   Copyright (c) 2011,        Kenneth Keating
-   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
-function loadInitialImage() {
-    image = ngaImage.slice();
-}
-
-function execute(offset) {
-    var opcode;
-    address.sp = 1;
-    ip = offset;
-    var notfound = d_xt_for("err:notfound");
-    while (ip < IMAGE_SIZE) {
-        opcode = image[ip];
-        if (ip == notfound) {
-            document.getElementById('console').value +=
-                "err:notfound : " + string_extract(1471) + "\n";
-        }
-        if (validatePackedOpcodes(opcode) != 0) {
-            ngaProcessPackedOpcodes(opcode);
-        } else {
-            alert("Invalid instruction!");
-            alert("At " + ip + ", opcode " + opcode);
-        }
-        if (address.sp == 0)
-            ip = IMAGE_SIZE;
-        ip++;
-    }
-}
-
-function checkStack() {
-    var depth = data.depth();
-    var adepth = address.depth();
-    var flag = 0;
-    if (depth < 0 || adepth < 0) {
-        flag = -1;
-    }
-    if (depth > DATA_DEPTH || adepth > DATA_DEPTH) {
-        flag = -1;
-    }
-    if (flag == -1) {
-        ip = 0;
-        data.sp = 0;
-        address.sp = 0;
-    }
-}
-
-function string_inject(str, buffer) {
-    var m = str.length;
-    var i = 0;
-    while (m > 0) {
-        image[buffer + i] = str[i].charCodeAt(0);
-        image[buffer + i + 1] = 0;
-        m--;
-        i++;
-    }
-}
-
-function string_extract(at) {
-    string_data = "";
-    var starting = at;
-    var i = 0;
-    while (image[starting] != 0)
-        string_data += String.fromCharCode(image[starting++]);
-    return string_data;
-}
-
-function d_link(dt) {
-    return dt + 0;
-}
-
-function d_xt(dt) {
-    return dt + 1;
-}
-
-function d_class(dt) {
-    return dt + 2;
-}
-
-function d_name(dt) {
-    return dt + 3;
-}
-
-function d_count_entries() {
-    var c = 0;
-    var i = image[2];
-    while (image[i] != 0) {
-        c++;
-        i = image[i];
-    }
-    return c;
-}
-
-function d_lookup(name) {
-    var dt = 0;
-    var i = image[2];
-    var dname;
-    while (image[i] != 0 && i != 0) {
-        dname = string_extract(d_name(i));
-        if (dname == name) {
-            dt = i;
-            i = 0;
-        } else {
-            i = image[i];
-        }
-    }
-    return dt;
-}
-
-function d_xt_for(name) {
-    return image[d_xt(d_lookup(name))];
-}
-
-function d_class_for(name) {
-    return image[d_class(d_lookup(name))];
-}
-
-function evaluate(s) {
-    if (s.length == 0)
-        return;
-    var i = d_xt_for("interpret");
-    string_inject(s, 1471);
-    data.push(1471);
-    execute(i);
-}
-
-function cls() {
-    document.getElementById('console').innerHTML = "";
-}
-
-function unu(src) {
-    raw = src.split("\n");
-    var i = raw.length;
-    var lines = new Array();
-    var j = 0;
-    var code = 0;
-    while (j < i) {
-        if (code == 1 && raw[j] == "~~~") {
-            code = 0;
-        } else if (code == 0 && raw[j] == "~~~") {
-            code = 1;
-        } else if (code == 1) {
-            lines.push(raw[j]);
-        }
-        j++;
-    }
-    return lines.join(" ");
-}
-
-function go() {
-    rxPrepareVM();
-    loadInitialImage();
-    document.getElementById("console").innerHTML = "";
-    src = document.getElementById("input").value;
-    tokens = unu(src).match(/\S+/g);
-    var i = tokens.length;
-    var j = 0;
-    while (j < i) {
-        evaluate(tokens[j]);
-        j++;
-    }
-    s = "";
-    i = data.depth();
-    j = 1;
-    while (j <= i) {
-        s = s + data.data[j] + " ";
-        j++;
-    }
-    document.getElementById("console").innerHTML += "\n" + s;
-}
-
-function saveproject() {
-    src = document.getElementById("input").value;
-    console.log('saving ' + src);
-    localStorage.setItem("Snapshot", src);
-}
-
-function loadproject() {
-    src = localStorage.getItem("Snapshot");
-    document.getElementById("input").value = src;
-}
-</script>
-</html>
-<!--
-Permission to use, copy, modify, and/or distribute this software for
-any purpose with or without fee is hereby granted, provided that the
-copyright notice and this permission notice appear in all copies.
-
-THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
-WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
-WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE
-AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
-DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
-PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
-TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
-PERFORMANCE OF THIS SOFTWARE.
--->
-
diff --git a/interface/alternates/retro.cs b/vm/nga-csharp/retro.cs
similarity index 100%
rename from interface/alternates/retro.cs
rename to vm/nga-csharp/retro.cs
diff --git a/interface/alternates/pascal/bridge.pas b/vm/nga-pascal/bridge.pas
similarity index 100%
rename from interface/alternates/pascal/bridge.pas
rename to vm/nga-pascal/bridge.pas
diff --git a/interface/alternates/pascal/listener.lpr b/vm/nga-pascal/listener.lpr
similarity index 100%
rename from interface/alternates/pascal/listener.lpr
rename to vm/nga-pascal/listener.lpr
diff --git a/interface/alternates/pascal/nga.inc b/vm/nga-pascal/nga.inc
similarity index 100%
rename from interface/alternates/pascal/nga.inc
rename to vm/nga-pascal/nga.inc
diff --git a/interface/alternates/pascal/nga.pas b/vm/nga-pascal/nga.pas
similarity index 100%
rename from interface/alternates/pascal/nga.pas
rename to vm/nga-pascal/nga.pas
diff --git a/interface/alternates/retro.py b/vm/nga-python/retro.py
similarity index 100%
rename from interface/alternates/retro.py
rename to vm/nga-python/retro.py
