Thread: [Wisp-cvs] wisp/src/native sys.s,1.8,1.9 sys.wth,1.9,1.10
Status: Alpha
Brought to you by:
digg
Menu
▾
▴
wisp-cvs
|
From: <di...@us...> - 2002-09-18 20:58:11
|
Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv26569/src/native
Modified Files:
sys.s sys.wth
Log Message:
Moved file descriptor set manipulation from the Wisp level to the Worth level.
Index: sys.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.s,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- sys.s 18 Sep 2002 20:55:17 -0000 1.8
+++ sys.s 18 Sep 2002 20:58:07 -0000 1.9
@@ -1,5 +1,117 @@
.section .text
.align 16
+N_sys_fd_isset:
+.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,104
+.long N_sys_fd_isset.L1
+.byte 83,233
+.long decui$1 - (.+4)
+.byte 80,61,0,4,0,0,15,140,13,0,0,0,88,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,91,91,137,217,131,225,3,80,83,83,133,201,15,132,8,0,0,0,88,106
+.byte 19,233,22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0
+.byte 88,139,0,80,88,61,9,0,0,0,15,132,12,0,0,0,88,104
+.long WB_c8string_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,4,139,27,80,184,128,0,0,0,57,216,15,132,12,0,0
+.byte 0,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,8,139,0,83,61,9,0,0,0,15,133,4,0,0,0,88,139,0
+.byte 80,88,91,137,217,193,233,3,131,225,252,131,227,31,137,199,15,163
+.byte 28,57,15,146,192,15,182,192,133,192,15,132,7,0,0,0,106,11,233,2,0
+.byte 0,0,106,19,88,195
+.global N_sys_fd_isset,NN_sys_fd_isset,N_sys_fd_isset.L1
+.equiv NN_sys_fd_isset, N_sys_fd_isset + 1
+.equiv N_sys_fd_isset.L1, N_sys_fd_isset + 35
+.section .text
+.align 16
+N_sys_fd_clr:
+.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,104
+.long N_sys_fd_clr.L1
+.byte 83,233
+.long decui$1 - (.+4)
+.byte 80,61,0,4,0,0,15,140,13,0,0,0,88,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,91,91,137,217,131,225,3,80,83,83,133,201,15,132,8,0,0,0,88,106
+.byte 19,233,22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0
+.byte 88,139,0,80,88,61,9,0,0,0,15,132,12,0,0,0,88,104
+.long WB_c8string_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,4,139,27,80,184,128,0,0,0,57,216,15,132,12,0,0
+.byte 0,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,8,139,0,83,61,9,0,0,0,15,133,4,0,0,0,88,139,0
+.byte 80,88,91,137,217,193,233,3,131,225,252,131,227,31,15,179,28,1,184
+.byte 27,0,0,0,195
+.global N_sys_fd_clr,NN_sys_fd_clr,N_sys_fd_clr.L1
+.equiv NN_sys_fd_clr, N_sys_fd_clr + 1
+.equiv N_sys_fd_clr.L1, N_sys_fd_clr + 35
+.section .text
+.align 16
+N_sys_fd_set:
+.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,104
+.long N_sys_fd_set.L1
+.byte 83,233
+.long decui$1 - (.+4)
+.byte 80,61,0,4,0,0,15,140,13,0,0,0,88,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,91,91,137,217,131,225,3,80,83,83,133,201,15,132,8,0,0,0,88,106
+.byte 19,233,22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0
+.byte 88,139,0,80,88,61,9,0,0,0,15,132,12,0,0,0,88,104
+.long WB_c8string_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,4,139,27,80,184,128,0,0,0,57,216,15,132,12,0,0
+.byte 0,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,8,139,0,83,61,9,0,0,0,15,133,4,0,0,0,88,139,0
+.byte 80,88,91,137,217,193,233,3,131,225,252,131,227,31,15,171,28,1,184
+.byte 27,0,0,0,195
+.global N_sys_fd_set,NN_sys_fd_set,N_sys_fd_set.L1
+.equiv NN_sys_fd_set, N_sys_fd_set + 1
+.equiv N_sys_fd_set.L1, N_sys_fd_set + 35
+.section .text
+.align 16
+N_sys_fd_zero:
+.byte 144,81,133,201,15,133,17,0,0,0,88,184,0,4,0,0,13,7,0,0,0,80,233
+.byte 168,0,0,0,88,80,61,1,0,0,0,15,132,8,0,0,0,88,137,193,233
+.long N_signal_argcount - (.+4)
+.byte 88,88,137,195,131,227,3,80,80,133,219,15,132,8,0,0,0,88,106,19,233
+.byte 22,0,0,0,88,80,133,192,15,133,8,0,0,0,88,106,19,233,4,0,0,0,88,139
+.byte 0,80,88,61,9,0,0,0,15,132,12,0,0,0,88,104
+.long WB_c8string_huh
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,4,139,27,80,184,128,0,0,0,57,216,15,132,12,0,0
+.byte 0,88,104
+.long WB_range
+.byte 80,233
+.long raise$2 - (.+4)
+.byte 88,137,195,131,195,8,139,0,83,61,9,0,0,0,15,133,4,0,0,0,88,139,0
+.byte 80,184,0,0,0,0,185,32,0,0,0,91,137,223,252,243,171,106,27,88,195
+.global N_sys_fd_zero,NN_sys_fd_zero
+.equiv NN_sys_fd_zero, N_sys_fd_zero + 1
+.section .text
+.align 16
N_sys_low_tcsetattr:
.byte 144,81,131,249,3,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
@@ -23,14 +135,14 @@
.long WB_c8string_huh
.byte 80,233
.long raise$2 - (.+4)
-.byte 88,137,195,131,195,4,139,27,80,131,251,60,15,132,12,0,0,0,88,104
+.byte 88,137,195,131,195,4,139,27,80,184,60,0,0,0,57,216,15,132,12,0,0,0
+.byte 88,104
.long WB_range
.byte 80,233
.long raise$2 - (.+4)
.byte 88,137,195,131,195,8,139,0,83,61,9,0,0,0,15,133,4,0,0,0,88,139,0
.byte 80,88,137,194,88,137,193,88,137,195,184,54,0,0,0,205,128,80,233
.long encsi$1 - (.+4)
-.byte 88,195
.global N_sys_low_tcsetattr,NN_sys_low_tcsetattr,N_sys_low_tcsetattr.L1
.equiv NN_sys_low_tcsetattr, N_sys_low_tcsetattr + 1
.equiv N_sys_low_tcsetattr.L1, N_sys_low_tcsetattr + 36
@@ -38,7 +150,7 @@
.align 16
N_sys_low_tcgetattr:
.byte 144,81,133,201,15,133,17,0,0,0,88,184,224,1,0,0,13,7,0,0,0,80,233
-.byte 185,0,0,0,88,80,61,2,0,0,0,15,132,8,0,0,0,88,137,193,233
+.byte 189,0,0,0,88,80,61,2,0,0,0,15,132,8,0,0,0,88,137,193,233
.long N_signal_argcount - (.+4)
.byte 88,88,91,80,104
.long N_sys_low_tcgetattr.L3
@@ -50,7 +162,8 @@
.long WB_c8string_huh
.byte 80,233
.long raise$2 - (.+4)
-.byte 88,137,195,131,195,4,139,27,80,131,251,60,15,132,12,0,0,0,88,104
+.byte 88,137,195,131,195,4,139,27,80,184,60,0,0,0,57,216,15,132,12,0,0,0
+.byte 88,104
.long WB_range
.byte 80,233
.long raise$2 - (.+4)
Index: sys.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/sys.wth,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- sys.wth 18 Sep 2002 20:55:17 -0000 1.9
+++ sys.wth 18 Sep 2002 20:58:07 -0000 1.10
@@ -276,11 +276,8 @@
else
dup 2 = argc drop
swap decui swap require-c8string
- dup string-length sizeof.struct-termios <> if
- 'WB_range swap go-raise
- else
- string-data TCGETS swap sys.ioctl (flush) 'encsi$1 jump
- then
+ sizeof.struct-termios require-string-length
+ string-data TCGETS swap sys.ioctl (flush) 'encsi$1 jump
then)
(native sys_low_tcsetattr dup 3 = argc drop
@@ -299,10 +296,33 @@
then
then
rot require-c8string
- dup string-length sizeof.struct-termios <> if
- 'WB_range swap go-raise
+ sizeof.struct-termios require-string-length
+ string-data sys.ioctl (flush) 'encsi$1 jump)
+
+(native sys_fd_zero
+ dup 0 = if
+ drop sizeof.fd_set tag-fixnum
else
- string-data sys.ioctl (flush) 'encsi$1 jump
+ dup 1 = argc drop
+ require-c8string
+ sizeof.fd_set require-string-length
+ string-data FD_ZERO
+ VOID
then)
+
+(native sys_fd_set dup 2 = argc drop
+ swap dup decui dup FD_SETSIZE >= if drop 'WB_range swap go-raise then
+ nip swap require-c8string sizeof.fd_set require-string-length
+ string-data FD_SET VOID)
+
+(native sys_fd_clr dup 2 = argc drop
+ swap dup decui dup FD_SETSIZE >= if drop 'WB_range swap go-raise then
+ nip swap require-c8string sizeof.fd_set require-string-length
+ string-data FD_CLR VOID)
+
+(native sys_fd_isset dup 2 = argc drop
+ swap dup decui dup FD_SETSIZE >= if drop 'WB_range swap go-raise then
+ nip swap require-c8string sizeof.fd_set require-string-length
+ string-data FD_ISSET ->wisp-bool)
; vim: ft=worth
|
×
Want the latest updates on software, tech news, and AI?
Get latest updates about software, tech news, and AI from SourceForge directly in your inbox once a month.
Thanks for helping keep SourceForge clean.
X