tinyexpr.c File Reference

#include "tinyexpr.h"
#include <ctype.h>
#include <limits.h>
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

Include dependency graph for tinyexpr.c:

Go to the source code of this file.

Classes
struct	state

Macros
#define	NAN   (0.0 / 0.0)
#define	INFINITY   (1.0 / 0.0)
#define	TYPE_MASK(TYPE)   ((TYPE) &0x0000001F)
#define	IS_PURE(TYPE)   (((TYPE) &TE_FLAG_PURE) != 0)
#define	IS_FUNCTION(TYPE)   (((TYPE) &TE_FUNCTION0) != 0)
#define	IS_CLOSURE(TYPE)   (((TYPE) &TE_CLOSURE0) != 0)
#define	ARITY(TYPE)   (((TYPE) & (TE_FUNCTION0 | TE_CLOSURE0)) ? ((TYPE) &0x00000007) : 0)
#define	NEW_EXPR(type, ...)   new_expr((type), (const te_expr *[]){__VA_ARGS__})
#define	TE_FUN(...)   ((double (*)(__VA_ARGS__)) n->function)
#define	M(e)   te_eval(n->parameters[e])

Typedefs
typedef double(*	te_fun2) (double, double)
typedef struct state	state

Enumerations
enum	{   TOK_NULL = TE_CLOSURE7 + 1 , TOK_ERROR , TOK_END , TOK_SEP ,   TOK_OPEN , TOK_CLOSE , TOK_NUMBER , TOK_VARIABLE ,   TOK_INFIX }
enum	{ TE_CONSTANT = 1 }

Functions
static te_expr *	new_expr (const int type, const te_expr *parameters[])
void	te_free_parameters (te_expr *n)
void	te_free (te_expr *n)
static double	pi (void)
static double	e (void)
static double	fac (double a)
static double	ncr (double n, double r)
static double	npr (double n, double r)
static const te_variable *	find_builtin (const char *name, int len)
static const te_variable *	find_lookup (const state *s, const char *name, int len)
static double	add (double a, double b)
static double	sub (double a, double b)
static double	mul (double a, double b)
static double	divide (double a, double b)
static double	negate (double a)
static double	comma (double a, double b)
void	next_token (state *s)
static te_expr *	list (state *s)
static te_expr *	expr (state *s)
static te_expr *	power (state *s)
static te_expr *	base (state *s)
static te_expr *	factor (state *s)
static te_expr *	term (state *s)
double	te_eval (const te_expr *n)
static void	optimize (te_expr *n)
te_expr *	te_compile (const char *expression, const te_variable *variables, int var_count, int *error)
double	te_interp (const char *expression, int *error)
static void	pn (const te_expr *n, int depth)
void	te_print (const te_expr *n)

Variables
static const te_variable	functions []

Macro Definition Documentation

ARITY

#define ARITY

(

TYPE

)

(((TYPE) & (TE_FUNCTION0 | TE_CLOSURE0)) ? ((TYPE) &0x00000007) : 0)

Definition at line 90 of file tinyexpr.c.

INFINITY

#define INFINITY   (1.0 / 0.0)

Definition at line 51 of file tinyexpr.c.

IS_CLOSURE

#define IS_CLOSURE

(

TYPE

)

(((TYPE) &TE_CLOSURE0) != 0)

Definition at line 89 of file tinyexpr.c.

IS_FUNCTION

#define IS_FUNCTION

(

TYPE

)

(((TYPE) &TE_FUNCTION0) != 0)

Definition at line 88 of file tinyexpr.c.

IS_PURE

#define IS_PURE

(

TYPE

)

(((TYPE) &TE_FLAG_PURE) != 0)

Definition at line 87 of file tinyexpr.c.

M

#define M

(

e

)

te_eval(n->parameters[e])

Definition at line 581 of file tinyexpr.c.

NAN

#define NAN   (0.0 / 0.0)

Definition at line 47 of file tinyexpr.c.

NEW_EXPR

#define NEW_EXPR	(		type,
			...
	)		new_expr((type), (const te_expr *[]){__VA_ARGS__})

Definition at line 91 of file tinyexpr.c.

TE_FUN

#define TE_FUN

