mirror of
https://github.com/LadybirdBrowser/ladybird.git
synced 2025-10-07 00:29:47 +00:00
79 lines
4.3 KiB
C++
79 lines
4.3 KiB
C++
/*
|
||
* Copyright (c) 2024-2025, Sam Atkins <sam@ladybird.org>
|
||
*
|
||
* SPDX-License-Identifier: BSD-2-Clause
|
||
*/
|
||
|
||
#include <LibURL/Parser.h>
|
||
#include <LibWeb/CSS/CSSStyleSheet.h>
|
||
#include <LibWeb/CSS/Fetch.h>
|
||
#include <LibWeb/DOM/Document.h>
|
||
#include <LibWeb/Fetch/Fetching/Fetching.h>
|
||
|
||
namespace Web::CSS {
|
||
|
||
// https://drafts.csswg.org/css-values-4/#fetch-a-style-resource
|
||
void fetch_a_style_resource(StyleResourceURL const& url_value, StyleSheetOrDocument sheet_or_document, Fetch::Infrastructure::Request::Destination destination, CorsMode cors_mode, Fetch::Infrastructure::FetchAlgorithms::ProcessResponseConsumeBodyFunction process_response)
|
||
{
|
||
// AD-HOC: Not every caller has a CSSStyleSheet, so allow passing a Document in instead for URL completion.
|
||
// Spec issue: https://github.com/w3c/csswg-drafts/issues/12065
|
||
|
||
auto& vm = sheet_or_document.visit([](auto& it) -> JS::VM& { return it->vm(); });
|
||
|
||
// 1. Let environmentSettings be sheet’s relevant settings object.
|
||
auto& environment_settings = HTML::relevant_settings_object(sheet_or_document.visit([](auto& it) -> JS::Object& { return it; }));
|
||
|
||
// 2. Let base be sheet’s stylesheet base URL if it is not null, otherwise environmentSettings’s API base URL. [CSSOM]
|
||
// AD-HOC: We use the sheet's location if it has no base url. https://github.com/w3c/csswg-drafts/issues/12068
|
||
auto base = sheet_or_document.visit(
|
||
[&](GC::Ref<CSSStyleSheet> const& sheet) {
|
||
return sheet->base_url()
|
||
.value_or_lazy_evaluated_optional([&sheet] { return sheet->location(); })
|
||
.value_or_lazy_evaluated([&environment_settings] { return environment_settings.api_base_url(); });
|
||
},
|
||
[](GC::Ref<DOM::Document> const& document) { return document->base_url(); });
|
||
|
||
// 3. Let parsedUrl be the result of the URL parser steps with urlValue’s url and base. If the algorithm returns an error, return.
|
||
auto url_string = url_value.visit(
|
||
[](::URL::URL const& url) { return url.to_string(); },
|
||
[](CSS::URL const& url) { return url.url(); });
|
||
auto parsed_url = ::URL::Parser::basic_parse(url_string, base);
|
||
if (!parsed_url.has_value())
|
||
return;
|
||
|
||
// 4. Let req be a new request whose url is parsedUrl, whose destination is destination, mode is corsMode,
|
||
// origin is environmentSettings’s origin, credentials mode is "same-origin", use-url-credentials flag is set,
|
||
// client is environmentSettings, and whose referrer is environmentSettings’s API base URL.
|
||
auto request = Fetch::Infrastructure::Request::create(vm);
|
||
request->set_url(parsed_url.release_value());
|
||
request->set_destination(destination);
|
||
request->set_mode(cors_mode == CorsMode::Cors ? Fetch::Infrastructure::Request::Mode::CORS : Fetch::Infrastructure::Request::Mode::NoCORS);
|
||
request->set_origin(environment_settings.origin());
|
||
request->set_credentials_mode(Fetch::Infrastructure::Request::CredentialsMode::SameOrigin);
|
||
request->set_use_url_credentials(true);
|
||
request->set_client(&environment_settings);
|
||
request->set_referrer(environment_settings.api_base_url());
|
||
|
||
// 5. Apply any URL request modifier steps that apply to this request.
|
||
// FIXME: No specs seem to define these yet. When they do, implement them.
|
||
|
||
// 6. If req’s mode is "cors", set req’s referrer to sheet’s location. [CSSOM]
|
||
if (request->mode() == Fetch::Infrastructure::Request::Mode::CORS) {
|
||
auto location = sheet_or_document.visit(
|
||
[](GC::Ref<CSSStyleSheet> const& sheet) { return sheet->location().value(); },
|
||
[](GC::Ref<DOM::Document> const& document) { return document->url(); });
|
||
request->set_referrer(move(location));
|
||
}
|
||
|
||
// 7. If sheet’s origin-clean flag is set, set req’s initiator type to "css". [CSSOM]
|
||
if (auto* sheet = sheet_or_document.get_pointer<GC::Ref<CSSStyleSheet>>(); sheet && (*sheet)->is_origin_clean())
|
||
request->set_initiator_type(Fetch::Infrastructure::Request::InitiatorType::CSS);
|
||
|
||
// 8. Fetch req, with processresponseconsumebody set to processResponse.
|
||
Fetch::Infrastructure::FetchAlgorithms::Input fetch_algorithms_input {};
|
||
fetch_algorithms_input.process_response_consume_body = move(process_response);
|
||
|
||
(void)Fetch::Fetching::fetch(environment_settings.realm(), request, Fetch::Infrastructure::FetchAlgorithms::create(vm, move(fetch_algorithms_input)));
|
||
}
|
||
|
||
}
|