DFileMan.c

Go to the documentation of this file.

#include <windows.h>
#include <conio.h>
#include <direct.h>
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include <fcntl.h>
#include <string.h>
#include <io.h>
#include <sys/stat.h>
#include "mgui.h"
#include <direct.h>
#include "bil.h"
#include "dcldef.h"
//#include "dtadef.h"
#include "DAS_Spatram.h"


bil BIL;

char *DDRIVE;
char DFMT[8];
char *OLDPATH;
char *DFNAME;
int SELDRV;
int FMINIT;
int FMDONE;

MOBJECT Row1;
MOBJECT DRV[26];
MOBJECT Row2;
MOBJECT FList;
MOBJECT tb1;
MOBJECT lbl;
MOBJECT txtpath;
MOBJECT txtfile;

MTFont fmfont;

fmfont = HELV_SMALL;

/*
 * Shell creation prototypes
 */

/*
 * Project Defined Callbacks
 */

/*
 * Shell creation functions
 */

void ShowFileDrive(char *idir, char *ext)
{

    struct   _finddata_t ffblk;
    char    str[_MAX_PATH];
    int     i, done, handle;

    MSListClear(FList);
    //sprintf(str, "%s\\*.*", idir);
    //sprintf(str, "%s\*.*", idir);
    sprintf(str, "%s\\%s", idir, "*.*");
    MSListClear(FList);

    handle = _findfirst(str, &ffblk);
    i = 0;
    // All
    done = 0;
    do
    {

        done = _findnext(handle, &ffblk);
        if(done == 0 && (ffblk.attrib & _A_SUBDIR) == _A_SUBDIR)
        {
            sprintf(str, "[%s]", ffblk.name);

            MSListAddItem(FList, str, (void *) i);
        }
        i++;
    }while(done == 0);

//  sprintf(str, "%s\\*%s", idir, ext);
sprintf(str, "%s\\%s", idir, ext);
    handle = _findfirst(str, &ffblk);
    // Ext
    done = 0;
    if(strcmp(ext,"*.*") == 0)
    {
        do
        {
            done = _findnext(handle, &ffblk);
            strcpy(str, _strupr(ffblk.name));
//          if(strncmp(&str[strlen(str) - 4], ext, 4) == 0)
                MSListAddItem(FList, str, (void *) i);
            ffblk.name[0] = 0;
            i++;
        }while(done == 0);

    }
    else
    {
        do
        {
            done = _findnext(handle, &ffblk);
            strcpy(str, _strupr(ffblk.name));
            if(strncmp(&str[strlen(str) - 4], &ext[strlen(ext) - 4], 4) == 0)
                MSListAddItem(FList, str, (void *) i);
            ffblk.name[0] = 0;
            i++;
        }while(done == 0);
    }

}


void ChDriveCB(MOBJECT rb, MVALUE s, void *ad)
{
    int     w = (int) ad;
    char buf[64];

    if(s)
    {
        SELDRV = w;
        _chdrive(w);
        MObjectGetText(rb, buf);
        
        DDRIVE = buf; // = C:
        
        ShowFileDrive(DDRIVE, DFMT);

        sprintf(buf, "%s\\", buf); // = C:\ 
        MObjectSetText(txtpath, buf);

        sprintf(buf, "%s", DFMT);
        MObjectSetText(txtfile, buf);

        
    }

}

void DFileType(int i)
{


    switch((int) i)
    {
        case FDAT:  strcpy(DFMT,"*.DAT");   break;
        case FMAP:  strcpy(DFMT,"*.MAP");   break;
        case FELE:  strcpy(DFMT,"*.ELE");   break;
        case FALL:  strcpy(DFMT,"*.*");     break;
        case FRIS:  strcpy(DFMT,"*.RIS");   break;
        case FFID:  strcpy(DFMT,"*.FIN");   break;
        case FCOL:  strcpy(DFMT,"*.COL");   break;
        case FMOD:  strcpy(DFMT,"*.MOD");   break;
        case FBIF:  strcpy(DFMT,"*.BIF");   break;

    }

        


}

