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)))))
|
