quickjs/src/mf.c

   1 #include "mf.h"
   2
   3 JSValue liba_mf_gauss(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
   4 {
   5     (void)argc;
   6     (void)this_val;
   7     double args[] = {0, 0, 0};
   8     for (unsigned int i = 0; i < A_LEN(args); ++i)
   9     {
  10         if (JS_ToFloat64(ctx, &args[i], argv[i])) { return JS_EXCEPTION; }
  11     }
  12     a_float x = a_mf_gauss((a_float)args[0], (a_float)args[1], (a_float)args[2]);
  13     return JS_NewFloat64(ctx, (double)x);
  14 }
  15
  16 JSValue liba_mf_gauss2(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
  17 {
  18     (void)argc;
  19     (void)this_val;
  20     double args[] = {0, 0, 0, 0, 0};
  21     for (unsigned int i = 0; i < A_LEN(args); ++i)
  22     {
  23         if (JS_ToFloat64(ctx, &args[i], argv[i])) { return JS_EXCEPTION; }
  24     }
  25     a_float x = a_mf_gauss2((a_float)args[0], (a_float)args[1], (a_float)args[2], (a_float)args[3], (a_float)args[4]);
  26     return JS_NewFloat64(ctx, (double)x);
  27 }
  28
  29 JSValue liba_mf_gbell(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
  30 {
  31     (void)argc;
  32     (void)this_val;
  33     double args[] = {0, 0, 0, 0};
  34     for (unsigned int i = 0; i < A_LEN(args); ++i)
  35     {
  36         if (JS_ToFloat64(ctx, &args[i], argv[i])) { return JS_EXCEPTION; }
  37     }
  38     a_float x = a_mf_gbell((a_float)args[0], (a_float)args[1], (a_float)args[2], (a_float)args[3]);
  39     return JS_NewFloat64(ctx, (double)x);
  40 }
  41
  42 JSValue liba_mf_sig(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
  43 {
  44     (void)argc;
  45     (void)this_val;
  46     double args[] = {0, 0, 0};
  47     for (unsigned int i = 0; i < A_LEN(args); ++i)
  48     {
  49         if (JS_ToFloat64(ctx, &args[i], argv[i])) { return JS_EXCEPTION; }
  50     }
  51     a_float x = a_mf_sig((a_float)args[0], (a_float)args[1], (a_float)args[2]);
  52     return JS_NewFloat64(ctx, (double)x);
  53 }
  54
  55 JSValue liba_mf_dsig(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
  56 {
  57     (void)argc;
  58     (void)this_val;
  59     double args[] = {0, 0, 0, 0, 0};
  60     for (unsigned int i = 0; i < A_LEN(args); ++i)
  61     {
  62         if (JS_ToFloat64(ctx, &args[i], argv[i])) { return JS_EXCEPTION; }
  63     }
  64     a_float x = a_mf_dsig((a_float)args[0], (a_float)args[1], (a_float)args[2], (a_float)args[3], (a_float)args[4]);
  65     return JS_NewFloat64(ctx, (double)x);
  66 }
  67
  68 JSValue liba_mf_psig(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
  69 {
  70     (void)argc;
  71     (void)this_val;
  72     double args[] = {0, 0, 0, 0, 0};
  73     for (unsigned int i = 0; i < A_LEN(args); ++i)
  74     {
  75         if (JS_ToFloat64(ctx, &args[i], argv[i])) { return JS_EXCEPTION; }
  76     }
  77     a_float x = a_mf_psig((a_float)args[0], (a_float)args[1], (a_float)args[2], (a_float)args[3], (a_float)args[4]);
  78     return JS_NewFloat64(ctx, (double)x);
  79 }
  80
  81 JSValue liba_mf_trap(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
  82 {
  83     (void)argc;
  84     (void)this_val;
  85     double args[] = {0, 0, 0, 0, 0};
  86     for (unsigned int i = 0; i < A_LEN(args); ++i)
  87     {
  88         if (JS_ToFloat64(ctx, &args[i], argv[i])) { return JS_EXCEPTION; }
  89     }
  90     a_float x = a_mf_trap((a_float)args[0], (a_float)args[1], (a_float)args[2], (a_float)args[3], (a_float)args[4]);
  91     return JS_NewFloat64(ctx, (double)x);
  92 }
  93
  94 JSValue liba_mf_tri(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
  95 {
  96     (void)argc;
  97     (void)this_val;
  98     double args[] = {0, 0, 0, 0};
  99     for (unsigned int i = 0; i < A_LEN(args); ++i)
 100     {
 101         if (JS_ToFloat64(ctx, &args[i], argv[i])) { return JS_EXCEPTION; }
 102     }
 103     a_float x = a_mf_tri((a_float)args[0], (a_float)args[1], (a_float)args[2], (a_float)args[3]);
 104     return JS_NewFloat64(ctx, (double)x);
 105 }
 106
 107 JSValue liba_mf_lins(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
 108 {
 109     (void)argc;
 110     (void)this_val;
 111     double args[] = {0, 0, 0};
 112     for (unsigned int i = 0; i < A_LEN(args); ++i)
 113     {
 114         if (JS_ToFloat64(ctx, &args[i], argv[i])) { return JS_EXCEPTION; }
 115     }
 116     a_float x = a_mf_lins((a_float)args[0], (a_float)args[1], (a_float)args[2]);
 117     return JS_NewFloat64(ctx, (double)x);
 118 }
 119
 120 JSValue liba_mf_linz(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
 121 {
 122     (void)argc;
 123     (void)this_val;
 124     double args[] = {0, 0, 0};
 125     for (unsigned int i = 0; i < A_LEN(args); ++i)
 126     {
 127         if (JS_ToFloat64(ctx, &args[i], argv[i])) { return JS_EXCEPTION; }
 128     }
 129     a_float x = a_mf_linz((a_float)args[0], (a_float)args[1], (a_float)args[2]);
 130     return JS_NewFloat64(ctx, (double)x);
 131 }
 132
 133 JSValue liba_mf_s(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
 134 {
 135     (void)argc;
 136     (void)this_val;
 137     double args[] = {0, 0, 0};
 138     for (unsigned int i = 0; i < A_LEN(args); ++i)
 139     {
 140         if (JS_ToFloat64(ctx, &args[i], argv[i])) { return JS_EXCEPTION; }
 141     }
 142     a_float x = a_mf_s((a_float)args[0], (a_float)args[1], (a_float)args[2]);
 143     return JS_NewFloat64(ctx, (double)x);
 144 }
 145
 146 JSValue liba_mf_z(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
 147 {
 148     (void)argc;
 149     (void)this_val;
 150     double args[] = {0, 0, 0};
 151     for (unsigned int i = 0; i < A_LEN(args); ++i)
 152     {
 153         if (JS_ToFloat64(ctx, &args[i], argv[i])) { return JS_EXCEPTION; }
 154     }
 155     a_float x = a_mf_z((a_float)args[0], (a_float)args[1], (a_float)args[2]);
 156     return JS_NewFloat64(ctx, (double)x);
 157 }
 158
 159 JSValue liba_mf_pi(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
 160 {
 161     (void)argc;
 162     (void)this_val;
 163     double args[] = {0, 0, 0, 0, 0};
 164     for (unsigned int i = 0; i < A_LEN(args); ++i)
 165     {
 166         if (JS_ToFloat64(ctx, &args[i], argv[i])) { return JS_EXCEPTION; }
 167     }
 168     a_float x = a_mf_pi((a_float)args[0], (a_float)args[1], (a_float)args[2], (a_float)args[3], (a_float)args[4]);
 169     return JS_NewFloat64(ctx, (double)x);
 170 }