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
|
#include "yacas/yacasprivate.h"
#include "yacas/patternclass.h"
PatternClass::PatternClass(YacasPatternPredicateBase* aPatternMatcher)
: iPatternMatcher(aPatternMatcher)
{
}
PatternClass::~PatternClass()
{
delete iPatternMatcher;
}
const LispChar * PatternClass::TypeName()
{
return "\"Pattern\"";
}
bool PatternClass::Matches(LispEnvironment& aEnvironment,
LispPtr& aArguments)
{
assert(iPatternMatcher);
bool result;
result = iPatternMatcher->Matches(aEnvironment, aArguments);
return result;
}
bool PatternClass::Matches(LispEnvironment& aEnvironment,
LispPtr* aArguments)
{
assert(iPatternMatcher);
bool result;
result = iPatternMatcher->Matches(aEnvironment, aArguments);
return result;
}
|
