diff options
| author | Vadim Konovalov <vkonovalov@lucent.com> | 2002-04-29 01:54:31 +0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-28 18:23:52 +0000 |
| commit | 42165d2726b8a0b9ded4dc56d733154af8784b90 (patch) | |
| tree | f8f97761be1750e2b255e51aa49d6eca14bdbc55 /wince/wince.c | |
| parent | b5135157c621a585113d0c5008db555122aa49b3 (diff) | |
| download | perl-42165d2726b8a0b9ded4dc56d733154af8784b90.tar.gz | |
WinCE many fixes
Message-ID: <00bf01c1eedd$c0c62a00$d25cc3d9@vad>
p4raw-id: //depot/perl@16251
Diffstat (limited to 'wince/wince.c')
| -rw-r--r-- | wince/wince.c | 28 |
1 files changed, 24 insertions, 4 deletions
diff --git a/wince/wince.c b/wince/wince.c index b6b9f140db..7aabdd7dc5 100644 --- a/wince/wince.c +++ b/wince/wince.c @@ -352,6 +352,20 @@ win32_times(struct tms *timebuf) return -1; } +/* TODO */ +bool +win32_signal() +{ + Perl_croak_nocontext("signal() TBD on this platform"); + return FALSE; +} +DllExport void +win32_clearenv() +{ + return; +} + + DllExport char *** win32_environ(void) { @@ -554,11 +568,7 @@ win32_uname(struct utsname *name) char *arch; GetSystemInfo(&info); -#if defined(__BORLANDC__) || defined(__MINGW32__) - switch (info.u.s.wProcessorArchitecture) { -#else switch (info.wProcessorArchitecture) { -#endif case PROCESSOR_ARCHITECTURE_INTEL: arch = "x86"; break; case PROCESSOR_ARCHITECTURE_MIPS: @@ -1616,3 +1626,13 @@ isnan(double d) return _isnan(d); } +int +win32_open_osfhandle(intptr_t osfhandle, int flags) +{ + int fh; + char fileflags=0; /* _osfile flags */ + + XCEMessageBoxA(NULL, "NEED TO IMPLEMENT a place in ../wince/wince.c(win32_open_osfhandle)", "Perl(developer)", 0); + Perl_croak_nocontext("win32_open_osfhandle() TBD on this platform"); + return 0; +} |