symbian/symbian_stubs.c

   1 /*
   2  *      symbian_stubs.c
   3  *
   4  *      Copyright (c) Nokia 2004-2005.  All rights reserved.
   5  *      This code is licensed under the same terms as Perl itself.
   6  *
   7  */
   8
   9 #include "EXTERN.h"
  10 #include "perl.h"
  11 #include "symbian_stubs.h"
  12
  13 static int   setENOSYS(void)     { errno = ENOSYS; return -1; }
  14
  15 uid_t getuid(void)       { return setENOSYS(); }
  16 gid_t getgid(void)       { return setENOSYS(); }
  17 uid_t geteuid(void)      { return setENOSYS(); }
  18 gid_t getegid(void)      { return setENOSYS(); }
  19
  20 int setuid(uid_t uid)  { return setENOSYS(); }
  21 int setgid(gid_t gid)  { return setENOSYS(); }
  22 int seteuid(uid_t uid) { return setENOSYS(); }
  23 int setegid(gid_t gid) { return setENOSYS(); }
  24
  25 int execv(const char* path, char* const argv [])  { return setENOSYS(); }
  26 int execvp(const char* path, char* const argv []) { return setENOSYS(); }
  27
  28 #ifndef USE_PERLIO
  29 FILE *popen(const char *command, const char *mode) { return 0; }
  30 int   pclose(FILE *stream) { return setENOSYS(); }
  31 #endif
  32 int   pipe(int fd[2]) { return setENOSYS(); }
  33
  34 int setmode(int fd, long flags) { return -1; }
  35
  36 _sig_func_ptr signal(int signum, _sig_func_ptr handler) { return (_sig_func_ptr)setENOSYS(); }
  37 int   kill(pid_t pid, int signum) { return setENOSYS(); }
  38 pid_t wait(int *status) { return setENOSYS(); }
  39
  40 #if PERL_VERSION <= 8
  41 void Perl_my_setenv(pTHX_ char *var, char *val) { }
  42 #else
  43 void Perl_my_setenv(pTHX_ const char *var, const char *val) { }
  44 #endif
  45
  46 bool Perl_do_exec(pTHX_ const char *cmd) { return FALSE; }
  47 bool Perl_do_exec3(pTHX_ const char *cmd, int fd, int flag) { return FALSE; }
  48
  49 int Perl_do_spawn(pTHX_ char *cmd) { return symbian_do_spawn(cmd); }
  50 int Perl_do_aspawn(pTHX_ SV *really, SV** mark, SV **sp) { return symbian_do_aspawn(really, mark, sp); }
  51
  52 static const struct protoent protocols[] = {
  53     { "tcp",    0,       6 },
  54     { "udp",    0,      17 }
  55 };
  56
  57 /* The protocol field (the last) is left empty to save both space
  58  * and time because practically all services have both tcp and udp
  59  * allocations in IANA. */
  60 static const struct servent services[] = {
  61     { "http",           0,        80,   0 }, /* Optimization. */
  62     { "https",          0,       443,   0 },
  63     { "imap",           0,       143,   0 },
  64     { "imaps",          0,       993,   0 },
  65     { "smtp",           0,        25,   0 },
  66     { "irc",            0,       194,   0 },
  67
  68     { "ftp",            0,        21,   0 },
  69     { "ssh",            0,        22,   0 },
  70     { "tftp",           0,        69,   0 },
  71     { "pop3",           0,       110,   0 },
  72     { "sftp",           0,       115,   0 },
  73     { "nntp",           0,       119,   0 },
  74     { "ntp",            0,       123,   0 },
  75     { "snmp",           0,       161,   0 },
  76     { "ldap",           0,       389,   0 },
  77     { "rsync",          0,       873,   0 },
  78     { "socks",          0,      1080,   0 }
  79 };
  80
  81 struct protoent* getprotobynumber(int number) {
  82     int i;
  83     for (i = 0; i < sizeof(protocols)/sizeof(struct protoent); i++)
  84         if (protocols[i].p_proto == number)
  85             return (struct protoent*)(&(protocols[i]));
  86     return 0;
  87 }
  88
  89 struct protoent* getprotobyname(const char* name) {
  90     int i;
  91     for (i = 0; i < sizeof(protocols)/sizeof(struct protoent); i++)
  92         if (strEQ(name, protocols[i].p_name))
  93             return (struct protoent*)(&(protocols[i]));
  94     return 0;
  95 }
  96
  97 struct servent* getservbyname(const char* name, const char* proto) {
  98     int i;
  99     for (i = 0; i < sizeof(services)/sizeof(struct servent); i++)
 100         if (strEQ(name, services[i].s_name))
 101             return (struct servent*)(&(services[i]));
 102     return 0;
 103 }
 104
 105 struct servent* getservbyport(int port, const char* proto) {
 106     int i;
 107     for (i = 0; i < sizeof(services)/sizeof(struct servent); i++)
 108         if (services[i].s_port == port)
 109             return (struct servent*)(&(services[i]));
 110     return 0;
 111 }
 112