winmain.c File Reference

#include "winmain.h"
#include "WinConsole.h"
#include "wtext.h"
#include "Messages.h"
#include "Warnings.h"
#include "Errors.h"
#include "GraphWindows.h"
#include "MenuWindows.h"
#include "win_mem_alloc.h"

Include dependency graph for winmain.c:

Go to the source code of this file.

Defines
#define	stricmp   _stricmp
#define	strnicmp   _strnicmp
Functions
void	PrintFile (char *filename)
void	ChangeCursorWhenScilabIsReady (void)
TW	InitTWStruct (void)
void	CreateSplashscreen (void)
void	settexmacs (void)
void	MessageBoxNewGraphicMode (void)
int	ExitScilab (void)
void	SetWITH_GUI (BOOL ON)
BOOL	GetWITH_GUI (void)
void	disp_scilab_version (void)
int	Console_Main (int argc, char **argv)
int WINAPI	Windows_Main (HINSTANCE hInstance, HINSTANCE hPrevInstance, PSTR szCmdLine, int iCmdShow)
void	InitWindowGraphDll (void)
void	add_sci_argv (char *p)
int	sci_iargc ()
int	sci_getarg (int *n, char *s, long int ls)
int	InteractiveMode ()
int C2F()	showlogo ()
void	Kill_Scilex (void)
BOOL	ForbiddenToUseScilab (void)
int	IsNoInteractiveWindow (void)
char *	stristr (const char *psz, const char *tofind)
Variables
BOOL	ScilabIsStarting = TRUE
int	sci_show_banner = 1
static LPSTR	my_argv [MAXCMDTOKENS]

---

Define Documentation

#define stricmp   _stricmp

Definition at line 44 of file winmain.c.

#define strnicmp   _strnicmp

Definition at line 45 of file winmain.c.

Referenced by stristr().

---

Function Documentation

void add_sci_argv

(

char *

p

)

Definition at line 537 of file winmain.c.

References my_argc, and my_argv.

Referenced by Initialize().

{
        if (*p) my_argv[++my_argc]=p;
}

Here is the caller graph for this function:

void ChangeCursorWhenScilabIsReady

(

void

)

Definition at line 110 of file x_zzledt.c.

References C2F, tagTW::CharSize, tagTW::ClientSize, EnableNMenus(), EnableToolBar(), FALSE, GetTextWinScilab(), tagTW::hInstance, tagTW::hWndParent, tagTW::hWndText, InvalidateCursor(), IsWindowInterface(), nc, nl, NULL, ScilabIsStarting, scilines(), and SetFocus().

Referenced by Windows_Main(), and zzledt().

