K & R Программирование С (Book)

#include <stdio.h>
#include <string.h>
#include <ctype.h>
 
#define MAXBUF 100
#define MAXTOKEN 100
 
enum { NAME, PARENS, BRACKETS };
 
int tokentype;                  // token of last type
char token[MAXTOKEN];           // last token string
char name[MAXTOKEN];            // identifier name
char datatype[MAXTOKEN];        // data type
char out[1000];                 // output string
 
char buf[MAXBUF];
int sp = 0;
 
void ungetch(int c) {
    if (sp < MAXBUF)
        buf[sp++] = c;
    else
        printf("the buffer is full\n");
}
 
int getch(void) {
        return sp ? buf[--sp] : getchar();
}
 
int gettoken(void) {
    int c;
    char *p = token;
    void dcl (void);
    while((c = getch()) == ' ' || c == '\t')
       ;
    if (c == '(') {
        if ((c = gettoken()) == ')'){
            strcpy(token, "()");
            return tokentype = PARENS;
        } else {
            ungetch(c);
            return tokentype = '(';
        }
    } else if (c == '[') {
        for (*p++ = c; (*p++ = gettoken()) != ']';)
            ;
        *p = '\0';
        return tokentype = BRACKETS;
    } else if (isalnum(c)) {
        for (*p++ = c; isalnum(c = getch());)
            *p++ = c;
        *p = '\0';
        ungetch(c);
        return tokentype = NAME;
    } else 
        return tokentype = c;
}
 
void dirdcl (void) {
    int type;
    void dcl (void);
    if (tokentype == '('){
        dcl();
        if (tokentype != ')')
            printf("Error: Missing Parens\n");
    } else if (tokentype == NAME)
        strcpy(name, token);
    else 
        printf ("Error: Expected name or (dcl)\n");
    while ((type = gettoken()) == PARENS || type == BRACKETS)
        if (type == PARENS)
            strcat(out, " function returning");
        else {
            strcat(out, " array");
            strcat(out, token);
            strcat(out, " of");
        }
}
 
void dcl (void) {
 
    int ns;
    for (ns = 0; gettoken() == '*'; )
        ns++;
    dirdcl();
    while (ns -- > 0)
        strcat(out, " pointer to");
}
 
int main () {
 
    while (gettoken() != EOF) {
        strcpy(datatype, token);
        out[0] = '\0';
        dcl();
        if ( tokentype != '\n' )
            printf("Syntax error\n");
        printf("%s: %s %s\n", name, out, datatype);
    }
    return 0;
}