Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv7142/src
Modified Files:
essence.c sys.c
Log Message:
Replaced the C-written |sys:fstat|, |sys:lstat|, and |sys:stat| with the Worth-written |sys:ns:fstat|, |sys:ns:lstat|, and |sys:ns:stat|.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.196
retrieving revision 1.197
diff -u -d -r1.196 -r1.197
--- essence.c 7 Sep 2002 22:02:40 -0000 1.196
+++ essence.c 7 Sep 2002 22:03:51 -0000 1.197
@@ -376,32 +376,33 @@
NN_symbol_huh,
NN_sys_exit,
NN_sys_for_dir_entries,
- NN_sys_fstat,
NN_sys_getegid,
NN_sys_geteuid,
NN_sys_getgid,
NN_sys_getpid,
NN_sys_getppid,
NN_sys_getuid,
- NN_sys_lstat,
[...1137 lines suppressed...]
struct cons conses [] = {
@@ -2070,13 +2076,13 @@
[328]{car:CH('C'),cdr:BC 327},
[329]{car:CH('A'),cdr:BC 328},
[330]{car:CH('e'),cdr:BC 329},
-[331]{car:B 678,cdr:Q},
-[332]{car:B 677,cdr:BC 331},
-[333]{car:B 679,cdr:Q},
+[331]{car:B 681,cdr:Q},
+[332]{car:B 680,cdr:BC 331},
+[333]{car:B 682,cdr:Q},
};
/* The root node of the compiled builtin library */
struct node *
-builtin_root = B 681;
+builtin_root = B 684;
/* essence.c ends here */
Index: sys.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/sys.c,v
retrieving revision 1.127
retrieving revision 1.128
diff -u -d -r1.127 -r1.128
--- sys.c 30 Jul 2002 21:44:00 -0000 1.127
+++ sys.c 7 Sep 2002 22:03:56 -0000 1.128
@@ -89,54 +89,6 @@
return encui (res);
}
-// The result is a list:
-// (dev ino mode nlink uid gid rdev size blksize blocks atime mtime ctime)
-struct node *stat2node (struct stat *st)
-{
- struct node *res = NULL;
- res = mk_cons (encui (st->st_ctime), res);
- res = mk_cons (encui (st->st_mtime), res);
- res = mk_cons (encui (st->st_atime), res);
- res = mk_cons (encui (st->st_blocks), res);
- res = mk_cons (encui (st->st_blksize), res);
- res = mk_cons (encui (st->st_size), res);
- res = mk_cons (encui (st->st_rdev), res);
- res = mk_cons (encui (st->st_gid), res);
- res = mk_cons (encui (st->st_uid), res);
- res = mk_cons (encui (st->st_nlink), res);
- res = mk_cons (encui (st->st_mode), res);
- res = mk_cons (encui (st->st_ino), res);
- res = mk_cons (encui (st->st_dev), res);
- return res;
-}
-
-struct node *sys_stat (struct node *x)
-{
- struct stat buf;
-
- if (stat (ws2zt (x), &buf) == -1)
- return mk_syserr (x);
- return stat2node (&buf);
-}
-
-struct node *sys_lstat (struct node *x)
-{
- struct stat buf;
-
- if (lstat (ws2zt (x), &buf) == -1)
- return mk_syserr (x);
- return stat2node (&buf);
-}
-
-struct node *sys_fstat (struct node *x)
-{
- struct stat buf;
-
- if (fstat (decui (x), &buf) == -1)
- return mk_syserr (x);
- return stat2node (&buf);
-}
-
_syscall3(int, getdents, uint, fd, struct dirent *, dirp, uint, count);
struct node *sys_for_dir_entries (struct node *proc, struct node *fildes)
|