(

...

)

((double (*)(__VA_ARGS__)) n->function)

Definition at line 580 of file tinyexpr.c.

TYPE_MASK

#define TYPE_MASK

(

TYPE

)

((TYPE) &0x0000001F)

Definition at line 85 of file tinyexpr.c.

Typedef Documentation

state

typedef struct state state

te_fun2

typedef double(* te_fun2) (double, double)

Definition at line 54 of file tinyexpr.c.

Enumeration Type Documentation

anonymous enum

anonymous enum

Enumerator
TOK_NULL
TOK_ERROR
TOK_END
TOK_SEP
TOK_OPEN
TOK_CLOSE
TOK_NUMBER
TOK_VARIABLE
TOK_INFIX

Definition at line 56 of file tinyexpr.c.

     {
   TOK_NULL = TE_CLOSURE7 + 1,
   TOK_ERROR,
   TOK_END,
   TOK_SEP,
   TOK_OPEN,
   TOK_CLOSE,
   TOK_NUMBER,
   TOK_VARIABLE,
   TOK_INFIX
};

anonymous enum

anonymous enum

Enumerator
TE_CONSTANT

Definition at line 68 of file tinyexpr.c.

{ TE_CONSTANT = 1 };

Function Documentation

add()

static double add ( double  a, double  b  )

static

Definition at line 243 of file tinyexpr.c.

{ return a + b; }

base()

static te_expr * base ( state *  s )

static

Definition at line 357 of file tinyexpr.c.

                               {
   /* <base>      =    <constant> | <variable> | <function-0> {"(" ")"} | <function-1> <power> | <function-X> "(" <expr> {"," <expr>} ")" | "(" <list> ")" */
   te_expr *ret;
   int arity;
 
   switch (TYPE_MASK(s->type)) {
      case TOK_NUMBER:
         ret = new_expr(TE_CONSTANT, 0);
         ret->value = s->value;
         next_token(s);
         break;
 
      case TOK_VARIABLE:
         ret = new_expr(TE_VARIABLE, 0);
         ret->bound = s->bound;
         next_token(s);
         break;
 
      case TE_FUNCTION0:
      case TE_CLOSURE0:
         ret = new_expr(s->type, 0);
         ret->function = s->function;
         if (IS_CLOSURE(s->type))
            ret->parameters[0] = s->context;
         next_token(s);
         if (s->type == TOK_OPEN) {
            next_token(s);
            if (s->type != TOK_CLOSE) {
               s->type = TOK_ERROR;
            } else {
               next_token(s);
            }
         }
         break;
 
      case TE_FUNCTION1:
      case TE_CLOSURE1:
         ret = new_expr(s->type, 0);
         ret->function = s->function;
         if (IS_CLOSURE(s->type))
            ret->parameters[1] = s->context;
         next_token(s);
         ret->parameters[0] = power(s);
         break;
 
      case TE_FUNCTION2:
      case TE_FUNCTION3:
      case TE_FUNCTION4:
      case TE_FUNCTION5:
      case TE_FUNCTION6:
      case TE_FUNCTION7:
      case TE_CLOSURE2:
      case TE_CLOSURE3:
      case TE_CLOSURE4:
      case TE_CLOSURE5:
      case TE_CLOSURE6:
      case TE_CLOSURE7:
         arity = ARITY(s->type);
 
         ret = new_expr(s->type, 0);
         ret->function = s->function;
         if (IS_CLOSURE(s->type))
            ret->parameters[arity] = s->context;
         next_token(s);
 
         if (s->type != TOK_OPEN) {
            s->type = TOK_ERROR;
         } else {
            int i;
            for (i = 0; i < arity; i++) {
               next_token(s);
               ret->parameters[i] = expr(s);
               if (s->type != TOK_SEP) {
                  break;
               }
            }
            if (s->type != TOK_CLOSE || i != arity - 1) {
               s->type = TOK_ERROR;
            } else {
               next_token(s);
            }
         }
 
         break;
 
      case TOK_OPEN:
         next_token(s);
         ret = list(s);
         if (s->type != TOK_CLOSE) {
            s->type = TOK_ERROR;
         } else {
            next_token(s);
         }
         break;
 
      default:
         ret = new_expr(0, 0);
         s->type = TOK_ERROR;
         ret->value = NAN;
         break;
   }
 
   return ret;
}

