C++ (Cpp) Doublet::getCar 예제들

예제 #1

파일: lispFunctions.cpp 프로젝트: siloproduction/lispInterpreter

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();
}

예제 #2

파일: lispFunctions.cpp 프로젝트: siloproduction/lispInterpreter

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

예제 #3

파일: lispFunctions.cpp 프로젝트: siloproduction/lispInterpreter

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);
}

예제 #4

파일: lispFunctions.cpp 프로젝트: siloproduction/lispInterpreter

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();
}

예제 #5

파일: lispFunctions.cpp 프로젝트: siloproduction/lispInterpreter

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;
}

예제 #6

파일: lispFunctions.cpp 프로젝트: siloproduction/lispInterpreter

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);
}