void DFMSelListCB(MOBJECT p, LIST_ACT *la, void *v)
{
    char    str[256];
    char    buf[256],buf1[256];
    int flgbs = 0, i,STRLEN;
//  char *path;
    static int  reent;
    if(reent != 0 && reent != 1) reent = 0;
    if(reent == 1) return;
    reent = 1;
    strcpy(str, la->item);

    if(str[0] == '[')
    {
        if(str[1] != '.')
        {
        
            la->item[strlen(la->item) - 1] = 0;
        
//          MObjectGetText(DRV[SELDRV], buf);
            
            MObjectGetText(txtpath, buf);
            
            DDRIVE = buf;  
            strcpy(buf, DDRIVE);        
            
            strcat(buf, &la->item[1]);
            _chdir(buf);
            strcpy(buf1,buf);
            strcat(buf1,"\\");
        }
        if(str[1] == '.')
        {
            i=2;
            flgbs = 0;
            MObjectGetText(txtpath, buf);
            STRLEN = strlen(buf);
            do {
                if(buf[STRLEN - i] != 0x5C)  
                {
                    buf[STRLEN - i] = 0;
                    i++;
                }
                else
                {
                    flgbs = 1;
                    buf[STRLEN - i] = 0;
                    
                }
            }while (flgbs == 0);
            

            _chdir(buf);
            strcpy(buf1,buf);
            strcat(buf1,"\\");

        }
//      MObjectGetText(txtfile, DFMT);

        ShowFileDrive(buf, DFMT);
        

//      if(buf[strlen(buf) - 1] != 0x5C)
//          strcat(buf, "\\");
        

//      MObjectSetText(txtpath, "");
//      ShowFileDrive(buf, DFMT);
//      MObjectSetText(txtpath, buf);

/*
#ifdef _WIN32
        if(buf[strlen(buf) - 1] != 0x5C)
            strcat(buf, "\\");
#else
        if(buf[strlen(buf) - 1] != 0x2F)
            strcat(buf, "/");
#endif
*/
        MObjectSetText(txtpath, buf1);


    }
    else
    {
        strcpy(DFNAME, la->item);
        MObjectSetText(txtfile, DFNAME);
    }
    reent = 0;

}

void DFMCloseCB(void)
{

    FMDONE = 1;
    FMINIT = 1;
}

void D_FMDoneCB(MOBJECT shell, void *od, void *ad)
{
    int     w = (int) ad;
    char    buff[256];
    char    str[256];
    switch(w)
    {
        case 0:
            MObjectGetText(txtpath, buff);
            sprintf(BIL.DFILEM.WORKDIRECTORY, "%s",buff);
            MObjectGetText(txtfile, str);
            strcat(buff, str);
            sprintf(BIL.DFILEM.DBFILENAME, "%s", buff);
            
            DFMCloseCB();
            break;
        case 1:
            BIL.DFILEM.DBFILENAME[0] = 0;
            DFMCloseCB();
            break;
        case 2:
            MObjectGetText(txtpath, buff);
            MObjectGetText(txtfile, str);
            strcat(buff, str);
            sprintf(BIL.DFILEM.DBFILENAME, "%s", buff);
            DFMCloseCB();
            break;

    }
}


int WhoSys(void)
{
#ifdef _WIN32
    int  so;
    OSVERSIONINFOEX osvi;
    BOOL bOsVersionInfoEx;

    ZeroMemory(&osvi, sizeof(OSVERSIONINFOEX));
    osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFOEX);

    if( !(bOsVersionInfoEx = GetVersionEx ((OSVERSIONINFO *) &osvi)) )
    {
    // If OSVERSIONINFOEX doesn't work, try OSVERSIONINFO.
        osvi.dwOSVersionInfoSize = sizeof (OSVERSIONINFO);
        if (! GetVersionEx ( (OSVERSIONINFO *) &osvi) ) 
        return 0;
    }

    switch (osvi.dwPlatformId)
    {
        // NT, 2000
        case VER_PLATFORM_WIN32_NT:
            so = WIN_NT;
            break;
        // 95, 98, Me
        case VER_PLATFORM_WIN32_WINDOWS:
            so = 0;
            break;
        // Win 32
        case VER_PLATFORM_WIN32s:
            so =  0;
        break;
    }
    return so; 
#else
    return 0;
#endif
}


