[proposed PATCH] correctly unlocalise exists on tied/%ENV

[perl5.git] / epoc / epocish.c

diff --git a/epoc/epocish.c b/epoc/epocish.c
index 134eaef..d457fff 100644 (file)
--- a/epoc/epocish.c
+++ b/epoc/epocish.c
@@ -6,29 +6,36 @@
  *
  */
 
-/* This is indeed C++ Code !! */
+/* This is C++ Code !! */
 
 #include <e32std.h>
+#include <stdlib.h>
+#include <estlib.h>
+#include <string.h>
 
 extern "C" { 
 
-epoc_spawn( char *cmd, char *cmdline) {
-  RProcess p;
-  TRequestStatus status;
-  TInt rc;
-
-  rc = p.Create( _L( cmd), _L( cmdline));
-  if (rc != KErrNone)
-    return -1;
-
-  p.Resume();
-  
-  p.Logon( status);
-  User::WaitForRequest( status);
-  if (status!=KErrNone) {
-    return -1;
-  }
-  return 0;
+
+/* Workaround for defect strtoul(). Values with leading + are zero */
+
+unsigned long int epoc_strtoul(const char *nptr, char **endptr,
+                              int base) {
+  if (nptr && *nptr == '+')
+    nptr++;
+  return strtoul( nptr, endptr, base);
 }
 
+void epoc_gcvt( double x, int digits, unsigned char *buf) {
+    TRealFormat trel;
+
+    trel.iPlaces = digits;
+    trel.iPoint = TChar( '.');
+
+    TPtr result( buf, 80);
+
+    result.Num( x, trel);
+    result.Append( TChar( 0));
+  }
 }
+
+