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

#include <stdio.h>
#include <win32io.h>

#ifndef _DLL
extern WIN32_IOSUBSYSTEM win32stdio;
#endif

extern int RunPerl(int argc, char **argv, char **env, void *iosubsystem);

int
main(int argc, char **argv, char **env)
{
#ifdef _DLL
    return (RunPerl(argc, argv, env, NULL));
#else
    return (RunPerl(argc, argv, env, &win32stdio));
#endif
}
Commit	Line	Data
0a753a76	1	#include <stdio.h>
	2	#include <win32io.h>
	3
137443ea	4	#ifndef _DLL
	5	extern WIN32_IOSUBSYSTEM win32stdio;
	6	#endif
	7
0a753a76	8	extern int RunPerl(int argc, char argv, char env, void *iosubsystem);
0a753a76	9
137443ea	10	int
0a753a76	11	main(int argc, char argv, char env)
0a753a76	12	{
137443ea	13	#ifdef _DLL
	14	return (RunPerl(argc, argv, env, NULL));
	15	#else
	16	return (RunPerl(argc, argv, env, &win32stdio));
	17	#endif
0a753a76	18	}