lispInterpreter/lispFunctions.cpp at master · siloproduction/lispInterpreter · GitHub

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
#include "object.h"
#include "doublet.h"
#include "symbolsList.h"
#include "nil.h"

#include <iostream>
#include <vector>


//Nil nil;

Object * quote(Object * object) {
    if (object->getObjectType() == DOUBLET) {
        Doublet * doublet = dynamic_cast<Doublet *>(object);
        return doublet->getCar();
    }
    return new Nil;
}

Object * cons(Object * object) {
    if (object->getObjectType() == NIL) {
        Doublet doublet(new Nil, new Nil);
        Object * res = &doublet;
        return res;
    }
    if (object->getObjectType() != DOUBLET) {
        return new Nil;
    }

    Doublet * doubletInput = dynamic_cast<Doublet *>(object);
    if (doubletInput->getCdr()->getObjectType() == NIL) {
        Doublet doubletOutput(doubletInput->getCar(), new Nil);
        Object * res = &doubletOutput;
        return res;
    }

    Doublet doubletOutput(doubletInput->getCar(), doubletInput->getCdr());
    Object * res = &doubletOutput;
    return res;
}


Object * set(Object * object) {
    if (object->getObjectType() != DOUBLET) {
        return new Nil;
    }

    Doublet * doubletInput = dynamic_cast<Doublet *>(object);
    if (doubletInput->getCar()->getObjectType() != DOUBLET) {
        return new Nil;
    }

    Object * value = new Nil;
    if (doubletInput->getCdr()->getObjectType() != NIL) {
        Doublet * doubletCdr = dynamic_cast<Doublet *>(doubletInput->getCdr());
        value = doubletCdr->getCar();
    }

    Object * car = doubletInput->getCar();
    return &(*car = *value);
}

Object * car(Object * object) {
    if (object->getObjectType() != DOUBLET) {
        return new Nil;
    }

    Doublet * doubletInput = dynamic_cast<Doublet *>(object);
    if (doubletInput->getCar()->getObjectType() != DOUBLET) {
        return new Nil;
    }

    Doublet doubletCar = Doublet(((*doubletInput).getCar()), new Nil);
    return doubletCar.getCar();
}

Object * cdr(Object * object) {
    if (object->getObjectType() != DOUBLET) {
        return new Nil;
    }

    Doublet * doubletInput = dynamic_cast<Doublet *>(object);
    if (doubletInput->getCar()->getObjectType() != DOUBLET) {
        return new Nil;
    }

    return doubletInput->getCdr();
}

int length(Doublet doublet) {
    if (doublet.getCar()->getObjectType() == NIL) {
        return 0;
    }

    Object * cdr = doublet.getCdr();

    if (cdr->getObjectType() != DOUBLET) {
        return 1;
    }

    Doublet * doubletCdr = dynamic_cast<Doublet *>(cdr);

    return 1 + length(*doubletCdr);
}