The R Project SVN R

Rev

Rev 51816 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
42592 ripley 1 
#include <windows.h>
4394 ripley 2 
 
50915 ripley 3 
/* The mingw-runtime startup code has _argc and _argv as visible
51094 ripley 4 
   symbols, as do the MS compilers.
4394 ripley 5 
 
51815 ripley 6 
   The mingw-w64-crt is different.
51094 ripley 7 
*/
8 
 
42592 ripley 9 
extern void
10 
GA_startgraphapp(HINSTANCE Instance, HINSTANCE PrevInstance, int CmdShow);
11 
 
4394 ripley 12 
int PASCAL
24283 ripley 13 
WinMain (HINSTANCE Instance, HINSTANCE PrevInstance, LPSTR CmdLine,
4394 ripley 14 
	 int CmdShow)
15 
{
51815 ripley 16 
    extern void AppMain(int argc, char **argv);
17 
 
57416 ripley 18 
#ifdef _W64
51815 ripley 19 
    extern int __argc;
20 
    extern char **__argv;
21 
 
22 
    GA_startgraphapp(Instance, PrevInstance, CmdShow);
23 
    AppMain(__argc, __argv);
24 
#else
42592 ripley 25 
    extern int _argc;
26 
    extern char **_argv;
4394 ripley 27 
 
42592 ripley 28 
    GA_startgraphapp(Instance, PrevInstance, CmdShow);
29 
    AppMain(_argc, _argv);
51815 ripley 30 
#endif
42592 ripley 31 
    return 0;
4394 ripley 32 
}