[Wisp-cvs] wisp/src/builtin dictbase.wisp,1.240,1.241 filing.wisp,1.105,1.106 sys.wisp,1.111,1.112

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

Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv7142/src/builtin

Modified Files:
	dictbase.wisp filing.wisp sys.wisp 
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: dictbase.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/dictbase.wisp,v
retrieving revision 1.240
retrieving revision 1.241
diff -u -d -r1.240 -r1.241
--- dictbase.wisp	7 Sep 2002 22:02:42 -0000	1.240
+++ dictbase.wisp	7 Sep 2002 22:03:56 -0000	1.241
@@ -142,16 +142,13 @@
 (local string? (asm NN_string_huh))
 (local symbol? (asm NN_symbol_huh))
 (local sys:exit (asm NN_sys_exit))
-(local sys:fstat (asm NN_sys_fstat))
 (local sys:getegid (asm NN_sys_getegid))
 (local sys:geteuid (asm NN_sys_geteuid))
 (local sys:getgid (asm NN_sys_getgid))
 (local sys:getpid (asm NN_sys_getpid))
 (local sys:getppid (asm NN_sys_getppid))
 (local sys:getuid (asm NN_sys_getuid))
-(local sys:lstat (asm NN_sys_lstat))
 (local sys:select (asm NN_sys_select))
-(local sys:stat (asm NN_sys_stat))
 (local sys:sync (asm NN_sys_sync))
 (local truncate (asm NN_truncate))
 (local type-of (asm NN_type_of))

Index: filing.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/filing.wisp,v
retrieving revision 1.105
retrieving revision 1.106
diff -u -d -r1.105 -r1.106

Index: sys.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/sys.wisp,v
retrieving revision 1.111
retrieving revision 1.112
diff -u -d -r1.111 -r1.112
--- sys.wisp	7 Sep 2002 22:00:41 -0000	1.111
+++ sys.wisp	7 Sep 2002 22:03:56 -0000	1.112
@@ -34,17 +34,20 @@
                (dup fd)
                (dup2 oldfd newfd)
                (fork)
+               (fstat fd)
                (ftruncate fd len)
                (getpgid pid)
                (kill pid sig)
                (link oldname newname)
                (listen s backlog)
                (lseek fd ofs whence)
+               (lstat filename)
                (mkdir name mode)
                (pipe)
                (rename oldname newname)
                (setpgid pid pgid)
                (setsid)
+               (stat filename)
                (symlink oldname newname)
                (truncate filename len)
                (unlink name)))))