Common stack for int and char

There are at least two options:

1. C-approach:

    typedef struct ForthType { enum { INT; FLOAT; PTR; STR; BYTECODE; ... } type; // тэг типа union { // значение, в памяти перекрываются в одних адресах int i; float f; void *p; char *s; ... } } D[Dsz]; int Dp=0; #define PUSH(X) { D[Dp++]=X; } #define POP(X) (D[--Dp]) 

2. C ++: generalizing the task - a heterogeneous container is required that can store arbitrary data types (for example, a list in Python or Lisp). Implemented through

   1. type tree inherited from a single полиморфного base class
   2. any STL containers store pointers to the base class Base*
   3. all work with objects needs to be implemented through Base* , the definition of a specific type, typeid(Base*number) and dymanic_cast<Int*>(number)->...

 struct Base { virtual ~Base(); // для базового класса необходима // 1+ виртуальная функция // по классике: [пустой] виртуальный деструктор virtual string dot(); // для каждого типа объектов нужна // своя реализация слова <точка> string val; // строка -- универсальный формат данных: // любые данные можно представить в текстовом виде, // в частности имена слов vector<Base*> bytecode; // понадобится когда начнем реализовывать // определения слов virtual add(Base*); // функции базовой арифметики virtual sub(Base*); virtual mul(Base*); virtual div(Base*); ... }; 

Data stack:

 stack<Base*> DataStack; // (!!!) храним не объекты, а указатели на них 

Stack of returns:

 stack<Base*> ReturnStack; 

Dictionaries

 struct Vocabulary:Base; Vocabulary FORTH("FORTH",NULL); struct Vocabulary:Base { Vocabulary(string name,Vocabulary*next=&FORTH); Vocabulary* next; // для реализации дерева словарей для поиска map<string,Base*> words; // хранилище определений Base* Find(string); // функция рекурсивного поиска words/*next }; Vocabulary FORTH; 

We inherit the types we want to work with:

Integers (only numbers, not addresses):

 struct Int: Base { int val; // (!) оборачиваем нужный тип Int(std::string); Int(int); string dot(); // конструкторы и дамп int add(Base*); int sub(Base*); ... }; // вычисления 

At one time, there was a terrible lack of a floating point, and the float / str (1) encoding / decoding words, even had to intXXh hang a resident calculator written in TurboC (1) for calculations it was elementary to use the FPU stack)

 struct Float: Base { float val ; // (!) оборачиваем нужный тип Float(string); Float(float); string dot(); ... }; 

Pointers

 struct Ptr: Base { Ptr(void*); void *val; };