Everywhere: Hoist the Libraries folder to the top-level

Author: https://github.com/trflynn89
Commit: 93712b24bf
Pull-request: https://github.com/LadybirdBrowser/ladybird/pull/2256
Reviewed-by: https://github.com/sideshowbarker

Libraries/LibWeb/Infra/JSON.cpp

@@ -0,0 +1,69 @@
+/*
+ * Copyright (c) 2022-2023, Linus Groh <linusg@serenityos.org>
+ *
+ * SPDX-License-Identifier: BSD-2-Clause
+ */
+
+#include <AK/String.h>
+#include <LibJS/Runtime/AbstractOperations.h>
+#include <LibJS/Runtime/Completion.h>
+#include <LibJS/Runtime/Value.h>
+#include <LibTextCodec/Decoder.h>
+#include <LibWeb/Infra/JSON.h>
+#include <LibWeb/WebIDL/ExceptionOr.h>
+
+namespace Web::Infra {
+
+// https://infra.spec.whatwg.org/#parse-a-json-string-to-a-javascript-value
+WebIDL::ExceptionOr<JS::Value> parse_json_string_to_javascript_value(JS::Realm& realm, StringView string)
+{
+    auto& vm = realm.vm();
+
+    // 1. Return ? Call(%JSON.parse%, undefined, « string »).
+    return TRY(JS::call(vm, *realm.intrinsics().json_parse_function(), JS::js_undefined(), JS::PrimitiveString::create(vm, string)));
+}
+
+// https://infra.spec.whatwg.org/#parse-json-bytes-to-a-javascript-value
+WebIDL::ExceptionOr<JS::Value> parse_json_bytes_to_javascript_value(JS::Realm& realm, ReadonlyBytes bytes)
+{
+    auto& vm = realm.vm();
+
+    // 1. Let string be the result of running UTF-8 decode on bytes.
+    TextCodec::UTF8Decoder decoder;
+    auto string = TRY_OR_THROW_OOM(vm, decoder.to_utf8(bytes));
+
+    // 2. Return the result of parsing a JSON string to an Infra value given string.
+    return parse_json_string_to_javascript_value(realm, string);
+}
+
+// https://infra.spec.whatwg.org/#serialize-a-javascript-value-to-a-json-string
+WebIDL::ExceptionOr<String> serialize_javascript_value_to_json_string(JS::VM& vm, JS::Value value)
+{
+    auto& realm = *vm.current_realm();
+
+    // 1. Let result be ? Call(%JSON.stringify%, undefined, « value »).
+    auto result = TRY(JS::call(vm, *realm.intrinsics().json_stringify_function(), JS::js_undefined(), value));
+
+    // 2. If result is undefined, then throw a TypeError.
+    if (result.is_undefined())
+        return WebIDL::SimpleException { WebIDL::SimpleExceptionType::TypeError, "Result of stringifying value must not be undefined"sv };
+
+    // 3. Assert: result is a string.
+    VERIFY(result.is_string());
+
+    // 4. Return result.
+    return result.as_string().utf8_string();
+}
+
+// https://infra.spec.whatwg.org/#serialize-a-javascript-value-to-json-bytes
+WebIDL::ExceptionOr<ByteBuffer> serialize_javascript_value_to_json_bytes(JS::VM& vm, JS::Value value)
+{
+    // 1. Let string be the result of serializing a JavaScript value to a JSON string given value.
+    auto string = TRY(serialize_javascript_value_to_json_string(vm, value));
+
+    // 2. Return the result of running UTF-8 encode on string.
+    // NOTE: LibJS strings are stored as UTF-8.
+    return TRY_OR_THROW_OOM(vm, ByteBuffer::copy(string.bytes()));
+}
+
+}