quickjs/src/hpf.c

   1 #include "a.h"
   2 #include "a/hpf.h"
   3
   4 static JSClassID liba_hpf_class_id;
   5
   6 static void liba_hpf_finalizer(JSRuntime *rt, JSValue val)
   7 {
   8     js_free_rt(rt, JS_GetOpaque(val, liba_hpf_class_id));
   9 }
  10
  11 static JSClassDef liba_hpf_class = {"hpf", .finalizer = liba_hpf_finalizer};
  12
  13 static JSValue liba_hpf_ctor(JSContext *ctx, JSValueConst new_target, int argc, JSValueConst *argv)
  14 {
  15     JSValue proto, clazz = JS_UNDEFINED;
  16     a_hpf *const self = (a_hpf *)js_mallocz(ctx, sizeof(a_hpf));
  17     if (!self) { return JS_EXCEPTION; }
  18     double args[] = {0, 0};
  19     if (argc > 1)
  20     {
  21         if (JS_ToFloat64(ctx, &args[0], argv[0])) { goto fail; }
  22         if (JS_ToFloat64(ctx, &args[1], argv[1])) { goto fail; }
  23         a_hpf_init(self, A_HPF_GEN(args[0], args[1]));
  24     }
  25     else
  26     {
  27         if (JS_ToFloat64(ctx, &args[0], argv[0])) { goto fail; }
  28         a_hpf_init(self, (a_float)args[0]);
  29     }
  30     proto = JS_GetPropertyStr(ctx, new_target, "prototype");
  31     if (JS_IsException(proto)) { goto fail; }
  32     clazz = JS_NewObjectProtoClass(ctx, proto, liba_hpf_class_id);
  33     JS_FreeValue(ctx, proto);
  34     if (JS_IsException(clazz)) { goto fail; }
  35     JS_SetOpaque(clazz, self);
  36     return clazz;
  37 fail:
  38     js_free(ctx, self);
  39     JS_FreeValue(ctx, clazz);
  40     return JS_UNDEFINED;
  41 }
  42
  43 static JSValue liba_hpf_gen(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
  44 {
  45     a_hpf *const self = (a_hpf *)JS_GetOpaque2(ctx, this_val, liba_hpf_class_id);
  46     if (!self) { return JS_EXCEPTION; }
  47     double args[] = {0, 0};
  48     if (argc > 1)
  49     {
  50         if (JS_ToFloat64(ctx, &args[0], argv[0])) { return JS_EXCEPTION; }
  51         if (JS_ToFloat64(ctx, &args[1], argv[1])) { return JS_EXCEPTION; }
  52         self->alpha = A_HPF_GEN(args[0], args[1]);
  53     }
  54     else
  55     {
  56         if (JS_ToFloat64(ctx, &args[0], argv[0])) { return JS_EXCEPTION; }
  57         self->alpha = (a_float)args[0];
  58     }
  59     return JS_UNDEFINED;
  60 }
  61
  62 static JSValue liba_hpf_iter(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
  63 {
  64     (void)argc;
  65     a_hpf *const self = (a_hpf *)JS_GetOpaque2(ctx, this_val, liba_hpf_class_id);
  66     if (!self) { return JS_EXCEPTION; }
  67     double x;
  68     if (JS_ToFloat64(ctx, &x, argv[0])) { return JS_EXCEPTION; }
  69     return JS_NewFloat64(ctx, (double)a_hpf_iter(self, (a_float)x));
  70 }
  71
  72 static JSValue liba_hpf_zero(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
  73 {
  74     (void)argc;
  75     (void)argv;
  76     a_hpf *const self = (a_hpf *)JS_GetOpaque2(ctx, this_val, liba_hpf_class_id);
  77     if (!self) { return JS_EXCEPTION; }
  78     a_hpf_zero(self);
  79     return JS_UNDEFINED;
  80 }
  81
  82 enum
  83 {
  84     self_alpha_,
  85     self_output_,
  86     self_input_,
  87 };
  88
  89 static JSValue liba_hpf_get(JSContext *ctx, JSValueConst this_val, int magic)
  90 {
  91     a_hpf *const self = (a_hpf *)JS_GetOpaque2(ctx, this_val, liba_hpf_class_id);
  92     if (!self) { return JS_EXCEPTION; }
  93     double x;
  94     switch (magic)
  95     {
  96     case self_alpha_: x = (double)self->alpha; break;
  97     case self_output_: x = (double)self->output; break;
  98     case self_input_: x = (double)self->input; break;
  99     default: return JS_UNDEFINED;
 100     }
 101     return JS_NewFloat64(ctx, x);
 102 }
 103
 104 static JSCFunctionListEntry const liba_hpf_proto[] = {
 105     JS_PROP_STRING_DEF("[Symbol.toStringTag]", "a.hpf", 0),
 106     JS_CGETSET_MAGIC_DEF("alpha", liba_hpf_get, NULL, self_alpha_),
 107     JS_CGETSET_MAGIC_DEF("output", liba_hpf_get, NULL, self_output_),
 108     JS_CGETSET_MAGIC_DEF("input", liba_hpf_get, NULL, self_input_),
 109     JS_CFUNC_DEF("gen", 2, liba_hpf_gen),
 110     JS_CFUNC_DEF("iter", 1, liba_hpf_iter),
 111     JS_CFUNC_DEF("zero", 0, liba_hpf_zero),
 112 };
 113
 114 int js_liba_hpf_init(JSContext *ctx, JSModuleDef *m)
 115 {
 116     JS_NewClassID(&liba_hpf_class_id);
 117     JS_NewClass(JS_GetRuntime(ctx), liba_hpf_class_id, &liba_hpf_class);
 118
 119     JSValue const proto = JS_NewObject(ctx);
 120     JS_SetPropertyFunctionList(ctx, proto, liba_hpf_proto, A_LEN(liba_hpf_proto));
 121
 122     JSValue const clazz = JS_NewCFunction2(ctx, liba_hpf_ctor, "hpf", 2, JS_CFUNC_constructor, 0);
 123     JS_SetConstructor(ctx, clazz, proto);
 124     JS_SetClassProto(ctx, liba_hpf_class_id, proto);
 125
 126     return JS_SetModuleExport(ctx, m, "hpf", clazz);
 127 }