Here is the call graph for this function:

Here is the caller graph for this function:

comma()

static double comma ( double  a, double  b  )

static

Definition at line 248 of file tinyexpr.c.

                                        {
   (void) a;
   return b;
}

Here is the call graph for this function:

Here is the caller graph for this function:

divide()

static double divide ( double  a, double  b  )

static

Definition at line 246 of file tinyexpr.c.

{ return a / b; }

Here is the caller graph for this function:

e()

static double e ( void  )

static

Definition at line 136 of file tinyexpr.c.

{ return 2.71828182845904523536; }

Here is the caller graph for this function:

expr()

static te_expr * expr ( state *  s )

static

Definition at line 553 of file tinyexpr.c.

                               {
   /* <expr>      =    <term> {("+" | "-") <term>} */
   te_expr *ret = term(s);
 
   while (s->type == TOK_INFIX && (s->function == add || s->function == sub)) {
      te_fun2 t = s->function;
      next_token(s);
      ret = NEW_EXPR(TE_FUNCTION2 | TE_FLAG_PURE, ret, term(s));
      ret->function = t;
   }
 
   return ret;
}

Here is the call graph for this function:

Here is the caller graph for this function:

fac()

static double fac ( double  a )

static

Definition at line 137 of file tinyexpr.c.

                            { /* simplest version of fac */
   if (a < 0.0)
      return NAN;
   if (a > UINT_MAX)
      return INFINITY;
   unsigned int ua = (unsigned int) (a);
   unsigned long int result = 1, i;
   for (i = 1; i <= ua; i++) {
      if (i > ULONG_MAX / result)
         return INFINITY;
      result *= i;
   }
   return (double) result;
}

Here is the call graph for this function:

Here is the caller graph for this function:

factor()

static te_expr * factor ( state *  s )

static

Definition at line 524 of file tinyexpr.c.

                                 {
   /* <factor>    =    <power> {"^" <power>} */
   te_expr *ret = power(s);
 
   while (s->type == TOK_INFIX && (s->function == pow)) {
      te_fun2 t = s->function;
      next_token(s);
      ret = NEW_EXPR(TE_FUNCTION2 | TE_FLAG_PURE, ret, power(s));
      ret->function = t;
   }
 
   return ret;
}

Here is the call graph for this function:

Here is the caller graph for this function:

find_builtin()

static const te_variable * find_builtin ( const char *  name, int  len  )

static

