Объясните код пожалуйста. Линейный двунаправленный список из вещественных чисел

#include <iostream>
using namespace std;
 
struct node {
    node* next; // Ссылка на следующий элемент списка
    node* prev; // Ссылка на предыдущий элемент списка
    int   val;
    node(int v):prev(NULL), next(NULL), val(v){}
};
 
typedef struct { node* head, *tail; }
 
list_int;
 
void  list_init(list_int* lst){ lst->head = lst->tail = NULL; }
void  list_copy(list_int* lst, const int* a, int n);
node* list_remove(list_int* lst, node* pos); // Удаление
 
int main(void){
    list_int lst;
    int a[] = { 1, -1, 2, -2, 3, -3, 4, -4, 5, -5, 6, -6, 7, -7, 8, -8, 9, 0 };
    list_init(&lst);
    list_copy(&lst, a, sizeof(a)/sizeof(a[0]));
 
// Удалить из списка элемент после каждого элемента c отрицательным значением
    node* p = lst.head;
    while(p != NULL){ //выполяем поиск элементов
        if(p->val < 0) p = list_remove(&lst, p->next); //Если нашли отрицателный, удаляем
        else p = p->next; //следующий
    }
 
// Выводим
    for(const node* x = lst.head; x != NULL; x = x->next)
        cout << x->val << ' ';
        cout << endl;
    for(const node* y = lst.tail; y != NULL; y = y->prev)
        cout << y->val << ' ';
    cout << endl;
    cin.get();
}
 
// Копируем массив
void list_copy(list_int* lst, const int* a, int n){
    node* p;
    list_init(lst);
    for(int i = 0; i < n; ++i){
        p = new node(a[i]);
 
        if(lst->head == NULL)
            lst->head = lst->tail = p;
        else {
            p->prev = lst->tail;
            lst->tail->next = p;
            lst->tail = p;
        }
    }
}
 
 
node* list_remove(list_int* lst, node* pos){
    node* p = pos->next;
    if(pos == lst->head){ //если удаляем head
        lst->head = lst->head->next; // теперь head второй элемент
        if(lst->head == NULL) lst->tail = NULL;
        else lst->head->prev = NULL;
    } else if(pos == lst->tail){
        lst->tail = lst->tail->prev;
        lst->tail->next = NULL;
    } else {
        pos->prev->next = pos->next;
        pos->next->prev = pos->prev;
    }
    delete pos; //Удадение
    return p;
}