정수 인 경우이 코드에서 consed 오브젝트에 대해 car와 cdr을 어떻게 인쇄 할 수 있습니까?

Question

나는 c에서 scheme을 구현하는 크로스 컴파일러를 구현하려고한다. 이것을 위해 나는 단점과리스트를 사용하여 기본 스키마 구조를 구현하려고합니다. 아래에 표시된 코드는 죄수 용입니다. consed 객체가 정수이고 다른 consed 객체가 아닌 경우 엔 car에 액세스 할 수 없습니다.

#include <stdio.h> 
#include <stdlib.h> 
#include <string.h> 
#include <ctype.h> 

typedef enum 
    {PAIR, NUMBER} object; 

typedef struct node cons_object; 

struct node { 
    object type; 
    union 
    {  
    int i; 
    float f; 
    char* string; 
    struct pair { 
     cons_object* car; 
     cons_object* cdr; 
    } pair; 
    } data; 
}; 

cons_object* cons(cons_object* x, cons_object* y) 
{ 
    cons_object* obj; 
    obj = malloc(sizeof(cons_object*)); 
    obj->type = PAIR; 
    obj->data.pair.car = x; 
    obj->data.pair.cdr = y; 
    return obj; /*returns the pointer car*/ 
} 

cons_object* car(cons_object* list) /*takes in a consed object*/ 
{ 
    cons_object* y; 
    y = list->data.pair.car; 
    return y;  /* returns the pointer of another consed object */ 
} 

cons_object* cdr(cons_object* list) 
{ 
    cons_object* z; 
    z = list->data.pair.cdr; 
    return z;   /* returns the pointer of another consed object */ 
} 

void eval_cons(cons_object* pair) 
{ 
    cons_object* first; 
    cons_object* second; 
    int *a;      /* An integer type pointer to dereference the values returned by car and cdr   pointers */ 

    first = car(pair); 
    second = cdr(pair); 
{ 
    if(first->type == PAIR){ 
    eval_cons(first);  // If car is a cons-ed object, it is again sent to the eval function 
    } 
    else 
{ 
    a = (int *)&first; /* tried type casting too */ 
    printf("%d",*a); 
} 
} 
if(second->type == PAIR)   
    eval_cons(second); // If cdr is a cons-ed object, it is again sent to the eval function 

else 
    { 
    a = (int *)&second; 
    printf("%d",*a);    // prints the dereferenced value 
    } 
} 

// If eval starts working then we could test it from the following sample code: 


int main() 

{ 
    eval_cons(cons(3,4)); /* cant find a way to access 3 and 4 */ 
    getchar(); 
    return 0; 
} 

Answer 1

eval_cons(cons(3,4)); 

아마, 당신은 단점으로 두 개의 정수, 다른 죄수 객체되지 포인터를 전달하는

int a; 
a = first->data.i;//also second 
printf("%d ",a);