#include <stdio.h>
#include <stdlib.h>    /* exit(  ) calloc(  ) で必要 */
#include <string.h>    /* strcpy(  ) で必要 */

#define NAME_SIZE 20

typedef struct item item_t;

struct  item {
    int no;                /* アイテム番号 */
    char name[NAME_SIZE];  /* 商品名 */
    int prise;             /* 値段 */
    item_t *previous;      /* 前の item 構造体へのポインタ */
};

enum {         /* main(  ) を参照のこと */
    ADD = 1,   /* 追加 */
    REMOVE,    /* 削除 */
    LIST,      /* 一覧表示 */
    END        /* 終了 */
};

item_t *AddItem(item_t *item);
item_t *DelItem(item_t *item);
void ListItem(item_t *item);
void FreeItem(item_t *item);
void main(void);

  /* item を追加して、追加した item へのポインタを返す */
item_t *AddItem(item_t *item)
{
    item_t *p;
    char temp[256];
    int x;

    if ((p = (item_t *)calloc(1, sizeof(item_t))) == NULL) {
        fprintf(stderr, "メモリ　アロケーション　エラー\n");
        exit (2);                /* メモリ割り当てに失敗したら、シェルに戻る */
    }

    (*p).no = (*item).no + 1;    /* item 番号を設定 */

    printf("No %d  商品名を入力して下さい  ", (*p).no);
    scanf("%s", temp);
    if (strlen(temp) < NAME_SIZE)
        strcpy((*p).name, temp);
    else {                                /* 文字列が長すぎたら */
        printf("商品名が長過ぎます!\n");  /* 警告を発し */
        free(p);                          /* メモリを解放して */
        return(item);                     /* ポインタをそのまま返す */
    }

    printf("値段を入力して下さい  ");
    scanf("%d", &x);
    (*p).prise = x;

    printf("\tNo %d 商品名:%s 値段:%d を追加しました\n",
                                (*p).no, (*p).name, (*p).prise);

    p->previous = item;  /* 一つ前の構造体を指すようにする */
    return (p);          /* 追加した構造体へのポインタを返す */
} 


  /* item を表示後、メモリを解放し、一つ前のitem へのポインタを返す*/
  /* item がなければ受け取ったポインタをそのまま返す */
item_t *DelItem (item_t *item)
{
    item_t *p;

    if (item->previous != NULL) {
        printf("\tNo %d 商品名:%s 値段:%d を削除しました\n",
                            (*item).no, (*item).name, (*item).prise);

        p = item->previous;	/* free(  ) を実行する前に実行 */

        free(item);
        return (p);
    }
    else {
        printf("\tアイテムがありません!\n");/*  item がなければ */
        return (item);		/* 受け取ったポインタをそのまま返す */
    }
}
  /* 登録されている item を全て表示 */
void ListItem(item_t *item) 
{
    while (item->previous != NULL) {
        printf("\tNo %d 商品名:%s 値段:%d\n",
                        (*item).no, (*item).name, (*item).prise);
        item = item->previous;        /* 一つ前の item を指すようにする */
    }
}

  /* calloc(  ) で割り付けられたメモリの解放 */
void FreeItem(item_t *item)
{
    item_t *previous;        /* 作業用ポインタ */
	
    while (item->previous != NULL) {
        previous = item->previous;  /* 次の構造体のアドレスを保存 */
        free(item);                 /* メモリを解放 */
        item = previous;            /* 次の構造体のアドレスを */
    }                               /* item に代入 */
}


void main(void)
{
    item_t *item;
    char buff[256];
    int  n;

    if ((item = (item_t *)calloc (1, sizeof(item_t))) == NULL) {
        fprintf(stderr, "Memory Allocation Error\n");
        exit(2);        /* メモリ割り当てに失敗したら、シェルに戻る */
    }

    (*item).no = 0;          /* item ナンバー 0 */
    item->previous = NULL;   /* この先には item はない */


    for ( ; ; ) {
        printf("1: 追加  2: 削除  3: リスト 4: 終了\t");
        fflush(stdin);                        /* 標準入力に残っているデータをクリア */
        fgets(buff, sizeof(buff), stdin);     /* buff に文字列を読み込む */
        if(!sscanf(buff, "%d", &n))           /* 数字以外が入力されたら */
            continue;                         /* 無視 */
        switch (n) {
            case (ADD):
                item = AddItem(item);
                break;
            case (REMOVE):
                item = DelItem(item);
                break;
            case (LIST):
                ListItem(item);
                break;
            case (END):
                FreeItem(item);       /* メモリブロックを解放して */
                exit(0);              /* 終了 */
            default:                  /* ADD REMOVE END 以外は無視 */
                continue;
        }
    }
}