| 611 | |
| 612 | |
| 613 | double te_interp(const char *expression, int *error) { |
| 614 | te_expr *n = te_compile(expression, 0, 0, error); |
| 615 | double ret; |
| 616 | if (n) { |
| 617 | ret = te_eval(n); |
| 618 | te_free(n); |
| 619 | } else { |
| 620 | ret = NAN; |
| 621 | } |
| 622 | return ret; |
| 623 | } |
| 624 | |
| 625 | static void pn (const te_expr *n, int depth) { |
| 626 | int i, arity; |
nothing calls this directly
no test coverage detected