#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "Myhead.h"    /* "Myhead.h" は同じディレクトリ ( フォルダ ) に置く */

  /* presentの指すアイテムの後ろへアイテムを追加 */
shop *AddItem(shop *present)
{
    shop *p, *new;
    char name[MAX_ITEM_NAME + 1];
    unsigned long prise;

    p = present->next;    /* データを挿入するために p に保存 */

      /* 新しいアイテムのためのメモリを確保 */
    if (( new = (shop *)malloc(sizeof(shop))) == NULL) {
        fprintf(stderr, "メモリ不足です。\n");
        exit (2);        /* メモリ確保に失敗したらプログラム終了 */
    }

    printf("アイテム名を入力して下さい\t");
    scanf("%s", name);
    printf("値段を入力して下さい\t");
    scanf("%lu", &prise);

    strcpy((*new).item.name, name); /* 入力データのコピー */
    (*new).item.prise = prise;

    new->previous = present;        /*  presentの後ろに */
    present->next = new;            /* newがくるように */
    new->next = p;                  /* ポインタのつなぎ変え */

    if (p != NULL)                  /* p がリストの途中を指していたら */
        p->previous = new;          /* p の前に new が入る */

    return (new);                   /* 挿入したアイテムへのポインタを返す */
} 

  /* presentの指すアイテムの削除 */
shop *RemoveItem(shop *present)
{
    shop *next, *previous;

    previous = present->previous;    /* ポインタの保存 */
    next = present->next;            /* ポインタの保存 */

    if (previous != NULL)
        previous->next = next;       /* ポインタのつなぎ変え */
    if (next != NULL)
        next ->previous = previous;  /* ポインタのつなぎ変え */

    free(present);                   /* メモリの解放 */

    return(next);                    /* 次のアイテムへのポインタを返す */
}

  /* メモリの解放 ( プログラム終了時の処理 ) */
void FreeAll(shop *head)
{
    shop *p;

    while (head != NULL) {
        p = head->next;             /* 次のアイテムへのポインタを保存してから */
        free(head);                 /* メモリを解放する */
        head = p;                   /* 次のループに備える */
    }
}

  /* 全てのアイテムを表示 */
void ShowAllItem(shop *head)
{
    head = head->next;        /* head にはゴミが入っている */
    while (head != NULL) {
        printf("アイテム:%s\t値段:%lu\n",
                    (*head).item.name, (*head).item.prise);
        head = head->next;
    }
    printf("\n");
}

  /* 現在のアイテムを表示 */
void ShowPresentItem(shop *present)
{
    if (present != NULL)                          /* データが存在したら */
        printf("対象のアイテム:%s\t値段:%lu\n",    /* 表示する */
                    (*present).item.name, (*present).item.prise);
}

void main(void)
{
    FILE *fp, *nfp;
    char *filename = "item.txt";
    shop *head, *present;
    int c;

    if ((head = (shop *)calloc(1, sizeof(shop))) == NULL) {
        fprintf(stderr, "メモリが足りません\n");
        exit(2);
    }
    head->previous = NULL;

    if ((fp = fopen(filename, "r")) == NULL) {
        fprintf(stderr, "ファイル: %s は存在しません!\n", filename);
        present = head;        /* ファイルが存在しない時の処理 */
        present->next = NULL;
    }
    else    /* ファイルが存在したらデータを読み込む */
            /* ポインタの付け替えは ReadData( ) がやってくれる */
        present  = ReadData(head, fp);

    for ( ; ; ) {

        ShowPresentItem(present);

        printf("'n' 次のアイテム\n");
        printf("'p' 前のアイテム\n");
        printf("'s' アイテム一覧\n");
        printf("'a' アイテム追加\n");
        printf("'r' アイテム削除\n");
        printf("'e' 終了\n");

        fflush(stdin);
        printf("\nコマンドを入力して下さい\t");
        c = getchar(  );

        switch (c) {
            case 'n':        /* 次のアイテムへ移動 */
                if (present->next != NULL)
                    present = present->next;
                else
                    printf("アイテムがありません\n");
                break;
            case 'p':        /* 前のアイテムへ移動 */
                if (present->previous != NULL)
                    present = present->previous;
                else
                    printf("アイテムがありません\n");
                break;
            case 'a':        /* アイテムの追加 */
                present = AddItem(present);
                break;
            case 'r':        /* アイテムの削除 */
                present = RemoveItem(present);
                break;
            case 's':        /* 全アイテムの表示 */
                ShowAllItem(head);
                break;
            case 'e':        /* 終了 */
                  /* ファイルが存在しなければ */
                if ((nfp = freopen(filename, "w", fp)) == NULL) {
                    fprintf(stderr, " ファイル: %sを新規作成します。\n", filename);
                      /* 改めて書き込みモードで開く */
                    if ((nfp = fopen(filename, "w")) == NULL) {
                        fprintf(stderr, "ファイル作成に失敗しました。\n");
                        exit(2);
                    }
                }

                WriteItem(nfp, head);     /* ファイルへデータの書き込み */
                fclose(nfp) ;
                FreeAll(head);            /* メモリの解放 */
                exit(0);                  /* シェルへ */
            default:                      /* 一致する文字がなければ */
                break;                    /* 何もしない */
        }
    }
}