src/scripting/smjs/action_object.c

   1 /* "elinks.action" */
   2
   3 #ifdef HAVE_CONFIG_H
   4 #include "config.h"
   5 #endif
   6
   7 #include "elinks.h"
   8
   9 #include "config/kbdbind.h"
  10 #include "ecmascript/spidermonkey/util.h"
  11 #include "scripting/smjs/core.h"
  12 #include "scripting/smjs/elinks_object.h"
  13 #include "session/session.h"
  14 #include "util/memory.h"
  15 #include "viewer/action.h"
  16
  17 /*** action method object ***/
  18
  19 struct smjs_action_fn_callback_hop {
  20         struct session *ses;
  21         action_id_T action_id;
  22 };
  23
  24 static void
  25 smjs_action_fn_finalize(JSContext *ctx, JSObject *obj)
  26 {
  27         struct smjs_action_fn_callback_hop *hop = JS_GetPrivate(ctx, obj);
  28
  29         if (hop) mem_free(hop);
  30 }
  31
  32 static JSBool
  33 smjs_action_fn_callback(JSContext *ctx, JSObject *obj, uintN argc, jsval *argv,
  34                         jsval *rval)
  35 {
  36         struct smjs_action_fn_callback_hop *hop;
  37         JSObject *fn_obj;
  38
  39         assert(smjs_ctx);
  40
  41         *rval = JS_FALSE;
  42
  43         if (JS_TRUE != JS_ValueToObject(ctx, argv[-2], &fn_obj))
  44                 return JS_TRUE;
  45
  46         hop = JS_GetPrivate(ctx, fn_obj);
  47         if (!hop) return JS_TRUE;
  48
  49         if (argc >= 1) {
  50                 int32 val;
  51
  52                 if (JS_TRUE == JS_ValueToInt32(smjs_ctx, argv[0], &val)) {
  53                         hop->ses->kbdprefix.repeat_count = val;
  54                 }
  55         }
  56
  57         do_action(hop->ses, hop->action_id, 1);
  58
  59         *rval = JS_TRUE;
  60
  61         return JS_TRUE;
  62 }
  63
  64 static const JSClass action_fn_class = {
  65         "action_fn",
  66         JSCLASS_HAS_PRIVATE,    /* struct smjs_action_fn_callback_hop * */
  67         JS_PropertyStub, JS_PropertyStub,
  68         JS_PropertyStub, JS_PropertyStub,
  69         JS_EnumerateStub, JS_ResolveStub, JS_ConvertStub,
  70         smjs_action_fn_finalize,
  71         NULL, NULL,
  72         smjs_action_fn_callback,
  73 };
  74
  75 static JSObject *
  76 smjs_get_action_fn_object(unsigned char *action_str)
  77 {
  78         unsigned char *c;
  79         struct smjs_action_fn_callback_hop *hop;
  80         JSObject *obj;
  81
  82         if (!smjs_ses) return NULL;
  83
  84         obj = JS_NewObject(smjs_ctx, (JSClass *) &action_fn_class, NULL, NULL);
  85         if (!obj) return NULL;
  86
  87         hop = mem_alloc(sizeof(*hop));
  88         if (!hop) return NULL;
  89
  90         hop->ses = smjs_ses;
  91
  92         /* ECMAScript methods cannot have hyphens in the name, so one should
  93          * use underscores instead; here, we must convert them back to hyphens
  94          * for the action code. */
  95         for (c = action_str; *c; ++c) if (*c == '_') *c = '-';
  96
  97         hop->action_id = get_action_from_string(KEYMAP_MAIN, action_str);
  98
  99         if (-1 != hop->action_id
 100             && JS_TRUE == JS_SetPrivate(smjs_ctx, obj, hop)) {
 101                 return obj;
 102         }
 103
 104         mem_free(hop);
 105         return NULL;
 106 }
 107
 108
 109 /*** elinks.action object ***/
 110
 111 static JSBool
 112 action_get_property(JSContext *ctx, JSObject *obj, jsval id, jsval *vp)
 113 {
 114         JSObject *action_fn;
 115         unsigned char *action_str;
 116
 117         *vp = JSVAL_NULL;
 118
 119         action_str = JS_GetStringBytes(JS_ValueToString(ctx, id));
 120         if (!action_str) return JS_TRUE;
 121
 122         action_fn = smjs_get_action_fn_object(action_str);
 123         if (!action_fn) return JS_TRUE;
 124
 125         *vp = OBJECT_TO_JSVAL(action_fn);
 126
 127         return JS_TRUE;
 128 }
 129
 130 static const JSClass action_class = {
 131         "action",
 132         0,
 133         JS_PropertyStub, JS_PropertyStub,
 134         action_get_property, JS_PropertyStub,
 135         JS_EnumerateStub, JS_ResolveStub, JS_ConvertStub, JS_FinalizeStub,
 136 };
 137
 138 static JSObject *
 139 smjs_get_action_object(void)
 140 {
 141         JSObject *obj;
 142
 143         assert(smjs_ctx);
 144
 145         obj = JS_NewObject(smjs_ctx, (JSClass *) &action_class, NULL, NULL);
 146
 147         return obj;
 148 }
 149
 150 void
 151 smjs_init_action_interface(void)
 152 {
 153         jsval val;
 154         struct JSObject *action_object;
 155
 156         if (!smjs_ctx || !smjs_elinks_object)
 157                 return;
 158
 159         action_object = smjs_get_action_object();
 160         if (!action_object) return;
 161
 162         val = OBJECT_TO_JSVAL(action_object);
 163
 164         JS_SetProperty(smjs_ctx, smjs_elinks_object, "action", &val);
 165 }