Subversion Repositories Kolibri OS

#define __standard_h__

#include "lispobject.h"

#include "lispenvironment.h"

#include "lisphash.h"

#include "lispatom.h"

#include "numbers.h"

class LispHashTable;

LispBoolean InternalIsString(LispString * aOriginal);

void InternalUnstringify(LispString& aResult, LispString * aOriginal);

void InternalStringify(LispString& aResult, LispString * aOriginal);

void InternalIntToAscii(LispChar * aTrg,LispInt aInt);

LispInt InternalAsciiToInt(LispString * aString);

LispBoolean IsNumber(const LispChar * ptr,LispBoolean aAllowFloat);

void InternalTail(LispPtr& aResult, LispPtr& aArg);

void InternalAssociate(LispPtr& aResult, LispPtr& aKey,

                      LispPtr& aAssociationList);

void InternalFlatCopy(LispPtr& aResult, LispPtr& aOriginal);

LispInt InternalListLength(LispPtr& aOriginal);

                           LispPtr& aExpression1,

                           LispPtr& aExpression2);

inline void InternalFalse(LispEnvironment& aEnvironment, LispPtr& aResult);

inline void InternalBoolean(LispEnvironment& aEnvironment, LispPtr& aResult,

                            LispBoolean aValue);

inline LispBoolean IsTrue(LispEnvironment& aEnvironment, LispPtr& aExpression);

inline LispBoolean IsFalse(LispEnvironment& aEnvironment, LispPtr& aExpression);

inline void InternalNot(LispPtr& aResult, LispEnvironment& aEnvironment, LispPtr& aExpression);

void InternalLoad(LispEnvironment& aEnvironment,LispString * aFileName);

void InternalUse(LispEnvironment& aEnvironment,LispString * aFileName);

void InternalApplyString(LispEnvironment& aEnvironment, LispPtr& aResult,

                         LispString * aOperator,LispPtr& aArgs);

void InternalApplyPure(LispPtr& oper,LispPtr& args2,LispPtr& aResult,LispEnvironment& aEnvironment);

                        LispChar * aString);

#define LIST(_c) LispSubList::New(_c)

class LispObjectAdder : public YacasBase

{

public:

    LispObjectAdder(LispObject* aPtr)

        : iPtr(aPtr) {};

   LispObject* iPtr;

};

#define LA(_o) LispObjectAdder(_o)

void ParseExpression(LispPtr& aResult,LispChar * aString,LispEnvironment& aEnvironment);

                       LispEnvironment& aEnvironment);

 limiting it to a maximum number of characters. If aMaxChars

 is less than zero, the result is not truncated.

 */

void PrintExpression(LispString& aResult, LispPtr& aExpression,

                     LispEnvironment& aEnvironment,

                     LispInt aMaxChars);