[p5sagit/p5-mst-13.2.git] / win32 / runperl.c

/* Say NO to CPP! Hallelujah! */
#ifdef __GNUC__
/*
 * GNU C does not do __declspec()
 */
#define __declspec(foo) 

/* Mingw32 defaults to globing command line 
 * This is inconsistent with other Win32 ports and 
 * seems to cause trouble with passing -DXSVERSION=\"1.6\" 
 * So we turn it off like this:
 */
int _CRT_glob = 0;

#endif


__declspec(dllimport) int RunPerl(int argc, char **argv, char **env, void *ios);

int
main(int argc, char **argv, char **env)
{
    return RunPerl(argc, argv, env, (void*)0);
}
Commit	Line	Data
390b85e7	1	/* Say NO to CPP! Hallelujah! */
a835ef8a	2	#ifdef __GNUC__
5b0d9cbe	3	/*
	4	* GNU C does not do __declspec()
	5	*/
a835ef8a	6	#define __declspec(foo)
5b0d9cbe	7
	8	/* Mingw32 defaults to globing command line
	9	* This is inconsistent with other Win32 ports and
	10	* seems to cause trouble with passing -DXSVERSION=\"1.6\"
	11	* So we turn it off like this:
	12	*/
	13	int _CRT_glob = 0;
	14
a835ef8a	15	#endif
0a753a76	16
5b0d9cbe	17
390b85e7	18	__declspec(dllimport) int RunPerl(int argc, char argv, char env, void *ios);
0a753a76	19
137443ea	20	int
0a753a76	21	main(int argc, char argv, char env)
0a753a76	22	{
390b85e7	23	return RunPerl(argc, argv, env, (void*)0);
0a753a76	24	}