[Wisp-cvs] wisp/modules linux.wrti,1.10,1.11

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

Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv29208/modules

Modified Files:
	linux.wrti 
Log Message:
Implemented |sys:sync| and dropped |sys:raw:accept|, |sys:raw:chdir|, |sys:raw:chmod|, |sys:raw:ftruncate|, |sys:raw:link|, |sys:raw:mkdir|, |sys:raw:pipe|, |sys:raw:rename|, |sys:raw:symlink|, |sys:raw:truncate|, and |sys:raw:unlink|.

Index: linux.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/linux.wrti,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- linux.wrti	4 Sep 2002 14:26:24 -0000	1.10
+++ linux.wrti	4 Sep 2002 14:28:27 -0000	1.11
@@ -35,9 +35,24 @@
     ,(add %esp 4)
     (believe %eax))
 
+  ; |sys.pipe| returns ( reading-part writing-part ) or ( -errno )
+  (macro sys.pipe
+    (conform)
+    ,(sub %esp 8) ; allocate space for filedes[2]
+    ,(mov %ebx %esp)
+    42 \sys (believe %eax)
+    dup 0 < if ; failed?
+      nip nip ; clean up
+    else
+      drop ; drop the result
+      swap ; account for downwards-growing stack
+    then)
+
   (macro sys.fork (conform) 2 \sys (believe %eax))
   (macro sys.close (conform %ebx) 6 \sys (believe %eax))
   (macro sys.creat (conform %ebx %ecx) 8 \sys (believe %eax))
+  (macro sys.link (conform %ebx %ecx) 9 \sys (believe %eax))
+  (macro sys.unlink (conform %ebx) 10 \sys (believe %eax))
   (macro sys.chdir (conform %ebx) 12 \sys (believe %eax))
   ; |sys.time| takes no argument and returns the time
   (macro sys.time (conform) ,(mov %ebx 0) 13 \sys (believe %eax))