#include <stdio.h>
#include <stdlib.h>    /* exit(  ) で必要 */
#include <string.h>    /* strcmp(  ) で必要 */
#include <ctype.h>     /* isalpha(  ) で必要 */

#define  NUM_KW  25    /* 25 の予約語を対象にする */

typedef struct {
    char name[10];      /* Ｃの予約語を入れる */
    int count;          /* カウンタ */
} KEYWORD;

  /* 構造体配列の宣言 */
KEYWORD keyword[NUM_KW] = { /* 二分木探索 ( バイナリサーチ ) に使うので */
    {"break", 0},           /* 構造体の最初の要素は整列してある */
    {"case", 0},
    {"char", 0},
    {"continue", 0},
    {"do", 0},
    {"double", 0},
    {"else", 0},
    {"enum", 0},
    {"extern", 0},
    {"float", 0},
    {"for", 0},
    {"if", 0},
    {"int", 0},
    {"long", 0},
    {"register", 0},
    {"return", 0},
    {"short", 0},
    {"static", 0},
    {"struct", 0},
    {"switch", 0},
    {"typedef", 0},
    {"union", 0},
    {"unsigned", 0},
    {"void", 0},
    {"while", 0}
};

int GetWord(FILE *fp, char *temp);
int BSearch(char *word);
void ShowResult(void);
void main(void);

  /* 英単語を temp[n] に読み込む */
int GetWord(FILE *fp, char *temp)
{
    int c;
    int n = 0;    /* 読み込んだ文字数 */
	
    while ((c = getc(fp)) != EOF) {
                                      /* 文字を 読み込んでいなくて */
        if (!n && !isalpha(c))        /* かつ、c はアルファベットでない */
            continue;                 /* 読み飛ばす */

        else if (n && !isalpha(c)) {  /* 英単語を読みおわったら */
            temp[n] = '\0';           /* 末尾にヌル文字を付けて */
            return (n);               /* 読み込んだ文字数を返す */
        }

        else if (isalpha(c)) {        /* アルファベットの時 */
            temp[n] = (char)c;        /* 英単語の読み込み */
            n++;
        }
    }
    return (0);                       /* キーワードの読み込みに失敗 */
}

  /* 二分木探索 ( バイナリサーチ ) を行って、 */
  /* 予約語が見つかったら、カウンタに１加える */
int BSearch(char *word)	
{
    int left = 0;
    int right = NUM_KW - 1;
    int mid;
    int x;
      /* 左から右へ辞書的に予約語が並んでいるとすると */
    while (left <= right) {
        mid = left + (right - left) / 2;	
        x = strcmp(keyword[mid].name, word);
        if (x > 0)                            /* 予約語は mid より左にある */
            right = mid -1;                   /* 左を探索 */
        else if (x < 0)                       /* 予約語は mid より右にある */
            left = mid + 1;                   /* 右を探索 */
        else {                                /* 見つかったら */
            keyword[mid].count += 1;          /* カウンタに１加えて、 */
            return (mid);                     /* リターンする */
        }
    }
    return (-1);
}

  /* 構造体の中身を表示 */
void ShowResult(void)
{
    int i;

    for (i = 0; i < NUM_KW ; i++) {
        printf("%10s %3d  ", keyword[i].name, keyword[i].count);
        if (!((i + 1) % 4))                  /* 予約語を4つ表示したら改行 */
            printf("\n");
    }
}

void main(void)
{
    FILE *fp;
    char word[100];

    if ((fp = fopen("wtest.c", "r")) == NULL) {        /* ファイルを開けなかったら */
        fprintf(stderr, "Can't Open C Source File!\n");/* メッセージを表示して */
        exit(2);                                       /* シェルへ戻る */
    }
      /* 英単語が見つかったら予約語かどうか調べる */
    while (GetWord(fp, word)) {
        BSearch(word) ;
    }
    ShowResult(  ) ;
    fclose(fp);
}