/******************************************************************************

	リストへのデータの追加・リストからのデータの削除

******************************************************************************/

#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 BUFSIZE 1024	/* バッファの大きさ */

int Data_add(Data *head, FILE *in);
Data *Data_construct(FILE *in);
int Data_delete(Data *head, Data *p);
void Data_destruct(Data *p);
Data *Data_listsearchstring(Data *head, char* s);
int Data_stringcmp(Data *p, char *s);
void Data_printlist(Data *head);
void Data_print(Data *p);

int main() {
	Data head;							/* 先頭（ダミー） */
	static char buf[BUFSIZE+1];

	head.next = NULL;

	do {
		printf("> ");					/* プロンプト */
		fgets(buf, BUFSIZE, stdin);		/* ユーザがキーボード入力 */
		if (buf[0] == 'q') {			/* 一文字目が q なら終了 */
			break;
		} else if (buf[0] == 'p') {		/* p なら全体を印字 */
			Data_printlist(&head);
		} else if (buf[0] == 'a') {		/* a ならデータ追加 */
			printf("「作曲家名tab生年」のスタイルで入力せよ.\n");
			if (Data_add(&head, stdin) == NO) {
				fprintf(stderr, "メモリが足りません.\n");
			}
		} else if (buf[0] == 'd') {		/* d ならデータ削除 */
			Data *p;

			printf("誰を？\n");
			fgets(buf, BUFSIZE, stdin);	/* ユーザが入力 */
			buf[strlen(buf)-1] = '\0';	/* '\n' を '\0' に置き換える */
			p = Data_listsearchstring(&head, buf);
			if (p == NULL) {
				printf("見つかりません.\n");
			} else {
				printf("削除しますか？\n");
				fgets(buf, BUFSIZE, stdin);	/* ユーザが入力 */
				if (buf[0] == 'y' || buf[0] == 'Y') {
					if (Data_delete(&head, p) == NO) {
						fprintf(stderr, "とてつもなく変です.\n"); return 1;
					}
				}
			}
		} else {
			printf("入力エラーです.\n");
		}
	} while (1);

	return 0;
}


/* in から一行を読み込んで Data を作り、ダミーのヘッド head の次に追加 */
int Data_add(Data *head, FILE *in) {
	Data *tmp;

	tmp = Data_construct(in);
	if (tmp == NULL) {
		return NO;
	}
	tmp->next = head->next; head->next = tmp;
	return OK;
}


/* 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 から始まるリストから p を削除（して破壊） */
int Data_delete(Data *head, Data *p) {
	Data *q;

	for (q = head; q->next != NULL; q = q->next) {
		if (q->next == p) {				/* 見つかった */
			q->next = p->next; Data_destruct(p); return OK;
		}
	}
	return NO;
}


/* p （の指す Data 型オブジェクト）を破壊 */
void Data_destruct(Data *p) {
	free(p->string); free(p);
}


/* ダミーのヘッド head から始まるリストから s を検索 */
Data *Data_listsearchstring(Data *head, char* s) {
	Data *p;

	for (p = head->next; p != NULL; p = p->next) {
		if (strcmp(p->string, s) == 0) {
			return p;
		}
	}
	return NULL;
}


/* Data 型オブジェクト *p の string と文字列 s を比較。一致すれば 0 */
int Data_stringcmp(Data *p, char *s) {
	return strcmp(p->string, s);
}


/* ダミーのヘッド 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("%s\t%d\n", p->string, p->number);
}