{
  if ( (IsWindowInterface()) && (ScilabIsStarting) )
  {
        HCURSOR hCursor;
        LPTW lptw=GetTextWinScilab();
        int NumsMenu = 0;
        int nl=0, nc=0;
        HMENU hMenu=NULL;
                
        hCursor=LoadCursor(  lptw->hInstance,IDC_ARROW);
        SetClassLong(lptw->hWndParent, GCL_HCURSOR,     (LONG) hCursor); 
        SetClassLong(lptw->hWndText,GCL_HCURSOR,(LONG) hCursor); 
        InvalidateCursor(); 
        hMenu=GetMenu(lptw->hWndParent);
        NumsMenu=GetMenuItemCount (hMenu);
        EnableNMenus(lptw,NumsMenu);
        EnableToolBar(lptw);

        ScilabIsStarting=FALSE;

        ShowWindow (lptw->hWndParent,SW_SHOWDEFAULT);
        BringWindowToTop (lptw->hWndParent);
        SetFocus(lptw->hWndParent);
        SetFocus(lptw->hWndText);
        
        /* Initialize 'lines' */
        nc = lptw->ClientSize.x / lptw->CharSize.x;
        nl = lptw->ClientSize.y / lptw->CharSize.y;
        if ((lptw->ClientSize.x>0) && (lptw->ClientSize.y>0))   C2F (scilines) (&nl, &nc);

  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

int Console_Main	(	int	argc,
		char **	argv
	)

Definition at line 63 of file winmain.c.

References tagTW::CursorFlag, disp_scilab_version(), ExitScilab(), FALSE, ForbiddenToUseScilab(), FREE, GetScilabDirectory(), GetszGraphMenuName(), GetszMenuName(), graphwin, hdllInstance, tagTW::hInstance, tagGW::hInstance, tagTW::hPrevInstance, tagGW::hPrevInstance, i, InitGWStruct(), InitMWStruct(), InitszGraphMenuName(), InitTWStruct(), tagTW::KeyBufSize, tagTW::lpmw, tagGW::lptw, Max, memory, menuwin, MIN_STACKSIZE, MSG_ERROR20, MSG_ERROR38, MSG_ERROR79, MSG_SCIMSG122, MSG_SCIMSG123, MSG_SCIMSG124, MSG_SCIMSG125, MSG_SCIMSG126, MSG_SCIMSG127, MSG_SCIMSG128, MSG_SCIMSG129, MSG_SCIMSG130, MSG_SCIMSG131, MSG_SCIMSG132, MSG_SCIMSG133, MSG_SCIMSG134, MSG_SCIMSG135, MSG_SCIMSG21, MSG_SCIMSG23, MSG_SCIMSG24B, MSG_SCIMSG9, my_argc, my_argv, tagTW::nCmdShow, nointeractive, NULL, path, RenameConsole(), SaveConsoleColors(), sci_show_banner, sci_windows_main(), ScilabIsStarting, tagTW::ScreenSize, settexmacs(), SetWindowMode(), SetWITH_GUI(), startupf, stricmp, tagMW::szMenuName, tagGW::szMenuName, textwin, tagTW::Title, tagGW::Title, TRUE, and UpdateConsoleColors().

Referenced by main().

{
  int nowin = 0, argcount = 0, lpath = 0, pathtype=0;
  char *path = NULL;
  char *ScilabDirectory=NULL;
  int i=0;

  my_argc = -1;

  ForbiddenToUseScilab();

  SetWindowMode(FALSE);
  ScilabIsStarting=TRUE;
  
  for (i=0;i<argc;i++)
  {
          my_argv[i] = argv[i];
  }
  my_argc =argc;

  ScilabDirectory=GetScilabDirectory(FALSE);

  if (ScilabDirectory == NULL)
  {
        MessageBox (NULL, MSG_ERROR20 ,MSG_ERROR38, MB_ICONSTOP | MB_OK);
        exit(1);
  }

  InitszGraphMenuName(ScilabDirectory);
 
  if (ScilabDirectory){FREE(ScilabDirectory);ScilabDirectory=NULL;}

  /* Load common control library * */
  InitCommonControls ();

  textwin=InitTWStruct();

  textwin.hInstance = GetModuleHandle(MSG_SCIMSG9);
  textwin.hPrevInstance = 0;
  textwin.nCmdShow = 1;
  textwin.Title = MSG_SCIMSG21;
  textwin.lpmw = &menuwin;
  textwin.ScreenSize.x = 120;
  textwin.ScreenSize.y = 80;
  textwin.KeyBufSize = 2048;
  textwin.CursorFlag = 1;       /* scroll to cursor after \n & \r */
 
  menuwin=InitMWStruct();
  menuwin.szMenuName = GetszMenuName();

  graphwin=InitGWStruct();  
  graphwin.hInstance = GetModuleHandle(MSG_SCIMSG9);
  graphwin.hPrevInstance = 0;
  graphwin.Title =  MSG_SCIMSG23 ;
  graphwin.szMenuName = GetszGraphMenuName();
  graphwin.lptw = &textwin;
  argcount = my_argc;
  while (argcount > 0)
    {
      argcount--;
      if (stricmp (my_argv[argcount], "-NW") == 0) nowin = 1;
      else if (stricmp (my_argv[argcount], "-NS") == 0) startupf = 1;
      else if ( stricmp(my_argv[argcount],"-NB") == 0) { sci_show_banner = 0; }
      else if (stricmp (my_argv[argcount], "-NWNI") == 0)
                {
                        nowin = 1;
                        nointeractive = 1;
                }
      else if (stricmp (my_argv[argcount], "-F") == 0 && argcount + 1 < my_argc)
                {
                        path = my_argv[argcount + 1];
                        lpath = strlen (my_argv[argcount + 1]);
                }
      else if (stricmp (my_argv[argcount], "-E") == 0 && argcount + 1 < my_argc)
                {
                        path = my_argv[argcount + 1];
                        lpath = strlen (my_argv[argcount + 1]);
                        pathtype=1;
                }
      else if ( stricmp(my_argv[argcount],"-MEM") == 0 && argcount + 1 < my_argc)
                {
                        memory = Max(atoi( my_argv[argcount + 1]),MIN_STACKSIZE );
                } 
          else if ( stricmp(my_argv[argcount],"-TEXMACS") == 0 )
          {
                  settexmacs();
          }
          else if ( stricmp(my_argv[argcount],"-NOGUI") == 0 )
          {
                  nowin = 1;
                  nointeractive = 1;
                  SetWITH_GUI(FALSE);
          }
          else if ( (stricmp (my_argv[argcount],"-VERSION")==0) ||
                  (stricmp (my_argv[argcount],"-VER")==0) )
          {
                        disp_scilab_version();
                        exit(1);
          }
          else if ( (stricmp (my_argv[argcount],"-H")==0) ||
                  (stricmp (my_argv[argcount],"-?")==0) ||
                  (stricmp (my_argv[argcount],"-HELP")==0) )
          {
                    printf(MSG_SCIMSG24B);
                    printf(MSG_SCIMSG122); 
                        printf(MSG_SCIMSG123); 
                        printf(MSG_SCIMSG124); 
                        printf(MSG_SCIMSG125); 
                        printf(MSG_SCIMSG126); 
                        printf(MSG_SCIMSG127); 
                        printf(MSG_SCIMSG128); 
                        printf(MSG_SCIMSG129); 
                        printf(MSG_SCIMSG130); 
                        printf(MSG_SCIMSG131); 
                        printf(MSG_SCIMSG132); 
                        printf(MSG_SCIMSG133); 
                        printf(MSG_SCIMSG134); 
                        printf(MSG_SCIMSG135); 

                  printf("\n");
                  exit(1);
          }
        }

  hdllInstance = GetModuleHandle(MSG_SCIMSG9);

  if (nowin == 1)
    {
          SaveConsoleColors();
          if (nointeractive!=1)
          {
                  RenameConsole();
                  UpdateConsoleColors();
          }
          
          sci_windows_main (nowin, &startupf,path,pathtype, &lpath,memory);
         
    }
  else
    {
        MessageBox(NULL,MSG_ERROR79,MSG_ERROR20,MB_ICONWARNING);
    }

  ExitScilab();
  
  return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void CreateSplashscreen

(

void

)

Definition at line 8 of file Splashscreen.c.

{
        HWND hdlg;
        hdlg = CreateDialog(hdllInstance, "IDD_SPLASH", NULL,NULL);

        ShowWindow(hdlg, SW_SHOWNORMAL);
        UpdateWindow(hdlg);
        Sleep(1500);

        DestroyWindow(hdlg);
}

void disp_scilab_version

(

void

)

Definition at line 13 of file version.c.

References IsConsoleMode(), NULL, SCI_VERSION_MAINTENANCE, SCI_VERSION_MAJOR, SCI_VERSION_MINOR, SCI_VERSION_REVISION, and SCI_VERSION_STRING.

{
        if (!IsConsoleMode())
        {
                #ifdef _MSC_VER
                {
                        char msg[1024];
                        wsprintf(msg,"Scilab version \"%d.%d.%d.%d\"\n%s\n",SCI_VERSION_MAJOR,SCI_VERSION_MINOR,SCI_VERSION_MAINTENANCE,SCI_VERSION_REVISION,SCI_VERSION_STRING);
                        MessageBox(NULL,msg,"Scilab Version Info.",MB_ICONINFORMATION);
                }
                
                #else
                printf("Scilab version \"%d.%d.%d.%d\"\n",SCI_VERSION_MAJOR,SCI_VERSION_MINOR,SCI_VERSION_MAINTENANCE,SCI_VERSION_REVISION);
                printf("%s\n\n",SCI_VERSION_STRING);
                #endif
        }
        else
        {
                printf("Scilab version \"%d.%d.%d.%d\"\n",SCI_VERSION_MAJOR,SCI_VERSION_MINOR,SCI_VERSION_MAINTENANCE,SCI_VERSION_REVISION);
                printf("%s\n\n",SCI_VERSION_STRING);
        }
}

Here is the call graph for this function:

int ExitScilab

(

void

)

TODO : comment

Returns:

Definition at line 24 of file sciquit.c.

References TerminateCorePart1(), TerminateCorePart2(), TerminateGraphics(), TerminateGUI(), TerminateJVMs(), TerminateLocalization(), and TerminateTclTk().

{
        TerminateCorePart1();

        TerminateGraphics();

        TerminateGUI();
  
        #ifdef WITH_TK
        TerminateTclTk();
        #endif

        #ifdef _MSC_VER
        TerminateJVMs();
        #endif

        TerminateLocalization();

        TerminateCorePart2();

        return 0;
}

Here is the call graph for this function:

BOOL ForbiddenToUseScilab

(

void

)

Definition at line 590 of file winmain.c.

References BITSPIXEL, FALSE, hdc, MSG_ERROR42, MSG_WARNING22, NULL, and TRUE.

Referenced by Console_Main(), InitWindowGraphDll(), and Windows_Main().

{
        BOOL bOK=FALSE;
        HDC hdc=GetDC(NULL);
        int BitsByPixel = GetDeviceCaps(hdc, BITSPIXEL);

    ReleaseDC (NULL, hdc);

        if ( BitsByPixel < 8 )
        {
                MessageBox(NULL,MSG_WARNING22,MSG_ERROR42,MB_ICONSTOP);
                exit(1);
                return bOK;
        }

        bOK=TRUE;
        return bOK;
}

Here is the caller graph for this function:

BOOL GetWITH_GUI

(

void

)

TODO : comment

Returns:

Definition at line 297 of file inisci-c.c.

{
        return WITH_GUI;
}

TW InitTWStruct

(

void

)

Definition at line 15 of file TextWindows.c.

References tagTW::Attr, tagTW::AttrBuffer, tagTW::bFocus, tagTW::bGetCh, tagTW::bSysColors, tagTW::ButtonHeight, tagTW::CaretHeight, tagTW::CharAscent, tagTW::CharSize, tagTW::ClientSize, tagTW::CursorFlag, tagTW::CursorPos, FALSE, tagTW::fontname, tagTW::fontsize, tagTW::hbrBackground, tagTW::hfont, tagTW::hIcon, tagTW::hInstance, tagTW::hPopMenu, tagTW::hPrevInstance, tagTW::hWndParent, tagTW::hWndText, tagTW::KeyBuf, tagTW::KeyBufIn, tagTW::KeyBufOut, tagTW::KeyBufSize, tagTW::lpmw, tagTW::lpr, tagTW::MarkBegin, tagTW::MarkEnd, tagTW::Marking, tagTW::nCmdShow, NULL, tagTW::Origin, tagTW::ScreenBuffer, tagTW::ScreenSize, tagTW::ScrollMax, tagTW::ScrollPos, tagTW::Size, and tagTW::Title.

Referenced by Console_Main(), and Windows_Main().

{
        TW TWStruct;

        TWStruct.lpr=NULL;
        TWStruct.hInstance=NULL;
        TWStruct.hPrevInstance=NULL;
        TWStruct.Title=NULL;
        TWStruct.lpmw=NULL;

        TWStruct.ScreenSize.x=0;
        TWStruct.ScreenSize.y=0;

        TWStruct.KeyBufSize=0;
        TWStruct.nCmdShow=0;
        TWStruct.hIcon=NULL;
        TWStruct.hPopMenu=NULL;
        TWStruct.hWndText=NULL;
        TWStruct.hWndParent=NULL;

        TWStruct.Origin.x=0;
        TWStruct.Origin.y=0;

        TWStruct.Size.x=0;
        TWStruct.Size.y=0;

        TWStruct.ScreenBuffer=NULL;
        TWStruct.AttrBuffer=NULL;
        TWStruct.KeyBuf=NULL;
        TWStruct.KeyBufIn=NULL;
        TWStruct.KeyBufOut=NULL;
        TWStruct.Attr=0;
        TWStruct.bFocus=FALSE;
        TWStruct.bGetCh=FALSE;
        TWStruct.bSysColors=FALSE;
        TWStruct.hbrBackground=NULL;
        wsprintf(TWStruct.fontname,"Lucida Console");
        TWStruct.fontsize=11;
        TWStruct.hfont=NULL;
        TWStruct.CharAscent=0;
        TWStruct.ButtonHeight=0;
        TWStruct.CaretHeight=0;
        TWStruct.CursorFlag=0;

        TWStruct.CursorPos.x=0;
        TWStruct.CursorPos.y=0;

        TWStruct.ClientSize.x=0;
        TWStruct.ClientSize.y=0;

        TWStruct.CharSize.x=0;
        TWStruct.CharSize.y=0;

        TWStruct.ScrollPos.x=0;
        TWStruct.ScrollPos.y=0;

        TWStruct.ScrollMax.x=0;
        TWStruct.ScrollMax.y=0;

        TWStruct.MarkBegin.x=0;
        TWStruct.MarkBegin.y=0;

        TWStruct.MarkEnd.x=0;
        TWStruct.MarkEnd.y=0;

        TWStruct.Marking=FALSE;

        return TWStruct;
}

Here is the caller graph for this function:

void InitWindowGraphDll

(

void

)

Definition at line 491 of file winmain.c.

References FALSE, ForbiddenToUseScilab(), FREE, getenv(), GetScilabDirectory(), GetszGraphMenuName(), GetWITH_GUI(), graphwin, hdllInstance, tagGW::hInstance, tagGW::hPrevInstance, InitGWStruct(), InitszGraphMenuName(), tagGW::lptw, MSG_ERROR20, MSG_ERROR38, MSG_ERROR39, MSG_SCIMSG11, MSG_SCIMSG23, NULL, tagGW::szMenuName, textwin, and tagGW::Title.

Referenced by Initialize(), and StartScilab().

{
        if ( GetWITH_GUI() )
        {
                char *ScilabDirectory=NULL;

                HINSTANCE hdllInstanceTmp=NULL;
                char *p1 = (char*)getenv ("SCI");
                hdllInstanceTmp=(HINSTANCE)GetModuleHandle(MSG_SCIMSG11);

                if (hdllInstanceTmp==NULL) 
                {
                        MessageBox(NULL,MSG_ERROR39,MSG_ERROR20,MB_ICONWARNING|MB_OK);
                        exit(1);
                }

                ForbiddenToUseScilab();

                hdllInstance=hdllInstanceTmp;
                ScilabDirectory=GetScilabDirectory(FALSE);

                if (ScilabDirectory == NULL)
                {
                        MessageBox (NULL, MSG_ERROR20, MSG_ERROR38, MB_ICONSTOP | MB_OK);
                        exit(1);
                }       

                InitszGraphMenuName(ScilabDirectory);
                if (ScilabDirectory){FREE(ScilabDirectory);ScilabDirectory=NULL;}               

                InitCommonControls ();

                graphwin=InitGWStruct();
                graphwin.hInstance = hdllInstance;
                graphwin.hPrevInstance = NULL;
                graphwin.Title = MSG_SCIMSG23;
                graphwin.szMenuName = GetszGraphMenuName();
                graphwin.lptw = &textwin;
        }
}

Here is the call graph for this function:

Here is the caller graph for this function:

int InteractiveMode

(

void

)

Definition at line 565 of file winmain.c.

References nointeractive.

{
        return nointeractive;
}

int IsNoInteractiveWindow

(

void

)

Definition at line 609 of file winmain.c.

References nointeractive.

{
        return nointeractive;
}

void Kill_Scilex

(

void

)

Definition at line 575 of file winmain.c.

References FALSE, MSG_WARNING20, MSG_WARNING21, and NULL.

{
        HANDLE hProcess;
        /* Ouverture de ce Process avec droit pour le tuer */

        hProcess=OpenProcess(PROCESS_TERMINATE,FALSE,GetCurrentProcessId());
        if (hProcess)
        {
                /* Tue ce Process */

                TerminateProcess(hProcess,0);
        }
        else MessageBox(NULL,MSG_WARNING20,MSG_WARNING21,MB_ICONWARNING);
}

void MessageBoxNewGraphicMode

(

void

)

Definition at line 17 of file MessageBoxNewGraphicMode.c.

{
        HKEY key;
        DWORD result,size=4;
        char Clef[MAX_PATH];
        int DontShowMessageNewGraphicMode,Ans;

        wsprintf(Clef,"SOFTWARE\\Scilab\\%s\\Settings",SCI_VERSION_STRING);
  result=RegOpenKeyEx(HKEY_CURRENT_USER, Clef, 0, KEY_QUERY_VALUE , &key);

        if ( RegQueryValueEx(key, "DontShowMessageNewGraphicMode", 0, NULL, (LPBYTE)&Ans, &size) !=  ERROR_SUCCESS )
  {
        DontShowMessageNewGraphicMode = 0;
        }
        else
        {
                DontShowMessageNewGraphicMode = Ans;
        }

        if ( result == ERROR_SUCCESS ) RegCloseKey(key);

        if (DontShowMessageNewGraphicMode == 0)
        {
                DialogBox(hdllInstance, "IDD_MESSAGE_NEW_GRAPHIC", NULL,MessageBoxNewGraphicModeDlgProc);
        }
}

void PrintFile

(

char *

filename

)

Definition at line 180 of file TextToPrint.c.

{
#define MAXBUF 4096
        HDC PrintDC;
        HFONT hFont, hOldFont;
        HDC hDCmem;
        DOCINFO di;
        int Index2 = 3;
        int numero=1;
        // Extrait les informations sur la police
        TEXTMETRIC tm;
        int NbLigneParPage = 0;
        int HauteurCaractere=0;
        int NombredeCaracteresparLignes=0;
        FILE * pFile;
        char  line[MAXBUF];

        PrintDC=GetPrinterDC();
        if (PrintDC != NULL)
        {

                hFont=EzCreateFont (PrintDC, TEXT ("Courier New"),120, 0, 0, TRUE) ;
                hOldFont = SelectObject(PrintDC, hFont );

                hDCmem = CreateCompatibleDC(PrintDC);
                memset( &di, 0, sizeof( DOCINFO ) );
                di.cbSize      = sizeof( DOCINFO );
                di.lpszDocName = MSG_SCIMSG105;

                GetTextMetrics(PrintDC,(TEXTMETRIC *)&tm);

                NombredeCaracteresparLignes=GetDeviceCaps(PrintDC,HORZRES) / (tm.tmMaxCharWidth+1);
                // la valeur HauteurCaractere contient hauteur des caractéres + l'interligne
                HauteurCaractere= tm.tmHeight+tm.tmExternalLeading;
                NbLigneParPage = GetDeviceCaps(PrintDC,VERTRES) / HauteurCaractere;

                pFile = fopen (filename,"rt");
                if (pFile)
                {
                        if ( StartDoc( PrintDC, &di ) > 0 )
                        {
                                char *LignePrint=NULL;
                                StartPage(PrintDC);
                                PageHeader(PrintDC,filename);

                                while(fgets (line,sizeof(line),pFile) != NULL)
                                {
                                        if (line[strlen(line)-1] == '\n') line[strlen(line)-1]='\0'; /* enleve le retour chariot */
                                        if (line[strlen(line)-2] == '\r') line[strlen(line)-2]='\0'; /* enleve le retour chariot */

                                        if ( strlen(line)> (unsigned int )NombredeCaracteresparLignes)
                                        {
                                                int i=0;
                                                int j=0;
                                                int subline=0;
                                                int restsubline=0;
                                                subline = (int)strlen(line) / NombredeCaracteresparLignes ;
                                                restsubline=(int)strlen(line) % NombredeCaracteresparLignes ;

                                                for (i=0;i<subline;i++)
                                                {
                                                        LignePrint=(char*)MALLOC( (NombredeCaracteresparLignes+1)*sizeof(char));
                                                        for (j=0;j<(NombredeCaracteresparLignes);j++)
                                                        {
                                                                if (line[(i*NombredeCaracteresparLignes)+j] == 9) /* == \t */
                                                                {
                                                                        LignePrint[j]=' ';
                                                                }
                                                                else
                                                                {
                                                                        LignePrint[j]=line[(i*NombredeCaracteresparLignes)+j];
                                                                }

                                                        }
                                                        LignePrint[j]='\0';

                                                        TextOut (PrintDC,(tm.tmMaxCharWidth+10), Index2*HauteurCaractere, LignePrint, (int)strlen(LignePrint));
                                                        if (LignePrint)
                                                        {
                                                                FREE(LignePrint);
                                                                LignePrint=NULL;
                                                        }
                                                        Index2 ++;
                                                        if (Index2 == NbLigneParPage-4)
                                                        {
                                                                Footer(PrintDC,numero);
                                                                EndPage (PrintDC);
                                                                StartPage(PrintDC);
                                                                numero++;
                                                                PageHeader(PrintDC,filename);
                                                                Index2 = 3;
                                                        }
                                                }
                                                if (restsubline>0)
                                                {
                                                        LignePrint=(char*)MALLOC( (NombredeCaracteresparLignes+1)*sizeof(char));
                                                        for (j=0;j<(restsubline);j++)
                                                        {
                                                                if (line[(i*NombredeCaracteresparLignes)+j] == 9) /* == \t */
                                                                {
                                                                        LignePrint[j]=' ';
                                                                }
                                                                else
                                                                {
                                                                        LignePrint[j]=line[(i*NombredeCaracteresparLignes)+j];
                                                                }
                                                        }
                                                        LignePrint[j]='\0';
                                                        TextOut (PrintDC,(tm.tmMaxCharWidth+10), Index2*HauteurCaractere, LignePrint, (int)strlen(LignePrint));
                                                        if (LignePrint)
                                                        {
                                                                FREE(LignePrint);
                                                                LignePrint=NULL;
                                                        }
                                                        Index2 ++;
                                                        if (Index2 == NbLigneParPage-4)
                                                        {
                                                                Footer(PrintDC,numero);
                                                                EndPage (PrintDC);
                                                                StartPage(PrintDC);
                                                                numero++;
                                                                PageHeader(PrintDC,filename);
                                                                Index2 = 3;
                                                        }
                                                }
                                        }
                                        else
                                        {
                                                LignePrint=(char*)MALLOC( (NombredeCaracteresparLignes+1)*sizeof(char));
                                                strcpy(LignePrint,line);
                                                TextOut (PrintDC,(tm.tmMaxCharWidth+10), Index2*HauteurCaractere, LignePrint, (int)strlen(LignePrint));
                                                if (LignePrint)
                                                {
                                                        FREE(LignePrint);
                                                        LignePrint=NULL;
                                                }
                                                Index2 ++;
                                                if (Index2 == NbLigneParPage-4)
                                                {
                                                        Footer(PrintDC,numero);
                                                        EndPage (PrintDC);
                                                        StartPage(PrintDC);
                                                        numero++;
                                                        PageHeader(PrintDC,filename);
                                                        Index2 = 3;
                                                }
                                        }
                                }
                                fclose(pFile);

                                Footer(PrintDC,numero);
                                EndPage (PrintDC);
                                EndDoc (PrintDC);
                        }
                }
                SelectObject(PrintDC, hOldFont );
        }
}

int sci_getarg	(	int *	n,
		char *	s,
		long int	ls
	)

Definition at line 548 of file winmain.c.

References i, my_argc, my_argv, and t.

{
        register char *t;
        register int i;
        
        if(*n>=0 && *n <= my_argc)
        t = my_argv[*n];
        else
        t = "";

        for(i = 0; i < ls && *t!='\0' ; ++i)
        *s++ = *t++;
        for( ; i<ls ; ++i)
        *s++ = ' ';
        return 0;
}

int sci_iargc

(

void

)

Definition at line 543 of file winmain.c.

References my_argc.

{
        return my_argc -1 ;
}

void settexmacs

(

void

)

Definition at line 24 of file texmacs.c.

                  {
  texmacs_mode=1;
}

void SetWITH_GUI

(

BOOL

ON

)

Definition at line 292 of file inisci-c.c.

{
        if ( (ON == FALSE) || (ON == TRUE) ) WITH_GUI=ON;
}

int C2F() showlogo

(

)

Definition at line 570 of file winmain.c.

References show_logo.

{
        return show_logo;
}

char* stristr	(	const char *	psz,
		const char *	tofind
	)

Definition at line 615 of file winmain.c.

References strchr(), and strnicmp.

Referenced by Windows_Main().

{
        const char *ptr = psz;
        const char *ptr2;

        while(1)
        {
                ptr = strchr(psz,toupper(*tofind));
                ptr2 = strchr(psz,tolower(*tofind));
                if (!ptr)
                {
                        ptr = ptr2; /* was ptr2 = ptr.  Big bug fixed 10/22/99 */
                }
                if (!ptr)
                {
                        break;
                }
                if (ptr2 && (ptr2 < ptr))
                {
                        ptr = ptr2;
                }
                if (!strnicmp(ptr,tofind,strlen(tofind)))
                {
                        return (char *) ptr;
                }
                psz = ptr+1;
        }
        return 0;
} 

Here is the call graph for this function:

Here is the caller graph for this function:

int WINAPI Windows_Main	(	HINSTANCE	hInstance,
		HINSTANCE	hPrevInstance,
		PSTR	szCmdLine,
		int	iCmdShow
	)

Definition at line 211 of file winmain.c.

References ChangeCursorWhenScilabIsReady(), CloseScilabConsole(), CommandByFileExtension(), CreateScilabConsole(), CreateSplashscreen(), tagTW::CursorFlag, disp_scilab_version(), ExitScilab(), FALSE, ForbiddenToUseScilab(), ForceToActiveWindowParent(), FREE, GetScilabDirectory(), GetszGraphMenuName(), GetszMenuName(), graphwin, hdllInstance, HideScilex(), tagTW::hInstance, tagGW::hInstance, tagTW::hPrevInstance, tagGW::hPrevInstance, i, InitGWStruct(), InitMWStruct(), InitszGraphMenuName(), InitszMenuName(), InitTWStruct(), IsAGraphFile(), IsAScicosFile(), j, tagTW::KeyBufSize, LINE, tagTW::lpmw, tagGW::lptw, MALLOC, Max, MAX_PATH, memory, menuwin, MessageBoxNewGraphicMode(), MIN_STACKSIZE, MSG_ERROR20, MSG_ERROR38, MSG_SCIMSG122, MSG_SCIMSG123, MSG_SCIMSG124, MSG_SCIMSG125, MSG_SCIMSG126, MSG_SCIMSG127, MSG_SCIMSG128, MSG_SCIMSG129, MSG_SCIMSG130, MSG_SCIMSG131, MSG_SCIMSG132, MSG_SCIMSG133, MSG_SCIMSG134, MSG_SCIMSG135, MSG_SCIMSG21, MSG_SCIMSG23, MSG_SCIMSG24, MSG_SCIMSG30, my_argc, my_argv, tagTW::nCmdShow, NULL, path, sci_show_banner, sci_windows_main(), ScilabIsStarting, tagTW::ScreenSize, SetWindowMode(), SetXsciOn(), startupf, stricmp, stristr(), SW_SHOWNORMAL, tagMW::szMenuName, tagGW::szMenuName, TextInit(), textwin, tagTW::Title, tagGW::Title, TRUE, and WSCILEX.

Referenced by WinMain().

{
        int i=0;
        BOOL ShortCircuitExec=FALSE;
        BOOL LaunchAFile=FALSE;
        BOOL ShowMessageBoxInfo=TRUE;           
        char FileName[MAX_PATH];
        int nowin = 0, argcount = 0, lpath = 0, pathtype=0;
        char *path = NULL;
        char *ScilabDirectory=NULL;

        HANDLE hOut = NULL;
        
        char *pFullCmdLine=NULL;
        char *pFullCmdLineTmp=NULL;
        char *pPathCmdLine=NULL;

        ForbiddenToUseScilab();

        SetWindowMode(TRUE);
        ScilabIsStarting=TRUE;

        strcpy(FileName,"Empty");
        
        ScilabDirectory=GetScilabDirectory(FALSE);

        if (ScilabDirectory == NULL)
        {
                MessageBox (NULL,MSG_ERROR20 , MSG_ERROR38, MB_ICONSTOP | MB_OK);
                exit(1);
        }       
        InitszMenuName(ScilabDirectory);
        InitszGraphMenuName(ScilabDirectory);

        if (ScilabDirectory){FREE(ScilabDirectory);ScilabDirectory=NULL;}

        /* Load common control library * */
        InitCommonControls ();

        textwin=InitTWStruct();

        textwin.hInstance = hInstance;
        textwin.hPrevInstance = hPrevInstance;
        textwin.nCmdShow = iCmdShow;
        textwin.Title = MSG_SCIMSG21;
        textwin.lpmw = &menuwin;
        textwin.ScreenSize.x = 120;
        textwin.ScreenSize.y = 80;
        textwin.KeyBufSize = 4096;
        textwin.CursorFlag = 1; /* scroll to cursor after \n & \r */

        menuwin=InitMWStruct();
        menuwin.szMenuName = GetszMenuName();

        graphwin=InitGWStruct();
        graphwin.hInstance = hInstance;
        graphwin.hPrevInstance = hPrevInstance;
        graphwin.Title = MSG_SCIMSG23;
        graphwin.szMenuName = GetszGraphMenuName();
        graphwin.lptw = &textwin;

        pFullCmdLineTmp=GetCommandLine();
        {
                char LineCommand[MAX_PATH];
                char LineCommandBis[MAX_PATH];
                char ShortPath[MAX_PATH];
                char *pPathCmdLine=NULL;
                char PathCmdLineCopy[1024];
                char StrWscilexToSearch[MAX_PATH];
                
                sprintf(StrWscilexToSearch,"%s\" ",WSCILEX);

                strcpy(LineCommand,pFullCmdLineTmp);
                LineCommand[strlen(LineCommand)]='\0';
                strcpy(LineCommandBis,pFullCmdLineTmp);
                LineCommandBis[strlen(LineCommandBis)]='\0';

                pPathCmdLine=stristr(LineCommand,StrWscilexToSearch);
                
                if ( (pPathCmdLine != NULL) && ( (strlen(pPathCmdLine)-strlen(StrWscilexToSearch)-1) > 0) ) 
                {
                        char LINE[1024];

                        strcpy(PathCmdLineCopy,pPathCmdLine);   
                        if ( PathCmdLineCopy[strlen(StrWscilexToSearch)-2] == '\"' ) PathCmdLineCopy[strlen(StrWscilexToSearch)-2] = ' ';
                        strncpy(LINE,&LineCommandBis[1],strlen(LineCommandBis)-strlen(PathCmdLineCopy)-1);
                        LINE[strlen(LineCommandBis)-strlen(PathCmdLineCopy)-1]='\0';
                
                        GetShortPathName(LINE,ShortPath,MAX_PATH);
                        strcat(ShortPath,PathCmdLineCopy);
                
                        pFullCmdLine=(char*)MALLOC(sizeof(char)*(strlen(ShortPath)+1));
                        strcpy(pFullCmdLine,ShortPath);
                }
                else
                {
                        pFullCmdLine=(char*)MALLOC(sizeof(char)*(strlen(LineCommandBis)+1));
                        strcpy(pFullCmdLine,LineCommandBis);
                }
                
        }
        
        my_argv[++my_argc] = strtok (pFullCmdLine, " ");
        while (my_argv[my_argc] != NULL)
        {
                my_argv[++my_argc] = strtok(NULL, " ");
        }
        
        for (i=1;i<my_argc;i++)
        {
                if  ( stricmp (my_argv[i], "-NB") == 0 )
                {
                        ShowMessageBoxInfo=FALSE;
                }
        }

        if (ShowMessageBoxInfo)
        {
                /* New Graphics Mode Warning */
                MessageBoxNewGraphicMode();
        }

        for (i=1;i<my_argc;i++)
        {
                if  ( (stricmp (my_argv[i], "-NW") == 0) || (stricmp (my_argv[i], "-NWI") == 0) || (stricmp (my_argv[i], "-TEXMACS") == 0) || (stricmp (my_argv[i], "-NOGUI") == 0) )
                {
                        MessageBox(NULL,"Not with Windows Console","Error",MB_ICONINFORMATION);
                        exit(1);
                }

                if ( (stricmp (my_argv[i], "-VERSION") == 0) ||
                        (stricmp (my_argv[i], "-VER") == 0) )
                {
                        disp_scilab_version();
                        exit(1);
                }

                if ( (stricmp (my_argv[i], "-H") == 0) ||
                         (stricmp (my_argv[i], "-?") == 0) ||
                         (stricmp (my_argv[i], "-HELP") == 0) )
                {
                        char Msg[2048];
                        strcpy(Msg,MSG_SCIMSG24);
                        strcat(Msg,MSG_SCIMSG122); 
                        strcat(Msg,MSG_SCIMSG123); 
                        strcat(Msg,MSG_SCIMSG124); 
                        strcat(Msg,MSG_SCIMSG125); 
                        strcat(Msg,MSG_SCIMSG126); 
                        strcat(Msg,MSG_SCIMSG127); 
                        strcat(Msg,MSG_SCIMSG128); 
                        strcat(Msg,MSG_SCIMSG129); 
                        strcat(Msg,MSG_SCIMSG130); 
                        strcat(Msg,MSG_SCIMSG131); 
                        strcat(Msg,MSG_SCIMSG132); 
                        strcat(Msg,MSG_SCIMSG133); 
                        strcat(Msg,MSG_SCIMSG134); 
                        strcat(Msg,MSG_SCIMSG135); 

                        MessageBox(NULL,Msg,MSG_SCIMSG30,MB_ICONINFORMATION);
                        exit(1);
                }
        }
        argcount = my_argc;

        if (argcount > 2)
        {
                if ( (stricmp (my_argv[1], "-X") == 0) ||
                     (stricmp (my_argv[1], "-O") == 0) ||       
                     (stricmp (my_argv[1], "-P") == 0) )
                {
                        char *Commande=NULL;
                        int CodeAction=-1;
                        int j=0;

                        LaunchAFile=TRUE;

                        strcpy(FileName,my_argv[2]);
                        for (j=3;j<argcount;j++)
                        {
                                strcat(FileName," ");
                                strcat(FileName,my_argv[j]);
                        }
                        if (stricmp (my_argv[1], "-O") == 0) CodeAction=0;
                        if (stricmp (my_argv[1], "-X") == 0) CodeAction=1; 
                        if (stricmp (my_argv[1], "-P") == 0) CodeAction=2;

                        Commande=(char*)MALLOC(MAX_PATH*sizeof(char));
                        strcpy(Commande,"empty");
                        CommandByFileExtension(FileName,CodeAction,Commande);

                        if (
                                ( ( IsAScicosFile(FileName)== TRUE ) && (CodeAction==1) ) ||
                                ( ( IsAGraphFile(FileName)== TRUE  ) && (CodeAction==1) )
                            )
                        {
                                my_argc=-1;
                                my_argv[++my_argc]=Commande;
                                argcount = my_argc;
                                ShortCircuitExec=TRUE;
                        }
                        else
                        {
                                my_argc=-1;
                                my_argv[++my_argc] = strtok (Commande, " ");
                                while (my_argv[my_argc] != NULL)
                                {
                                        my_argv[++my_argc] = strtok(NULL, " ");
                                }
                                argcount = my_argc;
                        }
                }
        }       
        
        if ( ShortCircuitExec == TRUE)
        {
                char PathWScilex[MAX_PATH];
                int lenPathWScilex=0;
                GetModuleFileName ((HINSTANCE)GetModuleHandle(NULL), PathWScilex, MAX_PATH);
                lenPathWScilex=strlen(PathWScilex);
                path = my_argv[argcount]+lenPathWScilex+3;
                lpath = strlen (my_argv[argcount]+lenPathWScilex+3);
                pathtype=1;
                LaunchAFile=TRUE;
        }
        else
        while (argcount > 0)
        {
    char ArgTmp[MAX_PATH];
                
                argcount--;
                strcpy(ArgTmp,my_argv[argcount]);
                
                if (stricmp (ArgTmp, "-NS") == 0) startupf = 1;
                else if ( stricmp(ArgTmp,"-NB") == 0) { sci_show_banner = 0; }
                else if (stricmp (ArgTmp, "-F") == 0 && argcount + 1 < my_argc)
                {
                        path = my_argv[argcount + 1];
                        lpath = strlen (my_argv[argcount + 1]);
                }
                else if (stricmp (ArgTmp, "-E") == 0 && argcount + 1 < my_argc)
                {
                        path = my_argv[argcount + 1];
                        lpath = strlen (my_argv[argcount + 1]);
                        pathtype=1;
                }
                else if ( stricmp(ArgTmp,"-MEM") == 0 && argcount + 1 < my_argc)
                {
                        memory = Max(atoi( my_argv[argcount + 1]),MIN_STACKSIZE );
                }
        }               
        hdllInstance = hInstance;

        /* Splashscreen*/
        if ( (sci_show_banner) && (LaunchAFile == FALSE) )CreateSplashscreen();

        CreateScilabConsole(sci_show_banner);

        if (TextInit (&textwin)) exit (1);

        textwin.hIcon = LoadIcon (hInstance, "texticon");
        SetClassLong (textwin.hWndParent, GCL_HICON, (DWORD) textwin.hIcon);
        SetXsciOn ();

        ShowWindow (textwin.hWndParent, SW_SHOWNORMAL);
        ForceToActiveWindowParent();
        HideScilex(); /* Cache la fenetre Console */

        if (LaunchAFile) ChangeCursorWhenScilabIsReady();

        
        sci_windows_main (nowin, &startupf, path,pathtype, &lpath,memory);
        
        CloseScilabConsole();

        ExitScilab();


        return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

---

Variable Documentation

LPSTR my_argv[MAXCMDTOKENS] [static]

Definition at line 61 of file winmain.c.

Referenced by add_sci_argv(), Console_Main(), sci_getarg(), and Windows_Main().

int sci_show_banner = 1

Definition at line 48 of file winmain.c.

BOOL ScilabIsStarting = TRUE

Definition at line 47 of file winmain.c.

Referenced by ChangeCursorWhenScilabIsReady(), Console_Main(), and Windows_Main().

---