vdsp 1.6.0 → 1.7.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 2358672ca07fa482ca8592ac9e49d9c4eca38b7bc2b7d3a137765032fdf4cc8b
-  data.tar.gz: 9bc65fad63980a3fb482092feea369f89907870c46f30309cbe332f3bdf99744
+  metadata.gz: a7d5b3b75d47981cb01b082e4304dacee1c87426407f2220ff538cec98527aeb
+  data.tar.gz: '08685f5360f114c1304095d510fb99d4b38fd02bdb70a0ce56e3e7ada8fbfc5c'
 SHA512:
-  metadata.gz: 1bf33f3a43ffcabf3407daec1184b21253085e0d1bbf665c4206546f2612ca0b8ab5e3f186c594931102d704c1475da74372efb3d6f86c171a8f3ed1a81a99a0
-  data.tar.gz: d784d6291d25137935380e3bb719ae530482c785b471d2be91b97fe51fa2868695eb0b7b51383d8b03a2389fa1e6c1262c4f149a776d3bc7660aa77696c609e0
+  metadata.gz: 4bca3631c2a829a37884556680d79277eab141d9466f3423c70fd40f5b52c2aa47bbda821640eb5f93796901136c1cb5c1207509ee6e7d15c0b992b9ae3652f1
+  data.tar.gz: aa8eeec7c10ff2f94396d600d24dfaf0375cae2d85bfc118c7b8a46bcf4685e2ce36ba116f9682bb4a94e7f635ef9f3529a08ec29e4e118bec2fa87dc209b264

data/ext/vdsp/vdsp.c

@@ -423,6 +423,72 @@ VALUE rb_double_array_coerce(VALUE self, VALUE other)
   return rb_assoc_new(other, self);
 }
 
+VALUE rb_double_array_abs(VALUE self)
+{
+  VdspArrayNativeResource *_a = get_vdsp_array_native_resource(self);
+
+  VALUE lenv = LONG2NUM(_a->length);
+  VALUE c = rb_class_new_instance(1, &lenv, rb_cDoubleArray);
+  VdspArrayNativeResource *_c = get_vdsp_array_native_resource(c);
+
+  vDSP_vabsD(_a->v.d, 1, _c->v.d, 1, _a->length);
+
+  return c;
+}
+
+VALUE rb_double_array_abs_bang(VALUE self)
+{
+  VdspArrayNativeResource *_a = get_vdsp_array_native_resource(self);
+
+  vDSP_vabsD(_a->v.d, 1, _a->v.d, 1, _a->length);
+
+  return self;
+}
+
+VALUE rb_double_array_nabs(VALUE self)
+{
+  VdspArrayNativeResource *_a = get_vdsp_array_native_resource(self);
+
+  VALUE lenv = LONG2NUM(_a->length);
+  VALUE c = rb_class_new_instance(1, &lenv, rb_cDoubleArray);
+  VdspArrayNativeResource *_c = get_vdsp_array_native_resource(c);
+
+  vDSP_vnabsD(_a->v.d, 1, _c->v.d, 1, _a->length);
+
+  return c;
+}
+
+VALUE rb_double_array_nabs_bang(VALUE self)
+{
+  VdspArrayNativeResource *_a = get_vdsp_array_native_resource(self);
+
+  vDSP_vnabsD(_a->v.d, 1, _a->v.d, 1, _a->length);
+
+  return self;
+}
+
+VALUE rb_double_array_negative(VALUE self)
+{
+  VdspArrayNativeResource *_a = get_vdsp_array_native_resource(self);
+
+  VALUE lenv = LONG2NUM(_a->length);
+  VALUE c = rb_class_new_instance(1, &lenv, rb_cDoubleArray);
+  VdspArrayNativeResource *_c = get_vdsp_array_native_resource(c);
+
+  vDSP_vnegD(_a->v.d, 1, _c->v.d, 1, _a->length);
+
+  return c;
+}
+
+VALUE rb_double_array_negative_bang(VALUE self)
+{
+  VdspArrayNativeResource *_a = get_vdsp_array_native_resource(self);
+
+  vDSP_vnegD(_a->v.d, 1, _a->v.d, 1, _a->length);
+
+  return self;
+}
+
 VALUE rb_double_array_vramp(VALUE cls, VALUE a, VALUE b, VALUE n)
 {
   double _a = NUM2DBL(a);
@@ -514,14 +580,14 @@ VALUE rb_double_array_hann_window(int argc, VALUE *argv, VALUE cls)
   return c;
 }
 