void txtfileEditCB(MOBJECT edit, char *text, char *ed)
{
    
    char buf1[255];
    int i,flgbs,STRLEN;


    sprintf(DFMT,"%s",text);

    flgbs = 0;
    MObjectGetText(txtpath, buf1);
    STRLEN = strlen(buf1);
    i=1;
    do
    {
        if(buf1[STRLEN - i] != 0x5C)  
        {
            buf1[STRLEN - i] = 0;
            i++;
        }
        else
        {
            flgbs = 1;
            buf1[STRLEN - i] = 0;           
        }
    }while (flgbs == 0);

    

    
    ShowFileDrive(buf1, DFMT);
    MObjectSetText(txtfile,DFMT);
}



void D_FInpFDCB(MOBJECT edit, char *buff, void *a)
{
    int     w = (int) a, er;
    char str[255];

    switch(w)
    {
    // Path
        case 0: er = _chdir(buff);
            if(er == 0)
            {
                strcpy(DFNAME, buff);
                if(str[strlen(DFNAME) - 1] != 0x5C)
                    strcat(DFNAME, "/");
                ShowFileDrive(DFNAME, DFMT);
            }
            break;
    // File
        case 1: strcpy(DFNAME, buff);
            MObjectSetText(txtfile, DFNAME);
            break;
    }
}


