996
|
1 // ListVar.h
|
|
2
|
|
3 #ifndef LIST_VAR_H_RAIL_1
|
|
4 #define LIST_VAR_H_RAIL_1
|
|
5
|
|
6 #include "Var.h"
|
|
7 #include "NilVar.h"
|
|
8
|
|
9 struct ConsCell
|
|
10 {
|
|
11 ConsCell(Binding newCar = NIL, Binding newCdr = NIL)
|
|
12 : car(newCar)
|
|
13 , cdr(newCdr)
|
|
14 {
|
|
15 }
|
|
16 Binding car;
|
|
17 Binding cdr;
|
|
18 };
|
|
19
|
|
20 class ListVar : public Var
|
|
21 {
|
|
22 public:
|
|
23 ListVar()
|
|
24 : car(NIL)
|
|
25 , cdr(NIL) {}
|
|
26 ListVar(Binding newCar, Binding newCdr)
|
|
27 : car(newCar), cdr(newCdr) {}
|
|
28 virtual ~ListVar() {}
|
|
29
|
|
30 virtual StringVar * getString(void)
|
|
31 {
|
|
32 return NULL;
|
|
33 }
|
|
34
|
|
35 virtual ListVar * getList(void)
|
|
36 {
|
|
37 return this;
|
|
38 }
|
|
39
|
|
40 virtual NilVar * getNil(void)
|
|
41 {
|
|
42 return NULL;
|
|
43 }
|
|
44
|
|
45 virtual Closure * getClosure(void)
|
|
46 {
|
|
47 return NULL;
|
|
48 }
|
|
49
|
|
50 virtual std::string toString(void) const
|
|
51 {
|
|
52 return "(cons " + car->toString() + " " + cdr->toString() + ")";
|
|
53 }
|
|
54
|
|
55 ConsCell getCell(void) const
|
|
56 {
|
|
57 return ConsCell(car, cdr);
|
|
58 }
|
|
59
|
|
60 Binding getCar(void) const
|
|
61 {
|
|
62 return car;
|
|
63 }
|
|
64
|
|
65 Binding getCdr(void) const
|
|
66 {
|
|
67 return cdr;
|
|
68 }
|
|
69 private:
|
|
70 ListVar(ListVar const &) {}
|
|
71 ListVar & operator=(ListVar const &) { return *this; }
|
|
72 private:
|
|
73 Binding car;
|
|
74 Binding cdr;
|
|
75 };
|
|
76
|
|
77 #endif
|