parse_probs.c

object* atom(struct token_object token_obj){

    if(scmp(token_obj.type, "num")){
    return create_number(token_obj.value);
  }
    else  if(scmp(token_obj.type, "string")){
    return create_string(token_obj.value);
  }
   
    else{
      return create_primitiveop(token_obj.value);
    }

}


object* parse_pair (token_list* token_list){
struct token_object token = token_list->val;
	
 object *car_obj;
 object *cdr_obj;

 token_list= token_list->next;
 if(scmp(token_list->val.value, ")")){
	printf("Empty list\n");
	return empty_list;
      }

 car_obj = parse(token_list);

 if(scmp(token_list->val.value, ".")){
	printf("Improper list\n");
        exit(0);
      }

 else{
   cdr_obj = parse_pair(token_list);
   return cons(car_obj, cdr_obj);
   
 }

}

//Takes the token list. for example (+ 7 (* 2 3)) gives a token list (-> + -> 7-> (->- * -> 2-> 3->)->)-> NULL
object* parse(token_list* token_list){
	
  struct token_object token = token_list->val;
  
  if(scmp(token.value, "(")){
	  
    return parse_pair(token_list);
    
  }
 
  else{
    //printf("IN THE ELSE %s\n",token.value);
    //Creates the atom
    return atom(token);
  
  }
  

}