[Wisp-cvs] wisp/src/native sys.s,1.1,1.2 sys.wth,1.1,1.2 sys_raw.nasm,1.43,1.44 sysconst.inc,1.10,1.
Status: Alpha
Brought to you by:
digg
|
From: <di...@us...> - 2002-09-04 14:28:41
|
Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv29208/src/native
Modified Files:
sys.s sys.wth sys_raw.nasm sysconst.inc
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: sys.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.s,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- sys.s 4 Sep 2002 14:26:57 -0000 1.1
+++ sys.s 4 Sep 2002 14:28:37 -0000 1.2
@@ -1,22 +1,124 @@
.section .text
.align 16
-N_sys_ns_kill:
+N_sys_ns_unlink:
+.byte 144,81,131,249,1,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,232
+.long ws2zt - (.+4)
+.byte 91,137,195,184,10,0,0,0,205,128,80,233
+.long encsi$1 - (.+4)
+.global N_sys_ns_unlink,NN_sys_ns_unlink
+.equiv NN_sys_ns_unlink, N_sys_ns_unlink + 1
+.section .text
+.align 16
+N_sys_ns_truncate:
+.byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,88,91,80,83,232
+.long ws2zt - (.+4)
+.byte 91,91,80,104
+.long N_sys_ns_truncate.L1
+.byte 83,233
+.long decsi$1 - (.+4)
+.byte 137,193,88,137,195,184,92,0,0,0,205,128,80,233
+.long encsi$1 - (.+4)
+.global N_sys_ns_truncate,NN_sys_ns_truncate,N_sys_ns_truncate.L1
+.equiv NN_sys_ns_truncate, N_sys_ns_truncate + 1
+.equiv N_sys_ns_truncate.L1, N_sys_ns_truncate + 43
+.section .text
+.align 16
+N_sys_ns_symlink:
+.byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,88,91,80,83,232
+.long ws2zt - (.+4)
+.byte 91,91,80,83,232
+.long ws2zt - (.+4)
+.byte 91,137,193,88,137,195,184,83,0,0,0,205,128,80,233
+.long encsi$1 - (.+4)
+.global N_sys_ns_symlink,NN_sys_ns_symlink
+.equiv NN_sys_ns_symlink, N_sys_ns_symlink + 1
+.section .text
+.align 16
+N_sys_ns_setsid:
+.byte 144,81,133,201,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,184,66,0,0,0,205,128,80,233
+.long encsi$1 - (.+4)
+.global N_sys_ns_setsid,NN_sys_ns_setsid
+.equiv NN_sys_ns_setsid, N_sys_ns_setsid + 1
+.section .text
+.align 16
+N_sys_ns_setpgid:
.byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
.byte 88,88,91,80,104
-.long N_sys_ns_kill.L1
+.long N_sys_ns_setpgid.L1
.byte 83,233
.long decsi$1 - (.+4)
.byte 91,80,104
-.long N_sys_ns_kill.L2
+.long N_sys_ns_setpgid.L2
+.byte 83,233
+.long decsi$1 - (.+4)
+.byte 137,193,88,137,195,184,57,0,0,0,205,128,80,233
+.long encsi$1 - (.+4)
+.global N_sys_ns_setpgid,NN_sys_ns_setpgid,N_sys_ns_setpgid.L1,N_sys_ns_setpgid.L2
+.equiv NN_sys_ns_setpgid, N_sys_ns_setpgid + 1
+.equiv N_sys_ns_setpgid.L1, N_sys_ns_setpgid + 34
+.equiv N_sys_ns_setpgid.L2, N_sys_ns_setpgid + 47
+.section .text
+.align 16
+N_sys_ns_rename:
+.byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,88,91,80,83,232
+.long ws2zt - (.+4)
+.byte 91,91,80,83,232
+.long ws2zt - (.+4)
+.byte 91,137,193,88,137,195,184,38,0,0,0,205,128,80,233
+.long encsi$1 - (.+4)
+.global N_sys_ns_rename,NN_sys_ns_rename
+.equiv NN_sys_ns_rename, N_sys_ns_rename + 1
+.section .text
+.align 16
+N_sys_ns_pipe:
+.byte 144,81,133,201,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,131,236,8,137,227,184,42,0,0,0,205,128,80,133,192,15,141,9,0,0
+.byte 0,88,91,91,80,233,5,0,0,0,88,88,91,80,83,88,80,133,192,15,141,5,0
+.byte 0,0,233
+.long encsi$1 - (.+4)
+.byte 88,91,80,104
+.long N_sys_ns_pipe.L5
+.byte 83,233
+.long encui$1 - (.+4)
+.byte 91,80,104
+.long N_sys_ns_pipe.L6
+.byte 83,233
+.long encui$1 - (.+4)
+.byte 80,233
+.long cons$2 - (.+4)
+.byte 88,195
+.global N_sys_ns_pipe,NN_sys_ns_pipe,N_sys_ns_pipe.L5,N_sys_ns_pipe.L6
+.equiv NN_sys_ns_pipe, N_sys_ns_pipe + 1
+.equiv N_sys_ns_pipe.L5, N_sys_ns_pipe + 83
+.equiv N_sys_ns_pipe.L6, N_sys_ns_pipe + 96
+.section .text
+.align 16
+N_sys_ns_mkdir:
+.byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,88,91,80,83,232
+.long ws2zt - (.+4)
+.byte 91,91,80,104
+.long N_sys_ns_mkdir.L1
.byte 83,233
.long decui$1 - (.+4)
-.byte 137,193,88,137,195,184,37,0,0,0,205,128,80,233
+.byte 137,193,88,137,195,184,39,0,0,0,205,128,80,233
.long encsi$1 - (.+4)
-.global N_sys_ns_kill,NN_sys_ns_kill,N_sys_ns_kill.L1,N_sys_ns_kill.L2
-.equiv NN_sys_ns_kill, N_sys_ns_kill + 1
-.equiv N_sys_ns_kill.L1, N_sys_ns_kill + 34
-.equiv N_sys_ns_kill.L2, N_sys_ns_kill + 47
+.global N_sys_ns_mkdir,NN_sys_ns_mkdir,N_sys_ns_mkdir.L1
+.equiv NN_sys_ns_mkdir, N_sys_ns_mkdir + 1
+.equiv N_sys_ns_mkdir.L1, N_sys_ns_mkdir + 43
.section .text
.align 16
N_sys_ns_listen:
@@ -38,42 +140,36 @@
.equiv N_sys_ns_listen.L2, N_sys_ns_listen + 47
.section .text
.align 16
-N_sys_ns_dup2:
+N_sys_ns_link:
.byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
-.byte 88,88,91,80,104
-.long N_sys_ns_dup2.L1
-.byte 83,233
-.long decui$1 - (.+4)
-.byte 91,80,104
-.long N_sys_ns_dup2.L2
-.byte 83,233
-.long decui$1 - (.+4)
-.byte 137,193,88,137,195,184,63,0,0,0,205,128,80,233
+.byte 88,88,91,80,83,232
+.long ws2zt - (.+4)
+.byte 91,91,80,83,232
+.long ws2zt - (.+4)
+.byte 91,137,193,88,137,195,184,9,0,0,0,205,128,80,233
.long encsi$1 - (.+4)
-.global N_sys_ns_dup2,NN_sys_ns_dup2,N_sys_ns_dup2.L1,N_sys_ns_dup2.L2
-.equiv NN_sys_ns_dup2, N_sys_ns_dup2 + 1
-.equiv N_sys_ns_dup2.L1, N_sys_ns_dup2 + 34
-.equiv N_sys_ns_dup2.L2, N_sys_ns_dup2 + 47
+.global N_sys_ns_link,NN_sys_ns_link
+.equiv NN_sys_ns_link, N_sys_ns_link + 1
.section .text
.align 16
-N_sys_ns_setpgid:
+N_sys_ns_kill:
.byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
.byte 88,88,91,80,104
-.long N_sys_ns_setpgid.L1
+.long N_sys_ns_kill.L1
.byte 83,233
.long decsi$1 - (.+4)
.byte 91,80,104
-.long N_sys_ns_setpgid.L2
+.long N_sys_ns_kill.L2
.byte 83,233
-.long decsi$1 - (.+4)
-.byte 137,193,88,137,195,184,57,0,0,0,205,128,80,233
+.long decui$1 - (.+4)
+.byte 137,193,88,137,195,184,37,0,0,0,205,128,80,233
.long encsi$1 - (.+4)
-.global N_sys_ns_setpgid,NN_sys_ns_setpgid,N_sys_ns_setpgid.L1,N_sys_ns_setpgid.L2
-.equiv NN_sys_ns_setpgid, N_sys_ns_setpgid + 1
-.equiv N_sys_ns_setpgid.L1, N_sys_ns_setpgid + 34
-.equiv N_sys_ns_setpgid.L2, N_sys_ns_setpgid + 47
+.global N_sys_ns_kill,NN_sys_ns_kill,N_sys_ns_kill.L1,N_sys_ns_kill.L2
+.equiv NN_sys_ns_kill, N_sys_ns_kill + 1
+.equiv N_sys_ns_kill.L1, N_sys_ns_kill + 34
+.equiv N_sys_ns_kill.L2, N_sys_ns_kill + 47
.section .text
.align 16
N_sys_ns_getpgid:
@@ -90,6 +186,53 @@
.equiv N_sys_ns_getpgid.L1, N_sys_ns_getpgid + 32
.section .text
.align 16
+N_sys_ns_ftruncate:
+.byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,88,91,80,104
+.long N_sys_ns_ftruncate.L1
+.byte 83,233
+.long decui$1 - (.+4)
+.byte 91,80,104
+.long N_sys_ns_ftruncate.L2
+.byte 83,233
+.long decsi$1 - (.+4)
+.byte 137,193,88,137,195,184,93,0,0,0,205,128,80,233
+.long encsi$1 - (.+4)
+.global N_sys_ns_ftruncate,NN_sys_ns_ftruncate,N_sys_ns_ftruncate.L1,N_sys_ns_ftruncate.L2
+.equiv NN_sys_ns_ftruncate, N_sys_ns_ftruncate + 1
+.equiv N_sys_ns_ftruncate.L1, N_sys_ns_ftruncate + 34
+.equiv N_sys_ns_ftruncate.L2, N_sys_ns_ftruncate + 47
+.section .text
+.align 16
+N_sys_ns_fork:
+.byte 144,81,133,201,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,184,2,0,0,0,205,128,80,233
+.long encsi$1 - (.+4)
+.global N_sys_ns_fork,NN_sys_ns_fork
+.equiv NN_sys_ns_fork, N_sys_ns_fork + 1
+.section .text
+.align 16
+N_sys_ns_dup2:
+.byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,88,91,80,104
+.long N_sys_ns_dup2.L1
+.byte 83,233
+.long decui$1 - (.+4)
+.byte 91,80,104
+.long N_sys_ns_dup2.L2
+.byte 83,233
+.long decui$1 - (.+4)
+.byte 137,193,88,137,195,184,63,0,0,0,205,128,80,233
+.long encsi$1 - (.+4)
+.global N_sys_ns_dup2,NN_sys_ns_dup2,N_sys_ns_dup2.L1,N_sys_ns_dup2.L2
+.equiv NN_sys_ns_dup2, N_sys_ns_dup2 + 1
+.equiv N_sys_ns_dup2.L1, N_sys_ns_dup2 + 34
+.equiv N_sys_ns_dup2.L2, N_sys_ns_dup2 + 47
+.section .text
+.align 16
N_sys_ns_dup:
.byte 144,81,131,249,1,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
@@ -118,49 +261,66 @@
.equiv N_sys_ns_close.L1, N_sys_ns_close + 32
.section .text
.align 16
-N_sys_ns_fork:
-.byte 144,81,133,201,15,132,8,0,0,0,88,137,193,233
+N_sys_ns_chmod:
+.byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
-.byte 88,184,2,0,0,0,205,128,80,233
+.byte 88,88,91,80,83,232
+.long ws2zt - (.+4)
+.byte 91,91,80,104
+.long N_sys_ns_chmod.L1
+.byte 83,233
+.long decui$1 - (.+4)
+.byte 137,193,88,137,195,184,15,0,0,0,205,128,80,233
.long encsi$1 - (.+4)
-.global N_sys_ns_fork,NN_sys_ns_fork
-.equiv NN_sys_ns_fork, N_sys_ns_fork + 1
+.global N_sys_ns_chmod,NN_sys_ns_chmod,N_sys_ns_chmod.L1
+.equiv NN_sys_ns_chmod, N_sys_ns_chmod + 1
+.equiv N_sys_ns_chmod.L1, N_sys_ns_chmod + 43
.section .text
.align 16
-N_sys_ns_setsid:
-.byte 144,81,133,201,15,132,8,0,0,0,88,137,193,233
+N_sys_ns_chdir:
+.byte 144,81,131,249,1,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
-.byte 88,184,66,0,0,0,205,128,80,233
+.byte 88,232
+.long ws2zt - (.+4)
+.byte 91,137,195,184,12,0,0,0,205,128,80,233
.long encsi$1 - (.+4)
-.global N_sys_ns_setsid,NN_sys_ns_setsid
-.equiv NN_sys_ns_setsid, N_sys_ns_setsid + 1
+.global N_sys_ns_chdir,NN_sys_ns_chdir
+.equiv NN_sys_ns_chdir, N_sys_ns_chdir + 1
.section .text
.align 16
-N_sys_exit:
-.byte 144,81,133,201,15,133,5,0,0,0,88,64,106,7,80,88,80,61,1,0,0,0,15
-.byte 132,8,0,0,0,88,137,193,233
+N_sys_sync:
+.byte 144,81,133,201,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
-.byte 88,88,80,104
-.long N_sys_exit.L2
-.byte 80,233
-.long decui$1 - (.+4)
-.byte 80,61,0,1,0,0,15,140,13,0,0,0,88,88,104
-.long WB_range
-.byte 80,233
-.long raise$2 - (.+4)
-.byte 88,137,195,184,1,0,0,0,205,128
-.global N_sys_exit,NN_sys_exit,N_sys_exit.L2
-.equiv NN_sys_exit, N_sys_exit + 1
-.equiv N_sys_exit.L2, N_sys_exit + 50
+.byte 88,184,36,0,0,0,205,128,184,27,0,0,0,195
+.global N_sys_sync,NN_sys_sync
+.equiv NN_sys_sync, N_sys_sync + 1
.section .text
.align 16
-N_sys_getegid:
+N_sys_getuid:
.byte 144,81,133,201,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
-.byte 88,184,50,0,0,0,205,128,80,233
+.byte 88,184,24,0,0,0,205,128,80,233
.long encui$1 - (.+4)
-.global N_sys_getegid,NN_sys_getegid
-.equiv NN_sys_getegid, N_sys_getegid + 1
+.global N_sys_getuid,NN_sys_getuid
+.equiv NN_sys_getuid, N_sys_getuid + 1
+.section .text
+.align 16
+N_sys_getppid:
+.byte 144,81,133,201,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,184,64,0,0,0,205,128,80,233
+.long encui$1 - (.+4)
+.global N_sys_getppid,NN_sys_getppid
+.equiv NN_sys_getppid, N_sys_getppid + 1
+.section .text
+.align 16
+N_sys_getpid:
+.byte 144,81,133,201,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,184,20,0,0,0,205,128,80,233
+.long encui$1 - (.+4)
+.global N_sys_getpid,NN_sys_getpid
+.equiv NN_sys_getpid, N_sys_getpid + 1
.section .text
.align 16
N_sys_getgid:
@@ -181,31 +341,31 @@
.equiv NN_sys_geteuid, N_sys_geteuid + 1
.section .text
.align 16
-N_sys_getuid:
-.byte 144,81,133,201,15,132,8,0,0,0,88,137,193,233
-.long N_signal_argcount - (.+4)
-.byte 88,184,24,0,0,0,205,128,80,233
-.long encui$1 - (.+4)
-.global N_sys_getuid,NN_sys_getuid
-.equiv NN_sys_getuid, N_sys_getuid + 1
-.section .text
-.align 16
-N_sys_getppid:
+N_sys_getegid:
.byte 144,81,133,201,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
-.byte 88,184,64,0,0,0,205,128,80,233
+.byte 88,184,50,0,0,0,205,128,80,233
.long encui$1 - (.+4)
-.global N_sys_getppid,NN_sys_getppid
-.equiv NN_sys_getppid, N_sys_getppid + 1
+.global N_sys_getegid,NN_sys_getegid
+.equiv NN_sys_getegid, N_sys_getegid + 1
.section .text
.align 16
-N_sys_getpid:
-.byte 144,81,133,201,15,132,8,0,0,0,88,137,193,233
+N_sys_exit:
+.byte 144,81,133,201,15,133,5,0,0,0,88,64,106,7,80,88,80,61,1,0,0,0,15
+.byte 132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
-.byte 88,184,20,0,0,0,205,128,80,233
-.long encui$1 - (.+4)
-.global N_sys_getpid,NN_sys_getpid
-.equiv NN_sys_getpid, N_sys_getpid + 1
+.byte 88,88,80,104
+.long N_sys_exit.L2
+.byte 80,233
+.long decui$1 - (.+4)
+.byte 80,61,0,1,0,0,15,140,13,0,0,0,88,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,184,1,0,0,0,205,128
+.global N_sys_exit,NN_sys_exit,N_sys_exit.L2
+.equiv NN_sys_exit, N_sys_exit + 1
+.equiv N_sys_exit.L2, N_sys_exit + 50
.section .text
.align 16
N_unix_time:
Index: sys.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.wth,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- sys.wth 4 Sep 2002 14:26:57 -0000 1.1
+++ sys.wth 4 Sep 2002 14:28:37 -0000 1.2
@@ -10,25 +10,27 @@
(include wisptyp)
(extern WB_range)
+(extern cons$2)
(extern decsi$1)
(extern decui$1)
(extern encsi$1)
(extern encui$1)
+(extern ws2zt)
(macro decsi <: swap (flush) 'decsi$1 jump :>)
(macro decui <: swap (flush) 'decui$1 jump :>)
+(macro encsi <: swap (flush) 'encsi$1 jump :>)
+(macro encui <: swap (flush) 'encui$1 jump :>)
+(macro ws->zt (flush) ws2zt (believe %eax) nip)
(native unix_time dup 0 = argc drop
sys.time (flush) 'encsi$1 jump)
-(native sys_getpid dup 0 = argc drop
- sys.getpid (flush) 'encui$1 jump)
-
-(native sys_getppid dup 0 = argc drop
- sys.getppid (flush) 'encui$1 jump)
+(native sys_exit dup 0 = if ZERO swap 1+ then dup 1 = argc drop
+ dup decui dup 256 >= if drop 'WB_range swap go-raise then sys.exit)
-(native sys_getuid dup 0 = argc drop
- sys.getuid (flush) 'encui$1 jump)
+(native sys_getegid dup 0 = argc drop
+ sys.getegid (flush) 'encui$1 jump)
(native sys_geteuid dup 0 = argc drop
sys.geteuid (flush) 'encui$1 jump)
@@ -36,21 +38,27 @@
(native sys_getgid dup 0 = argc drop
sys.getgid (flush) 'encui$1 jump)
-(native sys_getegid dup 0 = argc drop
- sys.getegid (flush) 'encui$1 jump)
+(native sys_getpid dup 0 = argc drop
+ sys.getpid (flush) 'encui$1 jump)
-(native sys_exit dup 0 = if ZERO swap 1+ then dup 1 = argc drop
- dup decui dup 256 >= if drop 'WB_range swap go-raise then sys.exit)
+(native sys_getppid dup 0 = argc drop
+ sys.getppid (flush) 'encui$1 jump)
+
+(native sys_getuid dup 0 = argc drop
+ sys.getuid (flush) 'encui$1 jump)
+
+(native sys_sync dup 0 = argc drop
+ sys.sync VOID)
;; The sys:ns:foo functions differ from sys:foo only in
;; that they do not themselves raise signals on error.
;; They return negative values instead.
-(native sys_ns_setsid dup 0 = argc drop
- sys.setsid (flush) 'encsi$1 jump)
+(native sys_ns_chdir dup 1 = argc drop
+ ws->zt sys.chdir (flush) 'encsi$1 jump)
-(native sys_ns_fork dup 0 = argc drop
- sys.fork (flush) 'encsi$1 jump)
+(native sys_ns_chmod dup 2 = argc drop
+ swap ws->zt swap decui sys.chmod (flush) 'encsi$1 jump)
(native sys_ns_close dup 1 = argc drop
decui sys.close (flush) 'encsi$1 jump)
@@ -58,19 +66,53 @@
(native sys_ns_dup dup 1 = argc drop
decui sys.dup (flush) 'encsi$1 jump)
+(native sys_ns_dup2 dup 2 = argc drop
+ swap decui swap decui sys.dup2 (flush) 'encsi$1 jump)
+
+(native sys_ns_fork dup 0 = argc drop
+ sys.fork (flush) 'encsi$1 jump)
+
+(native sys_ns_ftruncate dup 2 = argc drop
+ swap decui swap decsi sys.ftruncate (flush) 'encsi$1 jump)
+
(native sys_ns_getpgid dup 1 = argc drop
decsi sys.getpgid (flush) 'encsi$1 jump)
-(native sys_ns_setpgid dup 2 = argc drop
- swap decsi swap decsi sys.setpgid (flush) 'encsi$1 jump)
+(native sys_ns_kill dup 2 = argc drop
+ swap decsi swap decui sys.kill (flush) 'encsi$1 jump)
-(native sys_ns_dup2 dup 2 = argc drop
- swap decui swap decui sys.dup2 (flush) 'encsi$1 jump)
+(native sys_ns_link dup 2 = argc drop
+ swap ws->zt swap ws->zt sys.link (flush) 'encsi$1 jump)
(native sys_ns_listen dup 2 = argc drop
swap decui swap decui sys.listen (flush) 'encsi$1 jump)
-(native sys_ns_kill dup 2 = argc drop
- swap decsi swap decui sys.kill (flush) 'encsi$1 jump)
+(native sys_ns_mkdir dup 2 = argc drop
+ swap ws->zt swap decui sys.mkdir (flush) 'encsi$1 jump)
+
+(native sys_ns_pipe dup 0 = argc drop
+ sys.pipe dup 0 < if
+ (flush) 'encsi$1 jump
+ else
+ (flush) swap encui swap encui (flush) 'cons$2 jump
+ then)
+
+(native sys_ns_rename dup 2 = argc drop
+ swap ws->zt swap ws->zt sys.rename (flush) 'encsi$1 jump)
+
+(native sys_ns_setpgid dup 2 = argc drop
+ swap decsi swap decsi sys.setpgid (flush) 'encsi$1 jump)
+
+(native sys_ns_setsid dup 0 = argc drop
+ sys.setsid (flush) 'encsi$1 jump)
+
+(native sys_ns_symlink dup 2 = argc drop
+ swap ws->zt swap ws->zt sys.symlink (flush) 'encsi$1 jump)
+
+(native sys_ns_truncate dup 2 = argc drop
+ swap ws->zt swap decsi sys.truncate (flush) 'encsi$1 jump)
+
+(native sys_ns_unlink dup 1 = argc drop
+ ws->zt sys.unlink (flush) 'encsi$1 jump)
; vim: ft=worth
Index: sys_raw.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys_raw.nasm,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -d -r1.43 -r1.44
--- sys_raw.nasm 4 Sep 2002 14:26:57 -0000 1.43
+++ sys_raw.nasm 4 Sep 2002 14:28:37 -0000 1.44
@@ -15,27 +15,13 @@
%endrep
%endmacro
-native_syscall chdir, 1
-native_syscall chmod, 2
-native_syscall close, 1
native_syscall execve, 3
native_syscall fcntl, 3
-native_syscall ftruncate, 2
native_syscall getcwd, 2
native_syscall ioctl, 3
-native_syscall kill, 2
-native_syscall link, 2
native_syscall lseek, 3
-native_syscall mkdir, 2
native_syscall open, 3
-native_syscall pipe, 1, untag ebx ; so that a cons can be used
native_syscall read, 3
-native_syscall rename, 2
-native_syscall symlink, 2
-native_syscall truncate, 2
-native_syscall unlink, 1
native_syscall waitpid, 3, untag ecx ; so that a cons can be used
native_syscall write, 3
native_syscall nanosleep, 2, {untag ebx, ecx}
-
-native_socketcall accept, 3
Index: sysconst.inc
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sysconst.inc,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- sysconst.inc 8 Aug 2002 16:46:39 -0000 1.10
+++ sysconst.inc 4 Sep 2002 14:28:37 -0000 1.11
@@ -42,12 +42,6 @@
%else ; LINUX
%error Unknown system?
%endif ; LINUX
-%ifdef LINUX
-%define CCC_sktnr_listen 4
-%define CCC_sktnr_accept 5
-%else ; LINUX
-%error Unknown system?
-%endif ; LINUX
%define CCC_termios_NCCS 32
%ifdef LINUX
%define CCC_termios_cc_VINTR 0
|