#include <stdio.h>
#include <stdlib.h>
typedef struct node{
    int dat;
    struct node *back,*next;
}LL;
struct node *first=NULL,*now=NULL,*end=NULL;
void view(void){
    putchar('\n');
    if(first==NULL){
        puts("linked list 中沒有項目");
        return;
    }
    LL* i;
    for(i=first ; i!=NULL  ; i=i->next){
        if(i == now){
            putchar('*');
        }
        printf("%d ",i->dat);
    }
    putchar('\n');
}
void createnew(int a){
    first=malloc(sizeof(LL));
    now=first;
    end=now;
    now->dat=a;
    now->back=NULL;
    now->next=NULL;
}
int main(){
    puts("linked list 模擬程式\n");
    int in;
    LL *tmp,*tmp2;
    while(1){
        view();
        printf(" 1 a:在後方插入一項\n"
               " 2 a:在前方插入一項\n"
               " 3 a:插入一項作為首項\n"
               " 4 a:插入一項作為尾項\n"
               " 5 d:刪除前一項\n"
               " 6 d:刪除後一項\n"
               " 7 d:刪除這一項\n"
               " 8 e:更改這一項\n"
               " 9 m:移到後一項\n"
               "10 m:移到前一項\n"
               "11 m:移到首項\n"
               "12 m:移到尾項\n"
               "13 r:刪除之後的所有項目\n"
               "14 r:刪除之前的所有項目\n"
               "請選擇：");
        if(scanf("%d",&in)!=1){
            puts("無效的輸入");
            fflush(stdin);
            continue;
        }
        /* 其實以下的內容可以透過函式來簡化，不過這個程式只是用來展示寫法，
         * 所以還是分開寫 */
        switch(in){
            case 1:
                printf("整數：");
                scanf("%d",&in);
                fflush(stdin);
                if(first==NULL){
                    createnew(in);
                    continue;
                }
                tmp=malloc(sizeof(LL));
                tmp->back=now;
                tmp->next=now->next;
                tmp->dat=in;
                now->next=tmp;
                if(tmp->next != NULL){
                    tmp->next->back=tmp;
                }else{
                    end=tmp;
                }
                break;
            case 2:
                printf("整數：");
                scanf("%d",&in);
                fflush(stdin);
                if(first==NULL){
                    createnew(in);
                    continue;
                }
                tmp=malloc(sizeof(LL));
                tmp->back=now->back;
                tmp->next=now;
                tmp->dat=in;
                now->back=tmp;
                if(tmp->back != NULL){
                    tmp->back->next=tmp;
                }else{
                    first=tmp;
                }
                break;
            case 3:
                printf("整數：");
                scanf("%d",&in);
                fflush(stdin);
                if(first==NULL){
                    createnew(in);
                    continue;
                }
                tmp=malloc(sizeof(LL));
                tmp->back=NULL;
                tmp->next=first;
                tmp->dat=in;
                first->back=tmp;
                first=tmp;
                break;
            case 4:
                printf("整數：");
                scanf("%d",&in);
                fflush(stdin);
                if(first==NULL){
                    createnew(in);
                    continue;
                }
                tmp=malloc(sizeof(LL));
                tmp->back=end;
                tmp->next=NULL;
                tmp->dat=in;
                end->next=tmp;
                end=tmp;
                break;
            case 5:
                if(first==NULL){
                    puts("\n*** linked list 是空的 ***");
                    continue;
                }
                if(now->back==NULL){
                    puts("\n*** 沒有前一項 ***");
                    continue;
                }
                tmp=now->back;
                now->back=now->back->back;
                if(now->back != NULL){
                    now->back->next=now;
                }else{
                    first=now;
                }
                free(tmp);
                break;
            case 6:
                if(first==NULL){
                    puts("\n*** linked list 是空的 ***");
                    continue;
                }
                if(now->next==NULL){
                    puts("\n*** 沒有後一項 ***");
                    continue;
                }
                tmp=now->next;
                now->next=now->next->next;
                if(now->next != NULL){
                    now->next->back=now;
                }else{
                    end=now;
                }
                free(tmp);
                break;
            case 7:
                if(first==NULL){
                    puts("\n*** linked list 是空的 ***");
                    continue;
                }
                tmp=now;
                if(tmp->back != NULL){
                    tmp->back->next=tmp->next;
                }else{
                    first=tmp->next;
                }
                if(tmp->next != NULL){
                    tmp->next->back=tmp->back;
                    now=tmp->next;
                }else{
                    now=tmp->back;
                    end=tmp->back;
                }
                free(tmp);
                break;
            case 8:
                if(first==NULL){
                    puts("\n*** linked list 是空的 ***");
                    continue;
                }
                printf("原先的值：%d\n",now->dat);
                printf("新的數值：");
                scanf("%d",&now->dat);
                fflush(stdin);
                break;
            case 9:
                if(first==NULL){
                    puts("\n*** linked list 是空的 ***");
                    continue;
                }
                if(now->next==NULL){
                    puts("\n*** 沒有後一項 ***");
                    continue;
                }
                now=now->next;
                break;
            case 10:
                if(first==NULL){
                    puts("\n*** linked list 是空的 ***");
                    continue;
                }
                if(now->back==NULL){
                    puts("\n*** 沒有前一項 ***");
                    continue;
                }
                now=now->back;
                break;
            case 11:
                if(first==NULL){
                    puts("\n*** linked list 是空的 ***");
                    continue;
                }
                now=first;
                break;
            case 12:
                if(first==NULL){
                    puts("\n*** linked list 是空的 ***");
                    continue;
                }
                now=end;
                break;
            case 13:
                if(first==NULL){
                    puts("\n*** linked list 是空的 ***");
                    continue;
                }
                for(tmp=end ; tmp!=now ; tmp=tmp2){
                    tmp2=tmp->back;
                    free(tmp);
                }
                end=now;
                now->next=NULL;
                break;
            case 14:
                if(first==NULL){
                    puts("\n*** linked list 是空的 ***");
                    continue;
                }
                for(tmp=first ; tmp!=now ; tmp=tmp2){
                    tmp2=tmp->next;
                    free(tmp);
                }
                first=now;
                now->back=NULL;
                break;
            default:
                puts("沒有這個選項");

        }
    }
    return 0;
}