* platform specific function
* Author : SGP
* Date Created : June 12th 2001.
- * Date Modified: June 26th 2001.
+ * Date Modified: June 30th 2001.
*/
#ifndef ___NWPerlSys_H___
#include "iperlsys.h"
+#include "nwstdio.h"
#include "nw5iop.h"
#include <fcntl.h>
}
DIR*
-PerlDirOpen(struct IPerlDir* piPerl, char *filename)
+PerlDirOpen(struct IPerlDir* piPerl, const char *filename)
{
return nw_opendir(filename);
}
int
PerlLIOChown(struct IPerlLIO* piPerl, const char *filename, uid_t owner, gid_t group)
{
- dTHXo;
+ dTHX;
Perl_croak(aTHX_ "chown not implemented!\n");
return 0;
}
}
int
-PerlLIOUtime(struct IPerlLIO* piPerl, char *filename, struct utimbuf *times)
+PerlLIOUtime(struct IPerlLIO* piPerl, const char *filename, struct utimbuf *times)
{
return nw_utime(filename, times);
}
int
PerlProcExecl(struct IPerlProc* piPerl, const char *cmdname, const char *arg0, const char *arg1, const char *arg2, const char *arg3)
{
- dTHXo;
+ dTHX;
Perl_croak(aTHX_ "execl not implemented!\n");
return 0;
}
int
PerlProcKillpg(struct IPerlProc* piPerl, int pid, int sig)
{
- dTHXo;
+ dTHX;
Perl_croak(aTHX_ "killpg not implemented!\n");
return 0;
}
PerlIO*
PerlProcPopen(struct IPerlProc* piPerl, const char *command, const char *mode)
{
- dTHXo;
+ dTHX;
PERL_FLUSHALL_FOR_CHILD;
return (PerlIO*)nw_Popen((char *)command, (char *)mode, (int *)errno);
int
PerlSockSetsockopt(struct IPerlSock* piPerl, SOCKET s, int level, int optname, const char* optval, int optlen)
{
- dTHXo;
- Perl_croak(aTHX_ "setsockopt not implemented!\n");
- return 0;
+ return nw_setsockopt(s, level, optname, optval, optlen);
}
int
int
PerlSockSocketpair(struct IPerlSock* piPerl, int domain, int type, int protocol, int* fds)
{
- dTHXo;
+ dTHX;
Perl_croak(aTHX_ "socketpair not implemented!\n");
return 0;
}
int
PerlSockIoctlsocket(struct IPerlSock* piPerl, SOCKET s, long cmd, u_long *argp)
{
- dTHXo;
+ dTHX;
Perl_croak(aTHX_ "ioctlsocket not implemented!\n");
return 0;
}