All pastes #956096 Raw Edit

Unnamed

public text v1 · immutable
#956096 ·published 2008-03-25 00:56 UTC
rendered paste body
#include <stdio.h>                                                                                                                                                                                                  
#include "lisp.h"                                                                                                                                                                                                   
#include "struct.h"                                                                                                                                                                                                 
                                                                                                                                                                                                                    
int main()                                                                                                                                                                                                          
{                                                                                                                                                                                                                   
    struct exp* s;                                                                                                                                                                                                  
    int c;                                                                                                                                                                                                          
    s = mk_simp("(+ 1 2 3 5 6)");                                                                                                                                                                                   
    for ( c = 0; c < s->depth; c++ )                                                                                                                                                                                
        printf("%s\n", s->v.n[c]->v.s);                                                                                                                                                                             
    destroy_exp( s );                                                                                                                                                                                               
    return 0;                                                                                                                                                                                                       
}