Объясните пожалуйста действия с двусвязным списком типа кольцо

struct RING
{
    char surname[10];                                                               
    RING *l, *r;                                                                    
};

RING *create(RING *s, int amount)
{
    int i=1;
    RING *s1, *s2;
    printf("\nВведите имена солдат\n");
    if(!s)                                                  
    {
        s=(RING*)malloc(sizeof(RING));                      
        printf("%d-й:\t", i);
        get_str(s->surname);                                
        s->r=s;                                             
        s->l=s;                                             
        amount--;
 
    }
    s2=s;
    while(amount)
    {
        s1=(RING*)malloc(sizeof(RING));                    
        printf("%d-й:\t", ++i);
        get_str(s1->surname);                               
        s2->r=s1;                                           
        s1->l=s2;                                          
        s2=s1;                                              
        amount--;
    }
    s2->r=s;                                                
    s->l=s2;                                                
    return s;
}

s->r=s;                                             
s->l=s;

RING *del(RING *s, int step)
{
    int n=step;
    char c;
    RING *s1=s;
    do 
    {
        printf("\nВведите направление движения по кольцу r/l: ");
        fflush(stdin);
        c=getchar();
    } while (c!='l' && c!='r');
    while(s->r!=s)
    {
        while(n-1)                                              
        {
            s=direction(s, c);
            n--;    
        }
        s->l->r=s->r;                                           
        s->r->l=s->l;                                           
        s1=s->r;                                                
        free(s);                                                
        s=s1;
        n=step;
    }
    return s;
}
 
RING *direction(RING *s, char c)
{
    switch(c)                                               
    {
    case 'l': return s=s->l;
    case 'r': return s=s->r;
    }
}

s->l->r=s->r;                                           
s->r->l=s->l;                                          
s1=s->r;                                                 
free(s);                                            
s=s1;