src/scripting/smjs/core.c

   1 /* ECMAScript browser scripting module */
   2
   3 #ifdef HAVE_CONFIG_H
   4 #include "config.h"
   5 #endif
   6
   7 #include "elinks.h"
   8
   9 #include "config/home.h"
  10 #include "ecmascript/spidermonkey-shared.h"
  11 #include "main/module.h"
  12 #include "osdep/osdep.h"
  13 #include "scripting/scripting.h"
  14 #include "scripting/smjs/core.h"
  15 #include "scripting/smjs/elinks_object.h"
  16 #include "scripting/smjs/global_object.h"
  17 #include "scripting/smjs/smjs.h"
  18 #include "util/file.h"
  19 #include "util/string.h"
  20
  21
  22 #define SMJS_HOOKS_FILENAME "hooks.js"
  23
  24 JSContext *smjs_ctx;
  25 JSObject *smjs_elinks_object;
  26 struct session *smjs_ses;
  27
  28
  29 void
  30 alert_smjs_error(unsigned char *msg)
  31 {
  32         report_scripting_error(&smjs_scripting_module,
  33                                smjs_ses, msg);
  34 }
  35
  36 static void
  37 error_reporter(JSContext *ctx, const char *message, JSErrorReport *report)
  38 {
  39         unsigned char *strict, *exception, *warning, *error;
  40         struct string msg;
  41
  42         if (!init_string(&msg)) goto reported;
  43
  44         strict    = JSREPORT_IS_STRICT(report->flags) ? " strict" : "";
  45         exception = JSREPORT_IS_EXCEPTION(report->flags) ? " exception" : "";
  46         warning   = JSREPORT_IS_WARNING(report->flags) ? " warning" : "";
  47         error     = !report->flags ? " error" : "";
  48
  49         add_format_to_string(&msg, "A client script raised the following%s%s%s%s",
  50                         strict, exception, warning, error);
  51
  52         add_to_string(&msg, ":\n\n");
  53         add_to_string(&msg, message);
  54
  55         if (report->linebuf && report->tokenptr) {
  56                 int pos = report->tokenptr - report->linebuf;
  57
  58                 add_format_to_string(&msg, "\n\n%s\n.%*s^%*s.",
  59                                report->linebuf,
  60                                pos - 2, " ",
  61                                strlen(report->linebuf) - pos - 1, " ");
  62         }
  63
  64         alert_smjs_error(msg.source);
  65         done_string(&msg);
  66
  67 reported:
  68         JS_ClearPendingException(ctx);
  69 }
  70
  71 static JSRuntime *smjs_rt;
  72
  73 static int
  74 smjs_do_file(unsigned char *path)
  75 {
  76         int ret = 1;
  77         jsval rval;
  78         struct string script;
  79
  80         if (!init_string(&script)) return 0;
  81
  82         if (!add_file_to_string(&script, path)
  83              || JS_FALSE == JS_EvaluateScript(smjs_ctx,
  84                                 JS_GetGlobalObject(smjs_ctx),
  85                                 script.source, script.length, path, 1, &rval)) {
  86                 alert_smjs_error("error loading script file");
  87                 ret = 0;
  88         }
  89
  90         done_string(&script);
  91
  92         return ret;
  93 }
  94
  95 static JSBool
  96 smjs_do_file_wrapper(JSContext *ctx, JSObject *obj, uintN argc,
  97                      jsval *argv, jsval *rval)
  98 {
  99         JSString *jsstr = JS_ValueToString(smjs_ctx, *argv);
 100         unsigned char *path = JS_GetStringBytes(jsstr);
 101
 102         if (smjs_do_file(path))
 103                 return JS_TRUE;
 104
 105         return JS_FALSE;
 106 }
 107
 108 static void
 109 smjs_load_hooks(void)
 110 {
 111         unsigned char *path;
 112
 113         assert(smjs_ctx);
 114
 115         if (elinks_home) {
 116                 path = straconcat(elinks_home, SMJS_HOOKS_FILENAME,
 117                                   (unsigned char *) NULL);
 118         } else {
 119                 path = stracpy(CONFDIR STRING_DIR_SEP SMJS_HOOKS_FILENAME);
 120         }
 121
 122         if (file_exists(path))
 123                 smjs_do_file(path);
 124         mem_free(path);
 125 }
 126
 127 void
 128 init_smjs(struct module *module)
 129 {
 130         smjs_rt = JS_NewRuntime(1L * 1024L * 1024L);
 131         if (!smjs_rt) return;
 132
 133         smjs_ctx = JS_NewContext(smjs_rt, 8192);
 134         if (!smjs_ctx) {
 135                 JS_DestroyRuntime(smjs_rt);
 136                 smjs_rt = NULL;
 137                 return;
 138         }
 139
 140         JS_SetErrorReporter(smjs_ctx, error_reporter);
 141
 142         smjs_init_global_object();
 143
 144         smjs_init_elinks_object();
 145
 146         JS_DefineFunction(smjs_ctx, smjs_global_object, "do_file",
 147                           &smjs_do_file_wrapper, 1, 0);
 148
 149         smjs_load_hooks();
 150 }
 151
 152 void
 153 cleanup_smjs(struct module *module)
 154 {
 155         if (!smjs_ctx) return;
 156
 157         /* These calls also finalize all JSObjects that have been
 158          * allocated in the JSRuntime, so cache_entry_finalize gets
 159          * called and resets each cache_entry.jsobject = NULL.  */
 160         JS_DestroyContext(smjs_ctx);
 161         JS_DestroyRuntime(smjs_rt);
 162 }