Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
ext	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
PerlApp.cpp	15.25 KB	-r--r--r--	2014-12-27 11:49
PerlApp.h	2.3 KB	-r--r--r--	2014-12-27 11:49
PerlApp.hrh	608 B	-r--r--r--	2014-12-27 11:49
PerlAppAif.rss	521 B	-r--r--r--	2014-12-27 11:49
PerlBase.cpp	11.19 KB	-r--r--r--	2014-12-27 11:49
PerlBase.h	4.23 KB	-r--r--r--	2014-12-27 11:49
PerlBase.pod	4.5 KB	-r--r--r--	2014-12-27 11:49
PerlRecog.cpp	1.49 KB	-r--r--r--	2014-12-27 11:49
PerlRecog.mmp	197 B	-r--r--r--	2014-12-27 11:49
PerlUi.cpp	7.63 KB	-r--r--r--	2014-12-27 11:49
PerlUi.h	3.52 KB	-r--r--r--	2014-12-27 11:49
PerlUi.hrh	331 B	-r--r--r--	2014-12-27 11:49
PerlUiS60.rss	2.78 KB	-r--r--r--	2014-12-27 11:49
PerlUiS80.rss	1.89 KB	-r--r--r--	2014-12-27 11:49
PerlUiS90.rss	1.9 KB	-r--r--r--	2014-12-27 11:49
PerlUiUIQ.rss	2.26 KB	-r--r--r--	2014-12-27 11:49
PerlUtil.cpp	2.88 KB	-r--r--r--	2014-12-27 11:49
PerlUtil.h	1.19 KB	-r--r--r--	2014-12-27 11:49
PerlUtil.pod	1.24 KB	-r--r--r--	2014-12-27 11:49
README	558 B	-r--r--r--	2014-12-27 11:49
TODO	6.99 KB	-r--r--r--	2014-12-27 11:49
bld.inf	40 B	-r--r--r--	2014-12-27 11:49
config.pl	27.36 KB	-r--r--r--	2014-12-27 11:49
config.sh	16.55 KB	-r--r--r--	2014-12-27 11:49
cwd.pl	87 B	-r--r--r--	2014-12-27 11:49
demo_pl	3.25 KB	-r--r--r--	2014-12-27 11:49
find_writeable_data.pl	1.41 KB	-r--r--r--	2014-12-27 11:49
hexdump.pl	959 B	-r--r--r--	2014-12-27 11:49
install.cfg	2.32 KB	-r--r--r--	2014-12-27 11:49
makesis.pl	5.41 KB	-r--r--r--	2014-12-27 11:49
port.pl	154 B	-r--r--r--	2014-12-27 11:49
sanity.pl	925 B	-r--r--r--	2014-12-27 11:49
sdk.pl	7.93 KB	-r--r--r--	2014-12-27 11:49
sisify.pl	81.87 KB	-r--r--r--	2014-12-27 11:49
symbian_dll.cpp	639 B	-r--r--r--	2014-12-27 11:49
symbian_proto.h	2.78 KB	-r--r--r--	2014-12-27 11:49
symbian_stubs.c	3.48 KB	-r--r--r--	2014-12-27 11:49
symbian_stubs.h	482 B	-r--r--r--	2014-12-27 11:49
symbian_utils.cpp	13.92 KB	-r--r--r--	2014-12-27 11:49
symbianish.h	7.23 KB	-r--r--r--	2014-12-27 11:49
uid.pl	11 B	-r--r--r--	2014-12-27 11:49
version.pl	494 B	-r--r--r--	2014-12-27 11:49
xsbuild.pl	27.3 KB	-r--r--r--	2014-12-27 11:49

Rename

/*
 *	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 (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;
}