LibWeb: Implement 'Queue a fetch task' AO

2 files changed, 37 insertions, 0 deletions

diff --git a/Userland/Libraries/LibWeb/Fetch/Infrastructure/Task.cpp b/Userland/Libraries/LibWeb/Fetch/Infrastructure/Task.cpp
new file mode 100644
index 0000000000..3718f91acd
--- /dev/null
+++ b/Userland/Libraries/LibWeb/Fetch/Infrastructure/Task.cpp
@@ -0,0 +1,21 @@
+/*
+ * Copyright (c) 2022, Linus Groh <linusg@serenityos.org>
+ *
+ * SPDX-License-Identifier: BSD-2-Clause
+ */
+
+#include <LibWeb/Fetch/Infrastructure/Task.h>
+#include <LibWeb/HTML/EventLoop/EventLoop.h>
+
+namespace Web::Fetch::Infrastructure {
+
+// https://fetch.spec.whatwg.org/#queue-a-fetch-task
+void queue_fetch_task(JS::Object& task_destination, JS::SafeFunction<void()> algorithm)
+{
+    // FIXME: 1. If taskDestination is a parallel queue, then enqueue algorithm to taskDestination.
+
+    // 2. Otherwise, queue a global task on the networking task source with taskDestination and algorithm.
+    HTML::queue_global_task(HTML::Task::Source::Networking, task_destination, move(algorithm));
+}
+
+}
diff --git a/Userland/Libraries/LibWeb/Fetch/Infrastructure/Task.h b/Userland/Libraries/LibWeb/Fetch/Infrastructure/Task.h
new file mode 100644
index 0000000000..af2544c6b7
--- /dev/null
+++ b/Userland/Libraries/LibWeb/Fetch/Infrastructure/Task.h
@@ -0,0 +1,16 @@
+/*
+ * Copyright (c) 2022, Linus Groh <linusg@serenityos.org>
+ *
+ * SPDX-License-Identifier: BSD-2-Clause
+ */
+
+#pragma once
+
+#include <LibJS/Forward.h>
+#include <LibJS/SafeFunction.h>
+
+namespace Web::Fetch::Infrastructure {
+
+void queue_fetch_task(JS::Object&, JS::SafeFunction<void()>);
+
+}