fdatainterp Class Reference

#include <rawinterpreter.h>

Collaboration diagram for fdatainterp:

List of all members.

Public Member Functions
	fdatainterp ()
	~fdatainterp ()
void	reset ()
void	eval (string const &word)
void	process2_silent (istream &is)
template<typename T >
void	process2 (istream &is, T &prnt)
void	add (fbuildbase *x)
template<typename T >
void	addtodictionary (T)
Public Attributes
vector< fbuildbase * >	dicttable
map< string, fbuildbase * >	dict

---

Detailed Description

Definition at line 81 of file rawinterpreter.h.

---

Constructor & Destructor Documentation

fdatainterp::fdatainterp

(

)

Definition at line 51 of file rawinterpreter.cpp.

{
  init();
}

fdatainterp::~fdatainterp

(

)

Definition at line 202 of file rawinterpreter.cpp.

{
  dictionarydelete();
}

---

Member Function Documentation

void fdatainterp::add

(

fbuildbase *

x

)

[inline]

Definition at line 114 of file rawinterpreter.h.

References dict.

    { dict.insert( make_pair(x->name(),x) ); }

template<typename T >

void fdatainterp::addtodictionary

(

T

)

[inline]

Definition at line 119 of file rawinterpreter.h.

References fbuildbase::copy(), and dicttable.

Referenced by addtothedictionary< T >::addtothedictionary().

  {
    // No support for inc() dec() with building
    // functions. fn is copied twice and the
    // functions themselves are not persistant
    // with a reset.
    fbuildbase* fn = new fbuild< typename T::type>();
    dicttable.push_back(fn);
    add(fn->copy());
  }

void fdatainterp::eval

(

string const &

word

)

Definition at line 225 of file rawinterpreter.cpp.

References inputstatescope::cscope, dict, inputstatescope::evalimmediate, inputstatescope::evaloverride, and inputstatescope::evalpreserved.

Referenced by outerinput::eval(), innerinput::eval(), and test03().

{
// 1. Determine if word is a number else
// 2. Determine if word is in the dictionary else
// 3. assume word is a string.
  char ch = word[0];

  if ( (ch=='-') && (word.size()>1))
    ch = word[1];

  if ( (ch=='.') && (word.size()>1))
    ch = word[1];

  if ( isdigit(ch) )
  {
    // Is the number real or integer. 
    bool integertype=true;
    for (unsigned int i=0, imax=word.size(); i<imax; ++i)
    {
      if( word[i]=='.')
      {
        integertype=false;
        i=imax;
      }
    }

    // Construct the number.
    if (integertype)
      new rpninteger( rpnprogramstackstate().ds(), integer(word) );
    else
      new rpnreal( rpnprogramstackstate().ds(), real(word) ); 
   
    return;
  }

  // Not a number 

#ifdef DEBUG_INTERPRETER
cout << "Input: Not a number." << endl;
#endif

  // The user can force a string onto the stack.
/*
  if (ch=='"')
  {
    if (word.size()==1)
      return;

    string w(word.begin()+1,word.end());
    new rpnstring( rpnprogramstackstate().ds(), w );

    return;
  }
*/

  // Search the dictionary. 

  // The # symbol indicates the item should not be evaluated. 
  // The @ symbol indicates the item should be evaluated.     
  if ((ch=='#')||(ch=='@'))
  {
    if (word.size()<=2)
    {
      if (word.size()==1)
        return; // Ignore lone # or @ character.

      // Setting the mode was so important that I took it away
      // from the standard function system. 
      if (word=="@+")
      {  // Set immediate evaluation mode. 
        inputstatescope::cscope->evalimmediate = true;
        return;
      }

      if (word=="@-")
      { // Unset immediate evaluation mode.
        inputstatescope::cscope->evalimmediate = false;
        return;
      }
    }

    bool tmpeval = true;
    if (ch=='#')
      tmpeval = false;

    string word2(word.begin()+1,word.end());
      
    map<string,fbuildbase*>::iterator i = dict.find(word2);
    if (i!=dict.end())
    {
      inputstatescope::cscope->evaloverride = true;
      inputstatescope::cscope->evalpreserved = 
        inputstatescope::cscope->evalimmediate;
      inputstatescope::cscope->evalimmediate = tmpeval;
 
      i->second->make();

      inputstatescope::cscope->evalimmediate = 
          inputstatescope::cscope->evalpreserved;
      inputstatescope::cscope->evaloverride = false;

      return;
    }

  }
  else
  {

#ifdef DEBUG_INTERPRETER
cout << "Input: Not a evaluation directive, word=" << 
  word  << "." << endl;
#endif

    map<string,fbuildbase*>::iterator i = dict.find(word);
    if (i!=dict.end())
    {
      i->second->make();
  
      return;
    }
  }

  // Assume a string

#ifdef DEBUG_INTERPRETER
cout << "Input: string*" << word << "*" << endl;
#endif

  new rpnstring( rpnprogramstackstate().ds(), word );
};

