args.h

Go to the documentation of this file.

#pragma once
#include "defs.h"
#include "array.h"
#include "tree.h"
#include "stack.h"
 
using namespace paula::core;
 
namespace paula
{
    namespace core
    {
        class Engine;
    }
    class Var
    {
    public:
        INT type() const;
        INT size() const;
        bool match(INT tag) const;
        bool getInt(INT& out) const;
        bool getDouble(DOUBLE& out) const;
        bool getBool(bool& out) const;
        bool getOp(char& out) const;
        bool getChars(char*&out) const;
        bool isSubtree() const;
 
        friend class Args;
        friend class core::Tree;
        friend class core::TreeIterator;
        friend class core::Stack;
        friend class core::StackIterator;
        friend class core::Engine;
    private:
        const INT* ptr; // pointer to a data tag in a tree. volatile, as data can change
        Var(const INT*_ptr);
        Var();
    };
    class Args
    {
    public:
        INT count();
        void returnInt(INT value);
        void returnBool(bool value);
        bool hasReturnValue();
        void returnData(Var x);
        Var get(INT dataIndex);
 
        void print();
 
        friend class Engine;
 
    private:
        Args();
        Args(Engine*_engine, INT* _stackBase);
 
        Engine*engine;
        INT*stackBase;
 
        static INT emptyData;
 
        friend class Var;
        friend class core::Engine;
 
    };
 
    /*
    class ArgDef
    {
    public:
    ArgDef(INT size);
 
    bool match(Tree&);
    bool match(TreeIterator&);
 
    Array<INT>types;
 
    private:
 
    ArgDef() = delete;
    };
    */
}