perl 5.0 alpha 6

[p5sagit/p5-mst-13.2.git] / ext / posix / POSIX.xs

diff --git a/ext/posix/POSIX.xs b/ext/posix/POSIX.xs
index 5918199..7981f88 100644 (file)
--- a/ext/posix/POSIX.xs
+++ b/ext/posix/POSIX.xs
@@ -1,10 +1,215 @@
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
+#include <sys/utsname.h>
+
+#define HAS_UNAME
+
+#ifndef HAS_GETPGRP
+#define getpgrp(a,b) not_here("getpgrp")
+#endif
+#ifndef HAS_NICE
+#define nice(a) not_here("nice")
+#endif
+#ifndef HAS_READLINK
+#define readlink(a,b,c) not_here("readlink")
+#endif
+#ifndef HAS_SETPGID
+#define setpgid(a,b) not_here("setpgid")
+#endif
+#ifndef HAS_SETPGRP
+#define setpgrp(a,b) not_here("setpgrp")
+#endif
+#ifndef HAS_SETSID
+#define setsid() not_here("setsid")
+#endif
+#ifndef HAS_SYMLINK
+#define symlink(a,b) not_here("symlink")
+#endif
+#ifndef HAS_TCGETPGRP
+#define tcgetpgrp(a) not_here("tcgetpgrp")
+#endif
+#ifndef HAS_TCSETPGRP
+#define tcsetpgrp(a,b) not_here("tcsetpgrp")
+#endif
+#ifndef HAS_TIMES
+#define times(a) not_here("times")
+#endif
+#ifndef HAS_UNAME
+#define uname(a) not_here("uname")
+#endif
+#ifndef HAS_WAITPID
+#define waitpid(a,b,c) not_here("waitpid")
+#endif
+
+static int
+not_here(s)
+char *s;
+{
+    croak("POSIX::%s not implemented on this architecture", s);
+    return -1;
+}
 
 MODULE = POSIX PACKAGE = POSIX
 
+void
+_exit(status)
+       int             status
+
+int
+chdir(path)
+       char *          path
+
+int
+chmod(path, mode)
+       char *          path
+       mode_t          mode
+
+int
+close(fd)
+       int             fd
+
+int
+dup(fd)
+       int             fd
+
+int
+dup2(fd1, fd2)
+       int             fd1
+       int             fd2
+
 FILE *
-fdopen(fildes, type)
-       fd              fildes
+fdopen(fd, type)
+       int             fd
        char *          type
+
+int
+fstat(fd, buf)
+       int             fd
+       struct stat *   buf = (struct stat*)sv_grow(ST(2),sizeof(struct stat));
+       CLEANUP:
+       SvCUR(ST(2)) = sizeof(struct stat);
+
+int
+getpgrp(pid)
+       int             pid
+
+int
+link()
+
+int
+lseek()
+
+int
+lstat()
+
+int
+mkdir()
+
+int
+nice(incr)
+       int             incr
+
+int
+open()
+
+int
+pipe()
+
+int
+read()
+
+int
+readlink(path, buf, bufsiz)
+       char *          path
+       char *          buf = sv_grow(ST(2), SvIV(ST(3)));
+       int             bufsiz
+
+int
+rename()
+
+int
+rmdir()
+
+int
+setgid()
+
+int
+setpgid(pid, pgid)
+       pid_t           pid
+       pid_t           pgid
+
+int
+setpgrp(pid, pgrp)
+       int             pid
+       int             pgrp
+
+pid_t
+setsid()
+
+int
+setuid()
+
+int
+stat()
+
+int
+symlink()
+
+int
+system()
+
+pid_t
+tcgetpgrp(fd)
+       int             fd
+
+int
+tcsetpgrp(fd, pgrp_id)
+       int             fd
+       pid_t           pgrp_id
+
+int
+times(tms)
+       struct tms *    tms = (struct tms*)sv_grow(ST(1), sizeof(struct tms));
+       CLEANUP:
+       SvCUR(ST(1)) = sizeof(struct tms);
+
+int
+umask()
+
+int
+uname()
+       CODE:
+       dSP;
+       struct utsname utsname;
+       sp--;
+       if (uname(&utsname) >= 0) {
+           EXTEND(sp, 5);
+           PUSHs(sv_2mortal(newSVpv(utsname.sysname, 0)));
+           PUSHs(sv_2mortal(newSVpv(utsname.nodename, 0)));
+           PUSHs(sv_2mortal(newSVpv(utsname.release, 0)));
+           PUSHs(sv_2mortal(newSVpv(utsname.version, 0)));
+           PUSHs(sv_2mortal(newSVpv(utsname.machine, 0)));
+       }
+       return sp - stack_base;
+
+int
+unlink()
+
+int
+utime()
+
+int
+wait()
+
+int
+waitpid(pid, statusp, options)
+       int             pid
+       int             &statusp
+       int             options
+       OUTPUT:
+       statusp
+
+int
+write()
+