SCIHOME.h File Reference

#include "machine.h"

Include dependency graph for SCIHOME.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions
BOOL	setSCIHOME (void)
char *	getSCIHOME (void)

---

Function Documentation

char* getSCIHOME

(

void

)

Definition at line 87 of file SCIHOME.c.

References MALLOC, NULL, and SCIHOMEPATH.

Referenced by getfilenamelanguagepref(), and getscihome().

{
        char *retSCIHOME=NULL;
        retSCIHOME=(char*)MALLOC(sizeof(char)*(strlen(SCIHOMEPATH)+1));
        strcpy(retSCIHOME,SCIHOMEPATH);
        return retSCIHOME;
}

Here is the caller graph for this function:

BOOL setSCIHOME

(

void

)

Definition at line 26 of file SCIHOME.c.

References BASEDIR, buflen, C2F, CreateDir(), DIRSEPARATOR, env, ExistDir(), FALSE, getenvc(), ierr, iflag, MAX_PATH, putenv, SCI_VERSION_STRING, SCIHOMEPATH, and TRUE.

Referenced by getscihome(), and SciEnv().

{
        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;
}

Here is the call graph for this function:

Here is the caller graph for this function:

---