Support Inline module script

third_party/WebKit/Source/core/dom/ScriptLoader.cpp

 /*
  * Copyright (C) 1999 Lars Knoll (knoll@kde.org)
  *           (C) 1999 Antti Koivisto (koivisto@kde.org)
  *           (C) 2001 Dirk Mueller (mueller@kde.org)
  * Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008 Apple Inc. All rights
  * reserved.
  * Copyright (C) 2008 Nikolas Zimmermann <zimmermann@kde.org>
  *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Library General Public
@@ skipping 463 matching lines @@
     // TODO(hiroshige): Make them merged or consistent.
 
     // 22.2. "Switch on the script's type:"
     switch (GetScriptType()) {
       // - "classic":
       case ScriptType::kClassic:
         // TODO(hiroshige): Clarify how Step 22.2 is implemented for "classic".
         break;
 
       // - "module":
-      case ScriptType::kModule:
-        // TODO(hiroshige): Implement inline module scripts.
-        element_document.AddConsoleMessage(ConsoleMessage::Create(
-            kJSMessageSource, kErrorMessageLevel,
-            "Inline module script is not yet supported",
-            SourceLocation::Create(element_document.Url().GetString(),
-                                   script_start_position.line_.OneBasedInt(),
-                                   script_start_position.column_.OneBasedInt(),
-                                   nullptr)));
-        return false;
+      case ScriptType::kModule: {
+        // Dup of FetchScript() logic.
+
+        // 15. "Let CORS setting be the current state of the element's
+        //      crossorigin content attribute."
+        CrossOriginAttributeValue cross_origin =
+            GetCrossOriginAttributeValue(element_->CrossOriginAttributeValue());
+
+        // 16. "Let module script credentials mode be determined by switching
+        //      on CORS setting:"
+        WebURLRequest::FetchCredentialsMode credentials_mode =
+            WebURLRequest::kFetchCredentialsModeOmit;
+        switch (cross_origin) {
+          case kCrossOriginAttributeNotSet:
+            credentials_mode = WebURLRequest::kFetchCredentialsModeOmit;
+            break;
+          case kCrossOriginAttributeAnonymous:
+            credentials_mode = WebURLRequest::kFetchCredentialsModeSameOrigin;
+            break;
+          case kCrossOriginAttributeUseCredentials:
+            credentials_mode = WebURLRequest::kFetchCredentialsModeInclude;
+            break;
+        }
+        // 17. "If the script element has a nonce attribute,
+        //      then let cryptographic nonce be that attribute's value.
+        //      Otherwise, let cryptographic nonce be the empty string."
+        String nonce;
+        if (element_->IsNonceableElement())
+          nonce = element_->nonce();
+
+        // 19. "Let parser state be "parser-inserted"
+        //      if the script element has been flagged as "parser-inserted",
+        //      and "not parser-inserted" otherwise."
+        ParserDisposition parser_state =
+            IsParserInserted() ? kParserInserted : kNotParserInserted;
+
+        // End of dup.
+        KURL script_url =
+            (!element_document.IsInDocumentWrite() && parser_inserted_)
+                ? element_document.Url()
+                : KURL();
+
+        // 1. Let base URL be the script element's node document's document
+        // base URL.
+        KURL base_url = element_document.BaseURL();
+
+        // 2. Let script be the result of creating a module script using
+        // source text, settings, base URL, cryptographic nonce, parser state,
+        // and module script credentials mode.
+        Modulator* modulator = Modulator::From(
+            ToScriptStateForMainWorld(element_document.GetFrame()));
+        ScriptModule record = modulator->CompileModule(
+            ScriptContent(), base_url, kSharableCrossOrigin);
+        // 3. If this returns null, set the script's script to null and abort
+        // these substeps; the script is ready.
+        if (record.IsNull()) {
+          return false;
+        }
+
+        ModuleScript* script = ModuleScript::Create(
+            modulator, record, base_url, nonce, parser_state, credentials_mode);
+
+        // 4. Fetch the descendants of script (using an empty ancestor list).
+        // When this asynchronously completes, set the script's script to
+        // the result. At that time, the script is ready.
+        DCHECK(!module_tree_client_);
+        module_tree_client_ = ModulePendingScriptTreeClient::Create();
+        modulator->FetchDescendantsForInlineScript(script, module_tree_client_);

[hiroshige, 2017/04/26 04:54:59]

[not specced]
This CL jumps to Step 5. of
https://html.spec.whatwg.org/#internal-module-script-graph-fetching-procedure
after this Step 4 here, and the script is ready when
https://html.spec.whatwg.org/#internal-module-script-graph-fetching-procedure
asynchronously returns.

Related: https://github.com/whatwg/html/issues/2544

+      }
     }
   }
 
   // [Intervention]
   // Since the asynchronous, low priority fetch for doc.written blocked
   // script is not for execution, return early from here. Watch for its
   // completion to be able to remove it from the memory cache.
   if (GetScriptType() == ScriptType::kClassic &&
       document_write_intervention_ ==
           DocumentWriteIntervention::kFetchDocWrittenScriptDeferIdle) {
@@ skipping 468 matching lines @@
   //     then abort these steps at this point. The script is not executed.
   return DeprecatedEqualIgnoringCase(event_attribute, "onload") ||
          DeprecatedEqualIgnoringCase(event_attribute, "onload()");
 }
 
 String ScriptLoader::ScriptContent() const {
   return element_->TextFromChildren();
 }
 
 }  // namespace blink