1991-02-19 08:39:46 -04:00
|
|
|
/***********************************************************
|
1993-01-09 13:18:52 -04:00
|
|
|
Copyright 1991, 1992, 1993 by Stichting Mathematisch Centrum,
|
|
|
|
Amsterdam, The Netherlands.
|
1991-02-19 08:39:46 -04:00
|
|
|
|
|
|
|
All Rights Reserved
|
|
|
|
|
|
|
|
Permission to use, copy, modify, and distribute this software and its
|
|
|
|
documentation for any purpose and without fee is hereby granted,
|
|
|
|
provided that the above copyright notice appear in all copies and that
|
|
|
|
both that copyright notice and this permission notice appear in
|
|
|
|
supporting documentation, and that the names of Stichting Mathematisch
|
|
|
|
Centrum or CWI not be used in advertising or publicity pertaining to
|
|
|
|
distribution of the software without specific, written prior permission.
|
|
|
|
|
|
|
|
STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
|
|
|
|
THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
|
|
|
|
FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE
|
|
|
|
FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
|
|
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
|
|
|
ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
|
|
|
|
OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
|
|
|
|
|
|
******************************************************************/
|
|
|
|
|
1990-10-14 09:07:46 -03:00
|
|
|
/* POSIX module implementation */
|
|
|
|
|
1991-04-08 17:59:13 -03:00
|
|
|
#ifdef AMOEBA
|
|
|
|
#define NO_LSTAT
|
|
|
|
#define SYSV
|
|
|
|
#endif
|
|
|
|
|
1991-04-08 18:01:03 -03:00
|
|
|
#ifdef MSDOS
|
|
|
|
#define NO_LSTAT
|
1992-02-05 07:15:54 -04:00
|
|
|
#define NO_UNAME
|
1993-07-09 07:51:31 -03:00
|
|
|
#include <dos.h>
|
1991-04-08 18:01:03 -03:00
|
|
|
#endif
|
|
|
|
|
1992-09-13 17:07:29 -03:00
|
|
|
#ifdef __sgi
|
|
|
|
#define DO_PG
|
|
|
|
#endif
|
|
|
|
|
1993-11-01 12:23:18 -04:00
|
|
|
#ifdef _NEXT_SOURCE
|
|
|
|
#define mode_t int
|
|
|
|
#define NO_UNAME
|
|
|
|
#endif
|
|
|
|
|
1990-10-14 09:07:46 -03:00
|
|
|
#include <signal.h>
|
|
|
|
#include <string.h>
|
|
|
|
#include <setjmp.h>
|
|
|
|
#include <sys/types.h>
|
|
|
|
#include <sys/stat.h>
|
1991-04-08 18:01:03 -03:00
|
|
|
|
1992-04-05 11:25:30 -03:00
|
|
|
#ifdef DO_TIMES
|
|
|
|
#include <sys/times.h>
|
|
|
|
#include <sys/param.h>
|
|
|
|
#include <errno.h>
|
|
|
|
#endif
|
|
|
|
|
1990-10-14 09:07:46 -03:00
|
|
|
#ifdef SYSV
|
1991-04-08 18:01:03 -03:00
|
|
|
|
1991-04-08 17:59:13 -03:00
|
|
|
#define UTIME_STRUCT
|
1990-10-14 09:07:46 -03:00
|
|
|
#include <dirent.h>
|
|
|
|
#define direct dirent
|
1991-04-08 17:59:13 -03:00
|
|
|
#ifdef i386
|
|
|
|
#define mode_t int
|
1990-10-14 09:07:46 -03:00
|
|
|
#endif
|
1991-04-08 18:01:03 -03:00
|
|
|
|
1991-04-08 17:59:13 -03:00
|
|
|
#else /* !SYSV */
|
1991-04-08 18:01:03 -03:00
|
|
|
|
|
|
|
#ifndef MSDOS
|
1991-04-08 17:59:13 -03:00
|
|
|
#include <sys/dir.h>
|
1991-04-08 18:01:03 -03:00
|
|
|
#endif
|
|
|
|
|
1991-04-08 17:59:13 -03:00
|
|
|
#endif /* !SYSV */
|
1990-10-14 09:07:46 -03:00
|
|
|
|
1992-03-27 13:22:31 -04:00
|
|
|
#ifndef NO_UNISTD
|
1992-04-05 11:25:30 -03:00
|
|
|
#include <unistd.h> /* Take this out and hope the best if it doesn't exist */
|
1992-03-27 13:22:31 -04:00
|
|
|
#endif
|
|
|
|
|
1990-12-20 11:06:42 -04:00
|
|
|
#include "allobjects.h"
|
1990-10-14 09:07:46 -03:00
|
|
|
#include "modsupport.h"
|
1992-08-05 16:58:53 -03:00
|
|
|
#include "ceval.h"
|
1990-10-14 09:07:46 -03:00
|
|
|
|
1993-01-21 12:07:51 -04:00
|
|
|
#ifdef _SEQUENT_
|
|
|
|
#include <unistd.h>
|
|
|
|
#else /* _SEQUENT_ */
|
1993-01-04 05:09:59 -04:00
|
|
|
/* XXX Aren't these always declared in unistd.h? */
|
|
|
|
extern int mkdir PROTO((const char *, mode_t));
|
|
|
|
extern int chdir PROTO((const char *));
|
1993-07-09 07:51:31 -03:00
|
|
|
extern int rmdir PROTO((const char *));
|
|
|
|
extern int chmod PROTO((const char *, mode_t));
|
|
|
|
extern char *getcwd PROTO((char *, int)); /* XXX or size_t? */
|
1993-07-28 06:05:47 -03:00
|
|
|
#ifndef MSDOS
|
1993-07-09 07:51:31 -03:00
|
|
|
extern char *strerror PROTO((int));
|
1993-01-04 05:09:59 -04:00
|
|
|
extern int link PROTO((const char *, const char *));
|
|
|
|
extern int rename PROTO((const char *, const char *));
|
|
|
|
extern int stat PROTO((const char *, struct stat *));
|
|
|
|
extern int unlink PROTO((const char *));
|
|
|
|
extern int pclose PROTO((FILE *));
|
1993-07-28 06:05:47 -03:00
|
|
|
#endif /* !MSDOS */
|
|
|
|
#endif /* !_SEQUENT_ */
|
1993-01-04 05:09:59 -04:00
|
|
|
#ifdef NO_LSTAT
|
|
|
|
#define lstat stat
|
|
|
|
#else
|
|
|
|
extern int lstat PROTO((const char *, struct stat *));
|
|
|
|
extern int symlink PROTO((const char *, const char *));
|
|
|
|
#endif
|
1990-10-14 09:07:46 -03:00
|
|
|
|
|
|
|
|
|
|
|
/* Return a dictionary corresponding to the POSIX environment table */
|
|
|
|
|
|
|
|
extern char **environ;
|
|
|
|
|
|
|
|
static object *
|
|
|
|
convertenviron()
|
|
|
|
{
|
|
|
|
object *d;
|
|
|
|
char **e;
|
|
|
|
d = newdictobject();
|
|
|
|
if (d == NULL)
|
|
|
|
return NULL;
|
|
|
|
if (environ == NULL)
|
|
|
|
return d;
|
|
|
|
/* XXX This part ignores errors */
|
|
|
|
for (e = environ; *e != NULL; e++) {
|
|
|
|
object *v;
|
|
|
|
char *p = strchr(*e, '=');
|
|
|
|
if (p == NULL)
|
|
|
|
continue;
|
|
|
|
v = newstringobject(p+1);
|
|
|
|
if (v == NULL)
|
|
|
|
continue;
|
|
|
|
*p = '\0';
|
|
|
|
(void) dictinsert(d, *e, v);
|
|
|
|
*p = '=';
|
|
|
|
DECREF(v);
|
|
|
|
}
|
|
|
|
return d;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static object *PosixError; /* Exception posix.error */
|
|
|
|
|
|
|
|
/* Set a POSIX-specific error from errno, and return NULL */
|
|
|
|
|
1993-05-17 05:34:16 -03:00
|
|
|
static object * posix_error() { return err_errno(PosixError);
|
1990-10-14 09:07:46 -03:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* POSIX generic methods */
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_1str(args, func)
|
|
|
|
object *args;
|
|
|
|
int (*func) FPROTO((const char *));
|
|
|
|
{
|
1992-01-27 12:51:30 -04:00
|
|
|
char *path1;
|
1992-08-05 16:58:53 -03:00
|
|
|
int res;
|
1993-11-05 06:15:19 -04:00
|
|
|
if (!getargs(args, "s", &path1))
|
1990-10-14 09:07:46 -03:00
|
|
|
return NULL;
|
1992-08-05 16:58:53 -03:00
|
|
|
BGN_SAVE
|
|
|
|
res = (*func)(path1);
|
|
|
|
END_SAVE
|
|
|
|
if (res < 0)
|
1990-10-14 09:07:46 -03:00
|
|
|
return posix_error();
|
|
|
|
INCREF(None);
|
|
|
|
return None;
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_2str(args, func)
|
|
|
|
object *args;
|
|
|
|
int (*func) FPROTO((const char *, const char *));
|
|
|
|
{
|
1992-01-27 12:51:30 -04:00
|
|
|
char *path1, *path2;
|
1992-08-05 16:58:53 -03:00
|
|
|
int res;
|
1993-06-17 09:35:49 -03:00
|
|
|
if (!getargs(args, "(ss)", &path1, &path2))
|
1990-10-14 09:07:46 -03:00
|
|
|
return NULL;
|
1992-08-05 16:58:53 -03:00
|
|
|
BGN_SAVE
|
|
|
|
res = (*func)(path1, path2);
|
|
|
|
END_SAVE
|
|
|
|
if (res < 0)
|
1990-10-14 09:07:46 -03:00
|
|
|
return posix_error();
|
|
|
|
INCREF(None);
|
|
|
|
return None;
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_strint(args, func)
|
|
|
|
object *args;
|
|
|
|
int (*func) FPROTO((const char *, int));
|
|
|
|
{
|
1992-01-27 12:51:30 -04:00
|
|
|
char *path;
|
1990-10-14 09:07:46 -03:00
|
|
|
int i;
|
1992-08-05 16:58:53 -03:00
|
|
|
int res;
|
1993-06-17 09:35:49 -03:00
|
|
|
if (!getargs(args, "(si)", &path, &i))
|
1990-10-14 09:07:46 -03:00
|
|
|
return NULL;
|
1992-08-05 16:58:53 -03:00
|
|
|
BGN_SAVE
|
|
|
|
res = (*func)(path, i);
|
|
|
|
END_SAVE
|
|
|
|
if (res < 0)
|
1990-10-14 09:07:46 -03:00
|
|
|
return posix_error();
|
|
|
|
INCREF(None);
|
|
|
|
return None;
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_do_stat(self, args, statfunc)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
int (*statfunc) FPROTO((const char *, struct stat *));
|
|
|
|
{
|
|
|
|
struct stat st;
|
1992-01-27 12:51:30 -04:00
|
|
|
char *path;
|
1992-08-05 16:58:53 -03:00
|
|
|
int res;
|
1993-11-05 06:15:19 -04:00
|
|
|
if (!getargs(args, "s", &path))
|
1990-10-14 09:07:46 -03:00
|
|
|
return NULL;
|
1992-08-05 16:58:53 -03:00
|
|
|
BGN_SAVE
|
|
|
|
res = (*statfunc)(path, &st);
|
|
|
|
END_SAVE
|
|
|
|
if (res != 0)
|
1990-10-14 09:07:46 -03:00
|
|
|
return posix_error();
|
1993-05-17 05:34:16 -03:00
|
|
|
return mkvalue("(llllllllll)",
|
1993-03-16 08:15:04 -04:00
|
|
|
(long)st.st_mode,
|
|
|
|
(long)st.st_ino,
|
|
|
|
(long)st.st_dev,
|
|
|
|
(long)st.st_nlink,
|
|
|
|
(long)st.st_uid,
|
|
|
|
(long)st.st_gid,
|
|
|
|
(long)st.st_size,
|
|
|
|
(long)st.st_atime,
|
|
|
|
(long)st.st_mtime,
|
|
|
|
(long)st.st_ctime);
|
1990-10-14 09:07:46 -03:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* POSIX methods */
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_chdir(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
return posix_1str(args, chdir);
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_chmod(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
return posix_strint(args, chmod);
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_getcwd(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
char buf[1026];
|
1992-08-05 16:58:53 -03:00
|
|
|
char *res;
|
1990-10-14 09:07:46 -03:00
|
|
|
if (!getnoarg(args))
|
|
|
|
return NULL;
|
1992-08-05 16:58:53 -03:00
|
|
|
BGN_SAVE
|
|
|
|
res = getcwd(buf, sizeof buf);
|
|
|
|
END_SAVE
|
|
|
|
if (res == NULL)
|
1990-10-14 09:07:46 -03:00
|
|
|
return posix_error();
|
|
|
|
return newstringobject(buf);
|
|
|
|
}
|
|
|
|
|
1991-04-08 18:01:03 -03:00
|
|
|
#ifndef MSDOS
|
1990-10-14 09:07:46 -03:00
|
|
|
static object *
|
|
|
|
posix_link(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
return posix_2str(args, link);
|
|
|
|
}
|
1991-04-08 18:01:03 -03:00
|
|
|
#endif /* !MSDOS */
|
1990-10-14 09:07:46 -03:00
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_listdir(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
1992-01-27 12:51:30 -04:00
|
|
|
char *name;
|
|
|
|
object *d, *v;
|
1991-04-08 18:01:03 -03:00
|
|
|
|
1993-07-09 07:51:31 -03:00
|
|
|
#ifdef TURBO_C
|
1991-04-08 18:01:03 -03:00
|
|
|
struct ffblk ep;
|
|
|
|
int rv;
|
1993-11-05 06:15:19 -04:00
|
|
|
if (!getargs(args, "s", &name))
|
1991-04-08 18:01:03 -03:00
|
|
|
return NULL;
|
|
|
|
|
1992-01-27 12:51:30 -04:00
|
|
|
if (findfirst(name, &ep, 0) == -1)
|
1991-04-08 18:01:03 -03:00
|
|
|
return posix_error();
|
|
|
|
if ((d = newlistobject(0)) == NULL)
|
|
|
|
return NULL;
|
|
|
|
do {
|
|
|
|
v = newstringobject(ep.ff_name);
|
|
|
|
if (v == NULL) {
|
|
|
|
DECREF(d);
|
|
|
|
d = NULL;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (addlistitem(d, v) != 0) {
|
|
|
|
DECREF(v);
|
|
|
|
DECREF(d);
|
|
|
|
d = NULL;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
DECREF(v);
|
|
|
|
} while ((rv = findnext(&ep)) == 0);
|
1993-07-09 07:51:31 -03:00
|
|
|
#endif /* TURBO_C */
|
|
|
|
#ifdef MSDOS
|
|
|
|
struct find_t ep;
|
|
|
|
int rv;
|
|
|
|
char _name[100];
|
|
|
|
int attrib;
|
|
|
|
int num= 0;
|
|
|
|
|
1993-11-05 06:15:19 -04:00
|
|
|
if (!getargs(args, "s", &name))
|
1993-07-09 07:51:31 -03:00
|
|
|
return NULL;
|
|
|
|
strcpy( _name, name );
|
|
|
|
|
|
|
|
again:
|
|
|
|
if ((d = newlistobject(0)) == NULL)
|
|
|
|
return NULL;
|
|
|
|
|
|
|
|
if( _name[strlen( _name )-1]=='/' )
|
|
|
|
strcat( _name, "*.*" );
|
|
|
|
|
|
|
|
if (_dos_findfirst(_name, _A_NORMAL|_A_SUBDIR, &ep) == -1)
|
|
|
|
return posix_error();
|
|
|
|
attrib= ep.attrib;
|
|
|
|
do {
|
|
|
|
v = newstringobject(ep.name);
|
|
|
|
if (v == NULL) {
|
|
|
|
DECREF(d);
|
|
|
|
d = NULL;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (addlistitem(d, v) != 0) {
|
|
|
|
DECREF(v);
|
|
|
|
DECREF(d);
|
|
|
|
d = NULL;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
num++;
|
|
|
|
DECREF(v);
|
|
|
|
} while ((rv = _dos_findnext(&ep)) == 0);
|
|
|
|
|
|
|
|
if( attrib&_A_SUBDIR && num==1 )
|
|
|
|
{
|
|
|
|
DECREF( d );
|
|
|
|
strcat( _name, "/*.*" );
|
1993-10-26 12:22:37 -03:00
|
|
|
/* This comment is here to help the DEC alpha OSF/1 cpp
|
|
|
|
(which scans for comments but not for strings in
|
|
|
|
code that is #ifdef'ed out...) */
|
1993-07-09 07:51:31 -03:00
|
|
|
goto again;
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif /* MSDOS */
|
|
|
|
#ifdef unix
|
1990-10-14 09:07:46 -03:00
|
|
|
DIR *dirp;
|
|
|
|
struct direct *ep;
|
1993-11-05 06:15:19 -04:00
|
|
|
if (!getargs(args, "s", &name))
|
1990-10-14 09:07:46 -03:00
|
|
|
return NULL;
|
1992-08-05 16:58:53 -03:00
|
|
|
BGN_SAVE
|
|
|
|
if ((dirp = opendir(name)) == NULL) {
|
|
|
|
RET_SAVE
|
1990-10-14 09:07:46 -03:00
|
|
|
return posix_error();
|
1992-08-05 16:58:53 -03:00
|
|
|
}
|
1990-10-14 09:07:46 -03:00
|
|
|
if ((d = newlistobject(0)) == NULL) {
|
|
|
|
closedir(dirp);
|
1992-08-05 16:58:53 -03:00
|
|
|
RET_SAVE
|
1990-10-14 09:07:46 -03:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
while ((ep = readdir(dirp)) != NULL) {
|
|
|
|
v = newstringobject(ep->d_name);
|
|
|
|
if (v == NULL) {
|
|
|
|
DECREF(d);
|
|
|
|
d = NULL;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (addlistitem(d, v) != 0) {
|
|
|
|
DECREF(v);
|
|
|
|
DECREF(d);
|
|
|
|
d = NULL;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
DECREF(v);
|
|
|
|
}
|
|
|
|
closedir(dirp);
|
1992-08-05 16:58:53 -03:00
|
|
|
END_SAVE
|
1993-07-09 07:51:31 -03:00
|
|
|
#endif /* unix */
|
1991-04-08 18:01:03 -03:00
|
|
|
|
1990-10-14 09:07:46 -03:00
|
|
|
return d;
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_mkdir(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
return posix_strint(args, mkdir);
|
|
|
|
}
|
|
|
|
|
1993-01-09 13:18:52 -04:00
|
|
|
#ifndef MSDOS
|
|
|
|
static object *
|
|
|
|
posix_nice(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
int increment, value;
|
|
|
|
|
|
|
|
if (!getargs(args, "i", &increment))
|
|
|
|
return NULL;
|
|
|
|
value = nice(increment);
|
|
|
|
if (value == -1)
|
|
|
|
return posix_error();
|
|
|
|
return newintobject((long) value);
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
1993-01-21 12:07:51 -04:00
|
|
|
#if i386 && ! _SEQUENT_
|
1991-04-08 17:59:13 -03:00
|
|
|
int
|
|
|
|
rename(from, to)
|
|
|
|
char *from;
|
|
|
|
char *to;
|
|
|
|
{
|
|
|
|
int status;
|
|
|
|
/* XXX Shouldn't this unlink the destination first? */
|
|
|
|
status = link(from, to);
|
|
|
|
if (status != 0)
|
|
|
|
return status;
|
|
|
|
return unlink(from);
|
|
|
|
}
|
1993-01-21 12:07:51 -04:00
|
|
|
#endif /* i386 && ! _SEQUENT_ */
|
1991-04-08 17:59:13 -03:00
|
|
|
|
1990-10-14 09:07:46 -03:00
|
|
|
static object *
|
|
|
|
posix_rename(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
return posix_2str(args, rename);
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_rmdir(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
return posix_1str(args, rmdir);
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_stat(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
return posix_do_stat(self, args, stat);
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_system(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
1992-01-27 12:51:30 -04:00
|
|
|
char *command;
|
1992-08-05 16:58:53 -03:00
|
|
|
long sts;
|
1993-11-05 06:15:19 -04:00
|
|
|
if (!getargs(args, "s", &command))
|
1990-10-14 09:07:46 -03:00
|
|
|
return NULL;
|
1992-08-05 16:58:53 -03:00
|
|
|
BGN_SAVE
|
1992-01-27 12:51:30 -04:00
|
|
|
sts = system(command);
|
1992-08-05 16:58:53 -03:00
|
|
|
END_SAVE
|
|
|
|
return newintobject(sts);
|
1990-10-14 09:07:46 -03:00
|
|
|
}
|
|
|
|
|
1991-04-08 18:01:03 -03:00
|
|
|
#ifndef MSDOS
|
1990-10-14 09:07:46 -03:00
|
|
|
static object *
|
|
|
|
posix_umask(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
int i;
|
|
|
|
if (!getintarg(args, &i))
|
|
|
|
return NULL;
|
|
|
|
i = umask(i);
|
|
|
|
if (i < 0)
|
|
|
|
return posix_error();
|
|
|
|
return newintobject((long)i);
|
|
|
|
}
|
1991-04-08 18:01:03 -03:00
|
|
|
#endif /* !MSDOS */
|
1990-10-14 09:07:46 -03:00
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_unlink(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
return posix_1str(args, unlink);
|
|
|
|
}
|
|
|
|
|
1992-02-05 07:15:54 -04:00
|
|
|
#ifndef NO_UNAME
|
|
|
|
#include <sys/utsname.h>
|
|
|
|
|
1993-01-04 05:09:59 -04:00
|
|
|
extern int uname PROTO((struct utsname *));
|
|
|
|
|
1992-02-05 07:15:54 -04:00
|
|
|
static object *
|
|
|
|
posix_uname(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
struct utsname u;
|
|
|
|
object *v;
|
1992-08-05 16:58:53 -03:00
|
|
|
int res;
|
1992-03-27 13:22:31 -04:00
|
|
|
if (!getnoarg(args))
|
|
|
|
return NULL;
|
1992-08-05 16:58:53 -03:00
|
|
|
BGN_SAVE
|
|
|
|
res = uname(&u);
|
|
|
|
END_SAVE
|
|
|
|
if (res < 0)
|
1992-02-05 07:15:54 -04:00
|
|
|
return posix_error();
|
1993-03-16 08:15:04 -04:00
|
|
|
return mkvalue("(sssss)",
|
|
|
|
u.sysname,
|
|
|
|
u.nodename,
|
|
|
|
u.release,
|
|
|
|
u.version,
|
|
|
|
u.machine);
|
1992-02-05 07:15:54 -04:00
|
|
|
}
|
|
|
|
#endif /* NO_UNAME */
|
|
|
|
|
1991-04-08 17:59:13 -03:00
|
|
|
#ifdef UTIME_STRUCT
|
|
|
|
#include <utime.h>
|
|
|
|
#endif
|
|
|
|
|
1990-10-14 09:07:46 -03:00
|
|
|
static object *
|
1991-04-08 17:59:13 -03:00
|
|
|
posix_utime(self, args)
|
1990-10-14 09:07:46 -03:00
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
1992-01-27 12:51:30 -04:00
|
|
|
char *path;
|
1992-08-05 16:58:53 -03:00
|
|
|
int res;
|
1991-04-08 17:59:13 -03:00
|
|
|
|
|
|
|
#ifdef UTIME_STRUCT
|
|
|
|
struct utimbuf buf;
|
|
|
|
#define ATIME buf.actime
|
|
|
|
#define MTIME buf.modtime
|
|
|
|
#define UTIME_ARG &buf
|
|
|
|
|
|
|
|
#else
|
|
|
|
time_t buf[2];
|
|
|
|
#define ATIME buf[0]
|
|
|
|
#define MTIME buf[1]
|
|
|
|
#define UTIME_ARG buf
|
|
|
|
#endif
|
|
|
|
|
1992-01-27 12:51:30 -04:00
|
|
|
if (!getargs(args, "(s(ll))", &path, &ATIME, &MTIME))
|
1990-10-14 09:07:46 -03:00
|
|
|
return NULL;
|
1992-08-05 16:58:53 -03:00
|
|
|
BGN_SAVE
|
|
|
|
res = utime(path, UTIME_ARG);
|
|
|
|
END_SAVE
|
|
|
|
if (res < 0)
|
1990-10-14 09:07:46 -03:00
|
|
|
return posix_error();
|
|
|
|
INCREF(None);
|
|
|
|
return None;
|
1991-04-08 17:59:13 -03:00
|
|
|
#undef UTIME_ARG
|
|
|
|
#undef ATIME
|
|
|
|
#undef MTIME
|
1990-10-14 09:07:46 -03:00
|
|
|
}
|
|
|
|
|
1991-06-03 09:42:10 -03:00
|
|
|
|
|
|
|
#ifndef MSDOS
|
|
|
|
|
1991-06-04 16:40:25 -03:00
|
|
|
/* Process operations */
|
1991-06-03 09:42:10 -03:00
|
|
|
|
|
|
|
static object *
|
|
|
|
posix__exit(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
int sts;
|
|
|
|
if (!getintarg(args, &sts))
|
|
|
|
return NULL;
|
|
|
|
_exit(sts);
|
|
|
|
/* NOTREACHED */
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
1993-10-22 11:26:06 -03:00
|
|
|
posix_execv(self, args)
|
1991-06-03 09:42:10 -03:00
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
1992-01-27 12:51:30 -04:00
|
|
|
char *path;
|
|
|
|
object *argv;
|
1991-06-03 09:42:10 -03:00
|
|
|
char **argvlist;
|
|
|
|
int i, argc;
|
|
|
|
object *(*getitem) PROTO((object *, int));
|
|
|
|
|
1993-10-22 11:26:06 -03:00
|
|
|
/* execv has two arguments: (path, argv), where
|
1991-06-03 09:42:10 -03:00
|
|
|
argv is a list or tuple of strings. */
|
|
|
|
|
1992-01-27 12:51:30 -04:00
|
|
|
if (!getargs(args, "(sO)", &path, &argv))
|
1991-06-03 09:42:10 -03:00
|
|
|
return NULL;
|
|
|
|
if (is_listobject(argv)) {
|
|
|
|
argc = getlistsize(argv);
|
|
|
|
getitem = getlistitem;
|
|
|
|
}
|
|
|
|
else if (is_tupleobject(argv)) {
|
|
|
|
argc = gettuplesize(argv);
|
|
|
|
getitem = gettupleitem;
|
|
|
|
}
|
1992-01-27 12:51:30 -04:00
|
|
|
else {
|
|
|
|
badarg:
|
|
|
|
err_badarg();
|
|
|
|
return NULL;
|
|
|
|
}
|
1991-06-03 09:42:10 -03:00
|
|
|
|
|
|
|
argvlist = NEW(char *, argc+1);
|
|
|
|
if (argvlist == NULL)
|
|
|
|
return NULL;
|
|
|
|
for (i = 0; i < argc; i++) {
|
1993-11-05 06:15:19 -04:00
|
|
|
if (!getargs((*getitem)(argv, i), "s", &argvlist[i])) {
|
1991-06-03 09:42:10 -03:00
|
|
|
DEL(argvlist);
|
|
|
|
goto badarg;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
argvlist[argc] = NULL;
|
|
|
|
|
1992-01-27 12:51:30 -04:00
|
|
|
execv(path, argvlist);
|
1991-06-03 09:42:10 -03:00
|
|
|
|
|
|
|
/* If we get here it's definitely an error */
|
|
|
|
|
|
|
|
DEL(argvlist);
|
|
|
|
return posix_error();
|
|
|
|
}
|
|
|
|
|
1993-11-05 06:15:19 -04:00
|
|
|
static object *
|
|
|
|
posix_execve(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
char *path;
|
|
|
|
object *argv, *env;
|
|
|
|
char **argvlist;
|
|
|
|
char **envlist;
|
|
|
|
object *key, *val;
|
|
|
|
int i, pos, argc, envc;
|
|
|
|
object *(*getitem) PROTO((object *, int));
|
|
|
|
|
|
|
|
/* execve has three arguments: (path, argv, env), where
|
|
|
|
argv is a list or tuple of strings and env is a dictionary
|
|
|
|
like posix.environ. */
|
|
|
|
|
|
|
|
if (!getargs(args, "(sOO)", &path, &argv, &env))
|
|
|
|
return NULL;
|
|
|
|
if (is_listobject(argv)) {
|
|
|
|
argc = getlistsize(argv);
|
|
|
|
getitem = getlistitem;
|
|
|
|
}
|
|
|
|
else if (is_tupleobject(argv)) {
|
|
|
|
argc = gettuplesize(argv);
|
|
|
|
getitem = gettupleitem;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
err_setstr(TypeError, "argv must be tuple or list");
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
if (!is_dictobject(env)) {
|
|
|
|
err_setstr(TypeError, "env must be dictionary");
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
argvlist = NEW(char *, argc+1);
|
|
|
|
if (argvlist == NULL) {
|
|
|
|
err_nomem();
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
for (i = 0; i < argc; i++) {
|
|
|
|
if (!getargs((*getitem)(argv, i),
|
|
|
|
"s;argv must be list of strings",
|
|
|
|
&argvlist[i])) {
|
|
|
|
goto fail_1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
argvlist[argc] = NULL;
|
|
|
|
|
|
|
|
i = getmappingsize(env);
|
|
|
|
envlist = NEW(char *, i + 1);
|
|
|
|
if (envlist == NULL) {
|
|
|
|
err_nomem();
|
|
|
|
goto fail_1;
|
|
|
|
}
|
|
|
|
pos = 0;
|
|
|
|
envc = 0;
|
|
|
|
while (mappinggetnext(env, &pos, &key, &val)) {
|
|
|
|
char *p, *k, *v;
|
|
|
|
if (!getargs(key, "s;non-string key in env", &k) ||
|
|
|
|
!getargs(val, "s;non-string value in env", &v)) {
|
|
|
|
goto fail_2;
|
|
|
|
}
|
|
|
|
p = NEW(char, getstringsize(key) + getstringsize(val) + 2);
|
|
|
|
if (p == NULL) {
|
|
|
|
err_nomem();
|
|
|
|
goto fail_2;
|
|
|
|
}
|
|
|
|
sprintf(p, "%s=%s", k, v);
|
|
|
|
envlist[envc++] = p;
|
|
|
|
}
|
|
|
|
envlist[envc] = 0;
|
|
|
|
|
|
|
|
execve(path, argvlist, envlist);
|
|
|
|
|
|
|
|
/* If we get here it's definitely an error */
|
|
|
|
|
|
|
|
(void) posix_error();
|
|
|
|
|
|
|
|
fail_2:
|
|
|
|
while (--envc >= 0)
|
|
|
|
DEL(envlist[envc]);
|
|
|
|
DEL(envlist);
|
|
|
|
fail_1:
|
|
|
|
DEL(argvlist);
|
|
|
|
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
1991-06-03 09:42:10 -03:00
|
|
|
static object *
|
|
|
|
posix_fork(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
int pid;
|
1992-03-27 13:22:31 -04:00
|
|
|
if (!getnoarg(args))
|
|
|
|
return NULL;
|
1991-06-03 09:42:10 -03:00
|
|
|
pid = fork();
|
|
|
|
if (pid == -1)
|
|
|
|
return posix_error();
|
|
|
|
return newintobject((long)pid);
|
|
|
|
}
|
|
|
|
|
1992-05-15 08:05:24 -03:00
|
|
|
static object *
|
|
|
|
posix_getegid(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
if (!getnoarg(args))
|
|
|
|
return NULL;
|
|
|
|
return newintobject((long)getegid());
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_geteuid(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
if (!getnoarg(args))
|
|
|
|
return NULL;
|
|
|
|
return newintobject((long)geteuid());
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_getgid(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
if (!getnoarg(args))
|
|
|
|
return NULL;
|
|
|
|
return newintobject((long)getgid());
|
|
|
|
}
|
|
|
|
|
1991-06-03 09:42:10 -03:00
|
|
|
static object *
|
|
|
|
posix_getpid(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
1991-06-04 17:23:49 -03:00
|
|
|
if (!getnoarg(args))
|
1991-06-03 09:42:10 -03:00
|
|
|
return NULL;
|
|
|
|
return newintobject((long)getpid());
|
|
|
|
}
|
|
|
|
|
1991-06-04 17:23:49 -03:00
|
|
|
static object *
|
|
|
|
posix_getpgrp(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
if (!getnoarg(args))
|
|
|
|
return NULL;
|
1992-03-27 13:22:31 -04:00
|
|
|
#ifdef SYSV
|
|
|
|
return newintobject((long)getpgrp());
|
|
|
|
#else
|
1991-06-07 10:59:29 -03:00
|
|
|
return newintobject((long)getpgrp(0));
|
1992-03-27 13:22:31 -04:00
|
|
|
#endif
|
1991-06-04 17:23:49 -03:00
|
|
|
}
|
|
|
|
|
1992-09-13 17:07:29 -03:00
|
|
|
static object *
|
|
|
|
posix_setpgrp(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
if (!getnoarg(args))
|
|
|
|
return NULL;
|
|
|
|
#ifdef SYSV
|
|
|
|
if (setpgrp() < 0)
|
|
|
|
#else
|
|
|
|
if (setpgrp(0, 0) < 0)
|
|
|
|
#endif
|
1993-05-17 05:34:16 -03:00
|
|
|
return posix_error();
|
1992-09-13 17:07:29 -03:00
|
|
|
INCREF(None);
|
|
|
|
return None;
|
|
|
|
}
|
|
|
|
|
1991-06-03 09:42:10 -03:00
|
|
|
static object *
|
|
|
|
posix_getppid(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
1991-06-04 17:23:49 -03:00
|
|
|
if (!getnoarg(args))
|
1991-06-03 09:42:10 -03:00
|
|
|
return NULL;
|
|
|
|
return newintobject((long)getppid());
|
|
|
|
}
|
|
|
|
|
1992-05-15 08:05:24 -03:00
|
|
|
static object *
|
|
|
|
posix_getuid(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
if (!getnoarg(args))
|
|
|
|
return NULL;
|
|
|
|
return newintobject((long)getuid());
|
|
|
|
}
|
|
|
|
|
1991-06-03 09:42:10 -03:00
|
|
|
static object *
|
|
|
|
posix_kill(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
int pid, sig;
|
1993-06-17 09:35:49 -03:00
|
|
|
if (!getargs(args, "(ii)", &pid, &sig))
|
1991-06-03 09:42:10 -03:00
|
|
|
return NULL;
|
|
|
|
if (kill(pid, sig) == -1)
|
|
|
|
return posix_error();
|
|
|
|
INCREF(None);
|
|
|
|
return None;
|
|
|
|
}
|
|
|
|
|
1991-06-04 16:40:25 -03:00
|
|
|
static object *
|
|
|
|
posix_popen(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
1992-01-27 12:51:30 -04:00
|
|
|
char *name, *mode;
|
1991-06-04 16:40:25 -03:00
|
|
|
FILE *fp;
|
1992-01-27 12:51:30 -04:00
|
|
|
if (!getargs(args, "(ss)", &name, &mode))
|
1991-06-04 16:40:25 -03:00
|
|
|
return NULL;
|
1992-08-05 16:58:53 -03:00
|
|
|
BGN_SAVE
|
1992-01-27 12:51:30 -04:00
|
|
|
fp = popen(name, mode);
|
1992-08-05 16:58:53 -03:00
|
|
|
END_SAVE
|
1991-06-04 16:40:25 -03:00
|
|
|
if (fp == NULL)
|
|
|
|
return posix_error();
|
1991-07-27 18:41:01 -03:00
|
|
|
/* From now on, ignore SIGPIPE and let the error checking
|
|
|
|
do the work. */
|
|
|
|
(void) signal(SIGPIPE, SIG_IGN);
|
1992-01-27 12:51:30 -04:00
|
|
|
return newopenfileobject(fp, name, mode, pclose);
|
1991-06-04 16:40:25 -03:00
|
|
|
}
|
|
|
|
|
1991-06-03 09:42:10 -03:00
|
|
|
static object *
|
1992-08-09 09:55:27 -03:00
|
|
|
posix_waitpid(self, args)
|
1991-06-03 09:42:10 -03:00
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
#ifdef NO_WAITPID
|
1992-08-09 09:55:27 -03:00
|
|
|
err_setstr(PosixError,
|
|
|
|
"posix.waitpid() not supported on this system");
|
|
|
|
return NULL;
|
1991-06-03 09:42:10 -03:00
|
|
|
#else
|
1992-08-09 09:55:27 -03:00
|
|
|
int pid, options, sts;
|
|
|
|
if (!getargs(args, "(ii)", &pid, &options))
|
|
|
|
return NULL;
|
|
|
|
BGN_SAVE
|
|
|
|
pid = waitpid(pid, &sts, options);
|
|
|
|
END_SAVE
|
|
|
|
if (pid == -1)
|
|
|
|
return posix_error();
|
|
|
|
else
|
|
|
|
return mkvalue("ii", pid, sts);
|
1991-06-03 09:42:10 -03:00
|
|
|
#endif
|
1992-08-09 09:55:27 -03:00
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_wait(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
int pid, sts;
|
|
|
|
if (args != NULL)
|
|
|
|
return posix_waitpid(self, args); /* BW compat */
|
|
|
|
BGN_SAVE
|
|
|
|
pid = wait(&sts);
|
|
|
|
END_SAVE
|
1991-06-03 09:42:10 -03:00
|
|
|
if (pid == -1)
|
|
|
|
return posix_error();
|
1992-08-09 09:55:27 -03:00
|
|
|
else
|
|
|
|
return mkvalue("ii", pid, sts);
|
1991-06-03 09:42:10 -03:00
|
|
|
}
|
|
|
|
|
|
|
|
#endif /* MSDOS */
|
|
|
|
|
1990-10-14 09:07:46 -03:00
|
|
|
static object *
|
|
|
|
posix_lstat(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
return posix_do_stat(self, args, lstat);
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_readlink(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
1992-02-05 07:15:54 -04:00
|
|
|
#ifdef NO_LSTAT
|
|
|
|
err_setstr(PosixError, "readlink not implemented on this system");
|
|
|
|
return NULL;
|
|
|
|
#else
|
1990-10-14 09:07:46 -03:00
|
|
|
char buf[1024]; /* XXX Should use MAXPATHLEN */
|
1992-01-27 12:51:30 -04:00
|
|
|
char *path;
|
1990-10-14 09:07:46 -03:00
|
|
|
int n;
|
1993-11-05 06:15:19 -04:00
|
|
|
if (!getargs(args, "s", &path))
|
1990-10-14 09:07:46 -03:00
|
|
|
return NULL;
|
1992-08-05 16:58:53 -03:00
|
|
|
BGN_SAVE
|
1992-03-27 13:22:31 -04:00
|
|
|
n = readlink(path, buf, (int) sizeof buf);
|
1992-08-05 16:58:53 -03:00
|
|
|
END_SAVE
|
1990-10-14 09:07:46 -03:00
|
|
|
if (n < 0)
|
|
|
|
return posix_error();
|
|
|
|
return newsizedstringobject(buf, n);
|
1992-02-05 07:15:54 -04:00
|
|
|
#endif
|
1990-10-14 09:07:46 -03:00
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_symlink(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
1992-02-05 07:15:54 -04:00
|
|
|
#ifdef NO_LSTAT
|
|
|
|
err_setstr(PosixError, "symlink not implemented on this system");
|
|
|
|
return NULL;
|
|
|
|
#else
|
1990-10-14 09:07:46 -03:00
|
|
|
return posix_2str(args, symlink);
|
1992-02-05 07:15:54 -04:00
|
|
|
#endif
|
1990-10-14 09:07:46 -03:00
|
|
|
}
|
|
|
|
|
|
|
|
|
1992-04-05 11:25:30 -03:00
|
|
|
#ifdef DO_TIMES
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_times(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
struct tms t;
|
|
|
|
clock_t c;
|
|
|
|
if (!getnoarg(args))
|
|
|
|
return NULL;
|
|
|
|
errno = 0;
|
|
|
|
c = times(&t);
|
1993-05-17 05:34:16 -03:00
|
|
|
if (c == (clock_t) -1)
|
|
|
|
return posix_error();
|
1993-01-21 12:07:51 -04:00
|
|
|
return mkvalue("dddd",
|
|
|
|
(double)t.tms_utime / HZ,
|
|
|
|
(double)t.tms_stime / HZ,
|
|
|
|
(double)t.tms_cutime / HZ,
|
|
|
|
(double)t.tms_cstime / HZ);
|
1992-04-05 11:25:30 -03:00
|
|
|
}
|
|
|
|
|
1992-09-13 17:07:29 -03:00
|
|
|
#endif /* DO_TIMES */
|
|
|
|
|
|
|
|
#ifdef DO_PG
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_setsid(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
if (!getnoarg(args))
|
|
|
|
return NULL;
|
1993-05-17 05:34:16 -03:00
|
|
|
if (setsid() < 0)
|
|
|
|
return posix_error();
|
1992-09-13 17:07:29 -03:00
|
|
|
INCREF(None);
|
|
|
|
return None;
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_setpgid(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
int pid, pgrp;
|
|
|
|
if (!getargs(args, "(ii)", &pid, &pgrp))
|
|
|
|
return NULL;
|
1993-05-17 05:34:16 -03:00
|
|
|
if (setpgid(pid, pgrp) < 0)
|
|
|
|
return posix_error();
|
1992-09-13 17:07:29 -03:00
|
|
|
INCREF(None);
|
|
|
|
return None;
|
|
|
|
}
|
|
|
|
|
1992-09-17 14:54:56 -03:00
|
|
|
static object *
|
|
|
|
posix_tcgetpgrp(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
int fd, pgid;
|
|
|
|
if (!getargs(args, "i", &fd))
|
|
|
|
return NULL;
|
|
|
|
pgid = tcgetpgrp(fd);
|
1993-05-17 05:34:16 -03:00
|
|
|
if (pgid < 0)
|
|
|
|
return posix_error();
|
1992-09-17 14:54:56 -03:00
|
|
|
return newintobject((long)pgid);
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_tcsetpgrp(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
int fd, pgid;
|
|
|
|
if (!getargs(args, "(ii)", &fd, &pgid))
|
|
|
|
return NULL;
|
1993-05-17 05:34:16 -03:00
|
|
|
if (tcsetpgrp(fd, pgid) < 0)
|
|
|
|
return posix_error();
|
1992-09-17 14:54:56 -03:00
|
|
|
INCREF(None);
|
|
|
|
return None;
|
|
|
|
}
|
|
|
|
|
1992-09-13 17:07:29 -03:00
|
|
|
#endif /* DO_PG */
|
1992-04-05 11:25:30 -03:00
|
|
|
|
1993-05-17 05:34:16 -03:00
|
|
|
/* Functions acting on file descriptors */
|
|
|
|
|
1993-06-17 09:35:49 -03:00
|
|
|
static object *
|
1993-05-17 05:34:16 -03:00
|
|
|
posix_open(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
char *file;
|
|
|
|
int flag;
|
|
|
|
int mode = 0777;
|
|
|
|
int fd;
|
|
|
|
if (!getargs(args, "(si)", &file, &flag)) {
|
|
|
|
err_clear();
|
|
|
|
if (!getargs(args, "(sii)", &file, &flag, &mode))
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
BGN_SAVE
|
|
|
|
fd = open(file, flag, mode);
|
|
|
|
END_SAVE
|
|
|
|
if (fd < 0)
|
|
|
|
return posix_error();
|
|
|
|
return newintobject((long)fd);
|
|
|
|
}
|
|
|
|
|
1993-06-17 09:35:49 -03:00
|
|
|
static object *
|
1993-05-17 05:34:16 -03:00
|
|
|
posix_close(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
int fd, res;
|
|
|
|
if (!getargs(args, "i", &fd))
|
|
|
|
return NULL;
|
|
|
|
BGN_SAVE
|
|
|
|
res = close(fd);
|
|
|
|
END_SAVE
|
|
|
|
if (res < 0)
|
|
|
|
return posix_error();
|
|
|
|
INCREF(None);
|
|
|
|
return None;
|
|
|
|
}
|
|
|
|
|
1993-06-17 09:35:49 -03:00
|
|
|
static object *
|
1993-05-17 05:34:16 -03:00
|
|
|
posix_dup(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
int fd;
|
|
|
|
if (!getargs(args, "i", &fd))
|
|
|
|
return NULL;
|
|
|
|
BGN_SAVE
|
|
|
|
fd = dup(fd);
|
|
|
|
END_SAVE
|
|
|
|
if (fd < 0)
|
|
|
|
return posix_error();
|
|
|
|
return newintobject((long)fd);
|
|
|
|
}
|
|
|
|
|
1993-06-17 09:35:49 -03:00
|
|
|
static object *
|
1993-05-17 05:34:16 -03:00
|
|
|
posix_dup2(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
int fd, fd2, res;
|
|
|
|
if (!getargs(args, "(ii)", &fd, &fd2))
|
|
|
|
return NULL;
|
|
|
|
BGN_SAVE
|
|
|
|
res = dup2(fd, fd2);
|
|
|
|
END_SAVE
|
|
|
|
if (res < 0)
|
|
|
|
return posix_error();
|
|
|
|
INCREF(None);
|
|
|
|
return None;
|
|
|
|
}
|
|
|
|
|
1993-06-17 09:35:49 -03:00
|
|
|
static object *
|
1993-05-17 05:34:16 -03:00
|
|
|
posix_lseek(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
int fd, how;
|
|
|
|
long pos, res;
|
|
|
|
if (!getargs(args, "(ili)", &fd, &pos, &how))
|
|
|
|
return NULL;
|
|
|
|
#ifdef SEEK_SET
|
|
|
|
/* Turn 0, 1, 2 into SEEK_{SET,CUR,END} */
|
|
|
|
switch (how) {
|
|
|
|
case 0: how = SEEK_SET; break;
|
|
|
|
case 1: how = SEEK_CUR; break;
|
|
|
|
case 2: how = SEEK_END; break;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
BGN_SAVE
|
|
|
|
res = lseek(fd, pos, how);
|
|
|
|
END_SAVE
|
|
|
|
if (res < 0)
|
|
|
|
return posix_error();
|
|
|
|
return newintobject(res);
|
|
|
|
}
|
|
|
|
|
1993-06-17 09:35:49 -03:00
|
|
|
static object *
|
1993-05-17 05:34:16 -03:00
|
|
|
posix_read(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
int fd, size;
|
|
|
|
object *buffer;
|
|
|
|
if (!getargs(args, "(ii)", &fd, &size))
|
|
|
|
return NULL;
|
|
|
|
buffer = newsizedstringobject((char *)NULL, size);
|
|
|
|
if (buffer == NULL)
|
|
|
|
return NULL;
|
|
|
|
BGN_SAVE
|
|
|
|
size = read(fd, getstringvalue(buffer), size);
|
|
|
|
END_SAVE
|
|
|
|
if (size < 0) {
|
|
|
|
DECREF(buffer);
|
|
|
|
return posix_error();
|
|
|
|
}
|
|
|
|
resizestring(&buffer, size);
|
|
|
|
return buffer;
|
|
|
|
}
|
|
|
|
|
1993-06-17 09:35:49 -03:00
|
|
|
static object *
|
1993-05-17 05:34:16 -03:00
|
|
|
posix_write(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
int fd, size;
|
|
|
|
char *buffer;
|
|
|
|
if (!getargs(args, "(is#)", &fd, &buffer, &size))
|
|
|
|
return NULL;
|
|
|
|
BGN_SAVE
|
|
|
|
size = write(fd, buffer, size);
|
|
|
|
END_SAVE
|
|
|
|
if (size < 0)
|
|
|
|
return posix_error();
|
|
|
|
return newintobject((long)size);
|
|
|
|
}
|
|
|
|
|
1993-06-17 09:35:49 -03:00
|
|
|
static object *
|
1993-05-17 05:34:16 -03:00
|
|
|
posix_fstat(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
int fd;
|
|
|
|
struct stat st;
|
|
|
|
int res;
|
|
|
|
if (!getargs(args, "i", &fd))
|
|
|
|
return NULL;
|
|
|
|
BGN_SAVE
|
|
|
|
res = fstat(fd, &st);
|
|
|
|
END_SAVE
|
|
|
|
if (res != 0)
|
|
|
|
return posix_error();
|
|
|
|
return mkvalue("(llllllllll)",
|
|
|
|
(long)st.st_mode,
|
|
|
|
(long)st.st_ino,
|
|
|
|
(long)st.st_dev,
|
|
|
|
(long)st.st_nlink,
|
|
|
|
(long)st.st_uid,
|
|
|
|
(long)st.st_gid,
|
|
|
|
(long)st.st_size,
|
|
|
|
(long)st.st_atime,
|
|
|
|
(long)st.st_mtime,
|
|
|
|
(long)st.st_ctime);
|
|
|
|
}
|
|
|
|
|
|
|
|
static object *
|
|
|
|
posix_fdopen(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
extern int fclose PROTO((FILE *));
|
|
|
|
int fd;
|
|
|
|
char *mode;
|
|
|
|
FILE *fp;
|
|
|
|
if (!getargs(args, "(is)", &fd, &mode))
|
|
|
|
return NULL;
|
|
|
|
BGN_SAVE
|
|
|
|
fp = fdopen(fd, mode);
|
|
|
|
END_SAVE
|
|
|
|
if (fp == NULL)
|
|
|
|
return posix_error();
|
|
|
|
/* From now on, ignore SIGPIPE and let the error checking
|
|
|
|
do the work. */
|
|
|
|
(void) signal(SIGPIPE, SIG_IGN);
|
|
|
|
return newopenfileobject(fp, "(fdopen)", mode, fclose);
|
|
|
|
}
|
|
|
|
|
|
|
|
#ifndef MSDOS
|
1993-06-17 09:35:49 -03:00
|
|
|
static object *
|
1993-05-17 05:34:16 -03:00
|
|
|
posix_pipe(self, args)
|
|
|
|
object *self;
|
|
|
|
object *args;
|
|
|
|
{
|
|
|
|
int fds[2];
|
|
|
|
int res;
|
|
|
|
if (!getargs(args, ""))
|
|
|
|
return NULL;
|
|
|
|
BGN_SAVE
|
|
|
|
res = pipe(fds);
|
|
|
|
END_SAVE
|
|
|
|
if (res != 0)
|
|
|
|
return posix_error();
|
|
|
|
return mkvalue("(ii)", fds[0], fds[1]);
|
|
|
|
}
|
|
|
|
#endif /* MSDOS */
|
1992-04-05 11:25:30 -03:00
|
|
|
|
1990-10-14 09:07:46 -03:00
|
|
|
static struct methodlist posix_methods[] = {
|
|
|
|
{"chdir", posix_chdir},
|
|
|
|
{"chmod", posix_chmod},
|
|
|
|
{"getcwd", posix_getcwd},
|
1991-04-08 18:01:03 -03:00
|
|
|
#ifndef MSDOS
|
1990-10-14 09:07:46 -03:00
|
|
|
{"link", posix_link},
|
1991-04-08 18:01:03 -03:00
|
|
|
#endif
|
1990-10-14 09:07:46 -03:00
|
|
|
{"listdir", posix_listdir},
|
1992-02-05 07:15:54 -04:00
|
|
|
{"lstat", posix_lstat},
|
1990-10-14 09:07:46 -03:00
|
|
|
{"mkdir", posix_mkdir},
|
1993-01-09 13:18:52 -04:00
|
|
|
#ifndef MSDOS
|
|
|
|
{"nice", posix_nice},
|
|
|
|
#endif
|
1992-02-05 07:15:54 -04:00
|
|
|
{"readlink", posix_readlink},
|
1990-10-14 09:07:46 -03:00
|
|
|
{"rename", posix_rename},
|
|
|
|
{"rmdir", posix_rmdir},
|
|
|
|
{"stat", posix_stat},
|
1992-02-05 07:15:54 -04:00
|
|
|
{"symlink", posix_symlink},
|
1990-10-14 09:07:46 -03:00
|
|
|
{"system", posix_system},
|
1991-04-08 18:01:03 -03:00
|
|
|
#ifndef MSDOS
|
1990-10-14 09:07:46 -03:00
|
|
|
{"umask", posix_umask},
|
1992-02-05 07:15:54 -04:00
|
|
|
#endif
|
|
|
|
#ifndef NO_UNAME
|
|
|
|
{"uname", posix_uname},
|
1991-04-08 18:01:03 -03:00
|
|
|
#endif
|
1990-10-14 09:07:46 -03:00
|
|
|
{"unlink", posix_unlink},
|
1991-04-08 17:59:13 -03:00
|
|
|
{"utime", posix_utime},
|
1992-04-05 11:25:30 -03:00
|
|
|
#ifdef DO_TIMES
|
|
|
|
{"times", posix_times},
|
|
|
|
#endif
|
1992-02-05 07:15:54 -04:00
|
|
|
|
1991-06-03 09:42:10 -03:00
|
|
|
#ifndef MSDOS
|
|
|
|
{"_exit", posix__exit},
|
1993-10-22 11:26:06 -03:00
|
|
|
{"execv", posix_execv},
|
1993-11-05 06:15:19 -04:00
|
|
|
{"execve", posix_execve},
|
1991-06-03 09:42:10 -03:00
|
|
|
{"fork", posix_fork},
|
1992-05-15 08:05:24 -03:00
|
|
|
{"getegid", posix_getegid},
|
|
|
|
{"geteuid", posix_geteuid},
|
|
|
|
{"getgid", posix_getgid},
|
1991-06-03 09:42:10 -03:00
|
|
|
{"getpid", posix_getpid},
|
1991-06-04 17:23:49 -03:00
|
|
|
{"getpgrp", posix_getpgrp},
|
1991-06-03 09:42:10 -03:00
|
|
|
{"getppid", posix_getppid},
|
1992-05-15 08:05:24 -03:00
|
|
|
{"getuid", posix_getuid},
|
1991-06-03 09:42:10 -03:00
|
|
|
{"kill", posix_kill},
|
1991-06-04 16:40:25 -03:00
|
|
|
{"popen", posix_popen},
|
1992-09-13 17:07:29 -03:00
|
|
|
{"setpgrp", posix_setpgrp},
|
1991-06-03 09:42:10 -03:00
|
|
|
{"wait", posix_wait},
|
1992-08-09 09:55:27 -03:00
|
|
|
{"waitpid", posix_waitpid},
|
1991-06-03 09:42:10 -03:00
|
|
|
#endif
|
1992-02-05 07:15:54 -04:00
|
|
|
|
1992-09-13 17:07:29 -03:00
|
|
|
#ifdef DO_PG
|
|
|
|
{"setsid", posix_setsid},
|
|
|
|
{"setpgid", posix_setpgid},
|
1992-09-17 14:54:56 -03:00
|
|
|
{"tcgetpgrp", posix_tcgetpgrp},
|
|
|
|
{"tcsetpgrp", posix_tcsetpgrp},
|
1992-09-13 17:07:29 -03:00
|
|
|
#endif
|
|
|
|
|
1993-05-17 05:34:16 -03:00
|
|
|
{"open", posix_open},
|
|
|
|
{"close", posix_close},
|
|
|
|
{"dup", posix_dup},
|
|
|
|
{"dup2", posix_dup2},
|
|
|
|
{"lseek", posix_lseek},
|
|
|
|
{"read", posix_read},
|
|
|
|
{"write", posix_write},
|
|
|
|
{"fstat", posix_fstat},
|
|
|
|
{"fdopen", posix_fdopen},
|
|
|
|
#ifndef MSDOS
|
|
|
|
{"pipe", posix_pipe},
|
|
|
|
#endif
|
|
|
|
|
1990-10-14 09:07:46 -03:00
|
|
|
{NULL, NULL} /* Sentinel */
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
initposix()
|
|
|
|
{
|
|
|
|
object *m, *d, *v;
|
|
|
|
|
|
|
|
m = initmodule("posix", posix_methods);
|
|
|
|
d = getmoduledict(m);
|
|
|
|
|
|
|
|
/* Initialize posix.environ dictionary */
|
|
|
|
v = convertenviron();
|
|
|
|
if (v == NULL || dictinsert(d, "environ", v) != 0)
|
|
|
|
fatal("can't define posix.environ");
|
|
|
|
DECREF(v);
|
|
|
|
|
|
|
|
/* Initialize posix.error exception */
|
|
|
|
PosixError = newstringobject("posix.error");
|
|
|
|
if (PosixError == NULL || dictinsert(d, "error", PosixError) != 0)
|
|
|
|
fatal("can't define posix.error");
|
|
|
|
}
|
1991-04-08 18:01:03 -03:00
|
|
|
|
1991-06-04 16:40:25 -03:00
|
|
|
|
|
|
|
/* Function used elsewhere to get a file's modification time */
|
|
|
|
|
|
|
|
long
|
|
|
|
getmtime(path)
|
|
|
|
char *path;
|
|
|
|
{
|
|
|
|
struct stat st;
|
|
|
|
if (stat(path, &st) != 0)
|
|
|
|
return -1;
|
|
|
|
else
|
|
|
|
return st.st_mtime;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1993-07-09 07:51:31 -03:00
|
|
|
#ifdef TURBO_C
|
1991-04-08 18:01:03 -03:00
|
|
|
|
|
|
|
/* A small "compatibility library" for TurboC under MS-DOS */
|
|
|
|
|
1993-07-09 07:51:31 -03:00
|
|
|
//#include <sir.h>
|
1991-04-08 18:01:03 -03:00
|
|
|
#include <io.h>
|
|
|
|
#include <dos.h>
|
|
|
|
#include <fcntl.h>
|
|
|
|
|
|
|
|
int
|
|
|
|
chmod(path, mode)
|
|
|
|
char *path;
|
|
|
|
int mode;
|
|
|
|
{
|
|
|
|
return _chmod(path, 1, mode);
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
|
|
|
utime(path, times)
|
|
|
|
char *path;
|
|
|
|
time_t times[2];
|
|
|
|
{
|
|
|
|
struct date dt;
|
|
|
|
struct time tm;
|
|
|
|
struct ftime dft;
|
|
|
|
int fh;
|
|
|
|
unixtodos(tv[0].tv_sec,&dt,&tm);
|
|
|
|
dft.ft_tsec = tm.ti_sec; dft.ft_min = tm.ti_min;
|
|
|
|
dft.ft_hour = tm.ti_hour; dft.ft_day = dt.da_day;
|
|
|
|
dft.ft_month = dt.da_mon;
|
|
|
|
dft.ft_year = (dt.da_year - 1980); /* this is for TC library */
|
|
|
|
|
1992-01-27 12:51:30 -04:00
|
|
|
if ((fh = open(path,O_RDWR)) < 0)
|
1991-04-08 18:01:03 -03:00
|
|
|
return posix_error(); /* can't open file to set time */
|
|
|
|
if (setftime(fh,&dft) < 0)
|
|
|
|
{
|
|
|
|
close(fh);
|
|
|
|
return posix_error();
|
|
|
|
}
|
|
|
|
close(fh); /* close the temp handle */
|
|
|
|
}
|
|
|
|
|
1993-07-09 07:51:31 -03:00
|
|
|
#endif /* TURBO_C */
|