Definition at line 207 of file tinyexpr.c.

                                                                  {
   int imin = 0;
   int imax = sizeof(functions) / sizeof(te_variable) - 2;
 
   /*Binary search.*/
   while (imax >= imin) {
      const int i = (imin + ((imax - imin) / 2));
      int c = strncmp(name, functions[i].name, len);
      if (!c)
         c = '\0' - functions[i].name[len];
      if (c == 0) {
         return functions + i;
      } else if (c > 0) {
         imin = i + 1;
      } else {
         imax = i - 1;
      }
   }
 
   return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

find_lookup()

static const te_variable * find_lookup ( const state *  s, const char *  name, int  len  )

static

Definition at line 229 of file tinyexpr.c.

                                                                                 {
   int iters;
   const te_variable *var;
   if (!s->lookup)
      return 0;
 
   for (var = s->lookup, iters = s->lookup_len; iters; ++var, --iters) {
      if (strncmp(name, var->name, len) == 0 && var->name[len] == '\0') {
         return var;
      }
   }
   return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

list()

static te_expr * list ( state *  s )

static

Definition at line 567 of file tinyexpr.c.

                               {
   /* <list>      =    <expr> {"," <expr>} */
   te_expr *ret = expr(s);
 
   while (s->type == TOK_SEP) {
      next_token(s);
      ret = NEW_EXPR(TE_FUNCTION2 | TE_FLAG_PURE, ret, expr(s));
      ret->function = comma;
   }
 
   return ret;
}

Here is the call graph for this function:

Here is the caller graph for this function:

mul()

static double mul ( double  a, double  b  )

static

Definition at line 245 of file tinyexpr.c.

{ return a * b; }

Here is the caller graph for this function:

ncr()

static double ncr ( double  n, double  r  )

static

Definition at line 151 of file tinyexpr.c.

                                      {
   if (n < 0.0 || r < 0.0 || n < r)
      return NAN;
   if (n > UINT_MAX || r > UINT_MAX)
      return INFINITY;
   unsigned long int un = (unsigned int) (n), ur = (unsigned int) (r), i;
   unsigned long int result = 1;
   if (ur > un / 2)
      ur = un - ur;
   for (i = 1; i <= ur; i++) {
      if (result > ULONG_MAX / (un - ur + i))
         return INFINITY;
      result *= un - ur + i;
      result /= i;
   }
   return result;
}

Here is the call graph for this function:

Here is the caller graph for this function:

negate()

static double negate ( double  a )

static

Definition at line 247 of file tinyexpr.c.

{ return -a; }

Here is the caller graph for this function:

new_expr()

static te_expr * new_expr ( const int  type, const te_expr *  parameters[]  )

static

Definition at line 93 of file tinyexpr.c.

                                                                      {
   const int arity = ARITY(type);
   const int psize = sizeof(void *) * arity;
   const int size = (sizeof(te_expr) /* - sizeof(void *) */) + psize + (IS_CLOSURE(type) ? sizeof(void *) : 0);
   te_expr *ret = malloc(size);
   memset(ret, 0, size);
   if (arity && parameters) {
      memcpy(ret->parameters, parameters, psize);
   }
   ret->type = type;
   ret->bound = 0;
   return ret;
}

Here is the call graph for this function:

Here is the caller graph for this function:

next_token()

void next_token

(

state *

s

)

Definition at line 253 of file tinyexpr.c.

                          {
   s->type = TOK_NULL;
 
   do {
 
      if (!*s->next) {
         s->type = TOK_END;
         return;
      }
 
      /* Try reading a number. */
      if ((s->next[0] >= '0' && s->next[0] <= '9') || s->next[0] == '.') {
         s->value = strtod(s->next, (char **) &s->next);
         s->type = TOK_NUMBER;
      } else {
         /* Look for a variable or builtin function call. */
         if (isalpha(s->next[0])) {
            const char *start;
            start = s->next;
            while (isalpha(s->next[0]) || isdigit(s->next[0]) || (s->next[0] == '_'))
               s->next++;
 
            const te_variable *var = find_lookup(s, start, s->next - start);
            if (!var)
               var = find_builtin(start, s->next - start);
 
            if (!var) {
               s->type = TOK_ERROR;
            } else {
               switch (TYPE_MASK(var->type)) {
                  case TE_VARIABLE:
                     s->type = TOK_VARIABLE;
                     s->bound = var->address;
                     break;
 
                  case TE_CLOSURE0:
                  case TE_CLOSURE1:
                  case TE_CLOSURE2:
                  case TE_CLOSURE3: /* Falls through. */
                  case TE_CLOSURE4:
                  case TE_CLOSURE5:
                  case TE_CLOSURE6:
                  case TE_CLOSURE7:             /* Falls through. */
                     s->context = var->context; /* Falls through. */
 
                  case TE_FUNCTION0:
                  case TE_FUNCTION1:
                  case TE_FUNCTION2:
                  case TE_FUNCTION3: /* Falls through. */
                  case TE_FUNCTION4:
                  case TE_FUNCTION5:
                  case TE_FUNCTION6:
                  case TE_FUNCTION7: /* Falls through. */
                     s->type = var->type;
                     s->function = var->address;
                     break;
               }
            }
 
         } else {
            /* Look for an operator or special character. */
            switch (s->next++[0]) {
               case '+':
                  s->type = TOK_INFIX;
                  s->function = add;
                  break;
               case '-':
                  s->type = TOK_INFIX;
                  s->function = sub;
                  break;
               case '*':
                  s->type = TOK_INFIX;
                  s->function = mul;
                  break;
               case '/':
                  s->type = TOK_INFIX;
                  s->function = divide;
                  break;
               case '^':
                  s->type = TOK_INFIX;
                  s->function = pow;
                  break;
               case '%':
                  s->type = TOK_INFIX;
                  s->function = fmod;
                  break;
               case '(': s->type = TOK_OPEN; break;
               case ')': s->type = TOK_CLOSE; break;
               case ',': s->type = TOK_SEP; break;
               case ' ':
               case '\t':
               case '\n':
               case '\r': break;
               default: s->type = TOK_ERROR; break;
            }
         }
      }
   } while (s->type == TOK_NULL);
}

Here is the call graph for this function:

Here is the caller graph for this function:

npr()

static double npr ( double  n, double  r  )

static

Definition at line 168 of file tinyexpr.c.

{ return ncr(n, r) * fac(r); }

Here is the call graph for this function:

optimize()

static void optimize ( te_expr *  n )

static

Definition at line 638 of file tinyexpr.c.

                                 {
   /* Evaluates as much as possible. */
   if (n->type == TE_CONSTANT)
      return;
   if (n->type == TE_VARIABLE)
      return;
 
   /* Only optimize out functions flagged as pure. */
   if (IS_PURE(n->type)) {
      const int arity = ARITY(n->type);
      int known = 1;
      int i;
      for (i = 0; i < arity; ++i) {
         optimize(n->parameters[i]);
         if (((te_expr *) (n->parameters[i]))->type != TE_CONSTANT) {
            known = 0;
         }
      }
      if (known) {
         const double value = te_eval(n);
         te_free_parameters(n);
         n->type = TE_CONSTANT;
         n->value = value;
      }
   }
}

Here is the call graph for this function:

pi()

static double pi ( void  )

static

Definition at line 135 of file tinyexpr.c.

{ return 3.14159265358979323846; }

Here is the caller graph for this function:

pn()

static void pn ( const te_expr *  n, int  depth  )

static

Definition at line 702 of file tinyexpr.c.

                                            {
   int i, arity;
   printf("%*s", depth, "");
 
   switch (TYPE_MASK(n->type)) {
      case TE_CONSTANT: printf("%f\n", n->value); break;
      case TE_VARIABLE: printf("bound %p\n", n->bound); break;
 
      case TE_FUNCTION0:
      case TE_FUNCTION1:
      case TE_FUNCTION2:
      case TE_FUNCTION3:
      case TE_FUNCTION4:
      case TE_FUNCTION5:
      case TE_FUNCTION6:
      case TE_FUNCTION7:
      case TE_CLOSURE0:
      case TE_CLOSURE1:
      case TE_CLOSURE2:
      case TE_CLOSURE3:
      case TE_CLOSURE4:
      case TE_CLOSURE5:
      case TE_CLOSURE6:
      case TE_CLOSURE7:
         arity = ARITY(n->type);
         printf("f%d", arity);
         for (i = 0; i < arity; i++) {
            printf(" %p", n->parameters[i]);
         }
         printf("\n");
         for (i = 0; i < arity; i++) {
            pn(n->parameters[i], depth + 1);
         }
         break;
   }
}

Here is the call graph for this function:

Here is the caller graph for this function:

power()

static te_expr * power ( state *  s )

static

Definition at line 462 of file tinyexpr.c.

                                {
   /* <power>     =    {("-" | "+")} <base> */
   int sign = 1;
   while (s->type == TOK_INFIX && (s->function == add || s->function == sub)) {
      if (s->function == sub)
         sign = -sign;
      next_token(s);
   }
 
   te_expr *ret;
 
   if (sign == 1) {
      ret = base(s);
   } else {
      ret = NEW_EXPR(TE_FUNCTION1 | TE_FLAG_PURE, base(s));
      ret->function = negate;
   }
 
   return ret;
}

Here is the call graph for this function:

Here is the caller graph for this function:

sub()

static double sub ( double  a, double  b  )

static

Definition at line 244 of file tinyexpr.c.

{ return a - b; }

Here is the caller graph for this function:

te_compile()

te_expr * te_compile	(	const char *	expression,
		const te_variable *	variables,
		int	var_count,
		int *	error
	)

Definition at line 665 of file tinyexpr.c.

                                                                                                     {
   state s;
   s.start = s.next = expression;
   s.lookup = variables;
   s.lookup_len = var_count;
 
   next_token(&s);
   te_expr *root = list(&s);
 
   if (s.type != TOK_END) {
      te_free(root);
      if (error) {
         *error = (s.next - s.start);
         if (*error == 0)
            *error = 1;
      }
      return 0;
   } else {
      optimize(root);
      if (error)
         *error = 0;
      return root;
   }
}

Here is the call graph for this function:

Here is the caller graph for this function:

te_eval()

double te_eval

(

const te_expr *

n

)

Definition at line 583 of file tinyexpr.c.

                                 {
   if (!n)
      return NAN;
 
   switch (TYPE_MASK(n->type)) {
      case TE_CONSTANT: return n->value;
      case TE_VARIABLE: return *n->bound;
 
      case TE_FUNCTION0:
      case TE_FUNCTION1:
      case TE_FUNCTION2:
      case TE_FUNCTION3:
      case TE_FUNCTION4:
      case TE_FUNCTION5:
      case TE_FUNCTION6:
      case TE_FUNCTION7:
         switch (ARITY(n->type)) {
            case 0: return TE_FUN(void)();
            case 1: return TE_FUN(double)(M(0));
            case 2: return TE_FUN(double, double)(M(0), M(1));
            case 3: return TE_FUN(double, double, double)(M(0), M(1), M(2));
            case 4: return TE_FUN(double, double, double, double)(M(0), M(1), M(2), M(3));
            case 5: return TE_FUN(double, double, double, double, double)(M(0), M(1), M(2), M(3), M(4));
            case 6: return TE_FUN(double, double, double, double, double, double)(M(0), M(1), M(2), M(3), M(4), M(5));
            case 7: return TE_FUN(double, double, double, double, double, double, double)(M(0), M(1), M(2), M(3), M(4), M(5), M(6));
            default: return NAN;
         }
 
      case TE_CLOSURE0:
      case TE_CLOSURE1:
      case TE_CLOSURE2:
      case TE_CLOSURE3:
      case TE_CLOSURE4:
      case TE_CLOSURE5:
      case TE_CLOSURE6:
      case TE_CLOSURE7:
         switch (ARITY(n->type)) {
            case 0: return TE_FUN(void *)(n->parameters[0]);
            case 1: return TE_FUN(void *, double)(n->parameters[1], M(0));
            case 2: return TE_FUN(void *, double, double)(n->parameters[2], M(0), M(1));
            case 3: return TE_FUN(void *, double, double, double)(n->parameters[3], M(0), M(1), M(2));
            case 4: return TE_FUN(void *, double, double, double, double)(n->parameters[4], M(0), M(1), M(2), M(3));
            case 5: return TE_FUN(void *, double, double, double, double, double)(n->parameters[5], M(0), M(1), M(2), M(3), M(4));
            case 6: return TE_FUN(void *, double, double, double, double, double, double)(n->parameters[6], M(0), M(1), M(2), M(3), M(4), M(5));
            case 7: return TE_FUN(void *, double, double, double, double, double, double, double)(n->parameters[7], M(0), M(1), M(2), M(3), M(4), M(5), M(6));
            default: return NAN;
         }
 
      default: return NAN;
   }
}

Here is the caller graph for this function:

te_free()

void te_free

(

te_expr *

n

)

Definition at line 128 of file tinyexpr.c.

                         {
   if (!n)
      return;
   te_free_parameters(n);
   free(n);
}

Here is the call graph for this function:

Here is the caller graph for this function:

te_free_parameters()

void te_free_parameters

(

te_expr *

n

)

Definition at line 107 of file tinyexpr.c.

                                    {
   if (!n)
      return;
   switch (TYPE_MASK(n->type)) {
      case TE_FUNCTION7:
      case TE_CLOSURE7: te_free(n->parameters[6]); /* Falls through. */
      case TE_FUNCTION6:
      case TE_CLOSURE6: te_free(n->parameters[5]); /* Falls through. */
      case TE_FUNCTION5:
      case TE_CLOSURE5: te_free(n->parameters[4]); /* Falls through. */
      case TE_FUNCTION4:
      case TE_CLOSURE4: te_free(n->parameters[3]); /* Falls through. */
      case TE_FUNCTION3:
      case TE_CLOSURE3: te_free(n->parameters[2]); /* Falls through. */
      case TE_FUNCTION2:
      case TE_CLOSURE2: te_free(n->parameters[1]); /* Falls through. */
      case TE_FUNCTION1:
      case TE_CLOSURE1: te_free(n->parameters[0]);
   }
}

Here is the call graph for this function:

Here is the caller graph for this function:

te_interp()

double te_interp	(	const char *	expression,
		int *	error
	)

Definition at line 690 of file tinyexpr.c.

                                                     {
   te_expr *n = te_compile(expression, 0, 0, error);
   double ret;
   if (n) {
      ret = te_eval(n);
      te_free(n);
   } else {
      ret = NAN;
   }
   return ret;
}

Here is the call graph for this function:

Here is the caller graph for this function:

te_print()

void te_print

(

const te_expr *

n

)

Definition at line 739 of file tinyexpr.c.

                                {
   pn(n, 0);
}

Here is the call graph for this function:

term()

static te_expr * term ( state *  s )

static

Definition at line 539 of file tinyexpr.c.

                               {
   /* <term>      =    <factor> {("*" | "/" | "%") <factor>} */
   te_expr *ret = factor(s);
 
   while (s->type == TOK_INFIX && (s->function == mul || s->function == divide || s->function == fmod)) {
      te_fun2 t = s->function;
      next_token(s);
      ret = NEW_EXPR(TE_FUNCTION2 | TE_FLAG_PURE, ret, factor(s));
      ret->function = t;
   }
 
   return ret;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

functions

const te_variable functions[]

static

Definition at line 175 of file tinyexpr.c.

                                       {
   /* must be in alphabetical order */
   {"abs", fabs, TE_FUNCTION1 | TE_FLAG_PURE, 0},
   {"acos", acos, TE_FUNCTION1 | TE_FLAG_PURE, 0},
   {"asin", asin, TE_FUNCTION1 | TE_FLAG_PURE, 0},
   {"atan", atan, TE_FUNCTION1 | TE_FLAG_PURE, 0},
   {"atan2", atan2, TE_FUNCTION2 | TE_FLAG_PURE, 0},
   {"ceil", ceil, TE_FUNCTION1 | TE_FLAG_PURE, 0},
   {"cos", cos, TE_FUNCTION1 | TE_FLAG_PURE, 0},
   {"cosh", cosh, TE_FUNCTION1 | TE_FLAG_PURE, 0},
   {"e", e, TE_FUNCTION0 | TE_FLAG_PURE, 0},
   {"exp", exp, TE_FUNCTION1 | TE_FLAG_PURE, 0},
   {"fac", fac, TE_FUNCTION1 | TE_FLAG_PURE, 0},
   {"floor", floor, TE_FUNCTION1 | TE_FLAG_PURE, 0},
   {"ln", log, TE_FUNCTION1 | TE_FLAG_PURE, 0},
#ifdef TE_NAT_LOG
   {"log", log, TE_FUNCTION1 | TE_FLAG_PURE, 0},
#else
   {"log", log10, TE_FUNCTION1 | TE_FLAG_PURE, 0},
#endif
   {"log10", log10, TE_FUNCTION1 | TE_FLAG_PURE, 0},
   {"ncr", ncr, TE_FUNCTION2 | TE_FLAG_PURE, 0},
   {"npr", npr, TE_FUNCTION2 | TE_FLAG_PURE, 0},
   {"pi", pi, TE_FUNCTION0 | TE_FLAG_PURE, 0},
   {"pow", pow, TE_FUNCTION2 | TE_FLAG_PURE, 0},
   {"sin", sin, TE_FUNCTION1 | TE_FLAG_PURE, 0},
   {"sinh", sinh, TE_FUNCTION1 | TE_FLAG_PURE, 0},
   {"sqrt", sqrt, TE_FUNCTION1 | TE_FLAG_PURE, 0},
   {"tan", tan, TE_FUNCTION1 | TE_FLAG_PURE, 0},
   {"tanh", tanh, TE_FUNCTION1 | TE_FLAG_PURE, 0},
   {0, 0, 0, 0}};