Method ParseTerm

ngstd/evalfunc.cpp:668–717

  EvalFunction::ResultType EvalFunction :: ParseTerm ()
  {
    ResultType result = ParsePrimary();
  
    while (1)
      {
	switch (GetToken())
	  {
	  case MULT:
	    {
	      ReadNext();    // '*'
	      ResultType result2 = ParsePrimary();
	      result.iscomplex |= result2.iscomplex;
	      if (result.vecdim == 1 && result2.vecdim == 1)
		{
		  AddOperation (MULT);
		}
	      else if (result.vecdim == 1 && result2.vecdim > 1)
		{
		  AddOperation (SCAL_VEC_MULT);
		  program.Last().vecdim = result2.vecdim;
		  result.vecdim = result2.vecdim;
		}
	      else if (result.vecdim > 1 && result2.vecdim > 1)
		{
		  AddOperation (VEC_VEC_MULT);
		  program.Last().vecdim = result.vecdim;
                  result.vecdim = 1;
		}
	      break;
	    }
	  case DIV:
	    {
	      ReadNext();
	      ParsePrimary();
	      AddOperation (DIV);
	      break;
	    }
	  case AND:
	    {
	      ReadNext();
	      ParsePrimary();
	      AddOperation (AND);
	      break;
	    }
	  default:
	    return result;
	  }
      }
  }