mirror of
https://github.com/louisrubet/rpn
synced 2025-01-07 17:24:19 +01:00
75 lines
1.5 KiB
C
75 lines
1.5 KiB
C
//
|
|
void sto(void)
|
|
{
|
|
MIN_ARGUMENTS(2);
|
|
ARG_MUST_BE_OF_TYPE(0, cmd_symbol);
|
|
|
|
string name(((symbol*)_stack->get_obj(0))->_value);
|
|
_stack->pop_back();
|
|
_heap->add(name, _stack->get_obj(0), _stack->get_len(0), _stack->get_type(0));
|
|
_stack->pop_back();
|
|
}
|
|
|
|
void rcl(void)
|
|
{
|
|
MIN_ARGUMENTS(1);
|
|
ARG_MUST_BE_OF_TYPE(0, cmd_symbol);
|
|
|
|
// recall a variable
|
|
void* obj;
|
|
unsigned int size;
|
|
int type;
|
|
string variable(((symbol*)_stack->back())->_value);
|
|
if (_heap->get(variable, obj, size, type))
|
|
{
|
|
_stack->pop_back();
|
|
_stack->push_back(obj, size, type);
|
|
}
|
|
else
|
|
ERR_CONTEXT(ret_unknown_variable);
|
|
}
|
|
|
|
// carefull : this is not a langage command
|
|
void auto_rcl(symbol* symb)
|
|
{
|
|
if (symb->_auto_eval)
|
|
{
|
|
void* obj;
|
|
unsigned int size;
|
|
int type;
|
|
if (_heap->get(string(symb->_value), obj, size, type))
|
|
_stack->push_back(obj, size, type);
|
|
else
|
|
_stack->push_back(symb, symb->size(), cmd_symbol);
|
|
}
|
|
else
|
|
_stack->push_back(symb, symb->size(), cmd_symbol);
|
|
}
|
|
|
|
void purge(void)
|
|
{
|
|
MIN_ARGUMENTS(1);
|
|
ARG_MUST_BE_OF_TYPE(0, cmd_symbol);
|
|
|
|
string name(((symbol*)_stack->back())->_value);
|
|
if (!_heap->erase(name))
|
|
ERR_CONTEXT(ret_unknown_variable);
|
|
else
|
|
_stack->pop_back();
|
|
}
|
|
|
|
void vars(void)
|
|
{
|
|
object* obj;
|
|
unsigned int size;
|
|
int type;
|
|
string name;
|
|
|
|
for (int i=0; i<(int)_heap->size(); i++)
|
|
{
|
|
(void)_heap->get_by_index(i, name, (void*&)obj, size, type);
|
|
cout<<"var "<<i+1<<": name '"<<name<<"', type "<<cmd_type_string[type]<<", value ";
|
|
obj->show();
|
|
cout<<endl;
|
|
}
|
|
}
|