X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=epoc%2Fepoc.c;h=d580552ae99a4778a45033bb527eb2b76a324727;hb=e9d185f8391f09209c11be82e97358d853f1ba30;hp=e5496eafd0e1fd7ec8e9563787a54d69fd6fb8ec;hpb=acfe0abcedaf592fb4b9cb69ce3468308ae99d91;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/epoc/epoc.c b/epoc/epoc.c
index e5496ea..d580552 100644
--- a/epoc/epoc.c
+++ b/epoc/epoc.c
@@ -10,88 +10,8 @@
 #include <string.h>
 #include <stdio.h>
 #include <sys/unistd.h>
+#include <process.h>
 
-void
-Perl_epoc_init(int *argcp, char ***argvp) {
-  int i;
-  int truecount=0;
-  char **lastcp = (*argvp);
-  char *ptr;
-
-#if 0
-  epoc_spawn_posix_server();
-#endif
-  for (i=0; i< *argcp; i++) {
-    if ((*argvp)[i]) {
-      if (*((*argvp)[i]) == '<') {
-	if (strlen((*argvp)[i]) > 1) {
-	  ptr =((*argvp)[i])+1;
-	} else {
-	  i++;
-	  ptr = ((*argvp)[i]);
-	}
-	freopen(  ptr, "r", stdin);
-      } else if (*((*argvp)[i]) == '>') {
-	if (strlen((*argvp)[i]) > 1) {
-	  ptr =((*argvp)[i])+1;
-	} else {
-	  i++;
-	  ptr = ((*argvp)[i]);
-	}
-	freopen(  ptr, "w", stdout);
-      } else if ((*((*argvp)[i]) == '2') && (*(((*argvp)[i])+1) == '>')) {
-	if (strcmp( (*argvp)[i], "2>&1") == 0) {
-	  dup2( fileno( stdout), fileno( stderr));
-	} else {
-          if (strlen((*argvp)[i]) > 2) {
-            ptr =((*argvp)[i])+2;
-	  } else {
-	    i++;
-	    ptr = ((*argvp)[i]);
-	  }
-	  freopen(  ptr, "w", stderr);
-	}
-      } else {
-	*lastcp++ = (*argvp)[i];
-	truecount++;
-      }
-    } 
-  }
-  *argcp=truecount;
-      
-
-}
-
-
-#ifdef __MARM__
-/* Symbian forgot to include __fixunsdfi into the MARM euser.lib */
-/* This is from libgcc2.c , gcc-2.7.2.3                          */
-
-typedef unsigned int UQItype	__attribute__ ((mode (QI)));
-typedef 	 int SItype	__attribute__ ((mode (SI)));
-typedef unsigned int USItype	__attribute__ ((mode (SI)));
-typedef		 int DItype	__attribute__ ((mode (DI)));
-typedef unsigned int UDItype	__attribute__ ((mode (DI)));
-
-typedef 	float SFtype	__attribute__ ((mode (SF)));
-typedef		float DFtype	__attribute__ ((mode (DF)));
-
-
-
-extern DItype __fixunssfdi (SFtype a);
-extern DItype __fixunsdfdi (DFtype a);
-
-
-USItype
-__fixunsdfsi (a)
-     DFtype a;
-{
-  if (a >= - (DFtype) (- 2147483647L  -1) )
-    return (SItype) (a + (- 2147483647L  -1) ) - (- 2147483647L  -1) ;
-  return (SItype) a;
-}
-
-#endif
 
 #include "EXTERN.h"
 #include "perl.h"
@@ -100,26 +20,7 @@ __fixunsdfsi (a)
 int 
 do_spawn( char *cmd) {
     dTHX;
-    char *argv0, *ptr;
-    char *cmdptr = cmd;
-    int ret;
-    
-    argv0 = ptr = malloc( strlen(cmd) + 1);
-
-    while (*cmdptr && !isSPACE( *cmdptr)) {
-      *ptr = *cmdptr;
-      if (*ptr == '/') {
-	*ptr = '\\';
-      }
-      ptr++; cmdptr++;
-    }
-    while (*cmdptr && isSPACE( *cmdptr)) {
-      cmdptr++;
-    }
-    *ptr = '\0';
-    ret = epoc_spawn( argv0, cmdptr);
-    free( argv0);
-    return ret;
+    return system( cmd);
 }
 
 int
@@ -134,12 +35,11 @@ do_aspawn ( void *vreally, void **vmark, void **vsp) {
     char **argv;
     char *str;
     char *p2, **ptr;
-    char *cmd, *cmdline;
+    char *cmd;
 
 
     int  rc;
     int index = 0;
-    int len = 0;
 
     if (sp<=mark)
       return -1;
@@ -151,30 +51,13 @@ do_aspawn ( void *vreally, void **vmark, void **vsp) {
 	argv[index] = str;
       else
 	argv[index] = "";
-      
-      len += strlen(argv[ index++]) + 1;
     }
     argv[index++] = 0;
 
     cmd = strdup((const char*)(really ? SvPV_nolen(really) : argv[0]));
 
-    for (p2=cmd; *p2 != '\0'; p2++) {
-      /* Change / to \ */
-      if ( *p2 == '/') 
-	*p2 = '\\';
-    }
-      
-    cmdline = (char * ) malloc( len + 1);
-    cmdline[ 0] = '\0';
-    while (*argv != NULL) {
-      strcat( cmdline, *ptr++);
-      strcat( cmdline, " ");
-    }
-    
+    rc = spawnvp( P_WAIT, cmd, argv);
     free( argv);
-
-    rc = epoc_spawn( cmd, cmdline);
-    free( cmdline);
     free( cmd);
 
     return rc;
@@ -222,6 +105,9 @@ XS(epoc_getcwd)   /* more or less stolen from win32.c */
 	EXTEND(SP,1);
 	SvPOK_on(sv);
 	ST(0) = sv;
+#ifndef INCOMPLETE_TAINTS
+	SvTAINTED_on(ST(0));
+#endif
 	XSRETURN(1);
     }
     free( buffer);
@@ -237,7 +123,3 @@ Perl_init_os_extras(void)
   newXS("EPOC::getcwd", epoc_getcwd, file);
 }
 
-void
-Perl_my_setenv(pTHX_ char *nam,char *val) {
-  setenv( nam, val, 1);
-}