Subversion Repositories Kolibri OS

#define __patternclass_h__

#include "lispobject.h"

#include "genericobject.h"

#include "patterns.h"

/// This class allows a YacasPatternPredicateBase to be put in a

/// LispGenericObject.

class PatternClass : public GenericClass

{

public:

  PatternClass(YacasPatternPredicateBase* aPatternMatcher);

  ~PatternClass();

                      LispPtr& aArguments);

  LispBoolean Matches(LispEnvironment& aEnvironment,

                      LispPtr* aArguments);

public: //From GenericClass

  virtual LispChar * Send(LispArgList& aArgList);

  virtual LispChar * TypeName();

  PatternClass(const PatternClass& aOther): iPatternMatcher(NULL)

  {

    // copy constructor not written yet, hence the assert

    LISPASSERT(0);

  }

  PatternClass& operator=(const PatternClass& aOther)

  {

    // copy constructor not written yet, hence the assert

    LISPASSERT(0);

    return *this;

  }

protected:

  YacasPatternPredicateBase* iPatternMatcher;

};