MOBJECT MDCreateFM_Shell(int mod, int fmt)
{
    MOBJECT _colform000;
    MOBJECT _colform001;
//  MOBJECT _label000;
    MOBJECT tb2;
    MOBJECT FM_Shell;
    MOBJECT pb;
    char buf[256];
    int     drive, curdrive = 0, sysop;
    char curdir[_MAX_PATH];
    
    DFileType(fmt);

    _getcwd( BIL.DFILEM.WORKDIRECTORY, _MAX_PATH );
    curdrive = _getdrive();

    sysop = WhoSys();



    FM_Shell = MCreateShell("File Manager", SF_MODAL);//0); //SF_NO_RESIZE|SF_NO_MAXIMIZE|SF_NO_MINIMIZE);
    MObjectSetBackgroundRGB(FM_Shell, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    _colform000 = MCreateColForm(FM_Shell);
    MObjectAlign(_colform000, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetResize(_colform000, True, True);

    Row1 = MCreateRowForm(_colform000);
    MObjectAlign(Row1, LEFT_ALIGN, TOP_ALIGN);
    //MObjectSetBackgroundRGB(Row1, 149, 145, 153);
    MObjectSetBackgroundRGB(Row1, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(Row1, False, True);



/*
    Row1 = MCreateRowForm(_colform000);
    MObjectAlign(Row1, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetBackgroundRGB(Row1, 149, 145, 153);
    MObjectSetResize(Row1, True, True);
    MObjectSetCompositeWidth(Row1, 80);

    tb2 = MCreateTableForm(Row1, 2);
    MFormSetSpacing(tb2, 1);
    MTableFormSetColAlign(tb2, 0, LEFT_ALIGN);
    MTableFormSetRowAlign(tb2, 1, TOP_ALIGN);
    MObjectAlign(tb2, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(tb2, 149, 145, 153);
    MObjectSetBackgroundRGB(tb2, 149, 145, 153);
    MObjectSetResize(tb2, True, False);
*/

    tb2 = MCreateTableForm(Row1, 2);
    MObjectSetBackgroundRGB(tb2, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(tb2, True, True);



    for(drive = 1; drive <= 26; drive++)
    {
        sprintf( buf, "%c:", drive + 'A' - 1 );
        DRV[drive] = MCreateRButton(tb2, buf, fmfont);
        MObjectSetForegroundRGB(DRV[drive], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
//      MObjectSetCompositeWidth(DRV[drive], 150);
        MRButtonSetCallback(DRV[drive], (OBJ_VALUE_CB) ChDriveCB, (void *) drive);
        //controlla quali dischi sono presenti
        if(_chdrive(drive))
            MObjectSetUnsensitive(DRV[drive]);
    }

    Row2 = MCreateRowForm(_colform000);
    MObjectAlign(Row2, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetBackgroundRGB(Row2, 149, 145, 153);
    MObjectSetResize(Row2, True, True);


    FList = MCreateSList(Row2, fmfont, 255, 14, 37);
//  MSListSetSortCallback(FList, strcmp);
    MSListSetSortCallback(FList, stricmp);
    MObjectAlign(FList, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(FList, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(FList, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(FList, True, True);
//  MSBLSetHead(FList, "Name                       "  "Date    "  "Size");


/*
    FList = MCreateSList(Row2, FIXED_SMALL, 256, 14, 37);
    MObjectAlign(FList, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(FList, 255, 255, 255);
    MObjectSetBackgroundRGB(FList, 0, 0, 0);
    MObjectSetResize(FList, True, True);
*/
    _colform001 = MCreateColForm(FM_Shell);
    MFormSetSpacing(_colform001, 1);
    MObjectAlign(_colform001, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetResize(_colform001, True, False);

    tb1 = MCreateTableForm(_colform001, 3);
    MFormSetSpacing(tb1, 1);
    MTableFormSetColAlign(tb1, 0, LEFT_ALIGN);
    MTableFormSetRowAlign(tb1, 0, TOP_ALIGN);
    MTableFormSetRowAlign(tb1, 1, TOP_ALIGN);
    MObjectAlign(tb1, LEFT_ALIGN, TOP_ALIGN);
//  MObjectSetForegroundRGB(tb1, 149, 145, 153);
    MObjectSetBackgroundRGB(tb1, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(tb1, True, True);

    lbl = MCreateLabel(tb1, "Path:", fmfont);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
//  MObjectSetShadow(lbl, WS_SHADOW_IN, 2, 0);
    MObjectSetResize(lbl, True, True);

    txtpath = MCreateClippedEdit(tb1, "", 255, 32, fmfont);
    MObjectSetForegroundRGB(txtpath, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(txtpath, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MEditSetActCallback(txtpath, D_FInpFDCB, (void *) 0);
    MObjectAlign(txtpath, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetResize(txtpath, True, True);

    if(mod) // Open
    {
        pb = MCreatePButton(tb1, "Open", fmfont);
        MPButtonSetCallback(pb, D_FMDoneCB, (void *) 0);    
        MObjectSetResize(pb, True, True);
        MObjectSetBackgroundRGB(pb, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    }
    else  //Save as
    {
        pb = MCreatePButton(tb1, "Save As", fmfont);
        MPButtonSetCallback(pb, D_FMDoneCB, (void *) 2);
        MObjectSetResize(pb, True, True);
        MObjectSetBackgroundRGB(pb, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);

    }
    lbl = MCreateLabel(tb1, "File:", fmfont);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MLabelSetAlignment(lbl, LEFT_ALIGN);
    MObjectAlign(lbl, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetResize(lbl, True, True);

    txtfile = MCreateClippedEdit(tb1, "", 255, 32, fmfont);
    MObjectSetForegroundRGB(txtfile, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(txtfile, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectAlign(txtfile, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetResize(txtfile, True, True);
    MEditSetActCallback(txtfile, D_FInpFDCB, (void *) 1);



    pb = MCreatePButton(tb1, "Cancel", fmfont);
    MPButtonSetCallback(pb, D_FMDoneCB, (void *) 1);
    MObjectSetBackgroundRGB(pb, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetResize(pb, True, True);

    
    
    MShellRealizeXY(FM_Shell, 0,0);


   /* Restore original drive.*/
   _chdrive( curdrive );
    SELDRV = curdrive ;
    if (sysop)
        MRButtonActivate(DRV[SELDRV]);
    else
        MRButtonActivate(DRV[SELDRV]);

//  sprintf(curdir,"%s%s",BIL.DFILEM.WORKDIRECTORY,"\\");
    sprintf(curdir,"%s",BIL.DFILEM.WORKDIRECTORY);

    ShowFileDrive(curdir, DFMT);

    strcat(curdir,"\\");
    MObjectSetText(txtpath, curdir);


//  MEditSetActCallback(txtfile, txtfileEditCB, curdir);    


    MSListSetSelectionCallback(FList, (LIST_SEL_CB) DFMSelListCB, NULL);


    FMINIT = 0;
    MLoopWhileFlag(&FMINIT, 0);

    if(FMDONE)
        {
            FMINIT = 0;
            MShellUnrealize(FM_Shell);
            MShellDestroy(FM_Shell);
            
        }



    return FM_Shell;

}