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