mini parser combinators

gistfile1.txt

#include<stdio.h>
int lookahead = -1;
void getchar_skipwhitespace() { while( (lookahead = getchar()) == ' ') ; }
int success() { getchar_skipwhitespace(); return 1; }
int failure() { return 0; }
int lparen() { return lookahead == '(' ? success() : failure(); }
int rparen() { return lookahead == ')' ? success() : failure(); }
int sym() { return lookahead >= 'a' && lookahead <= 'z' ? success() : failure(); }
int star( int (*a) (void) ) { return a() ? star(a) : 1; }
int main(int argc, char *argv[]) {
    int result = 0;
    getchar_skipwhitespace();
    result = sym() || (lparen() && star(sym) && rparen()) ;
    printf("result: %d\n", result);
    return 0;
}