/* 020515a.c の改造 */

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

#define OK 1
#define YES 1
#define NO 0

struct data {       /* Data 型を定義 */
    char *string;       /* 文字列データ */
    int number;         /* 数値データ */
    struct data *next;  /* 次へのポインタ */
};

typedef struct data Data;       /* struct data を Data と呼ぶ */

#define HASHSIZE 7      /* hash の大きさ、実際はもっと大きくとる */
#define BUFSIZE 1024    /* バッファの大きさ */

void Data_add(Data *p, int i);
Data *Data_construct(FILE *in);
void Data_printlist(Data *head);
void Data_print(Data *p);
int hash(Data *p);

Data head[HASHSIZE];    /* 先頭（ダミー）の列 */

int main(int argc, char *argv[]) {
    int i;
    FILE *in;
    Data *p;

    if (argc != 2) {
        fprintf(stderr, "引数の数が違います.\n");
        return 1;
    }
    in = fopen(argv[1], "rt");
    if (in == NULL) {
        fprintf(stderr, "ファイル \"%s\" を開けません.\n", argv[1]);
        return 1;
    }
    for (i=0; i<HASHSIZE; i++) {    /* 初期化 */
        head[i].next = NULL;
    }
    while ((p = Data_construct(in)) != NULL) {
        Data_add(p, hash(p));
    }
    for (i=0; i<HASHSIZE; i++) {    /* 印字 */
        printf("リスト %d:\n", i);
        Data_printlist(head+i);
    }
    return 0;
}


/* *p を i 番目のリストのダミーヘッド head[i] の次に追加 */
void Data_add(Data *p, int i) {
    p->next = head[i].next; head[i].next = p;
}


/* in から一行を読み込んで Data 型オブジェクトを作り、そのアドレスを返す */
Data *Data_construct(FILE *in) {
    int j;
    Data *p;
    static char buf[BUFSIZE+1];         /* バッファ */

    if ((p = malloc(sizeof(Data))) == NULL) {
        return NULL;
    }

    if (fgets(buf, BUFSIZE, in) == NULL) {
        free(p); return NULL;           /* 読み込めなかった場合 */
    }
    for (j=0; buf[j] != '\t'; j++) {    /* タブをさがす */
        ;
    }
    if ((p->string = malloc(j+1)) == NULL) {
        free(p); return NULL;
    }
    buf[j] = '\0';
    strcpy(p->string, buf);             /* 文字列をコピー */
    while (buf[++j] == '\t') {          /* タブをスキップ */
        ;
    }
    p->number = atoi(buf+j);            /* 数値データを読み込む */
                                        /* next は初期化せず */
    return p;
}


/* ダミーのヘッド head から始まるリストを印字 */
void Data_printlist(Data *head) {
    Data *p;

    for (p = head->next; p != NULL; p = p->next) {
        Data_print(p);
    }
}


/* Data 型オブジェクト *p を印字 */
void Data_print(Data *p) {
    printf("\t%s\t%d\n", p->string, p->number);
}


/* hash 関数（一例）*/
int hash(Data *p) {
    const int c = 5;
    int val = 0;
    int i;

    for (i=0; p->string[i] != '\0'; i++) {
        val = (val * c + p->string[i]) % HASHSIZE;
    }
    return val;
}