/* D2U, converts DOS textfiles to UNIX */

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

#define FALSE   0
#define TRUE    1

int translate = FALSE;


unsigned char pc2latin1[256] =
{
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 182, 167, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 0,
199, 252, 233, 226, 228, 224, 229, 231, 234, 235, 232, 239, 238, 236, 196, 197,
201, 230, 198, 244, 246, 242, 251, 249, 255, 214, 220, 162, 163, 165, 000, 000,
225, 237, 243, 250, 241, 209, 170, 186, 191, 000, 172, 189, 188, 161, 171, 187,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 223, 0, 0, 0, 0, 181, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 177, 0, 0, 0, 0, 247, 0, 176, 0, 183, 0, 0, 178, 0, 160
};



main(int argc, char **argv)
{
       int i;

       if(! getopts(argc, argv))
               exit(1);

       if(argc > 1) {
               for(i = optind; i < argc ; i++)
                       convert(argv[i]);
               printf("\nConversion finished.\n\n");
       } else {
               printf("D2U  Converts textfiles from DOS to UNIX\n");
               printf("usage: d2u [-t] <filename>\n\n");
               exit(0);
       }
}


convert(char *fname)
{
       FILE* f_in;
       FILE* f_out;
       char tmpname[80];
       unsigned char c;

       if(! (f_in = fopen(fname, "r"))) {
               fprintf(stderr, "\nError: couldn't find %s\n\n", fname);
               return;
       }

       printf("Converting %s...\n", fname);

       strcpy(tmpname, tempnam(NULL, "d2u"));
       f_out = fopen(tmpname, "w");

       while(fread(&c, 1, 1, f_in)) {
               if((translate) && (c >= 32)) {
                       c = pc2latin1[c];
                       if(c == 0)
                               c = 32;
               }
               if(c != 13)
                       fwrite(&c, 1, 1, f_out);
       }

       remove(fname);
       rename(tmpname, fname);
       remove(tmpname);

       fclose(f_in);
       fclose(f_out);
}


getopts(int argc, char **argv)
{
       int c;
       opterr = 0;

       while((c = getopt(argc, argv, "t")) != -1) {
               switch(c) {
                       case 't':
                               translate = TRUE;
                               break;
                       case '?':
                               if(isprint(optopt))
                                       fprintf(stderr, "Unknown option '-%c'.\n", optopt);
                               else
                                       fprintf(stderr, "Unknown option character '\\x%x'.\n", optopt);
                               return 0;
                       default:
                               abort();
               }
       }
       return 1;
}