--- markup/html/scripting-parser/parser.html	2008/04/27 11:21:09	1.12
+++ markup/html/scripting-parser/parser.html	2008/09/20 13:32:45	1.20
@@ -2,13 +2,20 @@
 <html lang=en>
 <head>
 <title>Live Scripting HTML Parser</title>
+<link rel=author href="http://suika.fam.cx/~wakaba/who?">
+<link rel=license href="http://suika.fam.cx/c/gnu/gpl"
+    title="GNU GPL2 or later">
 <style>
-  h1, h2 {
+  h1 {
+    margin: 0;
+    font-size: 150%;
+  } 
+  h2 {
     margin: 0;
     font-size: 100%;
   }
-  p, pre {
-    margin: 0;
+  p {
+    margin: 0 1em;
   }
   textarea {
     width: 100%;
@@ -58,9 +65,11 @@
 
   var logIndentLevel = 0;
   function log (s) {
+    var indent = '';
     for (var i = 0; i < logIndentLevel; i++) {
-      s = '  ' + s;
+      indent += '  ';
     }
+    s = indent + s.replace (/\n/g, "\n" + indent);
     document.logElement.appendChild (document.createTextNode (s + "\n"));
   } // log
 
@@ -74,6 +83,7 @@
       doc = new JSDocument (this);
       doc.manakaiIsHTML = true;
     }
+    this.nextToken = [];
     this.doc = doc;
     this.openElements = [doc];
     this.input = i;
@@ -83,9 +93,14 @@
   } // Parser
 
   Parser.prototype.getNextToken = function () {
+    if (this.nextToken.length) {
+      return this.nextToken.shift ();
+    }
+
     var p = this;
     var i = this.input;
-    if (this.parseMode == 'script') {
+    if (this.parseMode == 'cdata') {
+      var tagName = this.endTagName;
       var token;
       if (p.insertionPoint <= 0) {
         return {type: 'abort'};
@@ -103,21 +118,22 @@
         return '';
       });
       if (token) return token;
-      i.s = i.s.replace (/^<\/[Ss][Cc][Rr][Ii][Pp][Tt]>/, function (s) {
+      var pattern = new RegExp ('^</' + tagName + '>', 'i');
+      i.s = i.s.replace (pattern, function (s) {
         if (p.insertionPoint < s.length) {
           token = {type: 'abort'};
           return s;
         }
-        token = {type: 'end-tag', value: 'script'};
+        token = {type: 'end-tag', value: tagName};
         p.insertionPoint -= s.length;
         return '';
       });
       if (token) return token;
       var m;
-      if ((p.insertionPoint < '</script'.length) &&
-          (m = i.s.match (/^<\/([SCRIPTscript]+)/))) {
+      if ((p.insertionPoint < ('</' + tagName).length) &&
+          (m = i.s.match (/^<\/([A-Za-z]+)/))) {
         var v = m[1].substring (0, p.insertionPoint).toLowerCase ();
-        if (v == 'script'.substring (0, p.insertionPoint - '</'.length)) {
+        if (v == tagName.substring (0, p.insertionPoint - '</'.length)) {
           return {type: 'abort'};
         }
       }
@@ -135,7 +151,7 @@
     i.s = i.s.replace (/^<\/([^>]+)(?:>|$)/, function (s, e) {
       if (p.insertionPoint < s.length ||
           (p.insertionPoint <= s.length &&
-           s.substring (s.length - 1, 1) != '>')) {
+           s.substring (s.length - 1, s.length) != '>')) {
         token = {type: 'abort'};
         return s;
       }
@@ -147,7 +163,7 @@
     i.s = i.s.replace (/^<([^>]+)(?:>|$)/, function (s, e) {
       if (p.insertionPoint < s.length ||
           (p.insertionPoint <= s.length &&
-           s.substring (s.length - 1, 1) != '>')) {
+           s.substring (s.length - 1, s.length) != '>')) {
         token = {type: 'abort'};
         return s;
       }
@@ -210,6 +226,24 @@
       var token = this.getNextToken ();
       log ('token: ' + token.type + ' "' + token.value + '"');
 
+      if (this.cdataEndTagRequired) {
+        // Generic CDATA parsing algorithm
+
+        if (token.type != 'abort') {
+          // 7.
+          if (token.type == 'end-tag' && token.value == this.endTagName) {
+            // 7.1. Ignores it.
+            //
+          } else {
+            // 7.2. Parse error.
+            log ('Parse error: no </' + this.endTagName + '>');
+            this.nextToken.unshift (token);
+          }
+          this.cdataEndTagRequired = false;
+          continue;
+        }
+      }
+
       if (token.type == 'start-tag') {
         if (token.value == 'script') {
           // 1. Create an element for the token in the HTML namespace.
@@ -222,7 +256,8 @@
           el.manakaiParserInserted = true;
 
           // 3. Switch the tokeniser's content model flag to the CDATA state.
-          this.parseMode = 'script';
+          this.parseMode = 'cdata';
+          this.endTagName = 'script';
 
           // 4.1. Collect all the character tokens.
           while (true) {
@@ -236,15 +271,16 @@
             // 4.2. Until it returns a token that is not a character token, or
             // until it stops tokenising.
             } else if (token.type == 'eof' ||
-                       (token.type == 'end-tag' && token.value == 'script') ||
+                       token.type == 'end-tag' ||
                        token.type == 'abort') {
               // 6. Switched back to the PCDATA state.
               this.parseMode = 'pcdata';
 
               // 7.1. If the next token is not an end tag token with ...
-              if (token.type != 'end-tag') {
+              if (!(token.type == 'end-tag' && token.value == 'script')) {
                 // 7.2. This is a parse error.
                 log ('Parse error: no </' + 'script>');
+                this.nextToken.unshift (token);
 
                 // 7.3. Mark the script element as "already executed".
                 el.manakaiAlreadyExecuted = true;
@@ -259,7 +295,7 @@
           // 8.1. If the parser were originally created for the ...
           if (this.fragmentParsingMode) {
             // 8.2. Mark the script element as "already executed" and ...
-            el.alreadyExecuted = true;
+            el.manakaiAlreadyExecuted = true;
             continue;
           }
 
@@ -276,8 +312,8 @@
           oldInsertionPoint += this.insertionPoint;
           this.setInsertionPoint (oldInsertionPoint);
 
-          // 12. If there is a script that will execute as soon as ...
-          while (this.scriptExecutedWhenParserResumes) {
+          // 12. If there is a pending external script
+          while (this.pendingExternalScript) {
             // 12.1. If the tree construction stage is being called reentrantly
             if (this.reentrant) {
               log ('parse: abort (reentrance)');
@@ -287,8 +323,8 @@
             // 12.2. Otherwise
             } else {
               // 1.
-              var script = this.scriptExecutedWhenParserResumes;
-              this.scriptExecutedWhenParserResumes = null;
+              var script = this.pendingExternalScript;
+              this.pendingExternalScript = null;
 
               // 2. Pause until the script has completed loading.
               // 
@@ -306,6 +342,57 @@
               //
             }
           }
+        } else if (token.value == 'style' ||
+                   token.value == 'noscript' ||
+                   token.value == 'xmp') {
+          // 1. Create an element for the token in the HTML namespace.
+          var el = new JSElement (this.doc, token.value);
+
+          // 2. Append the new element to the current node.
+          this.openElements[this.openElements.length - 1].appendChild (el);
+
+          // 3. Switch the tokeniser's content model flag to the CDATA state.
+          this.parseMode = 'cdata';
+          this.endTagName = token.value;
+
+          // 4.1. Collect all the character tokens.
+          while (true) {
+            var token = this.getNextToken ();
+            log ('token: ' + token.type + ' "' + token.value + '"');
+
+            if (token.type == 'char') {
+              // 5. Append a single Text node to the script element node.
+              el.manakaiAppendText (token.value);
+
+            // 4.2. Until it returns a token that is not a character token, or
+            // until it stops tokenising.
+            } else if (token.type == 'eof' ||
+                       token.type == 'end-tag' ||
+                       token.type == 'abort') {
+              // 6. Switched back to the PCDATA state.
+              this.parseMode = 'pcdata';
+
+              if (token.type == 'abort') {
+                this.cdataEndTagRequired = true;
+                break;
+              }
+
+              // 7.1. If the next token is not an end tag token with ...
+              if (!(token.type == 'end-tag' &&
+                    token.value == this.endTagName)) {
+                // 7.2. This is a parse error.
+                log ('Parse error: no </' + this.endTagName + '>');
+                this.nextToken.unshift (token);
+
+                // 7.3. Mark the script element as "already executed".
+                el.manakaiAlreadyExecuted = true;
+              } else {
+                // 7.4. Ignore it.
+                //
+              }
+              break;
+            }
+          }
         } else {
           var el = new JSElement (this.doc, token.value);
           this.openElements[this.openElements.length - 1].appendChild (el);
@@ -390,7 +477,7 @@
 
     log ('DOMContentLoaded event fired');
 
-    // "delays tha load event" things has completed:
+    // "delays the load event" things has completed:
     // readyState = 'complete'
     log ('load event fired');
 
@@ -434,54 +521,60 @@
       var doc = this.ownerDocument || this;
       var p = doc._parser;
 
-      // 1. Script type
+      // 1.The script's type
       //
 
-      // 2.1. If scripting is disabled
+      // 2. The cript's character encoding
+      //
+
+      // 3.1. If without script
       //
       // 2.2. If the script element was created by an XML ... innerHTML ...
       //
       // 2.3. If the user agent does not support the scripting language ...
       //
-      // 2.4. If the script element has its "already executed" flag set
-      if (e.manakaiAlreadyExecuted) {
+      if (false) {
         // 2.5. Abort these steps at this point.
-        log ('Running a script: aborted');
+        log ('Running a script: aborted (noscript)');
         logIndentLevel--;
         return e;
       }
 
-      // 3. Set the element's "already executed" flag.
+      // 4. Set the element's "already executed" flag.
       e.manakaiAlreadyExecuted = true;
 
-      // 4. If the element has a src attribute, then a load for ...
+      // 5. If the element has a src attribute, then a load for ...
       // TODO: load an external resource
 
       // 5. The first of the following options:
 
-      // 5.1. 
       if (/* TODO: If the document is still being parsed && */
           e.defer && !e.async) {
+        // 6.1. 
         p.scriptsExecutedAfterParsing.push (e);
         log ('Running a script: aborted (defer)');
       } else if (e.async && e.src != null) {
+        // 6.2.
         p.scriptsExecutedAsynchronously.push (e);
         log ('Running a script: aborted (async src)');
       } else if (e.async && e.src == null &&
                  p.scriptsExecutedAsynchronously.length > 0) {
+        // 6.3.
         p.scriptsExecutedAsynchronously.push (e);
         log ('Running a script: aborted (async)');
-        // ISSUE: What is the difference with the case above?
       } else if (e.src != null && e.manakaiParserInserted) {
-        if (p.scriptExecutedWhenParserResumes) {
-          log ('Error: There is a script that will execute as soon as the parser resumes.');
+        // 6.4.
+        if (p.pendingExternalScript) {
+          log ('Error: There is a pending external script.');
         }
-        p.scriptExecutedWhenParserResumes = e;
+        p.pendingExternalScript = e;
         log ('Running a script: aborted (src parser-inserted)');
       } else if (e.src != null) {
+        // 6.5.
         p.scriptsExecutedSoon.push (e);
         log ('Running a script: aborted (src)');
       } else {
+        // 6.6.
         executeScript (doc, e); // even if other scripts are already executing.
       }
 
@@ -511,7 +604,6 @@
     }
 
     // If the load was successful
-    log ('load event fired at the script element');
 
     if (true) {
     // Scripting is enabled, Document.designMode is disabled,
@@ -520,6 +612,8 @@
       parseAndRunScript (doc, s);
     }
 
+    log ('load event fired at the script element');
+
     log ('executing a script block: end');
   } // executeScript
 
@@ -557,11 +651,22 @@
         doc.write.apply (doc, args);
         return '';
       });
-      s = s.replace (/^\s*var\s+s\s*=\s*document\.createElement\s*\(\s*['"]script['"]\s*\)\s*;\s*s\.src\s*=\s*(?:'(javascript:[^']*)'|"(javascript:[^"]*)")\s*;\s*document\.documentElement\.appendChild\s*\(\s*s\s*\)\s*;\s*/,
+      var noDocumentElement = false;
+      s = s.replace (/^\s*var\s+s\s*=\s*document\.createElement\s*\(\s*['"]script['"]\s*\)\s*;\s*s\.src\s*=\s*(?:'([^']*)'|"([^"]*)")\s*;\s*document\.documentElement\.appendChild\s*\(\s*s\s*\)\s*;\s*/,
       function (s, t, u) {
         matched = true;
         var args = [unescapeJSLiteral (t ? t : u)];
-        doc._insertExternalScript.apply (doc, args);
+        noDocumentElement = !doc._insertExternalScript.apply (doc, args);
+        return '';
+      });
+      if (noDocumentElement) {
+        log ('Script error: documentElement is null');
+        break;
+      }
+      s = s.replace (/^\s*w\s*\(\s*document\.documentElement\.innerHTML\s*\)\s*;\s*/,
+      function (s, t) {
+        matched = true;
+        log (dumpTree (doc, ''));
         return '';
       });
       if (s == '') break;
@@ -646,6 +751,7 @@
   }; // document.open
 
   JSDocument.prototype.write = function () {
+    log ('document.write: start');
     logIndentLevel++;
 
     var p = this._parser;
@@ -665,10 +771,11 @@
         + p.input.s.substring (p.insertionPoint, p.input.s.length);
     p.insertionPoint += s.length;
 
-    // 3. If there is a script that will execute as soon as the parser resumes
-    if (p.scriptExecutedAfterParserResumes) {
+    // 3. If there is a pending external script
+    if (p.pendingExternalScript) {
       log ('document.write: processed later (there is an unprocessed <script src>)');
       logIndentLevel--;
+      log ('document.write: return');
       return;
     }
 
@@ -682,16 +789,21 @@
     // to do something here?
 
     // 5. Return
+    logIndentLevel--;
     log ('document.write: return');
 
-    logIndentLevel--;
     return;
   }; // document.write
 
   JSDocument.prototype._insertExternalScript = function (uri) {
     var s = new JSElement (this, 'script');
     s.src = uri;
-    this.documentElement.appendChild (s);
+    if (this.documentElement) {
+      this.documentElement.appendChild (s);
+      return true;
+    } else {
+      return false;
+    }
   }; // _insertExternalScript
 
   JSDocument.prototype.__defineGetter__ ('documentElement', function () {
@@ -791,9 +903,12 @@
 algorithm, and so on.
 <li>Does not raise parse errors for invalid attribute specifications in start 
 or end tags.
-<li>Does not support CDATA/PCDATA element other than <code>script</code>.
+<li>Does not support RCDATA elements (<code>title</code> and
+<code>textarea</code>).
+<li>Does not strip the first newline in <code>pre</code>,
+<code>listing</code>, and <code>textarea</code> elements.
 <li>Does not support <code>&lt;!--</code>..<code>--></code> parsing rule
-in <code>script</code> element.
+in CDATA/RCDATA elements.
 <li>Does not support foreign (SVG or MathML) elements.
 <li>Only supports <code>script</code> <code>type</code>
 <code>text/javascript</code>.  <code>type</code> and <code>language</code>
@@ -806,6 +921,10 @@
   <li><code>var s = document.createElement ("script");
             s.src = "<var>string</var>";
             document.documentElement.appendChild (s);</code>
+  <li><code>w (document.documentElement.innerHTML);</code> (This statement
+  can be used to dump the document, even when the document has no
+  document element.  The output format is the tree dump format used
+  in html5lib test data, not <abbr>HTML</abbr>.)
   </ul>
 Note that strings may be delimited by <code>'</code>s instead of
 <code>"</code>s.
@@ -831,7 +950,29 @@
 executed.  Currently it does not matter, since we don't allow dynamic
 modification to the |src| content/DOM attribute value yet. -->
 
-<!-- TODO: license -->
+<p>See also
+<a href="http://suika.fam.cx/gate/2005/sw/Live%20Scripting%20HTML%20Parser">SuikaWiki:
+Live Scripting HTML Parser</a>.
 
 </body>
-</html>
\ No newline at end of file
+</html>
+<!-- $Date: 2008/09/20 13:32:45 $ -->
+<!--
+
+Copyright 2008 Wakaba <w@suika.fam.cx>
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of the GNU General Public License
+as published by the Free Software Foundation; either version 2
+of the License, or (at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+
+-->
