[perl5.git] / wince / perlmain.c

/* Time-stamp: <01/08/01 20:58:19 keuchel@w2k> */

#include "EXTERN.h"
#include "perl.h"

#ifdef __GNUC__

/* 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

/* Called from w32console/wmain.c */

extern int w32console_usefunctionkeys;

int
main(int argc, char **argv, char **env)
{
  int res;

  if(argc == 1)
    XCEShowMessageA("Starting perl with no args is currently\r\n"
		    "not useful on Windows CE");

  w32console_usefunctionkeys = 0; /* this allows backspace key to work */

  res = RunPerl(argc, argv, env);

  if(res != 0)
    XCEShowMessageA("Exitcode: %d", res);

  return res;
}
Commit	Line	Data
cb69f87a	1	/* Time-stamp: <01/08/01 20:58:19 keuchel@w2k> */
e1caacb4 JH	2
	3	#include "EXTERN.h"
	4	#include "perl.h"
	5
	6	#ifdef __GNUC__
	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
	15	#endif
	16
cb69f87a	17	/* Called from w32console/wmain.c */
e1caacb4	18
ac70a3b2 VK	19	extern int w32console_usefunctionkeys;
ac70a3b2 VK	20
e1caacb4 JH	21	int
	22	main(int argc, char argv, char env)
	23	{
	24	int res;
	25
	26	if(argc == 1)
	27	XCEShowMessageA("Starting perl with no args is currently\r\n"
	28	"not useful on Windows CE");
	29
ac70a3b2 VK	30	w32console_usefunctionkeys = 0; /* this allows backspace key to work */
ac70a3b2 VK	31
e1caacb4 JH	32	res = RunPerl(argc, argv, env);
	33
	34	if(res != 0)
	35	XCEShowMessageA("Exitcode: %d", res);
	36
	37	return res;
	38	}
	39
	40