学步园

      请高手帮忙看看下面程序的运行，不知道为何不能正常显示结果。改程序的目的是解释C语言的声明，如输入 char **p 应该显示  p: pointer to pointer to char 如果输入 int *daytab[13] 应显示 daytab: array[13] of pointer to int 前者能正常运行，但后者在输入int *daytab[13 回车后却不再执行了，只停留在输入的阶段，等了很长时间也没有结果，这个结果为何这样怪呢，请高手过目并帮忙帮小弟解决，在此先行谢过了!

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

#define MAXTOKEN 100

enum { NAME, PARENS, BRACKETS };

void dcl(void);
void dirdcl(void);
int gettoken(void);
int tokentype;
char token[MAXTOKEN];
char name[MAXTOKEN];
char datatype[MAXTOKEN];
char out[1000];

main()
{
 while (gettoken() != '@') {
  strcpy(datatype, token);
 out[0] = '/0';
 dcl();
 if (tokentype != '/n')
  printf("syntax error/n");
 printf("%s: %s %s/n",name,out, datatype);
 }

return 0;
}
int gettoken(void)
{
 int c,getch(void);
 void ungetch(int);
 char *p = token;

 while ((c = getch()) == ' ' || c == '/t')
  ;
 if (c == '(')
 {
  if ((c = getch()) == ')')
  {
   strcpy(token,"()");
   return tokentype = PARENS;
  }
  else {
   ungetch(c);
   return tokentype = '(';
  }
 } else if (c == '['){
  for (*p++ = c; (*p++ = getch()) != ']'; )
       ;
  *p = '/0';
  ungetch(c);
  return tokentype = BRACKETS;
 } else if (isalpha(c)) {
  for (*p++ = c; isalnum(c = getch()); )
   *p++ = c;
  *p = '/0';
  ungetch(c);
  return tokentype = NAME;
 } else
  return tokentype = c;
}
#define BUFSIZE 100

char buf[BUFSIZE];
int bufp = 0;

int getch(void)
{
 return (bufp > 0) ? buf[--bufp] : getchar();
}

void ungetch(int c)
{
 if (bufp >= BUFSIZE)
  printf("ungetch: too many characters/n");
 else
  buf[bufp++] = c;
}

void dcl(void)
{
 int ns;

 for (ns = 0; gettoken() == '*'; )
  ns++;
 dirdcl();
 while (ns-- > 0)
  strcat(out, " pointer to");
}
void dirdcl(void)
{
 int type;

 if (tokentype == '(') {
  dcl();
  if (tokentype != ')')
   printf("error: missing ) /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");
  }
}