HANDLE XCEAPI
XCECreateFileForMappingW(
LPCWSTR wfname,
DWORD dwDesiredAccess,
DWORD dwShareMode,
LPSECURITY_ATTRIBUTES lpSecurityAttributes,
DWORD dwCreationDisposition,
DWORD dwFlagsAndAttributes,
HANDLE hTemplateFile
)
{
HANDLE hFile;
wchar_t wpath[MAX_PATH];
wchar_t *p;
DWORD dwError = 0;
XCEFixPathW(wfname, wpath);
SetLastError(0);
hFile = CreateFileForMappingW(wpath, dwDesiredAccess, dwShareMode,
lpSecurityAttributes, dwCreationDisposition,
dwFlagsAndAttributes, hTemplateFile);
if(hFile == INVALID_HANDLE_VALUE)
{
dwError = GetLastError();
XCEShowMessageA("CreateFileForMapping: %d", dwError);
errno = _winerror2errno(dwError);
}
return hFile;
}
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;
}
void
xceabort()
{
char buf[256];
XCEGetModuleFileNameA(NULL, buf, sizeof(buf));
XCEShowMessageA("%s - Abort", buf);
DebugBreak();
exit(1);
}
