#include "listas_dobles.h"

nodoDoble * inicListaDoble()
{
    return NULL;
}

nodoDoble * crearNodoDoble(empleado unEmpleado)
{
    nodoDoble * nuevoNodoDoble = (nodoDoble *)malloc(sizeof(nodoDoble));

    nuevoNodoDoble->anterior = NULL;
    nuevoNodoDoble->siguiente = NULL;

    nuevoNodoDoble->unEmpleado = unEmpleado;

    return nuevoNodoDoble;
}

nodoDoble * cargarNodoDoble()
{
    empleado unEmpleado;

    printf("Ingrese el nombre del empleado\n");
    fflush(stdin);
    scanf("%s",&unEmpleado.NyA);

    printf("Ingrese el sueldo del empleado\n");
    fflush(stdin);
    scanf("%f",&unEmpleado.sueldo);

    nodoDoble * nuevoNodoDoble = crearNodoDoble(unEmpleado);
    return nuevoNodoDoble;
}

void mostrarEmpleado(empleado unEmpleado)
{
    printf("Sueldo del empleado -> %f.2\n",unEmpleado.sueldo);
    printf("Nombre del empleado -> %s\n",unEmpleado.NyA);
    printf("*********************\n");
}

nodoDoble *agregarAlPpioNodoDoble( nodoDoble * listaDoble, nodoDoble * nuevoNodoDoble)
{
    if (listaDoble == NULL)
    {
        listaDoble = nuevoNodoDoble;
    }
    else
    {
        listaDoble->anterior = nuevoNodoDoble; //viejo primero apunta ahora al nuevo primero
        nuevoNodoDoble->siguiente = listaDoble; //nuevo primero apunta ahora al nuevo segundo
        listaDoble = nuevoNodoDoble;
    }

    return listaDoble;
}

nodoDoble *agregarAlPpio2NodoDoble( nodoDoble * listaDoble, nodoDoble * nuevoNodoDoble)
{
    nuevoNodoDoble->siguiente = listaDoble; //puede ser o no null pero no nos importa xq? xq no accedemos a un atributo
    if (listaDoble!=NULL)
    {
        listaDoble->anterior = nuevoNodoDoble;
    }
    return nuevoNodoDoble;
}

void mostrarListaDoble(nodoDoble * listaDoble)
{
    nodoDoble * seguidora = listaDoble;
    while (seguidora!=NULL)
    {
        mostrarEmpleado(seguidora->unEmpleado);
        seguidora = seguidora->siguiente;
    }
}

void mostrarListaDobleFin(nodoDoble * listaDoble)
{
    nodoDoble * ultimo = buscarUltimoListaDoble(listaDoble);
    if (ultimo!=NULL)
    {
        while (ultimo!=NULL)
        {
            mostrarEmpleado(ultimo->unEmpleado);
            ultimo = ultimo->anterior;
        }
    }
}

nodoDoble * buscarUltimoListaDoble(nodoDoble * listaDoble)
{
    nodoDoble * seguidora = listaDoble;
    if (seguidora!=NULL)
    {
        while (seguidora->siguiente!=NULL)
        {
            seguidora = seguidora->siguiente;
        }
    }
    return seguidora;

}

nodoDoble * agregarListaDobleEnOrden(nodoDoble * listaDoble, nodoDoble * nuevoNodo)
{
    if (listaDoble == NULL)
    {
        listaDoble = nuevoNodo;
    }
    else if (nuevoNodo->unEmpleado.sueldo < listaDoble->unEmpleado.sueldo)
    {
        listaDoble = agregarAlPpioNodoDoble(listaDoble,nuevoNodo);
    }
    else
    {
        nodoDoble * seguidora = listaDoble;
        while ((seguidora!=NULL) && (nuevoNodo->unEmpleado.sueldo > seguidora->unEmpleado.sueldo))
        {
            seguidora= seguidora->siguiente;
        }

        nuevoNodo->siguiente = seguidora;
        if (seguidora!=NULL)
        {
            nuevoNodo->anterior = seguidora->anterior;
            nodoDoble * anterior = seguidora->anterior;
            anterior->siguiente = nuevoNodo;
            seguidora->anterior = nuevoNodo;
        }
        else
        {
            nodoDoble * ultimo = buscarUltimoListaDoble(listaDoble);
            nuevoNodo->anterior = ultimo;
            ultimo->siguiente = nuevoNodo;
        }

        //seguidora->anterior->siguiente puede ser que C no lo tome
    }

    return listaDoble;
}

nodoDoble * borrarNodoDoble(nodoDoble * listaDoble, float sueldo)
{
    if (listaDoble!=NULL)
    {
        if (listaDoble->unEmpleado.sueldo == sueldo) //borrar el primero
        {
            nodoDoble * aBorrar = listaDoble;
            listaDoble = listaDoble->siguiente;
            if (listaDoble!=NULL) //el caso de un solo nodo
            {
                listaDoble->anterior = NULL;
            }
            free(aBorrar);
        }
        else //borrar cualquiera incluido el del medio
        {
            nodoDoble * seguidora = listaDoble;
            while ((seguidora!=NULL) && (seguidora->unEmpleado.sueldo!=sueldo))
            {
                seguidora=seguidora->siguiente;
            }
            if (seguidora!=NULL)
            {
                nodoDoble * anterior=seguidora->anterior;
                anterior->siguiente=seguidora->siguiente;
                if (seguidora->siguiente!=NULL)
                {
                    nodoDoble * ss = seguidora->siguiente;
                    ss->anterior = anterior;
                }
                free(seguidora);
            }
        }

    }
    return listaDoble;
}

nodoDoble * agregarMuchosListaDoble(nodoDoble * listaDoble)
{
    char mander = 's';
    while (mander == 's')
    {
        nodoDoble * nuevoNodo = cargarNodoDoble();
        listaDoble = agregarAlPpioNodoDoble(listaDoble,nuevoNodo);
        printf("desea seguir??? \n");
        fflush(stdin);
        scanf("%c",&mander);
    }
    return listaDoble;
}