/* LINGUAGGI DI PROGRAMMAZIONE - PRIMA PROVA DI ESONERO */
/* IMPLEMENTAZIONE DELL'ESERCIZIO N. 5 */

#include <stdio.h>
#include <stdlib.h>

const int MAXVETTORE=100;
const int MAXSTRINGA=50;    
    
void insertion_sort(char *a[100], int n);

main ()
{   char NomeFile[20], scelta=' ';
    FILE *FileAperto;
    char *stringhe[MAXVETTORE]; /*[MAXSTRINGA];*/
    int i,N=0;
    
    /* Apertura del file di input */
    printf("Inserisci il nome del file da ordinare: ");
    gets(NomeFile);
    if ((FileAperto=fopen(NomeFile,"r"))==NULL)
    {   printf("\n\nImpossibile aprire il file ''%s'' in lettura.\n",NomeFile);
        return 1;
    };
    /* Lettura delle stringhe da file e caricamento nel vettore */
    while (!feof(FileAperto)&&(N<MAXVETTORE))
    {   stringhe[N]=malloc(sizeof(char)*MAXSTRINGA);
        if (fgets(stringhe[N],MAXSTRINGA,FileAperto)!=NULL)
                N++;
    };
    fclose(FileAperto);
    
    /* Visualizzazione del vettore non ordinato */
    printf("VETTORE NON ORDINATO:\n-----------------------\n");
    for(i=0;i<N;i++)
        printf("%s",stringhe[i]);
    
    /* Ordinamento del vettore */
    insertion_sort(stringhe, N);

    /* Selezione del dispositivo di output */
    while ((scelta!='v')&&(scelta!='V')&&(scelta!='f')&&(scelta!='F'))
    {   printf("\n\nVisualizzazione vettore ordinato:\n");
        printf("V - Visualizzazione sullo schermo\n");
        printf("F - Scrittura su file\nSeleziona: ");
        scelta=getche();
    };
    if ((scelta=='f')||(scelta=='F'))
    {    printf("\n\nInserisci il nome del file di output: ");
         gets(NomeFile);
         if ((FileAperto=fopen(NomeFile,"w"))==NULL)
         {   printf("\n\nImpossibile aprire il file ''%s'' in scrittura.\n",NomeFile);
             printf("L''output sara'' visualizzato sullo schermo.\n");
             scelta='v';
         }
         else
             for(i=0;i<N;i++)
                fprintf(FileAperto,"%s",stringhe[i]);

    }
    else /* Visualizzazione su schermo */
    {    printf("\n\nVETTORE ORDINATO:\n-----------------------\n");
         for(i=0;i<N;i++)
                printf("%s",stringhe[i]);
    };
    
    printf("\n\nPremi un tasto per uscire dal programma\n");
    getchar();
    return 0;
}


void insertion_sort(char *a[100], int n)
{   int i,j,p;
    char first[MAXSTRINGA],x[MAXSTRINGA];
    
    strcpy(first,a[0]);    /* first = a[0] */
    p=0;
    for(i=1;i<n;i++)
        if (strcmp(a[i],first)<0)    /* if a[i]<first */
        {        strcpy(first,a[i]);    /* first=a[i] */
                p=i;
        };
    strcpy(a[p],a[0]);        /* a[p]=a[0] */
    strcpy(a[0],first);        /* a[0]=first */
    
    for(i=2;i<n;i++)
    {   strcpy(x,a[i]);    /* x=a[i] */
        j=i;
        while (strcmp(x,a[j-1])<0)    /* x<a[j-1] */
        {       strcpy(a[j],a[j-1]);        /* a[j]=a[j-1] */
                j--;
        };
        strcpy(a[j],x);        /* a[j]=x */
    };
};