/*
    Este código no compila en Turbo C++. Si trabajas con este compilador te
    sugerimos usar el botón de traducción y seleccionar la opción Arreglo dinámico en C.
*/
#include <iostream>
#include <fstream>
#include <cstdlib>
#include <string>
#include <vector>
#include <algorithm>
#ifdef __linux__
    #include <termios.h>
    #include <unistd.h>
    #define CLEAR_SCREEN "clear"
    int _getch ();
#else
    #include <conio.h>
    #define CLEAR_SCREEN "cls"
#endif
using namespace std;

class Paciente {
public:
    int identificacion;
    string nombre;
    int servicio;
    int pabellon;
    int consultorio;

    Paciente() {}
    ~Paciente() {}

    bool operator==(const Paciente &paciente) const
    {
        return this==&paciente || this->identificacion==paciente.identificacion;
    }

    bool operator!=(const Paciente &paciente) const
    {
        return this!=&paciente && this->identificacion!=paciente.identificacion;
    }

    bool operator<(const Paciente &paciente) const
    {
        return this->identificacion<paciente.identificacion;
    }

    Paciente& operator=(const Paciente &paciente)
    {
        if (this!=&paciente)
        {
            this->identificacion = paciente.identificacion;
            this->nombre = paciente.nombre;
            this->servicio = paciente.servicio;
            this->pabellon = paciente.pabellon;
            this->consultorio = paciente.consultorio;
        }
        return *this;
    }

    static void print (Paciente &paciente, int *counter);
    static void print_on_file (Paciente &paciente, ostream *file_stream);
};

void   pause_screen (const char *message);
string read_str (const char *message);
int    read_integer (const char *message);
bool   read_field (istream &file_stream, char *field, char delimiter);

const char *path = "pacientes.tsv";

int main ()
{
    vector<Paciente> pacientes;
    vector<Paciente>::iterator i;
    Paciente *datum, paciente;
    int counter=0, main_option, suboption;
    char field[255];
    ifstream file_stream (path);
    if (file_stream!=NULL)
    {
        while (read_field (file_stream, field, '\t'))
        {
            paciente.identificacion = atoi (field);
            read_field (file_stream, field, '\t');
            paciente.nombre = field;
            read_field (file_stream, field, '\t');
            paciente.servicio = atoi (field);
            read_field (file_stream, field, '\t');
            paciente.pabellon = atoi (field);
            read_field (file_stream, field, '\n');
            paciente.consultorio = atoi (field);
            pacientes.push_back (paciente);
        }
        file_stream.close();
    }
    do {
        cout << endl;
        system (CLEAR_SCREEN);
        cout << "MEN\351" << endl;
        cout << "1.- Altas" << endl;
        cout << "2.- Consultas" << endl;
        cout << "3.- Actualizaciones" << endl;
        cout << "4.- Bajas" << endl;
        cout << "5.- Ordenar registros" << endl;
        cout << "6.- Listar registros" << endl;
        cout << "7.- Salir" << endl;
        cout << "Selecciona una opci\242n: ";
        do
            main_option = _getch ();
        while (main_option<'1' || main_option>'7');
        cout << (char)main_option << endl << endl;
        if (pacientes.empty() && main_option!='1' && main_option!='7')
        {
            pause_screen ("No hay registros.\n");
            continue;
        }
        if (main_option<'5')
        {
            paciente.identificacion = read_integer ("Ingresa el identificacion del paciente");
            i = find (pacientes.begin(), pacientes.end(), paciente);
            datum = i != pacientes.end() ? &pacientes[i - pacientes.begin()] : NULL;
            if (datum!=NULL)
            {
                cout << endl;
                Paciente::print (*datum, &counter);
            }
        }
        if (main_option=='1' && datum!=NULL)
            cout << "El registro ya existe." << endl;
        else if (main_option>='2' && main_option<='4' && datum==NULL)
            cout << endl << "Registro no encontrado." << endl;
        else switch (main_option)
        {
            case '1':
                paciente.nombre = read_str ("Ingresa el nombre");
                paciente.servicio = read_integer ("Ingresa el servicio");
                paciente.pabellon = read_integer ("Ingresa el pabellon");
                paciente.consultorio = read_integer ("Ingresa el consultorio");
                pacientes.push_back (paciente);
                cout << endl << "Registro agregado correctamente." << endl;
                break;
            case '3':
                cout << "Men\243 de actualizaci\242n de campos" << endl;
                cout << "1.- nombre" << endl;
                cout << "2.- servicio" << endl;
                cout << "3.- pabellon" << endl;
                cout << "4.- consultorio" << endl;
                do {
                    suboption = read_integer ("Selecciona el n\243mero de campo a modificar");
                    if (suboption<1 || suboption>4)
                        printf ("Opci\242n incorrecta\n");
                } while (suboption<1 || suboption>4);
                switch (suboption)
                {
                    case 1:
                        datum->nombre = read_str ("Ingresa el nuevo nombre");
                        break;
                    case 2:
                        datum->servicio = read_integer ("Ingresa el nuevo servicio");
                        break;
                    case 3:
                        datum->pabellon = read_integer ("Ingresa el nuevo pabellon");
                        break;
                    case 4:
                        datum->consultorio = read_integer ("Ingresa el nuevo consultorio");
                        break;
                }
                cout << endl << "Registro actualizado correctamente." << endl;
                break;
            case '4':
                pacientes.erase (find (pacientes.begin(), pacientes.end(), *datum));
                cout << "Registro eliminado correctamente." << endl;
                break;
            case '5':
                sort (pacientes.begin(), pacientes.end());
                cout << "Registros ordenados correctamente." << endl;
                break;
            case '6':
                counter = 0;
                for (i=pacientes.begin(); i!=pacientes.end(); i++)
                    Paciente::print (*i, &counter);
                cout << "Total de registros: " << counter << "." << endl;
                break;
        }
        if (main_option!='7')
            pause_screen ("");
    } while (main_option!='7');
    ofstream output_stream (path);
    if (output_stream!=NULL)
    {
        for (i=pacientes.begin(); i!=pacientes.end(); i++)
            Paciente::print_on_file (*i, &output_stream);
        output_stream.close();
    }
    return EXIT_SUCCESS;
}

