CPAN::FirstTime can go as well from the untested module list

[p5sagit/p5-mst-13.2.git] / epoc / epocish.c

diff --git a/epoc/epocish.c b/epoc/epocish.c
index a8b9597..d457fff 100644 (file)
--- a/epoc/epocish.c
+++ b/epoc/epocish.c
@@ -15,42 +15,6 @@
 
 extern "C" { 
 
-#if 1
-int
-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);
-  p.Kill( 0);
-  if (status!=KErrNone) {
-    return -1;
-  }
-  return 0;
-}
-#else 
-int
-epoc_spawn( char *cmd, char *cmdline) {
-  int len = strlen(cmd) + strlen(cmdline) + 4;
-  char *n = (char *) malloc( len);
-  int r;
-  strcpy( n, cmd);
-  strcat( n, " ");
-  strcat( n, cmdline);
-  r = system( n);
-  free( n);
-  return r;
-}
-#endif 
 
 /* Workaround for defect strtoul(). Values with leading + are zero */
 
@@ -61,19 +25,6 @@ unsigned long int epoc_strtoul(const char *nptr, char **endptr,
   return strtoul( nptr, endptr, base);
 }
 
-/* Workaround for defect atof(), see java defect list for epoc */
-double epoc_atof( char* str) {
-    TReal64 aRes;
-    
-    while (TChar( *str).IsSpace()) {
-      str++;
-    }
-
-    TLex lex( _L( str));
-    TInt err = lex.Val( aRes, TChar( '.'));
-    return aRes;
-}
-
 void epoc_gcvt( double x, int digits, unsigned char *buf) {
     TRealFormat trel;
 
@@ -87,8 +38,4 @@ void epoc_gcvt( double x, int digits, unsigned char *buf) {
   }
 }
 
-#if 0
-void epoc_spawn_posix_server() {
-  SpawnPosixServerThread(); 
-}
-#endif
+