Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv30725/modules
Modified Files:
linux.wrti universal.wrti wisptyp.wrti
Log Message:
Replaced |sys:raw:execve| by Worth-written |sys:ns:execve|.
Index: linux.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/linux.wrti,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- linux.wrti 18 Sep 2002 21:00:49 -0000 1.21
+++ linux.wrti 18 Sep 2002 21:07:35 -0000 1.22
@@ -55,6 +55,7 @@
(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.execve (conform %ebx %ecx %edx) 11 \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))
Index: universal.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/universal.wrti,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- universal.wrti 18 Sep 2002 21:03:20 -0000 1.19
+++ universal.wrti 18 Sep 2002 21:07:35 -0000 1.20
@@ -90,6 +90,12 @@
(macro 2drop
drop drop)
+ (macro 2swap
+ (copy 3)
+ (delete 4)
+ (copy 3)
+ (delete 4))
+
(macro 2rot
(copy 5)
(delete 6)
Index: wisptyp.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/wisptyp.wrti,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- wisptyp.wrti 18 Sep 2002 20:58:04 -0000 1.14
+++ wisptyp.wrti 18 Sep 2002 21:07:35 -0000 1.15
@@ -42,6 +42,15 @@
(macro untag-node
-16 and)
+ (macro require-vector
+ dup get-type NC_VECTOR <> if 'WB_vector_huh swap go-raise then)
+
+ (macro vector-length
+ cell+ cell@)
+
+ (macro vector-data
+ 2 cells + cell@)
+
(macro require-c8string
dup get-type NC_C8STRING <> if 'WB_c8string_huh swap go-raise then)
|
