2005-09-15 09:58:31 -04:00
|
|
|
/* Base ECMAScript file. Mostly a proxy for specific library backends. */
|
|
|
|
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
|
|
#include "config.h"
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#include <stdlib.h>
|
|
|
|
|
|
|
|
#include "elinks.h"
|
|
|
|
|
|
|
|
#include "config/options.h"
|
|
|
|
#include "document/document.h"
|
|
|
|
#include "document/view.h"
|
|
|
|
#include "ecmascript/ecmascript.h"
|
2006-01-27 04:08:19 -05:00
|
|
|
#include "ecmascript/see.h"
|
|
|
|
#include "ecmascript/spidermonkey.h"
|
2005-09-15 09:58:31 -04:00
|
|
|
#include "intl/gettext/libintl.h"
|
|
|
|
#include "main/module.h"
|
2006-10-24 13:10:10 -04:00
|
|
|
#include "main/timer.h"
|
2006-07-09 07:02:44 -04:00
|
|
|
#include "osdep/osdep.h"
|
2006-03-21 12:45:40 -05:00
|
|
|
#include "protocol/protocol.h"
|
2005-09-15 09:58:31 -04:00
|
|
|
#include "protocol/uri.h"
|
|
|
|
#include "session/session.h"
|
|
|
|
#include "session/task.h"
|
|
|
|
#include "terminal/terminal.h"
|
|
|
|
#include "terminal/window.h"
|
|
|
|
#include "util/conv.h"
|
2006-03-21 12:45:40 -05:00
|
|
|
#include "util/string.h"
|
2005-09-15 09:58:31 -04:00
|
|
|
#include "viewer/text/view.h" /* current_frame() */
|
|
|
|
#include "viewer/text/form.h" /* <-ecmascript_reset_state() */
|
|
|
|
#include "viewer/text/vs.h"
|
|
|
|
|
|
|
|
|
|
|
|
/* 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 struct option_info ecmascript_options[] = {
|
|
|
|
INIT_OPT_TREE("", N_("ECMAScript"),
|
|
|
|
"ecmascript", 0,
|
|
|
|
N_("ECMAScript options.")),
|
|
|
|
|
|
|
|
INIT_OPT_BOOL("ecmascript", N_("Enable"),
|
2006-12-29 16:24:42 -05:00
|
|
|
"enable", 0, 0,
|
2005-09-15 09:58:31 -04:00
|
|
|
N_("Whether to run those scripts inside of documents.")),
|
|
|
|
|
|
|
|
INIT_OPT_BOOL("ecmascript", N_("Script error reporting"),
|
|
|
|
"error_reporting", 0, 0,
|
|
|
|
N_("Open a message box when a script reports an error.")),
|
|
|
|
|
2005-10-23 17:59:05 -04:00
|
|
|
INIT_OPT_BOOL("ecmascript", N_("Ignore <noscript> content"),
|
|
|
|
"ignore_noscript", 0, 0,
|
Rewrap lines in option documentation.
Documentation strings of most options used to contain a "\n" at the
end of each source line. When the option manager displayed these
strings, it treated each "\n" as a hard newline. On 80x24 terminals
however, the option description window has only 60 columes available
for the text (with the default setup.h), and the hard newlines were
further apart, so the option manager wrapped the text a second time,
resulting in rather ugly output where long lones are interleaved with
short ones. This could also cause the text to take up too much
vertical space and not fit in the window.
Replace most of those hard newlines with spaces so that the option
manager (or perhaps BFU) will take care of the wrapping. At the same
time, rewrap the strings in source code so that the source lines are
at most 79 columns wide.
In some options though, there is a list of possible values and their
meanings. In those lists, if the description of one value does not
fit in one line, then continuation lines should be indented. The
option manager and BFU are not currently able to do that. So, keep
the hard newlines in those lists, but rewrap them to 60 columns so
that they are less likely to require further wrapping at runtime.
2009-03-07 13:48:38 -05:00
|
|
|
N_("Whether to ignore content enclosed by the <noscript> tag "
|
|
|
|
"when ECMAScript is enabled.")),
|
2005-10-23 17:59:05 -04:00
|
|
|
|
2005-09-15 09:58:31 -04:00
|
|
|
INIT_OPT_INT("ecmascript", N_("Maximum execution time"),
|
|
|
|
"max_exec_time", 0, 1, 3600, 5,
|
|
|
|
N_("Maximum execution time in seconds for a script.")),
|
|
|
|
|
|
|
|
INIT_OPT_BOOL("ecmascript", N_("Pop-up window blocking"),
|
|
|
|
"block_window_opening", 0, 0,
|
|
|
|
N_("Whether to disallow scripts to open new windows or tabs.")),
|
|
|
|
|
|
|
|
NULL_OPTION_INFO,
|
|
|
|
};
|
|
|
|
|
2008-09-06 16:18:10 -04:00
|
|
|
static int interpreter_count;
|
|
|
|
|
2006-01-27 04:08:19 -05:00
|
|
|
struct ecmascript_interpreter *
|
|
|
|
ecmascript_get_interpreter(struct view_state *vs)
|
|
|
|
{
|
|
|
|
struct ecmascript_interpreter *interpreter;
|
|
|
|
|
|
|
|
assert(vs);
|
|
|
|
|
|
|
|
interpreter = mem_calloc(1, sizeof(*interpreter));
|
|
|
|
if (!interpreter)
|
|
|
|
return NULL;
|
|
|
|
|
2008-09-06 16:18:10 -04:00
|
|
|
++interpreter_count;
|
|
|
|
|
2006-01-27 04:08:19 -05:00
|
|
|
interpreter->vs = vs;
|
2007-06-21 04:31:12 -04:00
|
|
|
interpreter->vs->ecmascript_fragile = 0;
|
2006-01-27 04:08:19 -05:00
|
|
|
init_list(interpreter->onload_snippets);
|
2009-06-27 17:18:05 -04:00
|
|
|
/* The following backend call reads interpreter->vs. */
|
|
|
|
if (
|
2006-01-27 04:08:19 -05:00
|
|
|
#ifdef CONFIG_ECMASCRIPT_SEE
|
2009-06-27 17:18:05 -04:00
|
|
|
!see_get_interpreter(interpreter)
|
2006-01-27 04:08:19 -05:00
|
|
|
#else
|
2009-06-27 17:18:05 -04:00
|
|
|
!spidermonkey_get_interpreter(interpreter)
|
2006-01-27 04:08:19 -05:00
|
|
|
#endif
|
2009-06-27 17:18:05 -04:00
|
|
|
) {
|
|
|
|
/* Undo what was done above. */
|
|
|
|
interpreter->vs->ecmascript_fragile = 1;
|
|
|
|
mem_free(interpreter);
|
2009-07-11 09:47:33 -04:00
|
|
|
--interpreter_count;
|
2009-06-27 17:18:05 -04:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
2006-10-23 16:45:55 -04:00
|
|
|
init_string(&interpreter->code);
|
2006-01-27 04:08:19 -05:00
|
|
|
return interpreter;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
ecmascript_put_interpreter(struct ecmascript_interpreter *interpreter)
|
|
|
|
{
|
|
|
|
assert(interpreter);
|
2007-06-21 14:34:36 -04:00
|
|
|
assert(interpreter->backend_nesting == 0);
|
2007-07-02 14:43:30 -04:00
|
|
|
/* If the assertion fails, it is better to leak the
|
|
|
|
* interpreter than to corrupt memory. */
|
|
|
|
if_assert_failed return;
|
|
|
|
|
2006-01-27 04:08:19 -05:00
|
|
|
#ifdef CONFIG_ECMASCRIPT_SEE
|
|
|
|
see_put_interpreter(interpreter);
|
|
|
|
#else
|
|
|
|
spidermonkey_put_interpreter(interpreter);
|
|
|
|
#endif
|
|
|
|
free_string_list(&interpreter->onload_snippets);
|
2006-10-23 16:45:55 -04:00
|
|
|
done_string(&interpreter->code);
|
2006-10-24 13:10:10 -04:00
|
|
|
/* Is it superfluous? */
|
|
|
|
if (interpreter->vs->doc_view)
|
|
|
|
kill_timer(&interpreter->vs->doc_view->document->timeout);
|
2006-01-27 04:08:19 -05:00
|
|
|
interpreter->vs->ecmascript = NULL;
|
2007-05-21 06:50:27 -04:00
|
|
|
interpreter->vs->ecmascript_fragile = 1;
|
2006-01-27 04:08:19 -05:00
|
|
|
mem_free(interpreter);
|
2008-09-06 16:18:10 -04:00
|
|
|
--interpreter_count;
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
ecmascript_get_interpreter_count(void)
|
|
|
|
{
|
|
|
|
return interpreter_count;
|
2006-01-27 04:08:19 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
ecmascript_eval(struct ecmascript_interpreter *interpreter,
|
2006-01-27 06:07:45 -05:00
|
|
|
struct string *code, struct string *ret)
|
2006-01-27 04:08:19 -05:00
|
|
|
{
|
|
|
|
if (!get_ecmascript_enable())
|
|
|
|
return;
|
|
|
|
assert(interpreter);
|
2007-06-21 14:34:36 -04:00
|
|
|
interpreter->backend_nesting++;
|
2006-01-27 04:08:19 -05:00
|
|
|
#ifdef CONFIG_ECMASCRIPT_SEE
|
2006-01-27 06:07:45 -05:00
|
|
|
see_eval(interpreter, code, ret);
|
2006-01-27 04:08:19 -05:00
|
|
|
#else
|
2006-01-27 06:07:45 -05:00
|
|
|
spidermonkey_eval(interpreter, code, ret);
|
2006-01-27 04:08:19 -05:00
|
|
|
#endif
|
2007-06-21 14:34:36 -04:00
|
|
|
interpreter->backend_nesting--;
|
2006-01-27 04:08:19 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
unsigned char *
|
|
|
|
ecmascript_eval_stringback(struct ecmascript_interpreter *interpreter,
|
|
|
|
struct string *code)
|
|
|
|
{
|
2007-06-21 14:34:36 -04:00
|
|
|
unsigned char *result;
|
|
|
|
|
2006-01-27 04:08:19 -05:00
|
|
|
if (!get_ecmascript_enable())
|
|
|
|
return NULL;
|
|
|
|
assert(interpreter);
|
2007-06-21 14:34:36 -04:00
|
|
|
interpreter->backend_nesting++;
|
2006-01-27 04:08:19 -05:00
|
|
|
#ifdef CONFIG_ECMASCRIPT_SEE
|
2007-06-21 14:34:36 -04:00
|
|
|
result = see_eval_stringback(interpreter, code);
|
2006-01-27 04:08:19 -05:00
|
|
|
#else
|
2007-06-21 14:34:36 -04:00
|
|
|
result = spidermonkey_eval_stringback(interpreter, code);
|
2006-01-27 04:08:19 -05:00
|
|
|
#endif
|
2007-06-21 14:34:36 -04:00
|
|
|
interpreter->backend_nesting--;
|
|
|
|
return result;
|
2006-01-27 04:08:19 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
ecmascript_eval_boolback(struct ecmascript_interpreter *interpreter,
|
|
|
|
struct string *code)
|
|
|
|
{
|
2007-06-21 14:34:36 -04:00
|
|
|
int result;
|
|
|
|
|
2006-01-27 04:08:19 -05:00
|
|
|
if (!get_ecmascript_enable())
|
|
|
|
return -1;
|
|
|
|
assert(interpreter);
|
2007-06-21 14:34:36 -04:00
|
|
|
interpreter->backend_nesting++;
|
2006-01-27 04:08:19 -05:00
|
|
|
#ifdef CONFIG_ECMASCRIPT_SEE
|
2007-06-21 14:34:36 -04:00
|
|
|
result = see_eval_boolback(interpreter, code);
|
2006-01-27 04:08:19 -05:00
|
|
|
#else
|
2007-06-21 14:34:36 -04:00
|
|
|
result = spidermonkey_eval_boolback(interpreter, code);
|
2006-01-27 04:08:19 -05:00
|
|
|
#endif
|
2007-06-21 14:34:36 -04:00
|
|
|
interpreter->backend_nesting--;
|
|
|
|
return result;
|
2006-01-27 04:08:19 -05:00
|
|
|
}
|
|
|
|
|
2008-07-18 12:43:30 -04:00
|
|
|
void
|
|
|
|
ecmascript_detach_form_view(struct form_view *fv)
|
|
|
|
{
|
|
|
|
#ifdef CONFIG_ECMASCRIPT_SEE
|
|
|
|
see_detach_form_view(fv);
|
|
|
|
#else
|
|
|
|
spidermonkey_detach_form_view(fv);
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
2008-07-18 12:16:34 -04:00
|
|
|
void ecmascript_detach_form_state(struct form_state *fs)
|
|
|
|
{
|
|
|
|
#ifdef CONFIG_ECMASCRIPT_SEE
|
|
|
|
see_detach_form_state(fs);
|
|
|
|
#else
|
|
|
|
spidermonkey_detach_form_state(fs);
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
void ecmascript_moved_form_state(struct form_state *fs)
|
|
|
|
{
|
|
|
|
#ifdef CONFIG_ECMASCRIPT_SEE
|
|
|
|
see_moved_form_state(fs);
|
|
|
|
#else
|
|
|
|
spidermonkey_moved_form_state(fs);
|
|
|
|
#endif
|
|
|
|
}
|
2006-01-27 04:08:19 -05:00
|
|
|
|
2005-09-15 09:58:31 -04:00
|
|
|
void
|
|
|
|
ecmascript_reset_state(struct view_state *vs)
|
|
|
|
{
|
|
|
|
struct form_view *fv;
|
|
|
|
int i;
|
|
|
|
|
2008-07-18 12:16:34 -04:00
|
|
|
/* Normally, if vs->ecmascript == NULL, the associated
|
|
|
|
* ecmascript_obj pointers are also NULL. However, they might
|
|
|
|
* be non-NULL if the ECMAScript objects have been lazily
|
|
|
|
* created because of scripts running in sibling HTML frames. */
|
2008-07-18 12:43:30 -04:00
|
|
|
foreach (fv, vs->forms)
|
|
|
|
ecmascript_detach_form_view(fv);
|
2008-07-18 12:16:34 -04:00
|
|
|
for (i = 0; i < vs->form_info_len; i++)
|
|
|
|
ecmascript_detach_form_state(&vs->form_info[i]);
|
|
|
|
|
2005-09-15 09:58:31 -04:00
|
|
|
vs->ecmascript_fragile = 0;
|
|
|
|
if (vs->ecmascript)
|
|
|
|
ecmascript_put_interpreter(vs->ecmascript);
|
|
|
|
|
|
|
|
vs->ecmascript = ecmascript_get_interpreter(vs);
|
|
|
|
if (!vs->ecmascript)
|
|
|
|
vs->ecmascript_fragile = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
ecmascript_protocol_handler(struct session *ses, struct uri *uri)
|
|
|
|
{
|
|
|
|
struct document_view *doc_view = current_frame(ses);
|
|
|
|
struct string current_url = INIT_STRING(struri(uri), strlen(struri(uri)));
|
|
|
|
unsigned char *redirect_url, *redirect_abs_url;
|
|
|
|
struct uri *redirect_uri;
|
|
|
|
|
|
|
|
if (!doc_view) /* Blank initial document. TODO: Start at about:blank? */
|
|
|
|
return;
|
|
|
|
assert(doc_view->vs);
|
|
|
|
if (doc_view->vs->ecmascript_fragile)
|
|
|
|
ecmascript_reset_state(doc_view->vs);
|
|
|
|
if (!doc_view->vs->ecmascript)
|
|
|
|
return;
|
|
|
|
|
|
|
|
redirect_url = ecmascript_eval_stringback(doc_view->vs->ecmascript,
|
|
|
|
¤t_url);
|
|
|
|
if (!redirect_url)
|
|
|
|
return;
|
|
|
|
/* XXX: This code snippet is duplicated over here,
|
|
|
|
* location_set_property(), html_a() and who knows where else. */
|
|
|
|
redirect_abs_url = join_urls(doc_view->document->uri,
|
|
|
|
trim_chars(redirect_url, ' ', 0));
|
|
|
|
mem_free(redirect_url);
|
|
|
|
if (!redirect_abs_url)
|
|
|
|
return;
|
|
|
|
redirect_uri = get_uri(redirect_abs_url, 0);
|
|
|
|
mem_free(redirect_abs_url);
|
|
|
|
if (!redirect_uri)
|
|
|
|
return;
|
|
|
|
|
|
|
|
/* XXX: Is that safe to do at this point? --pasky */
|
|
|
|
goto_uri_frame(ses, redirect_uri, doc_view->name,
|
|
|
|
CACHE_MODE_NORMAL);
|
|
|
|
done_uri(redirect_uri);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2006-01-10 13:17:29 -05:00
|
|
|
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));
|
|
|
|
|
|
|
|
}
|
|
|
|
|
2006-03-21 12:45:40 -05:00
|
|
|
void
|
|
|
|
ecmascript_set_action(unsigned char **action, unsigned 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 {
|
2006-07-09 07:02:44 -04:00
|
|
|
if (dir_sep(string[0])) { /* absolute uri, TODO: disk drive under WIN32 */
|
2006-03-21 12:45:40 -05:00
|
|
|
struct uri *uri = get_uri(*action, URI_HTTP_REFERRER_HOST);
|
|
|
|
|
|
|
|
if (uri->protocol == PROTOCOL_FILE) {
|
2007-03-11 06:59:11 -04:00
|
|
|
mem_free_set(action, straconcat(struri(uri), string, (unsigned char *) NULL));
|
2006-03-21 12:45:40 -05:00
|
|
|
}
|
|
|
|
else
|
2007-03-11 06:59:11 -04:00
|
|
|
mem_free_set(action, straconcat(struri(uri), string + 1, (unsigned char *) NULL));
|
2006-03-21 12:45:40 -05:00
|
|
|
done_uri(uri);
|
|
|
|
mem_free(string);
|
|
|
|
} else { /* relative uri */
|
|
|
|
unsigned char *last_slash = strrchr(*action, '/');
|
|
|
|
unsigned char *new_action;
|
|
|
|
|
|
|
|
if (last_slash) *(last_slash + 1) = '\0';
|
2007-03-11 06:59:11 -04:00
|
|
|
new_action = straconcat(*action, string,
|
|
|
|
(unsigned char *) NULL);
|
2006-03-21 12:45:40 -05:00
|
|
|
mem_free_set(action, new_action);
|
|
|
|
mem_free(string);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2006-12-02 11:35:03 -05:00
|
|
|
/* 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. */
|
2006-10-23 16:45:55 -04:00
|
|
|
static void
|
|
|
|
ecmascript_timeout_handler(void *i)
|
|
|
|
{
|
|
|
|
struct ecmascript_interpreter *interpreter = i;
|
|
|
|
|
2007-03-11 06:22:02 -04:00
|
|
|
assertm(interpreter->vs->doc_view != NULL,
|
|
|
|
"setTimeout: vs with no document (e_f %d)",
|
|
|
|
interpreter->vs->ecmascript_fragile);
|
2006-11-04 07:20:29 -05:00
|
|
|
interpreter->vs->doc_view->document->timeout = TIMER_ID_UNDEF;
|
2006-12-02 11:35:03 -05:00
|
|
|
/* The expired timer ID has now been erased. */
|
2006-11-03 14:18:31 -05:00
|
|
|
|
2006-10-23 16:45:55 -04:00
|
|
|
ecmascript_eval(interpreter, &interpreter->code, NULL);
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
ecmascript_set_timeout(struct ecmascript_interpreter *interpreter, unsigned char *code, int timeout)
|
|
|
|
{
|
2006-10-24 10:47:41 -04:00
|
|
|
assert(interpreter && interpreter->vs->doc_view->document);
|
2006-10-23 16:45:55 -04:00
|
|
|
if (!code) return;
|
|
|
|
done_string(&interpreter->code);
|
|
|
|
init_string(&interpreter->code);
|
|
|
|
add_to_string(&interpreter->code, code);
|
|
|
|
mem_free(code);
|
2006-11-04 18:53:04 -05:00
|
|
|
kill_timer(&interpreter->vs->doc_view->document->timeout);
|
2006-10-24 10:47:41 -04:00
|
|
|
install_timer(&interpreter->vs->doc_view->document->timeout, timeout, ecmascript_timeout_handler, interpreter);
|
2006-10-23 16:45:55 -04:00
|
|
|
}
|
|
|
|
|
2006-01-16 08:14:14 -05:00
|
|
|
static struct module *ecmascript_modules[] = {
|
|
|
|
#ifdef CONFIG_ECMASCRIPT_SEE
|
|
|
|
&see_module,
|
2006-01-20 09:56:40 -05:00
|
|
|
#elif defined(CONFIG_ECMASCRIPT_SMJS)
|
2006-01-16 08:14:14 -05:00
|
|
|
&spidermonkey_module,
|
|
|
|
#endif
|
|
|
|
NULL,
|
|
|
|
};
|
|
|
|
|
|
|
|
|
2005-09-15 09:58:31 -04:00
|
|
|
struct module ecmascript_module = struct_module(
|
|
|
|
/* name: */ N_("ECMAScript"),
|
|
|
|
/* options: */ ecmascript_options,
|
|
|
|
/* events: */ NULL,
|
2006-01-16 08:14:14 -05:00
|
|
|
/* submodules: */ ecmascript_modules,
|
2005-09-15 09:58:31 -04:00
|
|
|
/* data: */ NULL,
|
2006-02-26 03:51:36 -05:00
|
|
|
/* init: */ NULL,
|
2008-07-20 10:41:03 -04:00
|
|
|
/* done: */ NULL
|
2005-09-15 09:58:31 -04:00
|
|
|
);
|