Function eval

src/expr.c:943–971

/* Handle |.  */

static VALUE *
eval (bool evaluate)
{
#ifdef EVAL_TRACE
  trace ("eval");
#endif
  VALUE *l = eval1 (evaluate);
  while (true)
    {
      if (nextarg ("|"))
        {
          VALUE *r = eval1 (evaluate && null (l));
          if (null (l))
            {
              freev (l);
              l = r;
              if (null (l))
                {
                  freev (l);
                  l = int_value (0);
                }
            }
          else
            freev (r);
        }
      else
        return l;
    }
}