Function posixtest

src/test.c:615–656

This is an implementation of a Posix.2 proposal by David Korn. */

/* This is an implementation of a Posix.2 proposal by David Korn. */
static bool
posixtest (int nargs)
{
  bool value;

  switch (nargs)
    {
      case 1:
        value = one_argument ();
        break;

      case 2:
        value = two_arguments ();
        break;

      case 3:
        value = three_arguments ();
        break;

      case 4:
        if (streq (argv[pos], "!"))
          {
            advance (true);
            value = !three_arguments ();
            break;
          }
        if (streq (argv[pos], "(") && streq (argv[pos + 3], ")"))
          {
            advance (false);
            value = two_arguments ();
            advance (false);
            break;
          }
        FALLTHROUGH;
      case 5:
      default:
        affirm (0 < nargs);
        value = expr ();
    }

  return (value);
}

#if defined TEST_STANDALONE