Add legacy build

.gitignore

@@ -3,3 +3,8 @@ node_modules
 package-lock.json
 secretkey
 __pycache__
+.DS_Store
+static/**/*-min.js
+static/**/*-calc.js
+static/mzscheme-vm/support.js
+static/codemirror/

README.md

@@ -1,36 +1,24 @@
-Install needed npm modules:
-```
-npm install
-```
+1. Install needed npm modules:
+`npm install`
 
-Install codemirror5:
-```
-git clone https://github.com/codemirror/codemirror5
-cd codemirror5
-npm install
-cd ..
-```
+2. Make the python environment and generate secret key:
+`npm run setup`
+
+_OR:_
 
-Make the python environment:
 ```
 python3.11 -m venv env
 . ./env/bin/activate
 python -m pip install -r requirements.txt
-```
-
-Generate a secret key:
-```
 python -c "import secrets; print(secrets.token_hex(20))" >secretkey
 ```
 
-This should be enough to run locally:
-```
-python main.py
-```
+3. Build the runtime and compiler from source:
+`npm run build`
 
+To *test* WeScheme locally, at 127.0.0.1:8080:
+`python main.py`
 
-To *deploy*, use the following, assuming nothing's changed with your credentials since the last time you uploaded:
-```
-gcloud app deploy
-```
+To *deploy* WeScheme to AppEngine, use the following (assuming nothing's changed with your credentials since the last time you uploaded):
+`gcloud app deploy`
 

app.yaml

@@ -6,9 +6,6 @@ handlers:
 - url: /static
   static_dir: static
 
-- url: /codemirror5
-  static_dir: codemirror5
-
   # This handler routes all requests not caught above to your main app. It is
   # required when static routes are defined, but can be omitted (along with
   # the entire handlers section) when there are no static files defined.

js-src/ajaxactions.js

@@ -0,0 +1,188 @@
+goog.provide("plt.wescheme.AjaxActions");
+
+
+goog.require('plt.wescheme.Program');
+
+// if (typeof (plt) === 'undefined') {
+//     this.plt = {};
+// }
+// if (typeof (plt.wescheme) === 'undefined') {
+//     this.plt.wescheme = {};
+// }
+
+
+
+(function() {
+    plt.wescheme.AjaxActions = function() {}
+
+
+    // loadProject: number (jquery -> void) (-> void)
+    plt.wescheme.AjaxActions.prototype.loadProject = function(pid, publicId, onSuccess, onFailure) {
+	var pid;
+	if (pid) {
+	    data = { pid: pid };
+	} else {
+	    data = { publicId: publicId };
+	}
+        // to prevent caching:
+        data.gensym = Math.random();
+	jQuery.ajax({cache : false,
+  		     data : data,
+  		     dataType: "json",
+  		     type: "GET",
+  		     url: "/loadProject",
+  		     success: function(json) {
+			 onSuccess(new plt.wescheme.Program(json));
+		     },
+  		     error: function(xhr) {
+			 onFailure(xhr.statusText);
+		     },
+		     xhr: function(settings) { return new XMLHttpRequest(settings); }
+		    });
+    };
+
+
+    // listProjects: (jquery -> void) -> void
+    plt.wescheme.AjaxActions.prototype.listProjects = function(onSuccess, onFailure) {
+	var callback = function(data) {
+	    var dom = jQuery(data);
+	    onSuccess(dom);
+	};
+        var data = {};
+        // to prevent caching:
+        data.gensym = Math.random();
+	jQuery.ajax({cache: false,
+		     data: data,
+		     dataType: "xml",
+		     type: "GET",
+		     url: "/listProjects",
+		     success: callback,
+		     error: function(xhr) {
+			 onFailure(xhr.statusText);
+		     },
+		     xhr: function(settings) { return new XMLHttpRequest(settings); }
+		    });
+    };
+
+    // makeAClone: number (string | null) (number -> void) (-> void) -> void
+    // Clones a program.  If code is non-null, also update the code source of the
+    // clone.
+    plt.wescheme.AjaxActions.prototype.makeAClone = function(pid, code, onSuccess, onFailure) {
+	jQuery.ajax({cache : false,
+  		     data : (code === null ? {pid: pid}: { pid: pid, code: code }),
+  		     dataType: "text",
+  		     type: "POST",
+  		     url: "/cloneProject",
+  		     success: function(data) {
+			 var newPid = parseInt(data);
+			 onSuccess(newPid);
+		     },
+		     error: function(xhr) {
+			 onFailure(xhr.statusText);
+		     }, 
+		     xhr: function(settings) { return new XMLHttpRequest(settings); }
+		    });
+    };
+
+
+
+
+    // share: number boolean (-> void) (-> void) -> void
+    // Shares a program.
+    // Sets the published flag on a program.
+    plt.wescheme.AjaxActions.prototype.share = function(pid, isPublic, onSuccess, onFailure) {
+	jQuery.ajax({cache : false,
+  		     data : { pid: pid,
+			      isPublic: isPublic },
+  		     dataType: "xml",
+  		     type: "POST",
+  		     url: "/shareProject",
+  		     success: function(data) {
+			 onSuccess(jQuery(data));
+		     },
+  		     error: function(xhr) {
+			 onFailure(xhr.statusText);
+		     }, 
+		     xhr: function(settings) { return new XMLHttpRequest(settings); }
+  		    });
+    };
+
+
+    // deleteProject: number (program -> void) (-> void) -> void
+    // Deletes a program.
+    plt.wescheme.AjaxActions.prototype.deleteProject = function(pid, onSuccess, onFailure) {
+	jQuery.ajax({cache : false,
+  		     data : { pid: pid },
+  		     dataType: "xml",
+  		     type: "POST",
+  		     url: "/deleteProject",
+  		     success: function(data) {
+			 onSuccess(jQuery(data));
+		     },
+  		     error: function(xhr) {
+			 onFailure(xhr.statusText);
+		     }, 
+		     xhr: function(settings) { return new XMLHttpRequest(settings); }
+  		    });
+    };
+
+
+
+
+    // save: { pid : (U undefined number),
+    //         title: string,
+    //         code: string,
+    //         notes: string },
+    //       (number -> void) (-> void) -> void
+    // Does a save.
+    plt.wescheme.AjaxActions.prototype.save = function(attrs, onSuccess, onFailure) {
+        var i;
+	var data = {};
+        var attrNames = ['title', 'code', 'notes'];
+	if (attrs.pid) {
+	    data.pid = attrs.pid;
+        }
+        for (i=0; i < attrNames.length; i++) {
+            if (Object.hasOwnProperty.call(attrs, attrNames[i])) {
+                data[attrNames[i]] = attrs[attrNames[i]];
+            }
+        }
+	jQuery.ajax({cache : false,
+  		     data : data,
+  		     dataType: "text",
+  		     type: "POST",
+  		     url: "/saveProject",
+  		     success: function(data) {
+			 var newPid = parseInt(data);
+			 onSuccess(newPid);
+		     },
+		     error: function(xhr) {
+			 onFailure(xhr.statusText);
+		     },
+		     xhr: function(settings) { return new XMLHttpRequest(settings); }
+		    });
+    };
+
+
+    // string string string (-> void) -> void
+    // Asynchronously record feedback from the author.
+    plt.wescheme.AjaxActions.prototype.sendFeedback = function(author, type, feedbackText, onSuccess) {
+	jQuery.ajax({cache : false,
+  		     data : {author : author,
+                             type : type,
+                             feedbackText : feedbackText },
+                     datatype: "text",
+                     type: "POST",
+                     url: "/addFeedback",
+                     success: function(data) {
+                         onSuccess();
+                     },
+                     error: function(xhr) {
+                         onSuccess();
+                     },
+		     xhr: function(settings) { return new XMLHttpRequest(settings); }
+                    });
+
+    };
+
+})();

js-src/base64.js

@@ -0,0 +1,117 @@
+goog.provide("plt.wescheme.base64");
+
+// Comes from:
+//
+// https://raw.github.com/kvz/phpjs/master/functions/url/base64_encode.js
+// https://raw.github.com/kvz/phpjs/master/functions/url/base64_decode.js
+
+(function() {
+
+
+    plt.wescheme.base64.encode = function (data) {
+        // http://kevin.vanzonneveld.net
+        // +   original by: Tyler Akins (http://rumkin.com)
+        // +   improved by: Bayron Guevara
+        // +   improved by: Thunder.m
+        // +   improved by: Kevin van Zonneveld (http://kevin.vanzonneveld.net)
+        // +   bugfixed by: Pellentesque Malesuada
+        // +   improved by: Kevin van Zonneveld (http://kevin.vanzonneveld.net)
+        // +   improved by: Rafał Kukawski (http://kukawski.pl)
+        // *     example 1: base64_encode('Kevin van Zonneveld');
+        // *     returns 1: 'S2V2aW4gdmFuIFpvbm5ldmVsZA=='
+        // mozilla has this native
+        // - but breaks in 2.0.0.12!
+        //if (typeof this.window['btoa'] == 'function') {
+        //    return btoa(data);
+        //}
+        var b64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=";
+        var o1, o2, o3, h1, h2, h3, h4, bits, i = 0,
+        ac = 0,
+        enc = "",
+        tmp_arr = [];
+
+        if (!data) {
+            return data;
+        }
+
+        do { // pack three octets into four hexets
+            o1 = data.charCodeAt(i++);
+            o2 = data.charCodeAt(i++);
+            o3 = data.charCodeAt(i++);
+
+            bits = o1 << 16 | o2 << 8 | o3;
+
+            h1 = bits >> 18 & 0x3f;
+            h2 = bits >> 12 & 0x3f;
+            h3 = bits >> 6 & 0x3f;
+            h4 = bits & 0x3f;
+
+            // use hexets to index into b64, and append result to encoded string
+            tmp_arr[ac++] = b64.charAt(h1) + b64.charAt(h2) + b64.charAt(h3) + b64.charAt(h4);
+        } while (i < data.length);
+
+        enc = tmp_arr.join('');
+
+        var r = data.length % 3;
+
+        return (r ? enc.slice(0, r - 3) : enc) + '==='.slice(r || 3);
+    };
+
+
+
+    plt.wescheme.base64.decode = function (data) {
+        // http://kevin.vanzonneveld.net
+        // +   original by: Tyler Akins (http://rumkin.com)
+        // +   improved by: Thunder.m
+        // +      input by: Aman Gupta
+        // +   improved by: Kevin van Zonneveld (http://kevin.vanzonneveld.net)
+        // +   bugfixed by: Onno Marsman
+        // +   bugfixed by: Pellentesque Malesuada
+        // +   improved by: Kevin van Zonneveld (http://kevin.vanzonneveld.net)
+        // +      input by: Brett Zamir (http://brett-zamir.me)
+        // +   bugfixed by: Kevin van Zonneveld (http://kevin.vanzonneveld.net)
+        // *     example 1: base64_decode('S2V2aW4gdmFuIFpvbm5ldmVsZA==');
+        // *     returns 1: 'Kevin van Zonneveld'
+        // mozilla has this native
+        // - but breaks in 2.0.0.12!
+        //if (typeof this.window['atob'] == 'function') {
+        //    return atob(data);
+        //}
+        var b64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=";
+        var o1, o2, o3, h1, h2, h3, h4, bits, i = 0,
+        ac = 0,
+        dec = "",
+        tmp_arr = [];
+
+        if (!data) {
+            return data;
+        }
+
+        data += '';
+
+        do { // unpack four hexets into three octets using index points in b64
+            h1 = b64.indexOf(data.charAt(i++));
+            h2 = b64.indexOf(data.charAt(i++));
+            h3 = b64.indexOf(data.charAt(i++));
+            h4 = b64.indexOf(data.charAt(i++));
+
+            bits = h1 << 18 | h2 << 12 | h3 << 6 | h4;
+
+            o1 = bits >> 16 & 0xff;
+            o2 = bits >> 8 & 0xff;
+            o3 = bits & 0xff;
+
+            if (h3 == 64) {
+                tmp_arr[ac++] = String.fromCharCode(o1);
+            } else if (h4 == 64) {
+                tmp_arr[ac++] = String.fromCharCode(o1, o2);
+            } else {
+                tmp_arr[ac++] = String.fromCharCode(o1, o2, o3);
+            }
+        } while (i < data.length);
+
+        dec = tmp_arr.join('');
+
+        return dec;
+    };
+}());