X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=epoc%2Fepoc_stubs.c;h=c1c6bcf9e09e559f63741fd0ccef4f27bbb02f57;hb=f7916ddb4507eb1374c2aa49d31cb87cd7b69add;hp=02430b737844d5fb04b0e227a3bc212938229237;hpb=14bdf8d3bfc4c68a9e0d4420c4db2eccd669ea5d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/epoc/epoc_stubs.c b/epoc/epoc_stubs.c
index 02430b7..c1c6bcf 100644
--- a/epoc/epoc_stubs.c
+++ b/epoc/epoc_stubs.c
@@ -6,6 +6,8 @@
  *
  */
 
+#include <string.h>
+
 int getgid() {return 0;}
 int getegid() {return 0;}
 int geteuid() {return 0;}
@@ -13,19 +15,53 @@ int getuid() {return 0;}
 int setgid() {return -1;}
 int setuid() {return -1;}
 
+
 int Perl_my_popen( int a, int b) {
-	 return 0;
+	 return NULL;
 }
 int Perl_my_pclose( int a) {
-	 return 0;
+	 return NULL;
 }
 
-kill() {}
-signal() {}
+int kill() {return -1;}
+signal() { }
+
+int execv() { return -1;}
+int execvp() { return -1;}
 
-void execv() {}
-void execvp() {}
-void do_spawn() {}
-void do_aspawn() {}
 void Perl_do_exec() {}
 
+/*------------------------------------------------------------------*/
+/* Two dummy functions implement getproto*                          */
+/*------------------------------------------------------------------*/
+#include <sys/types.h>
+#include <netdb.h>
+#include <netinet/in.h>
+
+
+static struct protoent protos[2] = {
+  {"tcp",  NULL, IPPROTO_TCP} ,
+  {"udp",  NULL, IPPROTO_UDP}};
+
+struct protoent *getprotobyname (const char *st) {
+    
+  if (!strcmp( st, "tcp")) { 
+    return &protos[0];
+  }
+  if (!strcmp( st, "udp")) { 
+    return &protos[1];
+  }
+  return NULL;
+}
+
+struct protoent *getprotobynumber ( int i) {
+  if (i == IPPROTO_TCP) {
+     return &protos[0];
+  }
+  if (i == IPPROTO_UDP) {
+    return &protos[1];
+  }
+  return NULL;
+}
+
+