113 lines
3.5 KiB
C
113 lines
3.5 KiB
C
/*
|
|
* 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_ const char *cmd) { return FALSE; }
|
|
bool Perl_do_exec3(pTHX_ const 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 (strEQ(name, protocols[i].p_name))
|
|
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 (strEQ(name, services[i].s_name))
|
|
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;
|
|
}
|
|
|