Plan 9 from Bell Labs’s /usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/wince/perlmain.c

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


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

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");

  res = RunPerl(argc, argv, env);

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

  return res;
}



Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].