#include <iostream>
#include <stdio.h>
#include <locale.h>
#include <Windows.h>

using namespace std;

struct elm {
    int vl;
    elm *pr;
    elm *nx;
};

struct list {
    elm *start, *end, *ptr;
};
void moveptr(list *L) {
    if (L->ptr == L->end)  return;
    L->ptr = L->ptr->nx;
}
void addelement(list *L, int vl) {
    if (L->ptr == L->end) {
        return;
    }
    elm *temp = (elm *)malloc(sizeof(elm));
    if (!temp) return;
    temp->vl = vl;
    temp->nx = L->ptr->nx;
    temp->pr = L->ptr;
    L->ptr->nx->pr = temp; // for next
    L->ptr->nx = temp;
}
void initl(list *L) {
    L->start = (elm *)malloc(sizeof(elm)); // Create first
    if (!L->start) return;
    L->end = (elm *)malloc(sizeof(elm)); // CReate last
    if (!L->end) {
        free((void *)L->start);
        L->start = NULL;
        return;
    }
    L->start->nx = L->end; // next to first
    L->start->pr = NULL; // back for fr
    L->end->nx = NULL;
    L->end->pr = L->start;
    L->ptr = L->start;
}
void remove_element(list *L) {
    elm *pntr = L->ptr;
    pntr->nx->pr = pntr->pr;
    pntr->pr->nx = pntr->nx;
    L->ptr = L->start;
    free((void *)pntr);
}
void print(list *L) {
    // дополнительный элемент для прохода от начала до конца списка
    elm *tmp;
    tmp = L->start->nx; // ссылка на первый элемент
                              // пока не конец списка
    while (tmp != L->end) {
        cout << tmp->vl << " "; // печать текущего элемента
        tmp = tmp->nx; // переход на следующий элемент
    }
    cout << endl;
}
int main() {
    setlocale(LC_ALL, "rus");

    list *L = (list *)malloc(0);
    initl(L); // Create new list

    int exit = 1, m, vl, num, cc = 0;

    while (exit != 0) {
        system("cls");
        cout << "1.Добавить элемент в начало\n2.Добавить элемент после элемента\n3.Удалить элемент\n4.Вывод списка элементов\n5.Очистить и закрыть\n\n";
        cin >> m;
        switch (m) {
            case 1:
                system("cls");
                L->ptr = L->start;
                cout << "Enter value: ";
                cin >> vl;
                addelement(L, vl);
                cc++;
                break;
            case 2:
                system("cls");
                if (cc == 0) break;
                do {
                    cout << "Номер элемента после которого добавить: ";
                    cin >> num;
                } while (num < 1 || num > cc);
                for (int i = 0; i < num; i++) moveptr(L);
                cout << "Enter value: ";
                cin >> vl;
                addelement(L, vl);
                cc++;
                break;
            case 3:
               system("cls");
                do {
                    cout << "Номер элемента для удаления: ";
                    cin >> num;
                } while (num > cc);
                for (int i = 0; i < num; i++) moveptr(L);
                remove_element(L);
                cc--;
                break;
            case 4:
                system("cls");
                print(L);
                cout << "Exit? (1)";
                cin >> vl;
                break;
            case 5:
                elm *tt;
                L->ptr = L->end;
                while (L->ptr != NULL) {
                    tt = L->ptr->pr;
                    free(L->ptr);
                    L->ptr = tt;
                }
                exit = 0;
                break;
        }
    }
    return 0;
}