void AccelString::dump() { QString s; for (int i=0; i<m_weight.count(); ++i) s += QString("%1(%2) ").arg(pure()[i]).arg(m_weight[i]); // kDebug() << "s " << s; }
void AstCFunc::dump(ostream& str) { this->AstNode::dump(str); if (slow()) str<<" [SLOW]"; if (pure()) str<<" [PURE]"; if (dpiImport()) str<<" [DPII]"; if (dpiExport()) str<<" [DPIX]"; if (dpiExportWrapper()) str<<" [DPIXWR]"; }
static std::function< std::shared_ptr<B> (std::shared_ptr<A> v)> apply(std::shared_ptr<std::function<B(A)>> f) { return [=](std::shared_ptr<A> v) { if (v && f) { auto F = *f; return pure (F(*v)); } return std::shared_ptr<B>(nullptr); }; }
void test2(double x, double y) { if (-tan(x-y) != tan(y-x)) link_error (); if (-sin(x-y) != sin(y-x)) link_error (); if (cos(-x*y) != cos(x*y)) link_error (); if (cos(x*-y) != cos(x*y)) link_error (); if (cos(-x/y) != cos(x/y)) link_error (); if (cos(x/-y) != cos(x/y)) link_error (); if (cos(-fabs(tan(x/-y))) != cos(tan(x/y))) link_error (); if (cos(y<10 ? -x : y) != cos(y<10 ? x : y)) link_error (); if (cos(y<10 ? x : -y) != cos(y<10 ? x : y)) link_error (); if (cos(y<10 ? -fabs(x) : tan(x<20 ? -x : -fabs(y))) != cos(y<10 ? x : tan(x<20 ? x : y))) link_error (); if (cos((y*=3, -x)) != cos((y*=3,x))) link_error (); if (cos((y*=2, -fabs(tan(x/-y)))) != cos((y*=2,tan(x/y)))) link_error (); if (cos(copysign(x,y)) != cos(x)) link_error (); if (cos(copysign(-fabs(x),y*=2)) != cos((y*=2,x))) link_error (); if (hypot (x, 0) != fabs(x)) link_error (); if (hypot (0, x) != fabs(x)) link_error (); if (hypot (x, x) != fabs(x) * __builtin_sqrt(2)) link_error (); if (hypot (-x, y) != hypot (x, y)) link_error (); if (hypot (x, -y) != hypot (x, y)) link_error (); if (hypot (-x, -y) != hypot (x, y)) link_error (); if (hypot (fabs(x), y) != hypot (x, y)) link_error (); if (hypot (x, fabs(y)) != hypot (x, y)) link_error (); if (hypot (fabs(x), fabs(y)) != hypot (x, y)) link_error (); if (hypot (-fabs(-x), -fabs(fabs(fabs(-y)))) != hypot (x, y)) link_error (); if (hypot (-x, 0) != fabs(x)) link_error (); if (hypot (-x, x) != fabs(x) * __builtin_sqrt(2)) link_error (); if (hypot (pure(x), -pure(x)) != fabs(pure(x)) * __builtin_sqrt(2)) link_error (); if (hypot (tan(-x), tan(-fabs(y))) != hypot (tan(x), tan(y))) link_error (); if (fmin (fmax(x,y),y) != y) link_error (); if (fmin (fmax(y,x),y) != y) link_error (); if (fmin (x,fmax(x,y)) != x) link_error (); if (fmin (x,fmax(y,x)) != x) link_error (); if (fmax (fmin(x,y),y) != y) link_error (); if (fmax (fmin(y,x),y) != y) link_error (); if (fmax (x,fmin(x,y)) != x) link_error (); if (fmax (x,fmin(y,x)) != x) link_error (); if ((__complex__ double) x != -(__complex__ double) (-x)) link_error (); if (x*1i != -(-x*1i)) link_error (); if (x+(x-y)*1i != -(-x+(y-x)*1i)) link_error (); if (x+(x-y)*1i != -(-x-(x-y)*1i)) link_error (); if (ccos(tan(x)+sin(y)*1i) != ccos(-tan(-x)+-sin(-y)*1i)) link_error (); if (ccos(tan(x)+sin(x-y)*1i) != ccos(-tan(-x)-sin(y-x)*1i)) link_error (); if (-5+x*1i != -~(5+x*1i)) link_error (); if (tan(x)+tan(y)*1i != -~(tan(-x)+tan(y)*1i)) link_error (); }
M<A> return_(A a) { return pure(a); }