1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
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;
}
|
