/* 
EasyPLX
beta version, first version

Licensed under GNU GPL
Copyleft Olle Bergkvist 2007
www.olle.tk
e-mail: olle dot bergvist at yahoo dot se
*/

#include <stdio.h>
#include "config.h"

int makeplx(char * buffer, char * entryptrs[], int entrylength[], char entrycount);
int mystrcopy (char * to, char * from);
int mystrcat (char * to, char * from);
int mystrlen (char * from);
int help ();

int main(int argc, char *argv[])
{ //i dont care about the indention here :p

char * fileptrs [argc]; //this is a set of pointers that points to the same as argv points to
char * listptrs [argc]; 
char * entryptrs[MAXNUM];

char * nameptr;
char * outptr;
char * plxptr;

char filecount = 0;
char listcount = 0;
char entrycount = 0;

char hasname = 0;
char hasout = 0;
char hasplxdir = 0;
char hasdrive = 0;

char haserror = 0;

char ch;

int entrylength[MAXNUM];

int n=0,m=0,tmp=0,pos=0,startp=0,endp=0,foundeof=0;

// initialize paths
char outdir[MAXLENGTH];
char plxdir[MAXLENGTH];
char outname[MAXLENGTH];
char fileext[]=FILE_EXT;

char outpath[MAXLENGTH];

//for the files
char plxbuf[MAXFILELENGTH];
char listbuf[MAXFILELENGTH];

char drive = 'E';

// process all args except the first one, which is the name of this program, and the last one, which is rubbish
for (n=1;n<argc;n++){
    //printf("\n*argv[%d] == %s",n,argv[n]);
    switch (*(argv[n]+0)){
           case '-':
                switch (argv[n][CMD_LINE_OFFSET]){
                       case 'h':
                            help();
                            return haserror;
                            break;
                       case 'l':
                            listcount++; 
                            listptrs[listcount]  = argv[n]+ARG_LEN_LIST;
                            //printf("\nList nr %d found: %s", listcount, listptrs[listcount]);
                            break;
                       case 'd':
                            hasdrive=1;
                            drive = argv[n][ARG_LEN_DRIVE]; 
                            break;
                       case 'o':
                            hasout=1;
                            outptr = argv[n]+ARG_LEN_OUT;
                            break;
                       case 'p':
                            hasplxdir=1;
                            plxptr = argv[n]+ARG_LEN_PLX;
                       case 'n':
                            hasname=1;
                            nameptr = argv[n]+ARG_LEN_NAME;
                            break;
                       default:
                            haserror=ERROR_CMD;
                            printf("\nError: unknown option: %s\n", argv[n]); 
                            help();
                            return haserror;
                            break;
                }
                break;
           default:
                   filecount++; 
                   fileptrs [filecount] = argv[n];
                   //printf("\nFile nr %d found: %s", filecount, fileptrs [filecount]); 
                   break;
    }

}

//check for input files
if ((!filecount) & (!listcount)) {
       haserror=ERROR_NO_FILES;
       printf("\nError: No input files specified! \n");
       help();
       return haserror;
}


// process the out dir
if (hasout)
     mystrcopy(outdir, outptr);
else mystrcopy(outdir, OUT_DIR_DEFAULT);

if (hasdrive) 
     // change the drive letter
     outdir[DRIVE_LETTER_OFFSET] = drive;

if (hasplxdir)
     mystrcopy(plxdir, plxptr);
else mystrcopy(plxdir, PLX_DIR_DEFAULT);

if (hasname)
      //add the specified PLX name
     mystrcopy (outname, nameptr);
else{
     //or ask for one
     printf("\nEnter a name for the playlist! This can be ordinary words. ");
     scanf("%s",outname);
}

//create outpath
mystrcopy (outpath, outdir);

mystrcat (outpath, plxdir);

//add the filename to the outpath
mystrcat (outpath, outname);

//and the file extension
mystrcat (outpath, fileext);

printf("Playlist will be written to: %s\n", outpath);

// Preparing makeplx
for (n=1; n<=filecount; n++){
    
    entrycount++;
    entryptrs[entrycount] = fileptrs[n];
    entrylength[entrycount] = mystrlen(fileptrs[n]);
    
}

// List processing
if (listcount){    
    printf("Opening the list...\n");
    
    //open the list file
    FILE * infile;
    char mode[] = "rb";
    
    infile = fopen(listptrs[listcount], mode);
    
    if (!infile) {
           haserror=ERROR_IN;
           printf("\nError: Couldn't open list file for reading!\n");
           return haserror;
    }
    
    pos=-1;
    
    while (ch!=EOF){
          pos++;
          ch=fgetc(infile);
          listbuf[pos]=ch;
    }
    
    fclose(infile);
    
    printf("Processing the list...\n");
    
    pos=0;
    
    while (1) {
        //get a start pointer, skip any LF (0x0A) or CR (0x0D) or space bar (0x20) or TAB (0x09)
        while (listbuf[pos]==0x0A || listbuf[pos]==0x0D || listbuf[pos]==0 || listbuf[pos]==0x09 || listbuf[pos]==' ')
            pos++;
        startp = pos;
        //printf("\nstart found at %d is %d is eof %d",pos,listbuf[pos],listbuf[pos]==EOF);
        
        //get an ending pointer at EOF or LF or CR or TAB
        while (listbuf[pos]!=0x0A && listbuf[pos]!=0x0D && listbuf[pos]!=0 && listbuf[pos]!=0x09 && listbuf[pos]!=EOF)
            pos++;
        
        if (listbuf[pos]==EOF) {
                 foundeof=1;
                 //printf("break");
                 break;
        }
        
        //rewind through the space bars at the end of a line 
        //(these can not be skipped when searching for CR/LF above cos that would break file names containg spaces)
        while (listbuf[pos-1]==' ')
           pos--;
        
        endp = pos;
        //printf("\nend found at %d is %d is eof %d",pos,listbuf[pos],listbuf[pos]==EOF);
        
        //end the string with 0x0
        listbuf[endp] = 0;
        
        //we must skip the lines in the M3U with comments
        if (listbuf[startp]!='#'){
            //add to PLX array
            entrycount++;
            entryptrs[entrycount] = &listbuf[startp];
            entrylength[entrycount] = mystrlen(&listbuf[startp]);
        }
    
    }

}

// Previewing final list of pictures
printf("\n");

for (n=1; n<=entrycount; n++){
    //this is a new feature: an ugly hack to convert Posix file names to DOS, since the player wants DOS. 
    //useful if you want to TAB the pictures' file names in Bash :)
    for (m=1; m<=mystrlen(entryptrs[n]); m++)
        if(entryptrs[n][m]=='/') entryptrs[n][m]='\\';
    
    printf("Picture nr %d: %s\n", n, entryptrs[n]);
    
}

// Making PLX
printf("Making PLX...\n");

tmp = makeplx (plxbuf, entryptrs, entrylength, entrycount);

if (!tmp) {
            haserror = ERROR_PLX;
            printf("\nError when creating PLX!\n");
            return haserror;
}

//Writing PLX to file
printf("Writing PLX to file...\n");

FILE * outfile;
char mode[] = "wb";

outfile = fopen(outpath,mode);
if (!outfile){
                haserror=ERROR_OUT;
                printf("\nError: Couldn't open file for writing\n");
                return haserror;
}

fwrite(plxbuf, tmp, 1, outfile);     
fclose(outfile);

if (haserror) 
      printf("\nAn error occured at run-time. The error code is: %d \n"
             "This code has been returned to the calling program. \n", haserror);

else printf("\nSucceded!\n");

//system("PAUSE");
return haserror;

}

//---------------------- end of file