quickjs/src/quickjs.c

   1 #include "a.h"
   2
   3 JSValue js_concat(JSContext *ctx, JSValueConst val)
   4 {
   5     JSValue this_val = JS_NewArray(ctx);
   6     JSValueConst argv[] = {this_val, val};
   7     JSValue concat = JS_GetPropertyStr(ctx, this_val, "concat");
   8     JSValue apply = JS_GetPropertyStr(ctx, concat, "apply");
   9     JSValue res = JS_Call(ctx, apply, this_val, A_LEN(argv), argv);
  10     JS_FreeValue(ctx, this_val);
  11     JS_FreeValue(ctx, concat);
  12     JS_FreeValue(ctx, apply);
  13     return res;
  14 }
  15
  16 int js_array_length(JSContext *ctx, JSValueConst val, a_u32 *plen)
  17 {
  18     JSValue length = JS_GetPropertyStr(ctx, val, "length");
  19     if (JS_IsException(length)) { return ~0; }
  20     int ret = JS_ToUint32(ctx, plen, length);
  21     JS_FreeValue(ctx, length);
  22     return ret;
  23 }
  24
  25 JSValue js_array_u8_new(JSContext *ctx, a_u8 const *ptr, a_u32 len)
  26 {
  27     JSValue val = JS_NewArray(ctx);
  28     if (JS_IsException(val)) { return val; }
  29     for (unsigned int i = 0; i < len; ++i)
  30     {
  31         JS_SetPropertyUint32(ctx, val, i, JS_NewInt32(ctx, (a_u8)ptr[i]));
  32     }
  33     return val;
  34 }
  35
  36 JSValue js_array_u16_new(JSContext *ctx, a_u16 const *ptr, a_u32 len)
  37 {
  38     JSValue val = JS_NewArray(ctx);
  39     if (JS_IsException(val)) { return val; }
  40     for (unsigned int i = 0; i < len; ++i)
  41     {
  42         JS_SetPropertyUint32(ctx, val, i, JS_NewInt32(ctx, (a_u8)ptr[i]));
  43     }
  44     return val;
  45 }
  46
  47 JSValue js_array_u32_new(JSContext *ctx, a_u32 const *ptr, a_u32 len)
  48 {
  49     JSValue val = JS_NewArray(ctx);
  50     if (JS_IsException(val)) { return val; }
  51     for (unsigned int i = 0; i < len; ++i)
  52     {
  53         JS_SetPropertyUint32(ctx, val, i, JS_NewUint32(ctx, ptr[i]));
  54     }
  55     return val;
  56 }
  57
  58 JSValue js_array_u64_new(JSContext *ctx, a_u64 const *ptr, a_u32 len)
  59 {
  60     JSValue val = JS_NewArray(ctx);
  61     if (JS_IsException(val)) { return val; }
  62     for (unsigned int i = 0; i < len; ++i)
  63     {
  64         JS_SetPropertyUint32(ctx, val, i, JS_NewBigUint64(ctx, ptr[i]));
  65     }
  66     return val;
  67 }
  68
  69 JSValue js_array_num_new(JSContext *ctx, a_float const *ptr, a_u32 len)
  70 {
  71     JSValue val = JS_NewArray(ctx);
  72     if (JS_IsException(val)) { return val; }
  73     for (unsigned int i = 0; i < len; ++i)
  74     {
  75         JS_SetPropertyUint32(ctx, val, i, JS_NewFloat64(ctx, (double)ptr[i]));
  76     }
  77     return val;
  78 }
  79
  80 int js_array_num_get(JSContext *ctx, JSValueConst val, a_float *ptr, a_u32 len)
  81 {
  82     for (unsigned int i = 0; i < len; ++i)
  83     {
  84         JSValue _x = JS_GetPropertyUint32(ctx, val, i);
  85         if (JS_IsException(_x)) { return ~0; }
  86         double x;
  87         int r = JS_ToFloat64(ctx, &x, _x);
  88         JS_FreeValue(ctx, _x);
  89         if (r) { return r; }
  90         ptr[i] = (a_float)x;
  91     }
  92     return 0;
  93 }