mirror of
https://github.com/rkd77/elinks.git
synced 2025-02-02 15:09:23 -05:00
[ecmascript] Copy of ecmascript.cpp as ecmascript.c
This commit is contained in:
Witold Filipczyk
parent
3f3a38145a
commit
8b5cb79485
src/ecmascript
@ -12,9 +12,9 @@ SUBDIRS-$(CONFIG_ECMASCRIPT_SMJS) += spidermonkey
|
||||
|
||||
OBJS-$(CONFIG_ECMASCRIPT_SMJS) += ecmascript.obj ecmascript-c.obj localstorage-db.o spidermonkey.obj timer.o
|
||||
|
||||
OBJS-$(CONFIG_MUJS) += ecmascript.obj ecmascript-c.o localstorage-db.o mujs.o timer.o
|
||||
OBJS-$(CONFIG_MUJS) += ecmascript.o ecmascript-c.o localstorage-db.o mujs.o timer.o
|
||||
|
||||
OBJS-$(CONFIG_QUICKJS) += ecmascript.obj ecmascript-c.o localstorage-db.o quickjs.o timer.o
|
||||
OBJS-$(CONFIG_QUICKJS) += ecmascript.o ecmascript-c.o localstorage-db.o quickjs.o timer.o
|
||||
|
||||
ifeq ($(CONFIG_ECMASCRIPT_SMJS), yes)
|
||||
CONFIG_ANY_SPIDERMONKEY = yes
|
||||
|
||||
714
src/ecmascript/ecmascript.c
Normal file
714
src/ecmascript/ecmascript.c
Normal file
@ -0,0 +1,714 @@
|
||||
/* Base ECMAScript file. Mostly a proxy for specific library backends. */
|
||||
|
||||
#ifdef HAVE_CONFIG_H
|
||||
#include "config.h"
|
||||
#endif
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <stdio.h>
|
||||
|
||||
#include "elinks.h"
|
||||
|
||||
#include "config/home.h"
|
||||
#include "config/options.h"
|
||||
#include "dialogs/status.h"
|
||||
#include "document/document.h"
|
||||
#include "document/libdom/mapa.h"
|
||||
#include "document/libdom/renderer.h"
|
||||
#include "document/libdom/renderer2.h"
|
||||
#include "document/renderer.h"
|
||||
#include "document/view.h"
|
||||
#include "ecmascript/ecmascript.h"
|
||||
#include "ecmascript/ecmascript-c.h"
|
||||
#include "ecmascript/libdom/parse.h"
|
||||
#ifdef CONFIG_MUJS
|
||||
#include "ecmascript/mujs.h"
|
||||
#else
|
||||
#ifdef CONFIG_QUICKJS
|
||||
#include "ecmascript/quickjs.h"
|
||||
#else
|
||||
#include "ecmascript/spidermonkey.h"
|
||||
#endif
|
||||
#endif
|
||||
#include "ecmascript/timer.h"
|
||||
#include "intl/libintl.h"
|
||||
#include "main/module.h"
|
||||
#include "main/select.h"
|
||||
#include "main/timer.h"
|
||||
#include "osdep/osdep.h"
|
||||
#include "protocol/protocol.h"
|
||||
#include "protocol/uri.h"
|
||||
#include "session/session.h"
|
||||
#include "session/task.h"
|
||||
#include "terminal/terminal.h"
|
||||
#include "terminal/window.h"
|
||||
#include "util/conv.h"
|
||||
#include "util/memcount.h"
|
||||
#include "util/string.h"
|
||||
#include "viewer/text/draw.h"
|
||||
#include "viewer/text/view.h" /* current_frame() */
|
||||
#include "viewer/text/form.h" /* <-ecmascript_reset_state() */
|
||||
#include "viewer/text/vs.h"
|
||||
|
||||
#include <curl/curl.h>
|
||||
|
||||
#undef max
|
||||
#undef min
|
||||
|
||||
/* TODO: We should have some kind of ACL for the scripts - i.e. ability to
|
||||
* disallow the scripts to open new windows (or so that the windows are always
|
||||
* directed to tabs, this particular option would be a tristate), disallow
|
||||
* messing with your menubar/statusbar visibility, disallow changing the
|
||||
* statusbar content etc. --pasky */
|
||||
|
||||
static union option_info ecmascript_options[] = {
|
||||
INIT_OPT_TREE("", N_("ECMAScript"),
|
||||
"ecmascript", OPT_ZERO,
|
||||
N_("ECMAScript options.")),
|
||||
|
||||
INIT_OPT_BOOL("ecmascript", N_("Enable"),
|
||||
"enable", OPT_ZERO, 0,
|
||||
N_("Whether to run those scripts inside of documents.")),
|
||||
|
||||
INIT_OPT_BOOL("ecmascript", N_("Console log"),
|
||||
"enable_console_log", OPT_ZERO, 0,
|
||||
N_("When enabled logs will be appended to ~/.config/elinks/console.log.")),
|
||||
|
||||
INIT_OPT_BOOL("ecmascript", N_("Script error reporting"),
|
||||
"error_reporting", OPT_ZERO, 0,
|
||||
N_("Open a message box when a script reports an error.")),
|
||||
|
||||
INIT_OPT_BOOL("ecmascript", N_("Ignore <noscript> content"),
|
||||
"ignore_noscript", OPT_ZERO, 0,
|
||||
N_("Whether to ignore content enclosed by the <noscript> tag "
|
||||
"when ECMAScript is enabled.")),
|
||||
|
||||
INIT_OPT_INT("ecmascript", N_("Maximum execution time"),
|
||||
"max_exec_time", OPT_ZERO, 1, 3600, 5,
|
||||
N_("Maximum execution time in seconds for a script.")),
|
||||
|
||||
INIT_OPT_BOOL("ecmascript", N_("Pop-up window blocking"),
|
||||
"block_window_opening", OPT_ZERO, 0,
|
||||
N_("Whether to disallow scripts to open new windows or tabs.")),
|
||||
|
||||
INIT_OPT_BOOL("ecmascript", N_("Allow XHR requests to local files"),
|
||||
"allow_xhr_file", OPT_ZERO, 0,
|
||||
N_("Whether to allow XHR requests to local files.")),
|
||||
|
||||
NULL_OPTION_INFO,
|
||||
};
|
||||
|
||||
int interpreter_count;
|
||||
|
||||
static INIT_LIST_OF(struct string_list_item, allowed_urls);
|
||||
static INIT_LIST_OF(struct string_list_item, disallowed_urls);
|
||||
|
||||
char *console_error_filename;
|
||||
char *console_log_filename;
|
||||
|
||||
char *local_storage_filename;
|
||||
|
||||
int local_storage_ready;
|
||||
|
||||
static int
|
||||
is_prefix(char *prefix, char *url, int dl)
|
||||
{
|
||||
return memcmp(prefix, url, dl);
|
||||
}
|
||||
|
||||
static void
|
||||
read_url_list(void)
|
||||
{
|
||||
char *xdg_config_home = get_xdg_config_home();
|
||||
char line[4096];
|
||||
char *filename;
|
||||
FILE *f;
|
||||
|
||||
if (!xdg_config_home) {
|
||||
return;
|
||||
}
|
||||
|
||||
filename = straconcat(xdg_config_home, STRING_DIR_SEP, ALLOWED_ECMASCRIPT_URL_PREFIXES, NULL);
|
||||
|
||||
if (filename) {
|
||||
|
||||
f = fopen(filename, "r");
|
||||
|
||||
if (f) {
|
||||
while (fgets(line, 4096, f)) {
|
||||
add_to_string_list(&allowed_urls, line, strlen(line) - 1);
|
||||
}
|
||||
fclose(f);
|
||||
}
|
||||
mem_free(filename);
|
||||
}
|
||||
|
||||
filename = straconcat(xdg_config_home, STRING_DIR_SEP, DISALLOWED_ECMASCRIPT_URL_PREFIXES, NULL);
|
||||
|
||||
if (filename) {
|
||||
|
||||
f = fopen(filename, "r");
|
||||
|
||||
if (f) {
|
||||
while (fgets(line, 4096, f)) {
|
||||
add_to_string_list(&disallowed_urls, line, strlen(line) - 1);
|
||||
}
|
||||
fclose(f);
|
||||
}
|
||||
mem_free(filename);
|
||||
}
|
||||
}
|
||||
|
||||
int ecmascript_enabled;
|
||||
|
||||
int
|
||||
get_ecmascript_enable(struct ecmascript_interpreter *interpreter)
|
||||
{
|
||||
struct string_list_item *item;
|
||||
char *url;
|
||||
|
||||
if (!ecmascript_enabled || !get_opt_bool("ecmascript.enable", NULL)
|
||||
|| !interpreter || !interpreter->vs || !interpreter->vs->doc_view
|
||||
|| !interpreter->vs->doc_view->document || !interpreter->vs->doc_view->document->uri) {
|
||||
return 0;
|
||||
}
|
||||
|
||||
if (list_empty(allowed_urls) && list_empty(disallowed_urls)) {
|
||||
return 1;
|
||||
}
|
||||
|
||||
url = get_uri_string(interpreter->vs->doc_view->document->uri, URI_PUBLIC);
|
||||
if (!url) {
|
||||
return 0;
|
||||
}
|
||||
|
||||
foreach(item, disallowed_urls) {
|
||||
struct string *string = &item->string;
|
||||
|
||||
if (string->length <= 0) {
|
||||
continue;
|
||||
}
|
||||
if (!is_prefix(string->source, url, string->length)) {
|
||||
mem_free(url);
|
||||
move_to_top_of_list(disallowed_urls, item);
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
|
||||
foreach(item, allowed_urls) {
|
||||
struct string *string = &item->string;
|
||||
|
||||
if (string->length <= 0) {
|
||||
continue;
|
||||
}
|
||||
if (!is_prefix(string->source, url, string->length)) {
|
||||
mem_free(url);
|
||||
move_to_top_of_list(allowed_urls, item);
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
|
||||
mem_free(url);
|
||||
return list_empty(allowed_urls);
|
||||
}
|
||||
|
||||
|
||||
struct ecmascript_interpreter *
|
||||
ecmascript_get_interpreter(struct view_state *vs)
|
||||
{
|
||||
struct ecmascript_interpreter *interpreter;
|
||||
|
||||
assert(vs);
|
||||
|
||||
interpreter = (struct ecmascript_interpreter *)mem_calloc(1, sizeof(*interpreter));
|
||||
if (!interpreter)
|
||||
return NULL;
|
||||
|
||||
++interpreter_count;
|
||||
|
||||
interpreter->vs = vs;
|
||||
interpreter->vs->ecmascript_fragile = 0;
|
||||
init_list(interpreter->onload_snippets);
|
||||
/* The following backend call reads interpreter->vs. */
|
||||
if (
|
||||
#ifdef CONFIG_MUJS
|
||||
!mujs_get_interpreter(interpreter)
|
||||
#elif defined(CONFIG_QUICKJS)
|
||||
!quickjs_get_interpreter(interpreter)
|
||||
#else
|
||||
!spidermonkey_get_interpreter(interpreter)
|
||||
#endif
|
||||
) {
|
||||
/* Undo what was done above. */
|
||||
interpreter->vs->ecmascript_fragile = 1;
|
||||
mem_free(interpreter);
|
||||
--interpreter_count;
|
||||
return NULL;
|
||||
}
|
||||
|
||||
(void)init_string(&interpreter->code);
|
||||
init_list(interpreter->writecode);
|
||||
interpreter->current_writecode = (struct ecmascript_string_list_item *)interpreter->writecode.next;
|
||||
return interpreter;
|
||||
}
|
||||
|
||||
static void
|
||||
delayed_reload(void *data)
|
||||
{
|
||||
struct delayed_rel *rel = (struct delayed_rel *)data;
|
||||
struct session *ses = rel->ses;
|
||||
|
||||
assert(rel);
|
||||
object_unlock(rel->document);
|
||||
dump_xhtml(rel->cached, rel->document, rel->was_write);
|
||||
|
||||
sort_links(rel->document);
|
||||
draw_formatted(ses, rel->was_write ? 2 : 0);
|
||||
load_common(ses);
|
||||
mem_free(rel);
|
||||
}
|
||||
|
||||
void
|
||||
check_for_rerender(struct ecmascript_interpreter *interpreter, const char* text)
|
||||
{
|
||||
#ifdef ECMASCRIPT_DEBUG
|
||||
fprintf(stderr, "%s:%s %s %d\n", __FILE__, __FUNCTION__, text, interpreter->changed);
|
||||
#endif
|
||||
if (interpreter->changed) {
|
||||
struct document_view *doc_view = interpreter->vs->doc_view;
|
||||
struct document *document = doc_view->document;
|
||||
struct session *ses = doc_view->session;
|
||||
struct cache_entry *cached = document->cached;
|
||||
|
||||
if (!strcmp(text, "eval")) {
|
||||
struct ecmascript_string_list_item *item;
|
||||
|
||||
foreach(item, interpreter->writecode) {
|
||||
if (item->string.length) {
|
||||
void *mapa = (void *)document->element_map;
|
||||
|
||||
if (mapa) {
|
||||
void *el = find_in_map(mapa, item->element_offset);
|
||||
|
||||
if (el) {
|
||||
el_insert_before(document, el, &item->string);
|
||||
} else {
|
||||
add_fragment(cached, 0, item->string.source, item->string.length);
|
||||
document->ecmascript_counter++;
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
//fprintf(stderr, "%s\n", text);
|
||||
|
||||
if (document->dom) {
|
||||
struct delayed_rel *rel = (struct delayed_rel *)mem_calloc(1, sizeof(*rel));
|
||||
|
||||
if (rel) {
|
||||
rel->cached = cached;
|
||||
rel->document = document;
|
||||
rel->ses = ses;
|
||||
rel->was_write = interpreter->was_write;
|
||||
object_lock(document);
|
||||
register_bottom_half(delayed_reload, rel);
|
||||
}
|
||||
interpreter->changed = 0;
|
||||
interpreter->was_write = 0;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
void
|
||||
ecmascript_eval(struct ecmascript_interpreter *interpreter,
|
||||
struct string *code, struct string *ret, int element_offset)
|
||||
{
|
||||
if (!get_ecmascript_enable(interpreter)) {
|
||||
return;
|
||||
}
|
||||
assert(interpreter);
|
||||
interpreter->backend_nesting++;
|
||||
interpreter->element_offset = element_offset;
|
||||
#ifdef CONFIG_MUJS
|
||||
mujs_eval(interpreter, code, ret);
|
||||
#elif defined(CONFIG_QUICKJS)
|
||||
quickjs_eval(interpreter, code, ret);
|
||||
#else
|
||||
spidermonkey_eval(interpreter, code, ret);
|
||||
#endif
|
||||
interpreter->backend_nesting--;
|
||||
}
|
||||
|
||||
#ifdef CONFIG_MUJS
|
||||
static void
|
||||
ecmascript_call_function(struct ecmascript_interpreter *interpreter,
|
||||
const char *fun, struct string *ret)
|
||||
#elif defined(CONFIG_QUICKJS)
|
||||
static void
|
||||
ecmascript_call_function(struct ecmascript_interpreter *interpreter,
|
||||
JSValueConst fun, struct string *ret)
|
||||
#else
|
||||
static void
|
||||
ecmascript_call_function(struct ecmascript_interpreter *interpreter,
|
||||
JS::HandleValue fun, struct string *ret)
|
||||
#endif
|
||||
{
|
||||
if (!get_ecmascript_enable(interpreter))
|
||||
return;
|
||||
assert(interpreter);
|
||||
interpreter->backend_nesting++;
|
||||
#ifdef CONFIG_MUJS
|
||||
mujs_call_function(interpreter, fun, ret);
|
||||
#elif defined(CONFIG_QUICKJS)
|
||||
quickjs_call_function(interpreter, fun, ret);
|
||||
#else
|
||||
spidermonkey_call_function(interpreter, fun, ret);
|
||||
#endif
|
||||
interpreter->backend_nesting--;
|
||||
}
|
||||
|
||||
char *
|
||||
ecmascript_eval_stringback(struct ecmascript_interpreter *interpreter,
|
||||
struct string *code)
|
||||
{
|
||||
char *result;
|
||||
|
||||
if (!get_ecmascript_enable(interpreter))
|
||||
return NULL;
|
||||
assert(interpreter);
|
||||
interpreter->backend_nesting++;
|
||||
#ifdef CONFIG_MUJS
|
||||
result = mujs_eval_stringback(interpreter, code);
|
||||
#elif defined(CONFIG_QUICKJS)
|
||||
result = quickjs_eval_stringback(interpreter, code);
|
||||
#else
|
||||
result = spidermonkey_eval_stringback(interpreter, code);
|
||||
#endif
|
||||
interpreter->backend_nesting--;
|
||||
|
||||
check_for_rerender(interpreter, "stringback");
|
||||
|
||||
return result;
|
||||
}
|
||||
|
||||
void
|
||||
ecmascript_timeout_dialog(struct terminal *term, int max_exec_time)
|
||||
{
|
||||
info_box(term, MSGBOX_FREE_TEXT,
|
||||
N_("JavaScript Emergency"), ALIGN_LEFT,
|
||||
msg_text(term,
|
||||
N_("A script embedded in the current document was running\n"
|
||||
"for more than %d seconds. This probably means there is\n"
|
||||
"a bug in the script and it could have halted the whole\n"
|
||||
"ELinks, so the script execution was interrupted."),
|
||||
max_exec_time));
|
||||
|
||||
}
|
||||
|
||||
void
|
||||
ecmascript_set_action(char **action, char *string)
|
||||
{
|
||||
struct uri *protocol;
|
||||
|
||||
trim_chars(string, ' ', NULL);
|
||||
protocol = get_uri(string, URI_PROTOCOL);
|
||||
|
||||
if (protocol) { /* full uri with protocol */
|
||||
done_uri(protocol);
|
||||
mem_free_set(action, string);
|
||||
} else {
|
||||
if (dir_sep(string[0])) { /* absolute uri, TODO: disk drive under WIN32 */
|
||||
struct uri *uri = get_uri(*action, URI_HTTP_REFERRER_HOST);
|
||||
|
||||
if (uri->protocol == PROTOCOL_FILE) {
|
||||
mem_free_set(action, straconcat(struri(uri), string, (char *) NULL));
|
||||
}
|
||||
else
|
||||
mem_free_set(action, straconcat(struri(uri), string + 1, (char *) NULL));
|
||||
done_uri(uri);
|
||||
mem_free(string);
|
||||
} else { /* relative uri */
|
||||
char *last_slash = strrchr(*action, '/');
|
||||
char *new_action;
|
||||
|
||||
if (last_slash) *(last_slash + 1) = '\0';
|
||||
new_action = straconcat(*action, string,
|
||||
(char *) NULL);
|
||||
mem_free_set(action, new_action);
|
||||
mem_free(string);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/* Timer callback for @interpreter->vs->doc_view->document->timeout.
|
||||
* As explained in @install_timer, this function must erase the
|
||||
* expired timer ID from all variables. */
|
||||
static void
|
||||
ecmascript_timeout_handler(void *val)
|
||||
{
|
||||
struct ecmascript_timeout *t = (struct ecmascript_timeout *)val;
|
||||
struct ecmascript_interpreter *interpreter = t->interpreter;
|
||||
|
||||
assertm(interpreter->vs->doc_view != NULL,
|
||||
"setTimeout: vs with no document (e_f %d)",
|
||||
interpreter->vs->ecmascript_fragile);
|
||||
t->tid = TIMER_ID_UNDEF;
|
||||
/* The expired timer ID has now been erased. */
|
||||
ecmascript_eval(interpreter, &t->code, NULL, 0);
|
||||
|
||||
del_from_list(t);
|
||||
done_string(&t->code);
|
||||
mem_free(t);
|
||||
|
||||
check_for_rerender(interpreter, "handler");
|
||||
}
|
||||
|
||||
#if defined(CONFIG_ECMASCRIPT_SMJS) || defined(CONFIG_QUICKJS) || defined(CONFIG_MUJS)
|
||||
/* Timer callback for @interpreter->vs->doc_view->document->timeout.
|
||||
* As explained in @install_timer, this function must erase the
|
||||
* expired timer ID from all variables. */
|
||||
static void
|
||||
ecmascript_timeout_handler2(void *val)
|
||||
{
|
||||
struct ecmascript_timeout *t = (struct ecmascript_timeout *)val;
|
||||
struct ecmascript_interpreter *interpreter = t->interpreter;
|
||||
|
||||
assertm(interpreter->vs->doc_view != NULL,
|
||||
"setTimeout: vs with no document (e_f %d)",
|
||||
interpreter->vs->ecmascript_fragile);
|
||||
t->tid = TIMER_ID_UNDEF;
|
||||
/* The expired timer ID has now been erased. */
|
||||
ecmascript_call_function(interpreter, t->fun, NULL);
|
||||
|
||||
del_from_list(t);
|
||||
done_string(&t->code);
|
||||
#ifdef CONFIG_MUJS
|
||||
// js_unref(t->ctx, t->fun);
|
||||
#endif
|
||||
mem_free(t);
|
||||
|
||||
check_for_rerender(interpreter, "handler2");
|
||||
}
|
||||
#endif
|
||||
|
||||
timer_id_T
|
||||
ecmascript_set_timeout(struct ecmascript_interpreter *interpreter, char *code, int timeout)
|
||||
{
|
||||
assert(interpreter && interpreter->vs->doc_view->document);
|
||||
if (!code) return NULL;
|
||||
struct ecmascript_timeout *t = (struct ecmascript_timeout *)mem_calloc(1, sizeof(*t));
|
||||
|
||||
if (!t) {
|
||||
mem_free(code);
|
||||
return NULL;
|
||||
}
|
||||
if (!init_string(&t->code)) {
|
||||
mem_free(t);
|
||||
mem_free(code);
|
||||
return NULL;
|
||||
}
|
||||
add_to_string(&t->code, code);
|
||||
mem_free(code);
|
||||
|
||||
t->interpreter = interpreter;
|
||||
add_to_list(interpreter->vs->doc_view->document->timeouts, t);
|
||||
install_timer(&t->tid, timeout, ecmascript_timeout_handler, t);
|
||||
|
||||
return t->tid;
|
||||
}
|
||||
|
||||
#ifdef CONFIG_ECMASCRIPT_SMJS
|
||||
timer_id_T
|
||||
ecmascript_set_timeout2(struct ecmascript_interpreter *interpreter, JS::HandleValue f, int timeout)
|
||||
{
|
||||
assert(interpreter && interpreter->vs->doc_view->document);
|
||||
|
||||
struct ecmascript_timeout *t = (struct ecmascript_timeout *)mem_calloc(1, sizeof(*t));
|
||||
|
||||
if (!t) {
|
||||
return NULL;
|
||||
}
|
||||
if (!init_string(&t->code)) {
|
||||
mem_free(t);
|
||||
return NULL;
|
||||
}
|
||||
t->interpreter = interpreter;
|
||||
JS::RootedValue fun((JSContext *)interpreter->backend_data, f);
|
||||
t->fun = fun;
|
||||
add_to_list(interpreter->vs->doc_view->document->timeouts, t);
|
||||
install_timer(&t->tid, timeout, ecmascript_timeout_handler2, t);
|
||||
|
||||
return t->tid;
|
||||
}
|
||||
#endif
|
||||
|
||||
#ifdef CONFIG_QUICKJS
|
||||
timer_id_T
|
||||
ecmascript_set_timeout2q(struct ecmascript_interpreter *interpreter, JSValueConst fun, int timeout)
|
||||
{
|
||||
assert(interpreter && interpreter->vs->doc_view->document);
|
||||
struct ecmascript_timeout *t = (struct ecmascript_timeout *)mem_calloc(1, sizeof(*t));
|
||||
|
||||
if (!t) {
|
||||
return NULL;
|
||||
}
|
||||
if (!init_string(&t->code)) {
|
||||
mem_free(t);
|
||||
return NULL;
|
||||
}
|
||||
t->interpreter = interpreter;
|
||||
t->fun = fun;
|
||||
add_to_list(interpreter->vs->doc_view->document->timeouts, t);
|
||||
install_timer(&t->tid, timeout, ecmascript_timeout_handler2, t);
|
||||
|
||||
return t->tid;
|
||||
}
|
||||
#endif
|
||||
|
||||
#ifdef CONFIG_MUJS
|
||||
timer_id_T
|
||||
ecmascript_set_timeout2m(js_State *J, const char *handle, int timeout)
|
||||
{
|
||||
struct ecmascript_interpreter *interpreter = (struct ecmascript_interpreter *)js_getcontext(J);
|
||||
assert(interpreter && interpreter->vs->doc_view->document);
|
||||
|
||||
struct ecmascript_timeout *t = (struct ecmascript_timeout *)mem_calloc(1, sizeof(*t));
|
||||
|
||||
if (!t) {
|
||||
return NULL;
|
||||
}
|
||||
if (!init_string(&t->code)) {
|
||||
mem_free(t);
|
||||
return NULL;
|
||||
}
|
||||
t->interpreter = interpreter;
|
||||
t->ctx = J;
|
||||
t->fun = handle;
|
||||
|
||||
add_to_list(interpreter->vs->doc_view->document->timeouts, t);
|
||||
install_timer(&t->tid, timeout, ecmascript_timeout_handler2, t);
|
||||
|
||||
return t->tid;
|
||||
}
|
||||
#endif
|
||||
|
||||
|
||||
static void
|
||||
init_ecmascript_module(struct module *module)
|
||||
{
|
||||
char *xdg_config_home = get_xdg_config_home();
|
||||
read_url_list();
|
||||
|
||||
if (xdg_config_home) {
|
||||
/* ecmascript console log */
|
||||
console_log_filename = straconcat(xdg_config_home, "/console.log", NULL);
|
||||
console_error_filename = straconcat(xdg_config_home, "/console.err", NULL);
|
||||
/* ecmascript local storage db location */
|
||||
#ifdef CONFIG_OS_DOS
|
||||
local_storage_filename = stracpy("elinks_ls.db");
|
||||
#else
|
||||
local_storage_filename = straconcat(xdg_config_home, "/elinks_ls.db", NULL);
|
||||
#endif
|
||||
}
|
||||
ecmascript_enabled = get_opt_bool("ecmascript.enable", NULL);
|
||||
#ifdef CONFIG_DEBUG
|
||||
curl_global_init_mem(CURL_GLOBAL_DEFAULT, el_curl_malloc, el_curl_free, el_curl_realloc, el_curl_strdup, el_curl_calloc);
|
||||
#else
|
||||
curl_global_init(CURL_GLOBAL_DEFAULT);
|
||||
#endif
|
||||
init_map_timer();
|
||||
}
|
||||
|
||||
static void
|
||||
done_ecmascript_module(struct module *module)
|
||||
{
|
||||
curl_global_cleanup();
|
||||
free_string_list(&allowed_urls);
|
||||
free_string_list(&disallowed_urls);
|
||||
mem_free_if(console_log_filename);
|
||||
mem_free_if(console_error_filename);
|
||||
mem_free_if(local_storage_filename);
|
||||
done_map_timer();
|
||||
}
|
||||
|
||||
static struct module *ecmascript_modules[] = {
|
||||
#ifdef CONFIG_ECMASCRIPT_SMJS
|
||||
&spidermonkey_module,
|
||||
#endif
|
||||
#ifdef CONFIG_MUJS
|
||||
&mujs_module,
|
||||
#endif
|
||||
#ifdef CONFIG_QUICKJS
|
||||
&quickjs_module,
|
||||
#endif
|
||||
NULL,
|
||||
};
|
||||
|
||||
static void
|
||||
delayed_goto(void *data)
|
||||
{
|
||||
struct delayed_goto *deg = (struct delayed_goto *)data;
|
||||
|
||||
assert(deg);
|
||||
|
||||
if (deg->vs->doc_view) {
|
||||
goto_uri_frame(deg->vs->doc_view->session, deg->uri,
|
||||
deg->vs->doc_view->name,
|
||||
CACHE_MODE_NORMAL);
|
||||
}
|
||||
done_uri(deg->uri);
|
||||
mem_free(deg);
|
||||
}
|
||||
|
||||
void
|
||||
location_goto_const(struct document_view *doc_view, const char *url)
|
||||
{
|
||||
char *url2 = stracpy(url);
|
||||
|
||||
if (url2) {
|
||||
location_goto(doc_view, url2);
|
||||
mem_free(url2);
|
||||
}
|
||||
}
|
||||
|
||||
void
|
||||
location_goto(struct document_view *doc_view, char *url)
|
||||
{
|
||||
char *new_abs_url;
|
||||
struct uri *new_uri;
|
||||
struct delayed_goto *deg;
|
||||
|
||||
/* Workaround for bug 611. Does not crash, but may lead to infinite loop.*/
|
||||
if (!doc_view) return;
|
||||
new_abs_url = join_urls(doc_view->document->uri,
|
||||
trim_chars(url, ' ', 0));
|
||||
if (!new_abs_url)
|
||||
return;
|
||||
new_uri = get_uri(new_abs_url, URI_NONE);
|
||||
mem_free(new_abs_url);
|
||||
if (!new_uri)
|
||||
return;
|
||||
deg = (struct delayed_goto *)mem_calloc(1, sizeof(*deg));
|
||||
if (!deg) {
|
||||
done_uri(new_uri);
|
||||
return;
|
||||
}
|
||||
assert(doc_view->vs);
|
||||
deg->vs = doc_view->vs;
|
||||
deg->uri = new_uri;
|
||||
/* It does not seem to be very safe inside of frames to
|
||||
* call goto_uri() right away. */
|
||||
register_bottom_half(delayed_goto, deg);
|
||||
}
|
||||
|
||||
struct module ecmascript_module = struct_module(
|
||||
/* name: */ N_("ECMAScript"),
|
||||
/* options: */ ecmascript_options,
|
||||
/* events: */ NULL,
|
||||
/* submodules: */ ecmascript_modules,
|
||||
/* data: */ NULL,
|
||||
/* init: */ init_ecmascript_module,
|
||||
/* done: */ done_ecmascript_module
|
||||
);
|
||||
@ -1,717 +1 @@
|
||||
/* Base ECMAScript file. Mostly a proxy for specific library backends. */
|
||||
|
||||
#ifdef HAVE_CONFIG_H
|
||||
#include "config.h"
|
||||
#endif
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <stdio.h>
|
||||
|
||||
#include "elinks.h"
|
||||
|
||||
#include "config/home.h"
|
||||
#include "config/options.h"
|
||||
#include "dialogs/status.h"
|
||||
#include "document/document.h"
|
||||
#include "document/libdom/mapa.h"
|
||||
#include "document/libdom/renderer.h"
|
||||
#include "document/libdom/renderer2.h"
|
||||
#include "document/renderer.h"
|
||||
#include "document/view.h"
|
||||
#include "ecmascript/ecmascript.h"
|
||||
#include "ecmascript/ecmascript-c.h"
|
||||
#include "ecmascript/libdom/parse.h"
|
||||
#ifdef CONFIG_MUJS
|
||||
#include "ecmascript/mujs.h"
|
||||
#else
|
||||
#ifdef CONFIG_QUICKJS
|
||||
#include "ecmascript/quickjs.h"
|
||||
#else
|
||||
#include "ecmascript/spidermonkey.h"
|
||||
#endif
|
||||
#endif
|
||||
#include "ecmascript/timer.h"
|
||||
#include "intl/libintl.h"
|
||||
#include "main/module.h"
|
||||
#include "main/select.h"
|
||||
#include "main/timer.h"
|
||||
#include "osdep/osdep.h"
|
||||
#include "protocol/protocol.h"
|
||||
#include "protocol/uri.h"
|
||||
#include "session/session.h"
|
||||
#include "session/task.h"
|
||||
#include "terminal/terminal.h"
|
||||
#include "terminal/window.h"
|
||||
#include "util/conv.h"
|
||||
#include "util/memcount.h"
|
||||
#include "util/string.h"
|
||||
#include "viewer/text/draw.h"
|
||||
#include "viewer/text/view.h" /* current_frame() */
|
||||
#include "viewer/text/form.h" /* <-ecmascript_reset_state() */
|
||||
#include "viewer/text/vs.h"
|
||||
|
||||
#include <curl/curl.h>
|
||||
|
||||
#undef max
|
||||
#undef min
|
||||
|
||||
#include <algorithm>
|
||||
#include <map>
|
||||
|
||||
/* TODO: We should have some kind of ACL for the scripts - i.e. ability to
|
||||
* disallow the scripts to open new windows (or so that the windows are always
|
||||
* directed to tabs, this particular option would be a tristate), disallow
|
||||
* messing with your menubar/statusbar visibility, disallow changing the
|
||||
* statusbar content etc. --pasky */
|
||||
|
||||
static union option_info ecmascript_options[] = {
|
||||
INIT_OPT_TREE("", N_("ECMAScript"),
|
||||
"ecmascript", OPT_ZERO,
|
||||
N_("ECMAScript options.")),
|
||||
|
||||
INIT_OPT_BOOL("ecmascript", N_("Enable"),
|
||||
"enable", OPT_ZERO, 0,
|
||||
N_("Whether to run those scripts inside of documents.")),
|
||||
|
||||
INIT_OPT_BOOL("ecmascript", N_("Console log"),
|
||||
"enable_console_log", OPT_ZERO, 0,
|
||||
N_("When enabled logs will be appended to ~/.config/elinks/console.log.")),
|
||||
|
||||
INIT_OPT_BOOL("ecmascript", N_("Script error reporting"),
|
||||
"error_reporting", OPT_ZERO, 0,
|
||||
N_("Open a message box when a script reports an error.")),
|
||||
|
||||
INIT_OPT_BOOL("ecmascript", N_("Ignore <noscript> content"),
|
||||
"ignore_noscript", OPT_ZERO, 0,
|
||||
N_("Whether to ignore content enclosed by the <noscript> tag "
|
||||
"when ECMAScript is enabled.")),
|
||||
|
||||
INIT_OPT_INT("ecmascript", N_("Maximum execution time"),
|
||||
"max_exec_time", OPT_ZERO, 1, 3600, 5,
|
||||
N_("Maximum execution time in seconds for a script.")),
|
||||
|
||||
INIT_OPT_BOOL("ecmascript", N_("Pop-up window blocking"),
|
||||
"block_window_opening", OPT_ZERO, 0,
|
||||
N_("Whether to disallow scripts to open new windows or tabs.")),
|
||||
|
||||
INIT_OPT_BOOL("ecmascript", N_("Allow XHR requests to local files"),
|
||||
"allow_xhr_file", OPT_ZERO, 0,
|
||||
N_("Whether to allow XHR requests to local files.")),
|
||||
|
||||
NULL_OPTION_INFO,
|
||||
};
|
||||
|
||||
int interpreter_count;
|
||||
|
||||
static INIT_LIST_OF(struct string_list_item, allowed_urls);
|
||||
static INIT_LIST_OF(struct string_list_item, disallowed_urls);
|
||||
|
||||
char *console_error_filename;
|
||||
char *console_log_filename;
|
||||
|
||||
char *local_storage_filename;
|
||||
|
||||
int local_storage_ready;
|
||||
|
||||
static int
|
||||
is_prefix(char *prefix, char *url, int dl)
|
||||
{
|
||||
return memcmp(prefix, url, dl);
|
||||
}
|
||||
|
||||
static void
|
||||
read_url_list(void)
|
||||
{
|
||||
char *xdg_config_home = get_xdg_config_home();
|
||||
char line[4096];
|
||||
char *filename;
|
||||
FILE *f;
|
||||
|
||||
if (!xdg_config_home) {
|
||||
return;
|
||||
}
|
||||
|
||||
filename = straconcat(xdg_config_home, STRING_DIR_SEP, ALLOWED_ECMASCRIPT_URL_PREFIXES, NULL);
|
||||
|
||||
if (filename) {
|
||||
|
||||
f = fopen(filename, "r");
|
||||
|
||||
if (f) {
|
||||
while (fgets(line, 4096, f)) {
|
||||
add_to_string_list(&allowed_urls, line, strlen(line) - 1);
|
||||
}
|
||||
fclose(f);
|
||||
}
|
||||
mem_free(filename);
|
||||
}
|
||||
|
||||
filename = straconcat(xdg_config_home, STRING_DIR_SEP, DISALLOWED_ECMASCRIPT_URL_PREFIXES, NULL);
|
||||
|
||||
if (filename) {
|
||||
|
||||
f = fopen(filename, "r");
|
||||
|
||||
if (f) {
|
||||
while (fgets(line, 4096, f)) {
|
||||
add_to_string_list(&disallowed_urls, line, strlen(line) - 1);
|
||||
}
|
||||
fclose(f);
|
||||
}
|
||||
mem_free(filename);
|
||||
}
|
||||
}
|
||||
|
||||
int ecmascript_enabled;
|
||||
|
||||
int
|
||||
get_ecmascript_enable(struct ecmascript_interpreter *interpreter)
|
||||
{
|
||||
struct string_list_item *item;
|
||||
char *url;
|
||||
|
||||
if (!ecmascript_enabled || !get_opt_bool("ecmascript.enable", NULL)
|
||||
|| !interpreter || !interpreter->vs || !interpreter->vs->doc_view
|
||||
|| !interpreter->vs->doc_view->document || !interpreter->vs->doc_view->document->uri) {
|
||||
return 0;
|
||||
}
|
||||
|
||||
if (list_empty(allowed_urls) && list_empty(disallowed_urls)) {
|
||||
return 1;
|
||||
}
|
||||
|
||||
url = get_uri_string(interpreter->vs->doc_view->document->uri, URI_PUBLIC);
|
||||
if (!url) {
|
||||
return 0;
|
||||
}
|
||||
|
||||
foreach(item, disallowed_urls) {
|
||||
struct string *string = &item->string;
|
||||
|
||||
if (string->length <= 0) {
|
||||
continue;
|
||||
}
|
||||
if (!is_prefix(string->source, url, string->length)) {
|
||||
mem_free(url);
|
||||
move_to_top_of_list(disallowed_urls, item);
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
|
||||
foreach(item, allowed_urls) {
|
||||
struct string *string = &item->string;
|
||||
|
||||
if (string->length <= 0) {
|
||||
continue;
|
||||
}
|
||||
if (!is_prefix(string->source, url, string->length)) {
|
||||
mem_free(url);
|
||||
move_to_top_of_list(allowed_urls, item);
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
|
||||
mem_free(url);
|
||||
return list_empty(allowed_urls);
|
||||
}
|
||||
|
||||
|
||||
struct ecmascript_interpreter *
|
||||
ecmascript_get_interpreter(struct view_state *vs)
|
||||
{
|
||||
struct ecmascript_interpreter *interpreter;
|
||||
|
||||
assert(vs);
|
||||
|
||||
interpreter = (struct ecmascript_interpreter *)mem_calloc(1, sizeof(*interpreter));
|
||||
if (!interpreter)
|
||||
return NULL;
|
||||
|
||||
++interpreter_count;
|
||||
|
||||
interpreter->vs = vs;
|
||||
interpreter->vs->ecmascript_fragile = 0;
|
||||
init_list(interpreter->onload_snippets);
|
||||
/* The following backend call reads interpreter->vs. */
|
||||
if (
|
||||
#ifdef CONFIG_MUJS
|
||||
!mujs_get_interpreter(interpreter)
|
||||
#elif defined(CONFIG_QUICKJS)
|
||||
!quickjs_get_interpreter(interpreter)
|
||||
#else
|
||||
!spidermonkey_get_interpreter(interpreter)
|
||||
#endif
|
||||
) {
|
||||
/* Undo what was done above. */
|
||||
interpreter->vs->ecmascript_fragile = 1;
|
||||
mem_free(interpreter);
|
||||
--interpreter_count;
|
||||
return NULL;
|
||||
}
|
||||
|
||||
(void)init_string(&interpreter->code);
|
||||
init_list(interpreter->writecode);
|
||||
interpreter->current_writecode = (struct ecmascript_string_list_item *)interpreter->writecode.next;
|
||||
return interpreter;
|
||||
}
|
||||
|
||||
static void
|
||||
delayed_reload(void *data)
|
||||
{
|
||||
struct delayed_rel *rel = (struct delayed_rel *)data;
|
||||
struct session *ses = rel->ses;
|
||||
|
||||
assert(rel);
|
||||
object_unlock(rel->document);
|
||||
dump_xhtml(rel->cached, rel->document, rel->was_write);
|
||||
|
||||
sort_links(rel->document);
|
||||
draw_formatted(ses, rel->was_write ? 2 : 0);
|
||||
load_common(ses);
|
||||
mem_free(rel);
|
||||
}
|
||||
|
||||
void
|
||||
check_for_rerender(struct ecmascript_interpreter *interpreter, const char* text)
|
||||
{
|
||||
#ifdef ECMASCRIPT_DEBUG
|
||||
fprintf(stderr, "%s:%s %s %d\n", __FILE__, __FUNCTION__, text, interpreter->changed);
|
||||
#endif
|
||||
if (interpreter->changed) {
|
||||
struct document_view *doc_view = interpreter->vs->doc_view;
|
||||
struct document *document = doc_view->document;
|
||||
struct session *ses = doc_view->session;
|
||||
struct cache_entry *cached = document->cached;
|
||||
|
||||
if (!strcmp(text, "eval")) {
|
||||
struct ecmascript_string_list_item *item;
|
||||
|
||||
foreach(item, interpreter->writecode) {
|
||||
if (item->string.length) {
|
||||
void *mapa = (void *)document->element_map;
|
||||
|
||||
if (mapa) {
|
||||
void *el = find_in_map(mapa, item->element_offset);
|
||||
|
||||
if (el) {
|
||||
el_insert_before(document, el, &item->string);
|
||||
} else {
|
||||
add_fragment(cached, 0, item->string.source, item->string.length);
|
||||
document->ecmascript_counter++;
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
//fprintf(stderr, "%s\n", text);
|
||||
|
||||
if (document->dom) {
|
||||
struct delayed_rel *rel = (struct delayed_rel *)mem_calloc(1, sizeof(*rel));
|
||||
|
||||
if (rel) {
|
||||
rel->cached = cached;
|
||||
rel->document = document;
|
||||
rel->ses = ses;
|
||||
rel->was_write = interpreter->was_write;
|
||||
object_lock(document);
|
||||
register_bottom_half(delayed_reload, rel);
|
||||
}
|
||||
interpreter->changed = 0;
|
||||
interpreter->was_write = 0;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
void
|
||||
ecmascript_eval(struct ecmascript_interpreter *interpreter,
|
||||
struct string *code, struct string *ret, int element_offset)
|
||||
{
|
||||
if (!get_ecmascript_enable(interpreter)) {
|
||||
return;
|
||||
}
|
||||
assert(interpreter);
|
||||
interpreter->backend_nesting++;
|
||||
interpreter->element_offset = element_offset;
|
||||
#ifdef CONFIG_MUJS
|
||||
mujs_eval(interpreter, code, ret);
|
||||
#elif defined(CONFIG_QUICKJS)
|
||||
quickjs_eval(interpreter, code, ret);
|
||||
#else
|
||||
spidermonkey_eval(interpreter, code, ret);
|
||||
#endif
|
||||
interpreter->backend_nesting--;
|
||||
}
|
||||
|
||||
#ifdef CONFIG_MUJS
|
||||
static void
|
||||
ecmascript_call_function(struct ecmascript_interpreter *interpreter,
|
||||
const char *fun, struct string *ret)
|
||||
#elif defined(CONFIG_QUICKJS)
|
||||
static void
|
||||
ecmascript_call_function(struct ecmascript_interpreter *interpreter,
|
||||
JSValueConst fun, struct string *ret)
|
||||
#else
|
||||
static void
|
||||
ecmascript_call_function(struct ecmascript_interpreter *interpreter,
|
||||
JS::HandleValue fun, struct string *ret)
|
||||
#endif
|
||||
{
|
||||
if (!get_ecmascript_enable(interpreter))
|
||||
return;
|
||||
assert(interpreter);
|
||||
interpreter->backend_nesting++;
|
||||
#ifdef CONFIG_MUJS
|
||||
mujs_call_function(interpreter, fun, ret);
|
||||
#elif defined(CONFIG_QUICKJS)
|
||||
quickjs_call_function(interpreter, fun, ret);
|
||||
#else
|
||||
spidermonkey_call_function(interpreter, fun, ret);
|
||||
#endif
|
||||
interpreter->backend_nesting--;
|
||||
}
|
||||
|
||||
char *
|
||||
ecmascript_eval_stringback(struct ecmascript_interpreter *interpreter,
|
||||
struct string *code)
|
||||
{
|
||||
char *result;
|
||||
|
||||
if (!get_ecmascript_enable(interpreter))
|
||||
return NULL;
|
||||
assert(interpreter);
|
||||
interpreter->backend_nesting++;
|
||||
#ifdef CONFIG_MUJS
|
||||
result = mujs_eval_stringback(interpreter, code);
|
||||
#elif defined(CONFIG_QUICKJS)
|
||||
result = quickjs_eval_stringback(interpreter, code);
|
||||
#else
|
||||
result = spidermonkey_eval_stringback(interpreter, code);
|
||||
#endif
|
||||
interpreter->backend_nesting--;
|
||||
|
||||
check_for_rerender(interpreter, "stringback");
|
||||
|
||||
return result;
|
||||
}
|
||||
|
||||
void
|
||||
ecmascript_timeout_dialog(struct terminal *term, int max_exec_time)
|
||||
{
|
||||
info_box(term, MSGBOX_FREE_TEXT,
|
||||
N_("JavaScript Emergency"), ALIGN_LEFT,
|
||||
msg_text(term,
|
||||
N_("A script embedded in the current document was running\n"
|
||||
"for more than %d seconds. This probably means there is\n"
|
||||
"a bug in the script and it could have halted the whole\n"
|
||||
"ELinks, so the script execution was interrupted."),
|
||||
max_exec_time));
|
||||
|
||||
}
|
||||
|
||||
void
|
||||
ecmascript_set_action(char **action, char *string)
|
||||
{
|
||||
struct uri *protocol;
|
||||
|
||||
trim_chars(string, ' ', NULL);
|
||||
protocol = get_uri(string, URI_PROTOCOL);
|
||||
|
||||
if (protocol) { /* full uri with protocol */
|
||||
done_uri(protocol);
|
||||
mem_free_set(action, string);
|
||||
} else {
|
||||
if (dir_sep(string[0])) { /* absolute uri, TODO: disk drive under WIN32 */
|
||||
struct uri *uri = get_uri(*action, URI_HTTP_REFERRER_HOST);
|
||||
|
||||
if (uri->protocol == PROTOCOL_FILE) {
|
||||
mem_free_set(action, straconcat(struri(uri), string, (char *) NULL));
|
||||
}
|
||||
else
|
||||
mem_free_set(action, straconcat(struri(uri), string + 1, (char *) NULL));
|
||||
done_uri(uri);
|
||||
mem_free(string);
|
||||
} else { /* relative uri */
|
||||
char *last_slash = strrchr(*action, '/');
|
||||
char *new_action;
|
||||
|
||||
if (last_slash) *(last_slash + 1) = '\0';
|
||||
new_action = straconcat(*action, string,
|
||||
(char *) NULL);
|
||||
mem_free_set(action, new_action);
|
||||
mem_free(string);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/* Timer callback for @interpreter->vs->doc_view->document->timeout.
|
||||
* As explained in @install_timer, this function must erase the
|
||||
* expired timer ID from all variables. */
|
||||
static void
|
||||
ecmascript_timeout_handler(void *val)
|
||||
{
|
||||
struct ecmascript_timeout *t = (struct ecmascript_timeout *)val;
|
||||
struct ecmascript_interpreter *interpreter = t->interpreter;
|
||||
|
||||
assertm(interpreter->vs->doc_view != NULL,
|
||||
"setTimeout: vs with no document (e_f %d)",
|
||||
interpreter->vs->ecmascript_fragile);
|
||||
t->tid = TIMER_ID_UNDEF;
|
||||
/* The expired timer ID has now been erased. */
|
||||
ecmascript_eval(interpreter, &t->code, NULL, 0);
|
||||
|
||||
del_from_list(t);
|
||||
done_string(&t->code);
|
||||
mem_free(t);
|
||||
|
||||
check_for_rerender(interpreter, "handler");
|
||||
}
|
||||
|
||||
#if defined(CONFIG_ECMASCRIPT_SMJS) || defined(CONFIG_QUICKJS) || defined(CONFIG_MUJS)
|
||||
/* Timer callback for @interpreter->vs->doc_view->document->timeout.
|
||||
* As explained in @install_timer, this function must erase the
|
||||
* expired timer ID from all variables. */
|
||||
static void
|
||||
ecmascript_timeout_handler2(void *val)
|
||||
{
|
||||
struct ecmascript_timeout *t = (struct ecmascript_timeout *)val;
|
||||
struct ecmascript_interpreter *interpreter = t->interpreter;
|
||||
|
||||
assertm(interpreter->vs->doc_view != NULL,
|
||||
"setTimeout: vs with no document (e_f %d)",
|
||||
interpreter->vs->ecmascript_fragile);
|
||||
t->tid = TIMER_ID_UNDEF;
|
||||
/* The expired timer ID has now been erased. */
|
||||
ecmascript_call_function(interpreter, t->fun, NULL);
|
||||
|
||||
del_from_list(t);
|
||||
done_string(&t->code);
|
||||
#ifdef CONFIG_MUJS
|
||||
// js_unref(t->ctx, t->fun);
|
||||
#endif
|
||||
mem_free(t);
|
||||
|
||||
check_for_rerender(interpreter, "handler2");
|
||||
}
|
||||
#endif
|
||||
|
||||
timer_id_T
|
||||
ecmascript_set_timeout(struct ecmascript_interpreter *interpreter, char *code, int timeout)
|
||||
{
|
||||
assert(interpreter && interpreter->vs->doc_view->document);
|
||||
if (!code) return nullptr;
|
||||
struct ecmascript_timeout *t = (struct ecmascript_timeout *)mem_calloc(1, sizeof(*t));
|
||||
|
||||
if (!t) {
|
||||
mem_free(code);
|
||||
return nullptr;
|
||||
}
|
||||
if (!init_string(&t->code)) {
|
||||
mem_free(t);
|
||||
mem_free(code);
|
||||
return nullptr;
|
||||
}
|
||||
add_to_string(&t->code, code);
|
||||
mem_free(code);
|
||||
|
||||
t->interpreter = interpreter;
|
||||
add_to_list(interpreter->vs->doc_view->document->timeouts, t);
|
||||
install_timer(&t->tid, timeout, ecmascript_timeout_handler, t);
|
||||
|
||||
return t->tid;
|
||||
}
|
||||
|
||||
#ifdef CONFIG_ECMASCRIPT_SMJS
|
||||
timer_id_T
|
||||
ecmascript_set_timeout2(struct ecmascript_interpreter *interpreter, JS::HandleValue f, int timeout)
|
||||
{
|
||||
assert(interpreter && interpreter->vs->doc_view->document);
|
||||
|
||||
struct ecmascript_timeout *t = (struct ecmascript_timeout *)mem_calloc(1, sizeof(*t));
|
||||
|
||||
if (!t) {
|
||||
return nullptr;
|
||||
}
|
||||
if (!init_string(&t->code)) {
|
||||
mem_free(t);
|
||||
return nullptr;
|
||||
}
|
||||
t->interpreter = interpreter;
|
||||
JS::RootedValue fun((JSContext *)interpreter->backend_data, f);
|
||||
t->fun = fun;
|
||||
add_to_list(interpreter->vs->doc_view->document->timeouts, t);
|
||||
install_timer(&t->tid, timeout, ecmascript_timeout_handler2, t);
|
||||
|
||||
return t->tid;
|
||||
}
|
||||
#endif
|
||||
|
||||
#ifdef CONFIG_QUICKJS
|
||||
timer_id_T
|
||||
ecmascript_set_timeout2q(struct ecmascript_interpreter *interpreter, JSValueConst fun, int timeout)
|
||||
{
|
||||
assert(interpreter && interpreter->vs->doc_view->document);
|
||||
struct ecmascript_timeout *t = (struct ecmascript_timeout *)mem_calloc(1, sizeof(*t));
|
||||
|
||||
if (!t) {
|
||||
return nullptr;
|
||||
}
|
||||
if (!init_string(&t->code)) {
|
||||
mem_free(t);
|
||||
return nullptr;
|
||||
}
|
||||
t->interpreter = interpreter;
|
||||
t->fun = fun;
|
||||
add_to_list(interpreter->vs->doc_view->document->timeouts, t);
|
||||
install_timer(&t->tid, timeout, ecmascript_timeout_handler2, t);
|
||||
|
||||
return t->tid;
|
||||
}
|
||||
#endif
|
||||
|
||||
#ifdef CONFIG_MUJS
|
||||
timer_id_T
|
||||
ecmascript_set_timeout2m(js_State *J, const char *handle, int timeout)
|
||||
{
|
||||
struct ecmascript_interpreter *interpreter = (struct ecmascript_interpreter *)js_getcontext(J);
|
||||
assert(interpreter && interpreter->vs->doc_view->document);
|
||||
|
||||
struct ecmascript_timeout *t = (struct ecmascript_timeout *)mem_calloc(1, sizeof(*t));
|
||||
|
||||
if (!t) {
|
||||
return nullptr;
|
||||
}
|
||||
if (!init_string(&t->code)) {
|
||||
mem_free(t);
|
||||
return nullptr;
|
||||
}
|
||||
t->interpreter = interpreter;
|
||||
t->ctx = J;
|
||||
t->fun = handle;
|
||||
|
||||
add_to_list(interpreter->vs->doc_view->document->timeouts, t);
|
||||
install_timer(&t->tid, timeout, ecmascript_timeout_handler2, t);
|
||||
|
||||
return t->tid;
|
||||
}
|
||||
#endif
|
||||
|
||||
|
||||
static void
|
||||
init_ecmascript_module(struct module *module)
|
||||
{
|
||||
char *xdg_config_home = get_xdg_config_home();
|
||||
read_url_list();
|
||||
|
||||
if (xdg_config_home) {
|
||||
/* ecmascript console log */
|
||||
console_log_filename = straconcat(xdg_config_home, "/console.log", NULL);
|
||||
console_error_filename = straconcat(xdg_config_home, "/console.err", NULL);
|
||||
/* ecmascript local storage db location */
|
||||
#ifdef CONFIG_OS_DOS
|
||||
local_storage_filename = stracpy("elinks_ls.db");
|
||||
#else
|
||||
local_storage_filename = straconcat(xdg_config_home, "/elinks_ls.db", NULL);
|
||||
#endif
|
||||
}
|
||||
ecmascript_enabled = get_opt_bool("ecmascript.enable", NULL);
|
||||
#ifdef CONFIG_DEBUG
|
||||
curl_global_init_mem(CURL_GLOBAL_DEFAULT, el_curl_malloc, el_curl_free, el_curl_realloc, el_curl_strdup, el_curl_calloc);
|
||||
#else
|
||||
curl_global_init(CURL_GLOBAL_DEFAULT);
|
||||
#endif
|
||||
init_map_timer();
|
||||
}
|
||||
|
||||
static void
|
||||
done_ecmascript_module(struct module *module)
|
||||
{
|
||||
curl_global_cleanup();
|
||||
free_string_list(&allowed_urls);
|
||||
free_string_list(&disallowed_urls);
|
||||
mem_free_if(console_log_filename);
|
||||
mem_free_if(console_error_filename);
|
||||
mem_free_if(local_storage_filename);
|
||||
done_map_timer();
|
||||
}
|
||||
|
||||
static struct module *ecmascript_modules[] = {
|
||||
#ifdef CONFIG_ECMASCRIPT_SMJS
|
||||
&spidermonkey_module,
|
||||
#endif
|
||||
#ifdef CONFIG_MUJS
|
||||
&mujs_module,
|
||||
#endif
|
||||
#ifdef CONFIG_QUICKJS
|
||||
&quickjs_module,
|
||||
#endif
|
||||
NULL,
|
||||
};
|
||||
|
||||
static void
|
||||
delayed_goto(void *data)
|
||||
{
|
||||
struct delayed_goto *deg = (struct delayed_goto *)data;
|
||||
|
||||
assert(deg);
|
||||
|
||||
if (deg->vs->doc_view) {
|
||||
goto_uri_frame(deg->vs->doc_view->session, deg->uri,
|
||||
deg->vs->doc_view->name,
|
||||
CACHE_MODE_NORMAL);
|
||||
}
|
||||
done_uri(deg->uri);
|
||||
mem_free(deg);
|
||||
}
|
||||
|
||||
void
|
||||
location_goto_const(struct document_view *doc_view, const char *url)
|
||||
{
|
||||
char *url2 = stracpy(url);
|
||||
|
||||
if (url2) {
|
||||
location_goto(doc_view, url2);
|
||||
mem_free(url2);
|
||||
}
|
||||
}
|
||||
|
||||
void
|
||||
location_goto(struct document_view *doc_view, char *url)
|
||||
{
|
||||
char *new_abs_url;
|
||||
struct uri *new_uri;
|
||||
struct delayed_goto *deg;
|
||||
|
||||
/* Workaround for bug 611. Does not crash, but may lead to infinite loop.*/
|
||||
if (!doc_view) return;
|
||||
new_abs_url = join_urls(doc_view->document->uri,
|
||||
trim_chars(url, ' ', 0));
|
||||
if (!new_abs_url)
|
||||
return;
|
||||
new_uri = get_uri(new_abs_url, URI_NONE);
|
||||
mem_free(new_abs_url);
|
||||
if (!new_uri)
|
||||
return;
|
||||
deg = (struct delayed_goto *)mem_calloc(1, sizeof(*deg));
|
||||
if (!deg) {
|
||||
done_uri(new_uri);
|
||||
return;
|
||||
}
|
||||
assert(doc_view->vs);
|
||||
deg->vs = doc_view->vs;
|
||||
deg->uri = new_uri;
|
||||
/* It does not seem to be very safe inside of frames to
|
||||
* call goto_uri() right away. */
|
||||
register_bottom_half(delayed_goto, deg);
|
||||
}
|
||||
|
||||
struct module ecmascript_module = struct_module(
|
||||
/* name: */ N_("ECMAScript"),
|
||||
/* options: */ ecmascript_options,
|
||||
/* events: */ NULL,
|
||||
/* submodules: */ ecmascript_modules,
|
||||
/* data: */ NULL,
|
||||
/* init: */ init_ecmascript_module,
|
||||
/* done: */ done_ecmascript_module
|
||||
);
|
||||
#include "ecmascript/ecmascript.c"
|
||||
|
||||
@ -17,12 +17,12 @@ if CONFIG_ANY_SPIDERMONKEY
|
||||
endif
|
||||
|
||||
if conf_data.get('CONFIG_MUJS')
|
||||
srcs += files('ecmascript.cpp', 'ecmascript-c.c', 'localstorage-db.c', 'mujs.c', 'timer.c')
|
||||
srcs += files('ecmascript.c', 'ecmascript-c.c', 'localstorage-db.c', 'mujs.c', 'timer.c')
|
||||
subdir('mujs')
|
||||
endif
|
||||
|
||||
if conf_data.get('CONFIG_QUICKJS')
|
||||
srcs += files('ecmascript.cpp', 'ecmascript-c.c', 'localstorage-db.c', 'quickjs.c', 'timer.c')
|
||||
srcs += files('ecmascript.c', 'ecmascript-c.c', 'localstorage-db.c', 'quickjs.c', 'timer.c')
|
||||
subdir('quickjs')
|
||||
endif
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user