summaryrefslogtreecommitdiff
path: root/javascript/duktape/Location.bnd
diff options
context:
space:
mode:
Diffstat (limited to 'javascript/duktape/Location.bnd')
-rw-r--r--javascript/duktape/Location.bnd353
1 files changed, 0 insertions, 353 deletions
diff --git a/javascript/duktape/Location.bnd b/javascript/duktape/Location.bnd
deleted file mode 100644
index ca7e90509..000000000
--- a/javascript/duktape/Location.bnd
+++ /dev/null
@@ -1,353 +0,0 @@
-/* Location binding for browser using duktape and libdom
- *
- * Copyright 2015 Vincent Sanders <vince@netsurf-browser.org>
- * Copyright 2015 Daniel Silverstone <dsilvers@netsurf-browser.org>
- *
- * This file is part of NetSurf, http://www.netsurf-browser.org/
- *
- * Released under the terms of the MIT License,
- * http://www.opensource.org/licenses/mit-license
- */
-
-class Location {
- private nsurl *url;
-};
-
-prologue Location()
-%{
-#include "netsurf/browser_window.h"
-%}
-
-init Location(nsurl *url)
-%{
- priv->url = url;
- nsurl_ref(url);
-%}
-
-fini Location()
-%{
- nsurl_unref(priv->url);
-%}
-
-method Location::reload()
-%{
- /* retrieve the private data from the root object (window) */
- duk_push_global_object(ctx);
- duk_get_prop_string(ctx, -1, PRIVATE_MAGIC);
- window_private_t *priv_win = duk_get_pointer(ctx, -1);
- duk_pop(ctx);
-
- if (priv_win->win != NULL) {
- browser_window_reload(priv_win->win, false);
- } else {
- LOG("failed to get browser context");
- }
- return 0;
-%}
-
-method Location::assign()
-%{
- /* retrieve the private data from the root object (window) */
- duk_push_global_object(ctx);
- duk_get_prop_string(ctx, -1, PRIVATE_MAGIC);
- window_private_t *priv_win = duk_get_pointer(ctx, -1);
- duk_pop(ctx);
-
- if (priv_win == NULL || priv_win->win == NULL) {
- LOG("failed to get browser context");
- return 0;
- }
-
- nsurl *joined;
- duk_size_t slen;
- const char *url = duk_safe_to_lstring(ctx, 0, &slen);
-
- nsurl_join(priv->url, url, &joined);
- browser_window_navigate(priv_win->win,
- joined,
- NULL,
- BW_NAVIGATE_HISTORY,
- NULL,
- NULL,
- NULL);
- nsurl_unref(joined);
- return 0;
-%}
-
-method Location::replace()
-%{
- /* retrieve the private data from the root object (window) */
- duk_push_global_object(ctx);
- duk_get_prop_string(ctx, -1, PRIVATE_MAGIC);
- window_private_t *priv_win = duk_get_pointer(ctx, -1);
- duk_pop(ctx);
-
- if (priv_win == NULL || priv_win->win == NULL) {
- LOG("failed to get browser context");
- return 0;
- }
-
- nsurl *joined;
- duk_size_t slen;
- const char *url = duk_safe_to_lstring(ctx, 0, &slen);
-
- nsurl_join(priv->url, url, &joined);
- browser_window_navigate(priv_win->win,
- joined,
- NULL,
- BW_NAVIGATE_NONE,
- NULL,
- NULL,
- NULL);
- nsurl_unref(joined);
- return 0;
-%}
-
-getter Location::href()
-%{
- char *url_s = NULL;
- size_t url_l;
-
- nsurl_get(priv->url, NSURL_COMPLETE, &url_s, &url_l);
- if (url_s == NULL) {
- return 0;
- }
-
- duk_push_lstring(ctx, url_s, url_l);
-
- if (url_s != NULL) {
- free(url_s);
- }
-
- return 1;
-%}
-
-setter Location::href()
-%{
- /* retrieve the private data from the root object (window) */
- duk_push_global_object(ctx);
- duk_get_prop_string(ctx, -1, PRIVATE_MAGIC);
- window_private_t *priv_win = duk_get_pointer(ctx, -1);
- duk_pop(ctx);
-
- if (priv_win == NULL || priv_win->win == NULL) {
- LOG("failed to get browser context");
- return 0;
- }
-
- nsurl *joined;
- duk_size_t slen;
- const char *url = duk_safe_to_lstring(ctx, 0, &slen);
-
- nsurl_join(priv->url, url, &joined);
- browser_window_navigate(priv_win->win,
- joined,
- NULL,
- BW_NAVIGATE_HISTORY,
- NULL,
- NULL,
- NULL);
- nsurl_unref(joined);
- return 0;
-%}
-
-getter Location::origin()
-%{
- char *url_s = NULL;
- size_t url_l;
-
- nsurl_get(priv->url, NSURL_SCHEME | NSURL_HOST | NSURL_PORT, &url_s, &url_l);
-
- /* if url_s is NULL duk_push_lstring pushes an empty string
- * which is correct for this API
- */
- duk_push_lstring(ctx, url_s, url_l);
-
- if (url_s != NULL) {
- free(url_s);
- }
-
- return 1;
-%}
-
-getter Location::protocol()
-%{
- char *url_s = NULL;
- size_t url_l;
-
- nsurl_get(priv->url, NSURL_SCHEME, &url_s, &url_l);
-
- /* if url_s is NULL duk_push_lstring pushes an empty string
- * which is correct for this API
- */
- duk_push_lstring(ctx, url_s, url_l);
-
- if (url_s != NULL) {
- free(url_s);
- }
-
- return 1;
-%}
-
-
-getter Location::username()
-%{
- char *url_s = NULL;
- size_t url_l;
-
- nsurl_get(priv->url, NSURL_USERNAME, &url_s, &url_l);
-
- /* if url_s is NULL duk_push_lstring pushes an empty string
- * which is correct for this API
- */
- duk_push_lstring(ctx, url_s, url_l);
-
- if (url_s != NULL) {
- free(url_s);
- }
-
- return 1;
-%}
-
-
-getter Location::password()
-%{
- char *url_s = NULL;
- size_t url_l;
-
- nsurl_get(priv->url, NSURL_PASSWORD, &url_s, &url_l);
-
- /* if url_s is NULL duk_push_lstring pushes an empty string
- * which is correct for this API
- */
- duk_push_lstring(ctx, url_s, url_l);
-
- if (url_s != NULL) {
- free(url_s);
- }
-
- return 1;
-%}
-
-
-getter Location::host()
-%{
- char *url_s = NULL;
- size_t url_l;
-
- nsurl_get(priv->url, NSURL_HOST, &url_s, &url_l);
-
- /* if url_s is NULL duk_push_lstring pushes an empty string
- * which is correct for this API
- */
- duk_push_lstring(ctx, url_s, url_l);
-
- if (url_s != NULL) {
- free(url_s);
- }
-
- return 1;
-%}
-
-
-getter Location::hostname()
-%{
- char *url_s = NULL;
- size_t url_l;
-
- nsurl_get(priv->url, NSURL_HOST, &url_s, &url_l);
-
- /* if url_s is NULL duk_push_lstring pushes an empty string
- * which is correct for this API
- */
- duk_push_lstring(ctx, url_s, url_l);
-
- if (url_s != NULL) {
- free(url_s);
- }
-
- return 1;
-%}
-
-
-
-getter Location::port()
-%{
- char *url_s = NULL;
- size_t url_l;
-
- nsurl_get(priv->url, NSURL_PORT, &url_s, &url_l);
-
- /* if url_s is NULL duk_push_lstring pushes an empty string
- * which is correct for this API
- */
- duk_push_lstring(ctx, url_s, url_l);
-
- if (url_s != NULL) {
- free(url_s);
- }
-
- return 1;
-%}
-
-
-getter Location::pathname()
-%{
- char *url_s = NULL;
- size_t url_l;
-
- nsurl_get(priv->url, NSURL_PATH, &url_s, &url_l);
-
- /* if url_s is NULL duk_push_lstring pushes an empty string
- * which is correct for this API
- */
- duk_push_lstring(ctx, url_s, url_l);
-
- if (url_s != NULL) {
- free(url_s);
- }
-
- return 1;
-%}
-
-
-getter Location::search()
-%{
- char *url_s = NULL;
- size_t url_l;
-
- nsurl_get(priv->url, NSURL_QUERY, &url_s, &url_l);
-
- /* if url_s is NULL duk_push_lstring pushes an empty string
- * which is correct for this API
- */
- duk_push_lstring(ctx, url_s, url_l);
-
- if (url_s != NULL) {
- free(url_s);
- }
-
- return 1;
-%}
-
-
-getter Location::hash()
-%{
- char *url_s = NULL;
- size_t url_l;
-
- nsurl_get(priv->url, NSURL_FRAGMENT, &url_s, &url_l);
-
- /* if url_s is NULL duk_push_lstring pushes an empty string
- * which is correct for this API
- */
- duk_push_lstring(ctx, url_s, url_l);
-
- if (url_s != NULL) {
- free(url_s);
- }
-
- return 1;
-%}
-
-
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-21 09:56:30 +0000