WinCE update from Rainer Keuchel.

p4raw-id: //depot/perl@12685

diff --git a/perl.h b/perl.h
index 052ae8d..0d5f1ce 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -1360,6 +1360,10 @@ typedef NVTYPE NV;
 #   endif
 #endif
 
+#ifdef UNDER_CE
+int isnan(double d);
+#endif
+
 #ifndef Perl_isinf
 #   ifdef HAS_ISINF
 #       define Perl_isinf(x) isinf((NV)x)

diff --git a/wince/Makefile.ce b/wince/Makefile.ce
index ab1f68d..71eb7de 100644 (file)
--- a/wince/Makefile.ce
+++ b/wince/Makefile.ce
@@ -1,21 +1,21 @@
 # perl makefile for wince
 #
-# Time-stamp: <07/09/01 15:46:36 keuchel@keuchelnt>
+# Time-stamp: <26/10/01 15:10:06 keuchel@keuchelnt>
 
 SRCDIR     = ..
 PV         = 57
 INST_VER   = 5.7.2
 PERLCEDIR  = H:\src\wince\perl\wince
 WCEROOT    = N:\Windows CE Tools
-#WCEROOT    = D:\Windows CE Tools
+WCEROOT    = D:\Windows CE Tools
 NTPERL     = N:\Programme\perl\bin\perl.exe
-#NTPERL     = D:\Programme\ActiveState\perl-5.6\bin\Perl.exe
+NTPERL     = D:\Programme\ActiveState\perl-5.6\bin\Perl.exe
 CEPATH     = N:\Programme\Microsoft eMbedded Tools\EVC\WCE211\BIN
-#CEPATH     = D:\Programme\Microsoft eMbedded Tools\EVC\WCE211\BIN
-CELIBDLLDIR  = h:\src\wince\celib-palm
+CEPATH     = D:\Programme\Microsoft eMbedded Tools\EVC\WCE211\BIN
+CELIBDLLDIR  = h:\src\wince\celib-palm-3.0
 CECONSOLEDIR = h:\src\wince\w32console
 # Only for WIN2000
-YES        = /y
+#YES        = /y
 COPY       = copy $(YES)
 XCOPY      = xcopy $(YES) /f /r /i /d
 RCOPY     = xcopy $(YES) /f /r /i /e /d
@@ -290,7 +290,8 @@ STARTOBJS  = $(CECONSOLEDIR)/$(MACHINE)/wmain.obj \
 # common section
 
 CEDEFS    = -D_WINDOWS -D_WIN32_WCE=$(CEVersion) -DUNDER_CE=$(CEVersion) \
-            $(MCFLAGS) 
+            $(MCFLAGS) -D PERL
+
 #CEDEFS    = $(CEDEFS) -DDEBUGGING_OPS
 
 CECFLAGS  = $(CEDEFS)

diff --git a/wince/config.ce b/wince/config.ce
index 57b3ca6..d6efedb 100644 (file)
--- a/wince/config.ce
+++ b/wince/config.ce
@@ -155,7 +155,7 @@ d_fstatfs='undef'
 d_fstatvfs='undef'
 d_ftello='undef'
 d_ftime='define'
-d_getcwd='undef'
+d_getcwd='define'
 d_getfsstat='undef'
 d_getgrent='undef'
 d_getgrps='undef'

diff --git a/wince/perldll.def b/wince/perldll.def
index 41b94cd..01ed086 100644 (file)
--- a/wince/perldll.def
+++ b/wince/perldll.def
@@ -884,11 +884,8 @@ EXPORTS
        Perl_taint_proper
        Perl_tmps_grow
        Perl_to_uni_lower
-       Perl_to_uni_lower_lc
        Perl_to_uni_title
-       Perl_to_uni_title_lc
        Perl_to_uni_upper
-       Perl_to_uni_upper_lc
        Perl_to_utf8_lower
        Perl_to_utf8_title
        Perl_to_utf8_upper

diff --git a/wince/wince.c b/wince/wince.c
index e9c9c8c..c34928e 100644 (file)
--- a/wince/wince.c
+++ b/wince/wince.c
@@ -1,6 +1,6 @@
 /*  WINCE.C - stuff for Windows CE
  *
- *  Time-stamp: <01/08/01 19:29:57 keuchel@w2k>
+ *  Time-stamp: <26/10/01 15:25:20 keuchel@keuchelnt>
  *
  *  You may distribute under the terms of either the GNU General Public
  *  License or the Artistic License, as specified in the README file.
@@ -1597,3 +1597,19 @@ Perl_sys_intern_clear(pTHX)
 #  endif
 }
 
+//////////////////////////////////////////////////////////////////////
+
+#undef getcwd
+
+char *
+getcwd(char *buf, size_t size)
+{
+  return xcegetcwd(buf, size);
+}
+
+int 
+isnan(double d)
+{
+  return _isnan(d);
+}
+