Symbian port of Perl

Message-ID: <B356D8F434D20B40A8CEDAEC305A1F2453D653@esebe105.NOE.Nokia.com>

p4raw-id: //depot/perl@24271

1 files changed, 112 insertions, 0 deletions

diff --git a/symbian/symbian_stubs.c b/symbian/symbian_stubs.c
new file mode 100644
index 0000000000..1505698703
--- /dev/null
+++ b/symbian/symbian_stubs.c
@@ -0,0 +1,112 @@
+/*
+ *	symbian_stubs.c
+ *
+ *	Copyright (c) Nokia 2004-2005.  All rights reserved.
+ *      This code is licensed under the same terms as Perl itself.
+ *
+ */
+
+#include "EXTERN.h"
+#include "perl.h"
+#include "symbian_stubs.h"
+
+static int   setENOSYS(void)     { errno = ENOSYS; return -1; }
+
+uid_t getuid(void)       { return setENOSYS(); }
+gid_t getgid(void)       { return setENOSYS(); }
+uid_t geteuid(void)      { return setENOSYS(); }
+gid_t getegid(void)      { return setENOSYS(); }
+
+int setuid(uid_t uid)  { return setENOSYS(); }
+int setgid(gid_t gid)  { return setENOSYS(); }
+int seteuid(uid_t uid) { return setENOSYS(); }
+int setegid(gid_t gid) { return setENOSYS(); }
+
+int execv(const char* path, char* const argv [])  { return setENOSYS(); }
+int execvp(const char* path, char* const argv []) { return setENOSYS(); }
+
+#ifndef USE_PERLIO
+FILE *popen(const char *command, const char *mode) { return 0; }
+int   pclose(FILE *stream) { return setENOSYS(); }
+#endif
+int   pipe(int fd[2]) { return setENOSYS(); }
+
+int setmode(int fd, long flags) { return -1; }
+
+_sig_func_ptr signal(int signum, _sig_func_ptr handler) { return (_sig_func_ptr)setENOSYS(); }
+int   kill(pid_t pid, int signum) { return setENOSYS(); }
+pid_t wait(int *status) { return setENOSYS(); }
+
+#if PERL_VERSION <= 8
+void Perl_my_setenv(pTHX_ char *var, char *val) { }
+#else
+void Perl_my_setenv(pTHX_ const char *var, const char *val) { }
+#endif
+
+bool Perl_do_exec(pTHX_ char *cmd) { return FALSE; }
+bool Perl_do_exec3(pTHX_ char *cmd, int fd, int flag) { return FALSE; }
+
+int Perl_do_spawn(pTHX_ char *cmd) { return symbian_do_spawn(cmd); }
+int Perl_do_aspawn(pTHX_ SV *really, SV** mark, SV **sp) { return symbian_do_aspawn(really, mark, sp); }
+
+static const struct protoent protocols[] = {
+    { "tcp",	0,	 6 },
+    { "udp",	0,	17 }
+};
+
+/* The protocol field (the last) is left empty to save both space
+ * and time because practically all services have both tcp and udp
+ * allocations in IANA. */
+static const struct servent services[] = {
+    { "http",		0,	  80,	0 }, /* Optimization. */
+    { "https",		0,	 443,	0 },
+    { "imap",		0,	 143,	0 },
+    { "imaps",		0,	 993,   0 },
+    { "smtp",		0,	  25,	0 },
+    { "irc",		0,	 194,	0 },
+
+    { "ftp",		0,	  21,	0 },
+    { "ssh",		0,	  22,	0 },
+    { "tftp",		0,	  69,	0 },
+    { "pop3",		0,	 110,	0 },
+    { "sftp",		0,	 115,	0 },
+    { "nntp",		0,	 119,	0 },
+    { "ntp",		0,	 123,	0 },
+    { "snmp",		0,	 161,	0 },
+    { "ldap",		0,	 389,	0 },
+    { "rsync",		0,	 873,	0 },
+    { "socks",		0,	1080,	0 }
+};
+
+struct protoent* getprotobynumber(int number) {
+    int i;
+    for (i = 0; i < sizeof(protocols)/sizeof(struct protoent); i++)
+        if (protocols[i].p_proto == number)
+            return (struct protoent*)(&(protocols[i]));
+    return 0;
+}
+
+struct protoent* getprotobyname(const char* name) {
+    int i;
+    for (i = 0; i < sizeof(protocols)/sizeof(struct protoent); i++)
+        if (strcmp(name, protocols[i].p_name) == 0)
+            return (struct protoent*)(&(protocols[i]));
+    return 0;
+}
+    
+struct servent* getservbyname(const char* name, const char* proto) {
+    int i;
+    for (i = 0; i < sizeof(services)/sizeof(struct servent); i++)
+        if (strcmp(name, services[i].s_name) == 0)
+            return (struct servent*)(&(services[i]));
+    return 0;
+}
+
+struct servent* getservbyport(int port, const char* proto) {
+    int i;
+    for (i = 0; i < sizeof(services)/sizeof(struct servent); i++)
+        if (services[i].s_port == port)
+            return (struct servent*)(&(services[i]));
+    return 0;
+}
+