/usr/include/yacas/arrayclass.h is in yacas 1.3.6-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 | #ifndef YACAS_ARRAYCLASS_H
#define YACAS_ARRAYCLASS_H
#include "yacasbase.h"
#include "lispobject.h"
#include "genericobject.h"
#include <vector>
class ArrayClass : public GenericClass
{
public:
//required
ArrayClass(std::size_t aSize,LispObject* aInitialItem);
const LispChar* TypeName();
//array-specific
std::size_t Size();
LispObject* GetElement(std::size_t aItem);
void SetElement(std::size_t aItem,LispObject* aObject);
private:
std::vector<LispPtr> iArray;
};
inline
ArrayClass::ArrayClass(std::size_t aSize, LispObject* aInitialItem):
iArray(aSize, LispPtr(aInitialItem))
{
}
inline
const LispChar* ArrayClass::TypeName()
{
return "\"Array\"";
}
inline
std::size_t ArrayClass::Size()
{
return iArray.size();
}
inline
LispObject* ArrayClass::GetElement(std::size_t aItem)
{
assert(aItem > 0 && aItem<=iArray.size());
return iArray[aItem-1];
}
inline
void ArrayClass::SetElement(std::size_t aItem, LispObject* aObject)
{
assert(aItem > 0 && aItem<=iArray.size());
iArray[aItem-1] = aObject;
}
#endif
|