Merge with upstream

.gitignore

@@ -1,5 +1,21 @@
-**/xcuserdata
-.vscode
-workspace.code-workspace
-out
-buildlocal.sh
+.DS_Store
+node_modules
+dist
+dev-dist
+build
+types
+.idea
+.github
+package-lock.json
+
+# The directory 'pwa-deployed-versions' keeps track of PWA cache versions 
+#   for URLs deployed from this repository.
+#   Only the 'newspeaklanguage.org.version' (the PWA version for newspeaklanguage.org) 
+#   is kept in git.
+#   Any other version files, for example 'localhost.version', should not be committed.
+!pwa-deployed-versions
+pwa-deployed-versions/*
+!pwa-deployed-versions/newspeaklanguage.org.version
+
+# The directory 'out' is ignored
+/out/

ADocument.html

@@ -0,0 +1,147 @@
+<div class = "ampleforthDocumentClass" name = "ADocument" classBody = "() (
+notAFragment = (^33)
+testButton1 = (^button: #TestButton1 action: ['testing' out])
+testButton2 = (^button: #TestButton2 action: ['testing' out])
+testButton3 = (^button: #TestButton3 action: ['testing' out])
+testButton4 = (^button: #TestButton4 action: ['testing' out])
+toggle = (^expanded: (testButton4) collapsed: (label: 'open'))
+) : (
+)
+" </div><div class = "ampleforthDocumentBody">
+    <div contenteditable="true" 
+    style="border: 2px solid blue; resize: horizontal; overflow: auto"
+    onkeyup="updateRawHTML()" >
+<h1> A Sample Document</h1> This is a <div class="ampleforth"
+  name="testButton1"  contenteditable="false"></div>
+  embedded in a document!  
+  And here is another one: <span class="ampleforth" name="testButton2"
+   contenteditable="false"></span> and another
+<div class="ampleforth" name="testButton3" contenteditable="false"></div>
+  <h3> Maintaining State</h3>
+  Here is a toggle that maintains its state while we edit:
+  <div class="ampleforth" name="toggle" contenteditable="false"></div>
+  Let us add another widget <span class="ampleforth"
+  name="testButton4" contenteditable="false"></span>
+<h3>Dealing with Errors</h3>
+What if the expression given in the document does not evaluate to a
+  Fragment? 
+  <br>
+  If it evaluates without error, we place an
+  error message that links to an inspector on the result in the 
+  document.
+  <br>
+<div class="ampleforth" name="notAFragment" contenteditable="false"></div>
+<br>
+Consider a bad selector in the <i>name</i> attribute of an <i>ampleforth</i> node.
+<br>
+<div class="ampleforth" name="foo" contenteditable="false"></div>
+<br>
+If the expression does not compile at all, what do we do? 
+<br>No longer an
+issue in the new design. 
+<br>
+Likewise if the <i>initializer</i> attribute is missing.
+<br>
+Another interesting situation is recursion, as attempted below, which yields an informative error message: 
+<br>
+<div class="ampleforth" name="AmpleforthTargetDocument" contenteditable="false"></div>
+</div>
+  <br>
+</div>
+</div><script type="text/javascript">
+      function scheduleTurn(timeout) {
+        if (timeout >= 0) {
+          setTimeout(function() {
+            var timeout = Module._handle_message();
+            scheduleTurn(timeout);
+          }, timeout);
+        }
+      }
+
+      var Module = {
+        noInitialRun: true,
+        noExitRuntime: true,
+        onRuntimeInitialized: function() {
+          var url = new URLSearchParams(window.location.search);
+          var request = new XMLHttpRequest();
+          request.open("GET", url.get("snapshot"), true);
+          request.responseType = "arraybuffer";
+          request.onload = function (event) {
+            var jsBuffer = new Uint8Array(request.response);
+            var cBuffer = _malloc(jsBuffer.length);
+            writeArrayToMemory(jsBuffer, cBuffer);
+            Module._load_snapshot(cBuffer, jsBuffer.length);
+            _free(cBuffer);
+            scheduleTurn(0);
+          };
+          request.send();
+        },
+        print: function(text) {
+          if (arguments.length > 1) {
+            text = Array.prototype.slice.call(arguments).join(" ");
+          }
+          console.log(text);
+        },
+        printErr: function(text) {
+          if (arguments.length > 1) {
+            text = Array.prototype.slice.call(arguments).join(" ");
+          }
+          console.error(text);
+        },
+        setStatus: function(text) {
+          console.log(text);
+        },
+      };
+    </script>
+<script async="" type="text/javascript" src="primordialsoup.js"></script>
+    <script src="CodeMirror/lib/codemirror.js"></script>
+    <link rel="stylesheet" href="CodeMirror/lib/codemirror.css">
+    <script src="CodeMirror/addon/display/autorefresh.js"></script></div>   <script type="text/javascript">
+      function scheduleTurn(timeout) {
+        if (timeout >= 0) {
+          setTimeout(function() {
+            var timeout = Module._handle_message();
+            scheduleTurn(timeout);
+          }, timeout);
+        }
+      }
+
+      var Module = {
+        noInitialRun: true,
+        noExitRuntime: true,
+        onRuntimeInitialized: function() {
+          var url = new URLSearchParams(window.location.search);
+          var request = new XMLHttpRequest();
+          request.open("GET", url.get("snapshot"), true);
+          request.responseType = "arraybuffer";
+          request.onload = function (event) {
+            var jsBuffer = new Uint8Array(request.response);
+            var cBuffer = _malloc(jsBuffer.length);
+            writeArrayToMemory(jsBuffer, cBuffer);
+            Module._load_snapshot(cBuffer, jsBuffer.length);
+            _free(cBuffer);
+            scheduleTurn(0);
+          };
+          request.send();
+        },
+        print: function(text) {
+          if (arguments.length > 1) {
+            text = Array.prototype.slice.call(arguments).join(" ");
+          }
+          console.log(text);
+        },
+        printErr: function(text) {
+          if (arguments.length > 1) {
+            text = Array.prototype.slice.call(arguments).join(" ");
+          }
+          console.error(text);
+        },
+        setStatus: function(text) {
+          console.log(text);
+        },
+      };
+    </script>
+<script async type="text/javascript" src="primordialsoup.js"></script>
+    <script src="CodeMirror/lib/codemirror.js"></script>
+    <link rel="stylesheet" href="CodeMirror/lib/codemirror.css"></link>
+    <script src="CodeMirror/addon/display/autorefresh.js"></script>

AccessModifierTesting.ns

@@ -1,6 +1,7 @@
 Newspeak3
-'AccessModifierTests'
-class AccessModifierTesting usingPlatform: platform  testFramework: minitest = (|
+'Root'
+class AccessModifierTesting usingPlatform: platform  testFramework: minitest 
+(* :exemplar: AccessModifierTesting usingPlatform: platform  testFramework: ide minitest *) = (|
 	private TestContext = minitest TestContext.
 	private ClassMirror = platform mirrors ClassMirror.
 	private MessageNotUnderstood = platform kernel MessageNotUnderstood.

AccessModifierTestingConfiguration.ns

@@ -1,5 +1,5 @@
 Newspeak3
-'AccessModifierTests'
+'Root'
 class AccessModifierTestingConfiguration packageTestsUsing: manifest = (|
 private AccessModifierTesting = manifest AccessModifierTesting.
 |) (

ActivationMirrorTesting.ns

@@ -1,6 +1,6 @@
 Newspeak3
-'Mirrors'
-class ActivationMirrorTesting usingPlatform: p minitest: m = (|
+'Root'
+class ActivationMirrorTesting usingPlatform: p testFramework: m = (|
 private ClassDeclarationBuilder = p mirrors ClassDeclarationBuilder.
 private ObjectMirror = p mirrors ObjectMirror.
 private ActivationMirror = p mirrors ActivationMirror.

ActivationMirrorTestingConfiguration.ns

@@ -1,10 +1,10 @@
 Newspeak3
-'Mirrors'
+'Root'
 class ActivationMirrorTestingConfiguration packageTestsUsing: manifest = (|
 private ActivationMirrorTesting = manifest ActivationMirrorTesting.
 |) (
 public testModulesUsingPlatform: p minitest: m = (
-	^{ActivationMirrorTesting usingPlatform: p minitest: m}
+	^{ActivationMirrorTesting usingPlatform: p testFramework: m}
 )
 ) : (
 )

ActorsForV8.ns → ActorsForJS.ns

@@ -1,6 +1,6 @@
 Newspeak3
-'Actors'
-class ActorsForV8 usingPlatform: p = (|
+'Root'
+class ActorsForJS usingPlatform: p = (|
 private WeakMap = p collections IdentityMap.
 private List = p collections List.
 private Message = p kernel Message.
@@ -10,7 +10,7 @@ private internalRefs <WeakMap[FarReference, InternalFarReference]> = WeakMap new
 public Promise = PromiseUtils new.
 
 defaultActor = DOMActor named: 'Default actor'.
-|js assign: (js ident: 'currentActor') toBe: defaultActor) (
+|_js assign: (_js ident: 'currentActor') toBe: defaultActor) (
 public class Actor named: debugName <String> = (|
 private (* N.B. Do not leak to subinstances. *) internalActor = DOMActor named: debugName.
 |) (
@@ -40,9 +40,9 @@ public enqueueMessage: actorMessage = (
 
 	(* bogus - should drain an explicit queue to allow for a randomizing scheduler *)
 	js
-		call: (js propertyOf: (js ident: 'theGlobalObject') at: (js literal: 'setTimeout'))
-		with: {[js assign: (js ident: 'currentActor') toBe: self.
-				actorMessage deliverIn: self]. js literal: 0}.
+		call: (_js propertyOf: (_js ident: 'theGlobalObject') at: (_js literal: 'setTimeout'))
+		with: {[_js assign: (_js ident: 'currentActor') toBe: self.
+				actorMessage deliverIn: self]. _js literal: 0}.
 )
 ) : (
 )
@@ -664,11 +664,11 @@ public isTimer ^<Boolean> = (
 	^true
 )
 protected schedule: callback after: ms = (
-	js call: (js propertyOf: (js ident: 'window') at: (js literal: 'setTimeout'))
+	_js call: (_js propertyOf: (_js ident: 'window') at: (_js literal: 'setTimeout'))
 	with: {callback. ms}
 )
 protected schedule: callback every: ms = (
-	js call: (js propertyOf: (js ident: 'window') at: (js literal: 'setInterval'))
+	_js call: (_js propertyOf: (_js ident: 'window') at: (_js literal: 'setInterval'))
 	with: {callback. ms}
 )
 ) : (
@@ -749,10 +749,10 @@ private createRemotePromiseOf: resolverInTarget in: targetActor for: sourceActor
 	^Ref wrapping: sourceResolver __owner: sourceActor.
 )
 private currentActor = (
-	^js ident: 'currentActor'
+	^_js ident: 'currentActor'
 )
 private isRef: object <Object> ^<Boolean> = (
-	^Ref == (js propertyOf: object at: (js literal: 'newspeakClass'))
+	^Ref == (_js propertyOf: object at: (_js literal: 'newspeakClass'))
 )
 private isValueObject: object <Object> ^<Boolean> = (
 	nil == object ifTrue: [^true].
@@ -775,5 +775,10 @@ private wrapArgument: argument from: sourceActor to: targetActor = (
 private wrapArguments: arguments from: sourceActor to: targetActor = (
 	^arguments collect: [:argument | wrapArgument: argument from: sourceActor to: targetActor].
 )
+public ultimateExceptionHandler: h <[:Exception :Activation]> = (
+  (*:TODO :Bogus Used by the debugger
+    handlerOfLastResort:: h
+    *)
+)
 ) : (
 )