ceph/src/civetweb/src/third_party/duktape-1.3.0/src-separate/duk_api_var.c

   1 /*
   2  *  Variable access
   3  */
   4
   5 #include "duk_internal.h"
   6
   7 DUK_EXTERNAL void duk_get_var(duk_context *ctx) {
   8         duk_hthread *thr = (duk_hthread *) ctx;
   9         duk_activation *act;
  10         duk_hstring *h_varname;
  11         duk_small_int_t throw_flag = 1;  /* always throw ReferenceError for unresolvable */
  12
  13         DUK_ASSERT_CTX_VALID(ctx);
  14
  15         h_varname = duk_require_hstring(ctx, -1);  /* XXX: tostring? */
  16         DUK_ASSERT(h_varname != NULL);
  17
  18         act = duk_hthread_get_current_activation(thr);
  19         if (act) {
  20                 (void) duk_js_getvar_activation(thr, act, h_varname, throw_flag);  /* -> [ ... varname val this ] */
  21         } else {
  22                 /* Outside any activation -> look up from global. */
  23                 DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL_ENV] != NULL);
  24                 (void) duk_js_getvar_envrec(thr, thr->builtins[DUK_BIDX_GLOBAL_ENV], h_varname, throw_flag);
  25         }
  26
  27         /* [ ... varname val this ]  (because throw_flag == 1, always resolved) */
  28
  29         duk_pop(ctx);
  30         duk_remove(ctx, -2);
  31
  32         /* [ ... val ] */
  33
  34         /* Return value would be pointless: because throw_flag==1, we always
  35          * throw if the identifier doesn't resolve.
  36          */
  37         return;
  38 }
  39
  40 DUK_EXTERNAL void duk_put_var(duk_context *ctx) {
  41         duk_hthread *thr = (duk_hthread *) ctx;
  42         duk_activation *act;
  43         duk_hstring *h_varname;
  44         duk_tval *tv_val;
  45         duk_small_int_t throw_flag;
  46
  47         DUK_ASSERT_CTX_VALID(ctx);
  48
  49         h_varname = duk_require_hstring(ctx, -2);  /* XXX: tostring? */
  50         DUK_ASSERT(h_varname != NULL);
  51
  52         tv_val = duk_require_tval(ctx, -1);
  53
  54         throw_flag = duk_is_strict_call(ctx);
  55
  56         act = duk_hthread_get_current_activation(thr);
  57         if (act) {
  58                 duk_js_putvar_activation(thr, act, h_varname, tv_val, throw_flag);  /* -> [ ... varname val this ] */
  59         } else {
  60                 /* Outside any activation -> put to global. */
  61                 DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL_ENV] != NULL);
  62                 duk_js_putvar_envrec(thr, thr->builtins[DUK_BIDX_GLOBAL_ENV], h_varname, tv_val, throw_flag);
  63         }
  64
  65         /* [ ... varname val ] */
  66
  67         duk_pop_2(ctx);
  68
  69         /* [ ... ] */
  70
  71         return;
  72 }
  73
  74 DUK_EXTERNAL duk_bool_t duk_del_var(duk_context *ctx) {
  75         DUK_ASSERT_CTX_VALID(ctx);
  76
  77         DUK_ERROR((duk_hthread *) ctx, DUK_ERR_UNIMPLEMENTED_ERROR, DUK_STR_UNIMPLEMENTED);
  78         return 0;
  79 }
  80
  81 DUK_EXTERNAL duk_bool_t duk_has_var(duk_context *ctx) {
  82         DUK_ASSERT_CTX_VALID(ctx);
  83
  84         DUK_ERROR((duk_hthread *) ctx, DUK_ERR_UNIMPLEMENTED_ERROR, DUK_STR_UNIMPLEMENTED);
  85         return 0;
  86 }