void Paciente::print (Paciente &paciente, int *counter)
{
    cout << "identificacion: " << paciente.identificacion << endl;
    cout << "nombre        : " << paciente.nombre.c_str() << endl;
    cout << "servicio      : " << paciente.servicio << endl;
    cout << "pabellon      : " << paciente.pabellon << endl;
    cout << "consultorio   : " << paciente.consultorio << endl;
    cout << endl;
    (*counter)++;
}

void Paciente::print_on_file (Paciente &paciente, ostream *file_stream)
{
    *file_stream << paciente.identificacion << "\t";
    *file_stream << paciente.nombre.c_str() << "\t";
    *file_stream << paciente.servicio << "\t";
    *file_stream << paciente.pabellon << "\t";
    *file_stream << paciente.consultorio << endl;
}

string read_str (const char *message)
{
    char string_var[255];
    cout << message << ": ";
    cin.get (string_var, sizeof (string_var), '\n');
    cin.get();
    string str(string_var);
    return str;
}

int read_integer (const char *message)
{
    int integer_var;
    cout << message << ": ";
    cin >> integer_var;
    cin.get();
    return integer_var;
}

bool read_field (istream &file_stream, char *str, char delimiter)
{
    file_stream.get (str, 255, delimiter);
    file_stream.get();
    return !file_stream.eof();
}

void pause_screen (const char *message)
{
    cout << message << endl << "Presiona una tecla para continuar . . . ";
    _getch ();
}

#ifdef __linux__

int _getch ()
{
    int ch;
    struct termios oldt, newt;
    tcgetattr (STDIN_FILENO, &oldt);
    newt = oldt;
    newt.c_lflag &= ~(ICANON | ECHO);
    tcsetattr (STDIN_FILENO, TCSANOW, &newt);
    ch = getchar();
    tcsetattr (STDIN_FILENO, TCSANOW, &oldt);
    return ch;
}

#endif