win32/perlmaince.c

   1 /* Time-stamp: <01/08/01 20:58:19 keuchel@w2k> */
   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
  17 /* Called from w32console/wmain.c */
  18
  19 extern int w32console_usefunctionkeys;
  20
  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
  30   w32console_usefunctionkeys = 0; /* this allows backspace key to work */
  31
  32   res = RunPerl(argc, argv, env);
  33
  34   if(res != 0)
  35     XCEShowMessageA("Exitcode: %d", res);
  36
  37   return res;
  38 }
  39
  40