rpnfor Class Reference

#include <rpnfunc.h>

Inheritance diagram for rpnfor:

Collaboration diagram for rpnfor:

List of all members.

Public Member Functions
	rpnfor ()
	rpnfor (deque< rpnbase * > &ds, bool const evaluate=true)
	~rpnfor ()
rpnbase *	copy () const
void	visit (deque< rpnbase * > &ds, rpnprogram &n)
string const	name () const
void	eval (deque< rpnbase * > &ds)

---

Detailed Description

Definition at line 811 of file rpnfunc.h.

---

Constructor & Destructor Documentation

rpnfor::rpnfor

(

)

[inline]

Definition at line 815 of file rpnfunc.h.

Referenced by copy().

{}

rpnfor::rpnfor	(	deque< rpnbase * > &	ds,
		bool const	evaluate = true
	)

Definition at line 2287 of file rpnfunc.cpp.

References eval().

{
  if (evaluate)
    eval(ds);
  else
    ds.push_front(this);
}

rpnfor::~rpnfor

(

)

[inline]

Definition at line 817 of file rpnfunc.h.

{}

---

Member Function Documentation

rpnbase * rpnfor::copy

(

)

const [virtual]

Reimplemented from rpnfunction.

Definition at line 2295 of file rpnfunc.cpp.

References rpnfor().

{
  return new rpnfor();
}

void rpnfor::eval

(

deque< rpnbase * > &

ds

)

[virtual]

Reimplemented from rpnfunction.

Definition at line 2300 of file rpnfunc.cpp.

References rpnbase::accept(), and rpnbase::dec().

Referenced by rpnfor().

{
  if (ds.size()>1)
    ds[0]->accept(ds,*this);

  dec();
}

string const rpnfor::name

(

)

const [inline, virtual]

Reimplemented from rpnfunction.

Definition at line 822 of file rpnfunc.h.

{ return string("for"); }

void rpnfor::visit	(	deque< rpnbase * > &	ds,
		rpnprogram &	n
	)			[virtual]

Reimplemented from rpnfunction.

Definition at line 2349 of file rpnfunc.cpp.

References rpnbase::copy(), rpnbase::dec(), rpnbase::eval(), rpnbase::isinteger(), and rpnbase::isprogram().

{
  rpnbase* x0 = ds.front();  // body 
  ds.pop_front();
  rpnbase* x1 = ds.front();  // test 
  ds.pop_front();

//cout << "Entering rpnfor" << endl;

  if ( x1->isprogram())
  {

    bool flag(0);
    rpnbase* x3;

    x1->copy()->eval(ds);
    x3 = ds.front();
    ds.pop_front();
    if (x3->isinteger())
    {
      flag=((rpninteger*)x3)->num;
      x3->dec();
    }
    else
    {
      new rpnstring(ds,"error in for: test needs to return integer.");
    }

//
//  MAGIC NUMBER
//  MAGIC NUMBER
//  MAGIC NUMBER
//
//  Limit for loop computation. 
    long unsigned int loopcounter(100000);

    
    for ( ; flag; )
    {
      x0->copy()->eval(ds);

      x1->copy()->eval(ds);
      x3 = ds.front();
      ds.pop_front();
      if (x3->isinteger())
      {
        flag=((rpninteger*)x3)->num;
//cout << "num=" << ((rpninteger*)x3)->num << "  ";
//cout << "flag=" << flag << endl;
        x3->dec();
      }
      else
      {
        new rpnstring(ds,"error in for: test needs to return integer.");
        break;
      }

      --loopcounter;
      if (loopcounter==0)
      {
        new rpnstring(ds,"error:  for in infinite loop.");

        flag=false;
        break;
      }
    }   
 
  }
  else 
  { // Restore the stack and exit. 
    ds.push_front(x1);
    ds.push_front(x0);
    return;
  }

  x0->dec();
  x1->dec();

}

---

The documentation for this class was generated from the following files:

• rpn/rpnfunc.h
• rpn/rpnfunc.cpp