template<typename T >

void fdatainterp::process2	(	istream &	is,
		T &	prnt
	)			[inline]

Definition at line 242 of file rawinterpreter.h.

{
  char c;
  char const quote('"');
  char const space(' ');
  char const ret('\n');

  string s;

  string const quit("quit");

  while ((c = is.peek()))
  {
    s.clear();

    if (c==quote)
    {
      is.get(c);
      is.get(c);
      while (c!=quote)
      {
        s += c;
        is.get(c);
      }

      new rpnstring( rpnprogramstackstate().ds(), s );
    }
    else
    if (c=='(')
    {
      complex< long double > x;
      is >> x;
     
      new rpncomplex( rpnprogramstackstate().ds(), x );


    }
    else
    {
      is.get(c);
      if ((c!=space)&&(c!=ret))
      {
        s += c;
        is.get(c);
        while ((c!=space)&&(c!=ret))
        {
          s += c;
          is.get(c);
        }
      }

      if (!s.empty())
        SingletonPtr<inputstatescope>()->eval(s);

    }

    if (s==quit)
      break;

    prnt();
  }
}

void fdatainterp::process2_silent

(

istream &

is

)

Definition at line 471 of file rawinterpreter.cpp.

{
  char c;
  char const quote('"');
  char const space(' ');
  char const ret('\n');

  string s;

  string const quit("quit");

  while ((c = is.peek()))
  {
//cout << "c=" << c << endl;
    s.clear();

    if (c==quote)
    {
      is.get(c);
      is.get(c);
      while (c!=quote)
      {
        s += c;
        is.get(c);
        if (!is)
          return;
      }

      new rpnstring( rpnprogramstackstate().ds(), s );
    }
    else
    if (c=='(')
    {
      complex< long double > x;
      is >> x;
     
      new rpncomplex( rpnprogramstackstate().ds(), x );

    }
    else
    {
      is.get(c);
      if ((c!=space)&&(c!=ret))
      {
        s += c;
        is.get(c);
//cout << "c=" << c << endl;
        while ((c!=space)&&(c!=ret))
        {
          s += c;
          is.get(c);
//cout << "c=" << c << endl;
          if (!is)
            return;
        }
      }

      if (!s.empty())
        SingletonPtr<inputstatescope>()->eval(s);

    }

    if (!is)
      return;

    if (s==quit)
      break;
  }
}

void fdatainterp::reset

(

)

Definition at line 193 of file rawinterpreter.cpp.

References dicttable.

{
  dictionarydelete();

  // Build the dictionary.
  for (unsigned int i=0, n=dicttable.size(); i<n; ++i)
    add( dicttable[i]->copy() );
}

---

Member Data Documentation

map<string,fbuildbase*> fdatainterp::dict

Definition at line 96 of file rawinterpreter.h.

Referenced by add(), and eval().

vector< fbuildbase* > fdatainterp::dicttable

Definition at line 94 of file rawinterpreter.h.

Referenced by addtodictionary(), and reset().

---

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

• rpn/rawinterpreter.h
• rpn/rawinterpreter.cpp