lpr.c File Reference

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

Include dependency graph for lpr.c:

Go to the source code of this file.

Defines
#define	MAXSTR   256
Typedefs
typedef int(*)	MYPROC (HINSTANCE, HWND, char *, char *)
typedef BOOL(*)	MYPROC2 (void)
Functions
char *	GetScilabDirectory (BOOL UnixStyle)
char *	GetScilabDllDirectory (BOOL UnixStyle)
void	AddToScilabDllPathEnv ()
int	main (int argc, char *argv[])

---

Define Documentation

#define MAXSTR   256

Definition at line 10 of file lpr.c.

---

Typedef Documentation

typedef int(*) MYPROC(HINSTANCE, HWND, char *, char *)

Definition at line 8 of file lpr.c.

typedef BOOL(*) MYPROC2(void)

Definition at line 9 of file lpr.c.

---

Function Documentation

void AddToScilabDllPathEnv

(

)

Definition at line 130 of file lpr.c.

References env, FALSE, free(), GetScilabDllDirectory(), malloc(), and NULL.

Referenced by main().

{
        char *LibScilabDirectory=NULL;
        char *env=NULL;

        LibScilabDirectory=GetScilabDllDirectory(FALSE);
        env=(char*)malloc(sizeof(char)*(strlen(LibScilabDirectory)+strlen("PATH=%s;%PATH%")+1));
        sprintf(env,"PATH=%s;%PATH%",LibScilabDirectory);
        if (LibScilabDirectory) {free(LibScilabDirectory);LibScilabDirectory=NULL;}
        _putenv(env);
        if (env) {free(env);env=NULL;}
}

Here is the call graph for this function:

Here is the caller graph for this function:

char* GetScilabDirectory

(

BOOL

UnixStyle

)

Definition at line 64 of file SciEnv.c.

References dir, fname, FREE, i, int, MALLOC, MAXSTR, MSG_SCIMSG9, NULL, and setSCIpath().

{
        LPSTR ScilabModuleName=NULL;
        char drive[_MAX_DRIVE];
        char dir[_MAX_DIR];
        char fname[_MAX_FNAME];
        char ext[_MAX_EXT];

        char *SciPathName=NULL;
        char *DirTmp=NULL;

        ScilabModuleName = (LPSTR) MALLOC (MAXSTR + 1);

        if (!GetModuleFileName ((HINSTANCE)GetModuleHandle(MSG_SCIMSG9), (LPSTR) ScilabModuleName, MAXSTR))
        {
                if (ScilabModuleName) {FREE(ScilabModuleName);ScilabModuleName=NULL;}
                return NULL;
        }

        _splitpath(ScilabModuleName,drive,dir,fname,ext);
        if (ScilabModuleName) {FREE(ScilabModuleName);ScilabModuleName=NULL;}
        if (dir[strlen(dir)-1] == '\\') dir[strlen(dir)-1] = '\0';

        DirTmp=strrchr (dir, '\\');
        if (strlen(dir)-strlen(DirTmp)>0)
        {
                dir[strlen(dir)-strlen(DirTmp)] = '\0';
        }
        else return NULL;

        SciPathName=(char*)MALLOC((int)(strlen(drive)+strlen(dir)+5)*sizeof(char));
        
        _makepath(SciPathName,drive,dir,NULL,NULL);

        if ( UnixStyle )
        {       
                int i=0;
                for (i=0;i<(int)strlen(SciPathName);i++)
                {
                        if (SciPathName[i]=='\\') SciPathName[i]='/';
                }
        }
        SciPathName[strlen(SciPathName)-1]='\0';
        setSCIpath(SciPathName);
        return SciPathName;
}

Here is the call graph for this function:

char * GetScilabDllDirectory

(

BOOL

UnixStyle

)

Definition at line 118 of file lpr.c.

References free(), GetScilabDirectory(), malloc(), and NULL.

Referenced by AddToScilabDllPathEnv().

{
        char *LibScilabPath=NULL;
        char *PathTmp=NULL;
        PathTmp=GetScilabDirectory(UnixStyle);

        LibScilabPath=(char*)malloc(sizeof(char)*(strlen(PathTmp)+strlen("%s\\bin")+1));
        wsprintf(LibScilabPath,"%s\\bin",PathTmp);
        if (PathTmp) {free(PathTmp);PathTmp=NULL;}
        return LibScilabPath;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int main	(	int	argc,
		char *	argv[]
	)

Definition at line 16 of file lpr.c.

References AddToScilabDllPathEnv(), ConfigurePrinterDialogBox(), FALSE, gp_printfile(), hinstLib, NULL, TRUE, and x.

{
        HINSTANCE hinstLib; 
        
    MYPROC gp_printfile; 
        MYPROC2 ConfigurePrinterDialogBox; 
    BOOL fFreeResult, fRunTimeLinkSuccess = FALSE; 

        AddToScilabDllPathEnv();
        
        hinstLib = LoadLibrary(TEXT("LibScilab"));      
 
    if (hinstLib != NULL) 
    { 
        gp_printfile = (MYPROC) GetProcAddress(hinstLib, TEXT("gp_printfile")); 
                ConfigurePrinterDialogBox = (MYPROC2) GetProcAddress(hinstLib, TEXT("ConfigurePrinterDialogBox")); 
 
        if ( (NULL != gp_printfile) && (NULL != ConfigurePrinterDialogBox) )
        {
                HWND parent;
                HANDLE x = GetModuleHandleA (0);
                                                
                fRunTimeLinkSuccess = TRUE;
                parent = GetActiveWindow ();
                                                
                ConfigurePrinterDialogBox();
                
                if (argc == 2)
                        (gp_printfile) (x, parent, argv[1], (char *) 0);
                else
                        (gp_printfile) (x, parent, (char *) 0, (char *) 0);

        }
                else
                {
                        MessageBox(NULL,"Lpr : Libscilab.dll Incorret Version !","Warning",MB_ICONERROR); 
                }

        fFreeResult = FreeLibrary(hinstLib); 
    } 
 
    if (! fRunTimeLinkSuccess) MessageBox(NULL,"Lpr : Libscilab.dll not found !","Warning",MB_ICONERROR); 
        
    return (0);
}

Here is the call graph for this function:

---