-VALUE rb_double_array_vclr(VALUE self)
+VALUE rb_double_array_clear_bang(VALUE self)
 {
   VdspArrayNativeResource *p = get_vdsp_array_native_resource(self);
   vDSP_vclrD(p->v.d, 1, p->length);
   return self;
 }
 
-VALUE rb_double_array_vfill(VALUE self, VALUE a)
+VALUE rb_double_array_fill_bang(VALUE self, VALUE a)
 {
   double _a = NUM2DBL(a);
   VdspArrayNativeResource *p = get_vdsp_array_native_resource(self);
@@ -792,7 +858,7 @@ VALUE rb_double_vsadd(
   double _b = NUM2DBL(b);
   array_param(&_c, c, c_offset, c_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vsaddD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -819,7 +885,7 @@ VALUE rb_double_vadd(
   array_param(&_b, b, b_offset, b_stride);
   array_param(&_c, c, c_offset, c_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vaddD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -845,7 +911,7 @@ VALUE rb_double_vsub(
   array_param(&_b, b, b_offset, b_stride);
   array_param(&_a, a, a_offset, a_stride);
   array_param(&_c, c, c_offset, c_stride);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vsubD(
     _b.res0->v.d+_b.offset, _b.stride,
@@ -871,7 +937,7 @@ VALUE rb_double_vsmul(
   double _b = NUM2DBL(b);
   array_param(&_c, c, c_offset, c_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vsmulD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -898,7 +964,7 @@ VALUE rb_double_vmul(
   array_param(&_b, b, b_offset, b_stride);
   array_param(&_c, c, c_offset, c_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vmulD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -924,7 +990,7 @@ VALUE rb_double_vsdiv(
   double _b = NUM2DBL(b);
   array_param(&_c, c, c_offset, c_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vsdivD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -950,7 +1016,7 @@ VALUE rb_double_svdiv(
   array_param(&_b, b, b_offset, b_stride);
   array_param(&_c, c, c_offset, c_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_svdivD(
     &_a,
@@ -981,7 +1047,7 @@ VALUE rb_double_vaddsub(
   array_param(&_o0, o0, o0_offset, o0_stride);
   array_param(&_o1, o1, o1_offset, o1_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vaddsubD(
     _i0.res0->v.d+_i0.offset, _i0.stride,
@@ -1009,7 +1075,7 @@ VALUE rb_double_vdiv(
   array_param(&_a, a, a_offset, a_stride);
   array_param(&_c, c, c_offset, c_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vdivD(
     _b.res0->v.d+_b.offset, _c.stride,
@@ -1038,7 +1104,7 @@ VALUE rb_double_vasm(
   double _c = NUM2DBL(c); 
   array_param(&_d, d, d_offset, d_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vasmD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1069,7 +1135,7 @@ VALUE rb_double_vam(
   array_param(&_c, c, c_offset, c_stride);
   array_param(&_d, d, d_offset, d_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vamD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1099,7 +1165,7 @@ VALUE rb_double_vsbsm(
   double _c = NUM2DBL(c); 
   array_param(&_d, d, d_offset, d_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vsbsmD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1130,7 +1196,7 @@ VALUE rb_double_vsbm(
   array_param(&_c, c, c_offset, c_stride);
   array_param(&_d, d, d_offset, d_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vsbmD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1160,7 +1226,7 @@ VALUE rb_double_vmsa(
   double _c = NUM2DBL(c); 
   array_param(&_d, d, d_offset, d_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vmsaD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1190,7 +1256,7 @@ VALUE rb_double_vsma(
   array_param(&_c, c, c_offset, c_stride);
   array_param(&_d, d, d_offset, d_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vsmaD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1221,7 +1287,7 @@ VALUE rb_double_vma(
   array_param(&_c, c, c_offset, c_stride);
   array_param(&_d, d, d_offset, d_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vmaD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1252,7 +1318,7 @@ VALUE rb_double_vmsb(
   array_param(&_c, c, c_offset, c_stride);
   array_param(&_d, d, d_offset, d_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vmsbD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1284,7 +1350,7 @@ VALUE rb_double_vsmsma(
   double _d = NUM2DBL(d);
   array_param(&_e, e, e_offset, e_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vsmsmaD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1332,7 +1398,7 @@ VALUE rb_double_vaam(int argc, VALUE *argv, VALUE cls)
   array_param(&_d, d, d_offset, d_stride);
   array_param(&_e, e, e_offset, e_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vaamD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1380,7 +1446,7 @@ VALUE rb_double_vmmsb(int argc, VALUE *argv, VALUE cls)
   array_param(&_d, d, d_offset, d_stride);
   array_param(&_e, e, e_offset, e_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vmmsbD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1428,7 +1494,7 @@ VALUE rb_double_vsbsbm(int argc, VALUE *argv, VALUE cls)
   array_param(&_d, d, d_offset, d_stride);
   array_param(&_e, e, e_offset, e_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vsbsbmD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1476,7 +1542,7 @@ VALUE rb_double_vasbm(int argc, VALUE *argv, VALUE cls)
   array_param(&_d, d, d_offset, d_stride);
   array_param(&_e, e, e_offset, e_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vasbmD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1504,7 +1570,7 @@ VALUE rb_double_vramp(
   double _b = NUM2DBL(b);
   array_param(&_c, c, c_offset, c_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vrampD(
     &_a,
@@ -1528,7 +1594,7 @@ VALUE rb_double_vgen(
   double _b = NUM2DBL(b);
   array_param(&_c, c, c_offset, c_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vgenD(
     &_a,
@@ -1555,7 +1621,7 @@ VALUE rb_double_vrampmul(
   double _step = NUM2DBL(step);
   array_param(&_o, o, o_offset, o_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vrampmulD(
     _i.res0->v.d+_i.offset, _i.stride,
@@ -1584,7 +1650,7 @@ VALUE rb_double_vrampmul2(
   double _step = NUM2DBL(step);
   array_param2(&_o, o0, o1, o_offset, o_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vrampmul2D(
     _i.res0->v.d+_i.offset, _i.res1->v.d+_i.offset, _i.stride,
@@ -1613,7 +1679,7 @@ VALUE rb_double_vrampmuladd(
   double _step = NUM2DBL(step);
   array_param(&_o, o, o_offset, o_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vrampmuladdD(
     _i.res0->v.d+_i.offset, _i.stride,
@@ -1642,7 +1708,7 @@ VALUE rb_double_vrampmuladd2(
   double _step = NUM2DBL(step);
   array_param2(&_o, o0, o1, o_offset, o_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vrampmuladd2D(
     _i.res0->v.d+_i.offset, _i.res1->v.d+_i.offset, _i.stride,
@@ -1671,8 +1737,8 @@ VALUE rb_double_vgenp(
   array_param(&_b, b, b_offset, b_stride);
   array_param(&_c, c, c_offset, c_stride);
 
-  vDSP_Stride _n = NUM2LONG(n);
-  vDSP_Stride _m = NUM2LONG(m);
+  vDSP_Length _n = NUM2LONG(n);
+  vDSP_Length _m = NUM2LONG(m);
 
   vDSP_vgenpD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1703,8 +1769,8 @@ VALUE rb_double_vtabi(
   double _s2 = NUM2DBL(s2);
   VdspArrayNativeResource *_c = get_vdsp_array_native_resource(c);
 
-  vDSP_Stride _m = NUM2LONG(m);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _m = NUM2LONG(m);
+  vDSP_Length _n = NUM2LONG(n);
 
   array_param(&_d, d, d_offset, d_stride);
 
@@ -1724,7 +1790,7 @@ VALUE rb_double_vtabi(
 VALUE rb_double_blkman_window(VALUE cls, VALUE c, VALUE n, VALUE flag)
 {
   VdspArrayNativeResource *_c = get_vdsp_array_native_resource(c);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
   int _flag = (int)NUM2LONG(flag);
 
   vDSP_blkman_windowD(_c->v.d, _n, _flag);
@@ -1735,7 +1801,7 @@ VALUE rb_double_blkman_window(VALUE cls, VALUE c, VALUE n, VALUE flag)
 VALUE rb_double_hamm_window(VALUE cls, VALUE c, VALUE n, VALUE flag)
 {
   VdspArrayNativeResource *_c = get_vdsp_array_native_resource(c);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
   int _flag = (int)NUM2LONG(flag);
 
   vDSP_hamm_windowD(_c->v.d, _n, _flag);
@@ -1746,7 +1812,7 @@ VALUE rb_double_hamm_window(VALUE cls, VALUE c, VALUE n, VALUE flag)
 VALUE rb_double_hann_window(VALUE cls, VALUE c, VALUE n, VALUE flag)
 {
   VdspArrayNativeResource *_c = get_vdsp_array_native_resource(c);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
   int _flag = (int)NUM2LONG(flag);
 
   vDSP_hann_windowD(_c->v.d, _n, _flag);
@@ -1762,7 +1828,7 @@ VALUE rb_double_vclr(
   VdspArrayParam _c;
 
   array_param(&_c, c, c_offset, c_stride);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vclrD(
     _c.res0->v.d+_c.offset, _c.stride,
@@ -1782,7 +1848,7 @@ VALUE rb_double_vfill(
 
   double _a = NUM2DBL(a);
   array_param(&_c, c, c_offset, c_stride);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_vfillD(
     &_a,
@@ -1802,7 +1868,7 @@ VALUE rb_double_maxv(
   double _c;
 
   array_param(&_a, a, a_offset, a_stride);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_maxvD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1822,7 +1888,7 @@ VALUE rb_double_maxmgv(
   double _c;
 
   array_param(&_a, a, a_offset, a_stride);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_maxmgvD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1842,7 +1908,7 @@ VALUE rb_double_minv(
   double _c;
 
   array_param(&_a, a, a_offset, a_stride);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_minvD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1862,7 +1928,7 @@ VALUE rb_double_minmgv(
   double _c;
 
   array_param(&_a, a, a_offset, a_stride);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_minmgvD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1882,7 +1948,7 @@ VALUE rb_double_meanv(
   double _c;
 
   array_param(&_a, a, a_offset, a_stride);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_meanvD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1902,7 +1968,7 @@ VALUE rb_double_meamgv(
   double _c;
 
   array_param(&_a, a, a_offset, a_stride);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_meamgvD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1922,7 +1988,7 @@ VALUE rb_double_measqv(
   double _c;
 
   array_param(&_a, a, a_offset, a_stride);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_measqvD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1942,7 +2008,7 @@ VALUE rb_double_mvessq(
   double _c;
 
   array_param(&_a, a, a_offset, a_stride);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_mvessqD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1962,7 +2028,7 @@ VALUE rb_double_rmsqv(
   double _c;
 
   array_param(&_a, a, a_offset, a_stride);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_rmsqvD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -1982,7 +2048,7 @@ VALUE rb_double_sve(
   double _c;
 
   array_param(&_a, a, a_offset, a_stride);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_sveD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -2002,7 +2068,7 @@ VALUE rb_double_svemg(
   double _c;
 
   array_param(&_a, a, a_offset, a_stride);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_svemgD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -2022,7 +2088,7 @@ VALUE rb_double_svesq(
   double _c;
 
   array_param(&_a, a, a_offset, a_stride);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_svesqD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -2043,7 +2109,7 @@ VALUE rb_double_sve_svesq(
   double _sum_of_squares;
 
   array_param(&_a, a, a_offset, a_stride);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_sve_svesqD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -2064,7 +2130,7 @@ VALUE rb_double_svs(
   double _c;
 
   array_param(&_a, a, a_offset, a_stride);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_svsD(
     _a.res0->v.d+_a.offset, _a.stride,
@@ -2088,7 +2154,7 @@ VALUE rb_double_biquad(
   VdspBiquadNativeResource *_b = get_vdsp_biquad_native_resource(biquad);
   array_param(&_x, x, x_offset, x_stride);
   array_param(&_y, y, y_offset, y_stride);
-  vDSP_Stride _n = NUM2LONG(n);
+  vDSP_Length _n = NUM2LONG(n);
 
   vDSP_biquadD(
     _b->setup.d,
@@ -2100,6 +2166,256 @@ VALUE rb_double_biquad(
   return y;
 }
 
+VALUE rb_double_vabs(
+  VALUE cls,
+  VALUE a, VALUE a_offset, VALUE a_stride,
+  VALUE c, VALUE c_offset, VALUE c_stride,
+  VALUE n)
+{
+  VdspArrayParam _a;
+  VdspArrayParam _c;
+
+  array_param(&_a, a, a_offset, a_stride);
+  array_param(&_c, c, c_offset, c_stride);
+  vDSP_Length _n = NUM2LONG(n);
+
+  vDSP_vabsD(
+    _a.res0->v.d+_a.offset, _a.stride,
+    _c.res0->v.d+_c.offset, _c.stride,
+    _n);
+
+  return c;
+}
+
+VALUE rb_double_vnabs(
+  VALUE cls,
+  VALUE a, VALUE a_offset, VALUE a_stride,
+  VALUE c, VALUE c_offset, VALUE c_stride,
+  VALUE n)
+{
+  VdspArrayParam _a;
+  VdspArrayParam _c;
+
+  array_param(&_a, a, a_offset, a_stride);
+  array_param(&_c, c, c_offset, c_stride);
+  vDSP_Length _n = NUM2LONG(n);
+
+  vDSP_vnabsD(
+    _a.res0->v.d+_a.offset, _a.stride,
+    _c.res0->v.d+_c.offset, _c.stride,
+    _n);
+
+  return c;
+}
+
+VALUE rb_double_vneg(
+  VALUE cls,
+  VALUE a, VALUE a_offset, VALUE a_stride,
+  VALUE c, VALUE c_offset, VALUE c_stride,
+  VALUE n)
+{
+  VdspArrayParam _a;
+  VdspArrayParam _c;
+
+  array_param(&_a, a, a_offset, a_stride);
+  array_param(&_c, c, c_offset, c_stride);
+  vDSP_Length _n = NUM2LONG(n);
+
+  vDSP_vnegD(
+    _a.res0->v.d+_a.offset, _a.stride,
+    _c.res0->v.d+_c.offset, _c.stride,
+    _n);
+
+  return c;
+}
+
+VALUE rb_double_vclip(
+  VALUE cls,
+  VALUE a, VALUE a_offset, VALUE a_stride,
+  VALUE b,
+  VALUE c,
+  VALUE d, VALUE d_offset, VALUE d_stride,
+  VALUE n)
+{
+  VdspArrayParam _a;
+  VdspArrayParam _d;
+
+  array_param(&_a, a, a_offset, a_stride);
+  array_param(&_d, d, d_offset, d_stride);
+  double _b = NUM2DBL(b);
+  double _c = NUM2DBL(c);
+  vDSP_Length _n = NUM2LONG(n);
+
+  vDSP_vclipD(
+    _a.res0->v.d+_a.offset, _a.stride,
+    &_b,
+    &_c,
+    _d.res0->v.d+_d.offset, _d.stride,
+    _n);
+
+  return d;
+}
+
+VALUE rb_double_vclipc(
+  VALUE cls,
+  VALUE a, VALUE a_offset, VALUE a_stride,
+  VALUE b,
+  VALUE c,
+  VALUE d, VALUE d_offset, VALUE d_stride,
+  VALUE n)
+{
+  VdspArrayParam _a;
+  VdspArrayParam _d;
+  vDSP_Length _n_low = 0;
+  vDSP_Length _n_high = 0;
+
+  array_param(&_a, a, a_offset, a_stride);
+  array_param(&_d, d, d_offset, d_stride);
+  double _b = NUM2DBL(b);
+  double _c = NUM2DBL(c);
+  vDSP_Length _n = NUM2LONG(n);
+
+  vDSP_vclipcD(
+    _a.res0->v.d+_a.offset, _a.stride,
+    &_b,
+    &_c,
+    _d.res0->v.d+_d.offset, _d.stride,
+    _n,
+    &_n_low,
+    &_n_high);
+
+  return rb_ary_new3(3, d, LONG2NUM(_n_low), LONG2NUM(_n_high));
+}
+
+VALUE rb_double_viclip(
+  VALUE cls,
+  VALUE a, VALUE a_offset, VALUE a_stride,
+  VALUE b,
+  VALUE c,
+  VALUE d, VALUE d_offset, VALUE d_stride,
+  VALUE n)
+{
+  VdspArrayParam _a;
+  VdspArrayParam _d;
+
+  array_param(&_a, a, a_offset, a_stride);
+  array_param(&_d, d, d_offset, d_stride);
+  double _b = NUM2DBL(b);
+  double _c = NUM2DBL(c);
+  vDSP_Length _n = NUM2LONG(n);
+
+  vDSP_viclipD(
+    _a.res0->v.d+_a.offset, _a.stride,
+    &_b,
+    &_c,
+    _d.res0->v.d+_d.offset, _d.stride,
+    _n);
+
+  return d;
+}
+
+VALUE rb_double_vthr(
+  VALUE cls,
+  VALUE a, VALUE a_offset, VALUE a_stride,
+  VALUE b,
+  VALUE c, VALUE c_offset, VALUE c_stride,
+  VALUE n)
+{
+  VdspArrayParam _a;
+  VdspArrayParam _c;
+
+  array_param(&_a, a, a_offset, a_stride);
+  array_param(&_c, c, c_offset, c_stride);
+  double _b = NUM2DBL(b);
+  vDSP_Length _n = NUM2LONG(n);
+
+  vDSP_vthrD(
+    _a.res0->v.d+_a.offset, _a.stride,
+    &_b,
+    _c.res0->v.d+_c.offset, _c.stride,
+    _n);
+
+  return c;
+}
+
+VALUE rb_double_vlim(
+  VALUE cls,
+  VALUE a, VALUE a_offset, VALUE a_stride,
+  VALUE b,
+  VALUE c,
+  VALUE d, VALUE d_offset, VALUE d_stride,
+  VALUE n)
+{
+  VdspArrayParam _a;
+  VdspArrayParam _d;
+
+  array_param(&_a, a, a_offset, a_stride);
+  array_param(&_d, d, d_offset, d_stride);
+  double _b = NUM2DBL(b);
+  double _c = NUM2DBL(c);
+  vDSP_Length _n = NUM2LONG(n);
+
+  vDSP_vlimD(
+    _a.res0->v.d+_a.offset, _a.stride,
+    &_b,
+    &_c,
+    _d.res0->v.d+_d.offset, _d.stride,
+    _n);
+
+  return d;
+}
+
+VALUE rb_double_vthres(
+  VALUE cls,
+  VALUE a, VALUE a_offset, VALUE a_stride,
+  VALUE b,
+  VALUE c, VALUE c_offset, VALUE c_stride,
+  VALUE n)
+{
+  VdspArrayParam _a;
+  VdspArrayParam _c;
+
+  array_param(&_a, a, a_offset, a_stride);
+  array_param(&_c, c, c_offset, c_stride);
+  double _b = NUM2DBL(b);
+  vDSP_Length _n = NUM2LONG(n);
+
+  vDSP_vthresD(
+    _a.res0->v.d+_a.offset, _a.stride,
+    &_b,
+    _c.res0->v.d+_c.offset, _c.stride,
+    _n);
+
+  return c;
+}
+
+VALUE rb_double_vthrsc(
+  VALUE cls,
+  VALUE a, VALUE a_offset, VALUE a_stride,
+  VALUE b,
+  VALUE c,
+  VALUE d, VALUE d_offset, VALUE d_stride,
+  VALUE n)
+{
+  VdspArrayParam _a;
+  VdspArrayParam _d;
+
+  array_param(&_a, a, a_offset, a_stride);
+  array_param(&_d, d, d_offset, d_stride);
+  double _b = NUM2DBL(b);
+  double _c = NUM2DBL(c);
+  vDSP_Length _n = NUM2LONG(n);
+
+  vDSP_vthrscD(
+    _a.res0->v.d+_a.offset, _a.stride,
+    &_b,
+    &_c,
+    _d.res0->v.d+_d.offset, _d.stride,
+    _n);
+
+  return d;
+}
+
 
 // Init
 
@@ -2144,6 +2460,14 @@ void Init_vdsp()
   rb_define_method(rb_cDoubleArray, "each", rb_double_array_each, 0);
   rb_define_method(rb_cDoubleArray, "to_a", rb_double_array_get_values, 0);
   rb_define_method(rb_cDoubleArray, "coerce", rb_double_array_coerce, 1);
+  rb_define_method(rb_cDoubleArray, "abs", rb_double_array_abs, 0);
+  rb_define_method(rb_cDoubleArray, "abs!", rb_double_array_abs_bang, 0);
+  rb_define_method(rb_cDoubleArray, "nabs", rb_double_array_nabs, 0);
+  rb_define_method(rb_cDoubleArray, "nabs!", rb_double_array_nabs_bang, 0);
+  rb_define_method(rb_cDoubleArray, "negative", rb_double_array_negative, 0);
+  rb_define_alias(rb_cDoubleArray,  "neg", "negative");
+  rb_define_method(rb_cDoubleArray, "negative!", rb_double_array_negative_bang, 0);
+  rb_define_alias(rb_cDoubleArray,  "neg!", "negative!");
 
   // Vdsp::DoubleArray Vector Generation
   rb_define_singleton_method(rb_cDoubleArray, "vramp", rb_double_array_vramp, 3);
@@ -2153,8 +2477,8 @@ void Init_vdsp()
   rb_define_singleton_method(rb_cDoubleArray, "hann_window", rb_double_array_hann_window, -1);
 
   // Vdsp::DoubleArray Vector Clear and Fill Functions
-  rb_define_method(rb_cDoubleArray, "vclr", rb_double_array_vclr, 0);
-  rb_define_method(rb_cDoubleArray, "vfill", rb_double_array_vfill, 1);
+  rb_define_method(rb_cDoubleArray, "clear!", rb_double_array_clear_bang, 0);
+  rb_define_method(rb_cDoubleArray, "fill!", rb_double_array_fill_bang, 1);
 
   // Vdsp::DoubleArray Vector Extrema Calculation
   rb_define_method(rb_cDoubleArray, "maxv", rb_double_array_maxv, 0);
@@ -2256,4 +2580,18 @@ void Init_vdsp()
 
   // Vdsp::UnsafeDouble Biquadratic IIR Filters
   rb_define_singleton_method(rb_mUnsafeDouble, "biquad", rb_double_biquad, 8);
+
+  // Vdsp::UnsafeDouble Absolute and Negation Functions
+  rb_define_singleton_method(rb_mUnsafeDouble, "vabs", rb_double_vabs, 7);
+  rb_define_singleton_method(rb_mUnsafeDouble, "vnabs", rb_double_vnabs, 7);
+  rb_define_singleton_method(rb_mUnsafeDouble, "vneg", rb_double_vneg, 7);
+
+  // Vdsp::UnsafeDouble Clipping, Limit, and Threshold Operations
+  rb_define_singleton_method(rb_mUnsafeDouble, "vclip", rb_double_vclip, 9);
+  rb_define_singleton_method(rb_mUnsafeDouble, "vclipc", rb_double_vclipc, 9);
+  rb_define_singleton_method(rb_mUnsafeDouble, "viclip", rb_double_viclip, 9);
+  rb_define_singleton_method(rb_mUnsafeDouble, "vthr", rb_double_vthr, 8);
+  rb_define_singleton_method(rb_mUnsafeDouble, "vlim", rb_double_vlim, 9);
+  rb_define_singleton_method(rb_mUnsafeDouble, "vthres", rb_double_vthres, 8);
+  rb_define_singleton_method(rb_mUnsafeDouble, "vthrsc", rb_double_vthrsc, 9);
 }

data/lib/vdsp/version.rb

@@ -1,3 +1,3 @@
 module Vdsp
-  VERSION = "1.6.0"
+  VERSION = "1.7.0"
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: vdsp
 version: !ruby/object:Gem::Version
-  version: 1.6.0
+  version: 1.7.0
 platform: ruby
 authors:
 - Yoshida Tetsuya
 autorequire: 
 bindir: exe
 cert_chain: []
-date: 2019-10-02 00:00:00.000000000 Z
+date: 2019-10-07 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler