SCIHOME.c

Go to the documentation of this file.

/*-----------------------------------------------------------------------------------*/
/* INRIA 2007 */
/* Allan CORNET */
/*-----------------------------------------------------------------------------------*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "SCIHOME.h"
#include "MALLOC.h"
#include "version.h"
#include "machine.h"

#include "../../../io/includes/createdir.h"
#include "../../../io/includes/getenvc.h"
/*-----------------------------------------------------------------------------------*/
#ifndef MAX_PATH
#define MAX_PATH 260
#endif
#if (defined _MSC_VER) 
#undef putenv
#define putenv(x) _putenv(x)
#endif
/*-----------------------------------------------------------------------------------*/
static char SCIHOMEPATH[MAX_PATH*2]="empty_SCIHOME";
/*-----------------------------------------------------------------------------------*/
BOOL setSCIHOME(void)
{
        BOOL bOK=FALSE;
        int ierr=0;
        int buflen=MAX_PATH;
        int iflag=0;
        
        char SCIHOME[MAX_PATH];
        char USERPATHSCILAB[MAX_PATH];
        
        C2F(getenvc)(&ierr,"SCIHOME",SCIHOME,&buflen,&iflag);

        if (ierr) /* SCIHOME not define */
        {
                #ifdef _MSC_VER
                        #define DIRSEPARATOR "\\"
                        #define BASEDIR "Scilab"
                #else
                        #define DIRSEPARATOR "/"
                        #define BASEDIR ".Scilab"
                #endif

                char env[MAX_PATH+1+10];
                char USERHOMESYSTEM[MAX_PATH];
                iflag=1;

                #ifdef _MSC_VER
                        C2F(getenvc)(&ierr,"USERPROFILE",USERHOMESYSTEM,&buflen,&iflag);
                #else
                        C2F(getenvc)(&ierr,"HOME",USERHOMESYSTEM,&buflen,&iflag);
                #endif


                if (ierr) {return bOK; }
                else
                {
                        sprintf(USERPATHSCILAB,"%s%s%s",USERHOMESYSTEM,DIRSEPARATOR,BASEDIR);
                        sprintf(SCIHOMEPATH,"%s%s%s",USERPATHSCILAB,DIRSEPARATOR,SCI_VERSION_STRING);
                }
                sprintf(env,"SCIHOME=%s",SCIHOMEPATH);
                putenv(env);
        }
        else
        {
                strcpy(SCIHOMEPATH,SCIHOME);
        }

        if (!ExistDir(SCIHOMEPATH))
        {
                if(!ExistDir(USERPATHSCILAB)) CreateDir(USERPATHSCILAB);
                if (CreateDir(SCIHOMEPATH))
                {
                        bOK=TRUE;
                        return bOK;
                }
        }
        else bOK=TRUE;
        
        return bOK;
}
/*-----------------------------------------------------------------------------------*/
char *getSCIHOME(void)
{
        char *retSCIHOME=NULL;
        retSCIHOME=(char*)MALLOC(sizeof(char)*(strlen(SCIHOMEPATH)+1));
        strcpy(retSCIHOME,SCIHOMEPATH);
        return retSCIHOME;
}
/*-----------------------------------------------------------------------------------*/

---