forked from KolibriOS/kolibrios
28 lines
617 B
C
28 lines
617 B
C
|
|
||
|
|
#ifndef __arrayclass_h__
|
||
|
|
#define __arrayclass_h__
|
||
|
|
|
||
|
|
#include "yacasbase.h"
|
||
|
|
#include "lispobject.h"
|
||
|
|
#include "genericobject.h"
|
||
|
|
|
||
|
|
class ArrayClass : public GenericClass
|
||
|
|
{
|
||
|
|
public: //required
|
||
|
|
ArrayClass(LispInt aSize,LispObject* aInitialItem);
|
||
|
|
virtual ~ArrayClass();
|
||
|
|
virtual LispChar * Send(LispArgList& aArgList);
|
||
|
|
virtual LispChar * TypeName();
|
||
|
|
public: //array-specific
|
||
|
|
inline LispInt Size();
|
||
|
|
inline LispObject* GetElement(LispInt aItem); // TODO: 1-based, ...
|
||
|
|
inline void SetElement(LispInt aItem,LispObject* aObject);
|
||
|
|
|
||
|
|
private:
|
||
|
|
LispPtrArray iArray;
|
||
|
|
};
|
||
|
|
|
||
|
|
#include "arrayclass.inl"
|
||
|
|
#endif
|
||
|
|
|