[Wisp-cvs] wisp/src essence.c,1.196,1.197 sys.c,1.127,1.128

[<di...@us...>]

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)