wisp-cvs Mailing List for Wisp interpreter (Page 25)
Status: Alpha
Brought to you by:
digg
Menu
▾
▴
wisp-cvs — Automatic announcements of commits to the CVS repository
You can subscribe to this list here.
| 2002 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(30) |
Sep
(312) |
Oct
|
Nov
|
Dec
|
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2003 |
Jan
(5) |
Feb
(131) |
Mar
(17) |
Apr
(184) |
May
(252) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(2) |
Nov
|
Dec
|
|
From: <di...@us...> - 2002-09-26 18:22:50
|
Update of /cvsroot/wisp/wisp/tools
In directory usw-pr-cvs1:/tmp/cvs-serv29289/tools
Modified Files:
worth
Log Message:
Dropped the (binary ...) Worth construct.
Index: worth
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/worth,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- worth 26 Sep 2002 18:22:38 -0000 1.33
+++ worth 26 Sep 2002 18:22:47 -0000 1.34
@@ -640,29 +640,6 @@
pos
neg)
suppress?)))
- ((binary) (if (not (cons? (cdr word)))
- (raise 'worth-word? word))
- (my (oper . code) (cdr word)
- (if (and (cons? regstack)
- (integer? (car regstack))
- (cons? (cdr regstack))
- (integer? (cadr regstack)))
- (my (b a . rest) regstack
- (set! regstack
- (cons
- (case oper
- ((+) (+ a b))
- ((-) (- a b))
- ((*) (* a b))
- ((/) (quotient a b))
- ((mod) (remainder a b))
- ((lshift) (<< (reduce-to-utetra a)
- b))
- ((rshift) (>> (reduce-to-utetra a)
- b))
- (else (raise 'binary-operator? oper)))
- rest)))
- (process-word-list code #t))))
((conform) (my reqs (cdr word)
(cond
((null? reqs) (flush))
@@ -716,6 +693,31 @@
(else (raise 'worth-word? word))))
(else
(cond
+ ((and (memq word '(+ - * / mod lshift rshift))
+ (cons? regstack)
+ (integer? (car regstack))
+ (cons? (cdr regstack))
+ (integer? (cadr regstack)))
+ (case word
+ ((+ - * / mod lshift rshift)
+ (my (b a . rest) regstack
+ (set! regstack
+ (cons
+ (case oper
+ ((+) (+ a b))
+ ((-) (- a b))
+ ((*) (* a b))
+ ((/) (quotient a b))
+ ((mod) (remainder a b))
+ ((lshift) (reduce-to-utetra
+ (<< (reduce-to-utetra a)
+ b)))
+ ((rshift) (>> (reduce-to-utetra a)
+ b))
+ (else (raise 'binary-operator? oper)))
+ rest))))
+ (else
+ (raise 'huh? word))))
((eq? (word-class word) 'broketed)
(cons! synstack word))
((assq word macro-box[])
|
|
From: <di...@us...> - 2002-09-26 18:22:49
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv29289/modules
Modified Files:
universal.wrti
Log Message:
Dropped the (binary ...) Worth construct.
Index: universal.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/universal.wrti,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- universal.wrti 26 Sep 2002 18:21:38 -0000 1.23
+++ universal.wrti 26 Sep 2002 18:22:46 -0000 1.24
@@ -345,26 +345,6 @@
nip)
;; Arithmetics
- (macro +
- (binary +
- (->ureg 1)
- (->/expr 0)
- ,(add ,1 ,0)
- drop))
-
- (macro -
- (binary -
- (->ureg 1)
- (->/expr 0)
- ,(sub ,1 ,0)
- drop))
-
- (macro *
- (binary *
- (->ureg 1)
- (->/expr 0)
- ,(imul ,1 ,0)
- drop))
(macro /mod
(conform %eax %ebx)
@@ -372,13 +352,14 @@
,(idiv %ebx)
(believe %edx %eax))
- (macro /
- (binary /
- /mod nip))
+ ;; These *names* are special: if the translator determines that these
+ ;; operations can be performed at compile-time, it will happily do so.
- (macro mod
- (binary mod
- /mod drop))
+ (macro + (->ureg 1) (->/expr 0) ,(add ,1 ,0) drop)
+ (macro - (->ureg 1) (->/expr 0) ,(sub ,1 ,0) drop)
+ (macro * (->ureg 1) (->/expr 0) ,(imul ,1 ,0) drop)
+ (macro / /mod nip)
+ (macro mod /mod drop)
(macro negate
(->ureg 0)
|
|
From: <di...@us...> - 2002-09-26 18:22:41
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv28730/modules
Modified Files:
universal.wrti wisptyp.wrti
Log Message:
Made Worth's syntax stack visible to the source being translated.
Index: universal.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/universal.wrti,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- universal.wrti 18 Sep 2002 21:15:12 -0000 1.22
+++ universal.wrti 26 Sep 2002 18:21:38 -0000 1.23
@@ -113,7 +113,8 @@
(if-empty
(,(ret))
(,(jmp ,0)))
- ,(\skip))
+ ,(\skip)
+ drop)
(macro execute
(stack<=! 1)
@@ -529,8 +530,51 @@
(macro max
2dup < if swap then drop swap)
- (macro unless
- 0 = if)
+ ;; Syntax
+
+ (macro if
+ 0 = ; booleanize and negate the condition
+ 1 stack=! ; force calling convention
+ gen-label dup ->synstack <if> ; generate the label
+ ?jump) ; jump as necessary
+ (macro else
+ <if> annihilate ; check context
+ 0 stack=! ; force calling convention
+ gen-label dup ->synstack
+ jump
+ <-synstack <-synstack swap ->synstack <if> ; fetch the else-label
+ stick-label)
+ (macro then
+ <if> annihilate ; check context
+ 0 stack=! ; force calling convention
+ <-synstack
+ stick-label)
+
+ (macro begin
+ 0 stack=! gen-label dup ->synstack stick-label <begin>)
+ (macro until
+ 0 = ; booleanize and negate the condition
+ 1 stack=! ; force calling convention
+ <begin> annihilate ; check context
+ <-synstack ?jump) ; jump
+ (macro while
+ 0 = ; booleanize and negate the condition
+ 1 stack=! ; force calling convention
+ <begin> annihilate ; check context
+ gen-label dup ->synstack ; generate exit label
+ ?jump ; jump
+ <while>) ; establish new context
+ (macro repeat
+ 0 stack=! <while> annihilate
+ <-synstack ; exit label
+ <-synstack ; start label
+ jump
+ stick-label)
+
+ (macro fra
+ gen-label dup ->synstack <fra>)
+ (macro here
+ <fra> annihilate <-synstack stick-label)
;; Memory calculations
Index: wisptyp.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/wisptyp.wrti,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- wisptyp.wrti 18 Sep 2002 21:15:13 -0000 1.18
+++ wisptyp.wrti 26 Sep 2002 18:21:38 -0000 1.19
@@ -147,10 +147,10 @@
,(\skip))
(macro <:
- (fra))
+ fra)
(macro :>
- (here) (believe %eax))
+ here (believe %eax))
(extern N_signal_argcount)
|
|
From: <di...@us...> - 2002-09-26 18:22:41
|
Update of /cvsroot/wisp/wisp/src/native In directory usw-pr-cvs1:/tmp/cvs-serv28730/src/native Modified Files: boxes.s cons.s misc.s sys.s vectors.s wstrings.s Log Message: Made Worth's syntax stack visible to the source being translated. Index: boxes.s =================================================================== RCS file: /cvsroot/wisp/wisp/src/native/boxes.s,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- boxes.s 18 Sep 2002 21:18:04 -0000 1.13 +++ boxes.s 26 Sep 2002 18:22:37 -0000 1.14 @@ -10,9 +10,12 @@ .byte 185,1,0,0,0,233 .long slot_accessor_body - (.+4) .byte 61,35,0,0,0,15,133,7,0,0,0,106,11,233,2,0,0,0,106,19,88,195 -.global N_box_empty_huh,NN_box_empty_huh,N_box_empty_huh.L1 +.global N_box_empty_huh,NN_box_empty_huh,N_box_empty_huh.L0,N_box_empty_huh.L1,N_box_empty_huh.L2,N_box_empty_huh.L3 .equiv NN_box_empty_huh, N_box_empty_huh + 1 +.equiv N_box_empty_huh.L0, N_box_empty_huh + 19 .equiv N_box_empty_huh.L1, N_box_empty_huh + 47 +.equiv N_box_empty_huh.L2, N_box_empty_huh + 65 +.equiv N_box_empty_huh.L3, N_box_empty_huh + 67 .section .text .align 16 N_box_empty: @@ -20,8 +23,9 @@ .long N_signal_argcount - (.+4) .byte 88,106,35,185,254,255,255,255,233 .long N_box_ref - (.+4) -.global N_box_empty,NN_box_empty +.global N_box_empty,NN_box_empty,N_box_empty.L0 .equiv NN_box_empty, N_box_empty + 1 +.equiv N_box_empty.L0, N_box_empty + 19 .section .text .align 16 N_box_ref: @@ -31,8 +35,9 @@ .long RT_box .byte 88,137,193,233 .long slot_accessor_body - (.+4) -.global N_box_ref,NN_box_ref +.global N_box_ref,NN_box_ref,N_box_ref.L0 .equiv NN_box_ref, N_box_ref + 1 +.equiv N_box_ref.L0, N_box_ref + 21 .section .text .align 16 box_ref.final: @@ -41,7 +46,8 @@ .byte 80,233 .long raise$2 - (.+4) .byte 88,91,195 -.global box_ref.final +.global box_ref.final,box_ref.final.L0 +.equiv box_ref.final.L0, box_ref.final + 25 .section .text .align 16 N_make_box: @@ -49,8 +55,9 @@ .long RT_box .byte 88,137,193,233 .long record_constructor_body - (.+4) -.global N_make_box,NN_make_box +.global N_make_box,NN_make_box,N_make_box.L0 .equiv NN_make_box, N_make_box + 1 +.equiv N_make_box.L0, N_make_box + 15 .section .text .align 16 N_box_huh: Index: cons.s =================================================================== RCS file: /cvsroot/wisp/wisp/src/native/cons.s,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- cons.s 4 Sep 2002 14:26:57 -0000 1.4 +++ cons.s 26 Sep 2002 18:22:37 -0000 1.5 @@ -5,8 +5,11 @@ .long N_signal_argcount - (.+4) .byte 88,88,53,2,0,0,0,37,7,0,0,0,133,192,15,133,7,0,0,0,106,11,233,2,0 .byte 0,0,106,19,88,195 -.global N_cons_huh,NN_cons_huh +.global N_cons_huh,NN_cons_huh,N_cons_huh.L0,N_cons_huh.L1,N_cons_huh.L2 .equiv NN_cons_huh, N_cons_huh + 1 +.equiv N_cons_huh.L0, N_cons_huh + 19 +.equiv N_cons_huh.L1, N_cons_huh + 46 +.equiv N_cons_huh.L2, N_cons_huh + 48 .section .text .align 16 N_cons: @@ -15,6 +18,7 @@ .byte 88,106,8,232 .long GC_malloc - (.+4) .byte 91,91,137,193,131,193,4,137,25,91,137,24,13,2,0,0,0,195 -.global N_cons,NN_cons,cons$2 +.global N_cons,NN_cons,N_cons.L0,cons$2 .equiv NN_cons, N_cons + 1 +.equiv N_cons.L0, N_cons + 19 .equiv cons$2, N_cons + 20 Index: misc.s =================================================================== RCS file: /cvsroot/wisp/wisp/src/native/misc.s,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- misc.s 18 Sep 2002 21:18:04 -0000 1.13 +++ misc.s 26 Sep 2002 18:22:37 -0000 1.14 @@ -8,9 +8,12 @@ .byte 81,83,233 .long cons$2 - (.+4) .byte 91,80,83,235,224,88,88,195 -.global N_list,NN_list,N_list.L3 +.global N_list,NN_list,N_list.L0,N_list.L1,N_list.L3,N_list.L2 .equiv NN_list, N_list + 1 +.equiv N_list.L0, N_list + 18 +.equiv N_list.L1, N_list + 22 .equiv N_list.L3, N_list + 49 +.equiv N_list.L2, N_list + 54 .section .text .align 16 N_pr_get_environment: @@ -19,8 +22,9 @@ .byte 88,184 .long environment .byte 139,0,195 -.global N_pr_get_environment,NN_pr_get_environment +.global N_pr_get_environment,NN_pr_get_environment,N_pr_get_environment.L0 .equiv NN_pr_get_environment, N_pr_get_environment + 1 +.equiv N_pr_get_environment.L0, N_pr_get_environment + 18 .section .text .align 16 N_pr_get_argument_list: @@ -29,8 +33,9 @@ .byte 88,184 .long argument_list .byte 139,0,195 -.global N_pr_get_argument_list,NN_pr_get_argument_list +.global N_pr_get_argument_list,NN_pr_get_argument_list,N_pr_get_argument_list.L0 .equiv NN_pr_get_argument_list, N_pr_get_argument_list + 1 +.equiv N_pr_get_argument_list.L0, N_pr_get_argument_list + 18 .section .text .align 16 N_new: @@ -54,8 +59,15 @@ .byte 91,75,137,217,233 .long funcall - (.+4) .byte 81,195 -.global N_new,NN_new +.global N_new,NN_new,N_new.L0,N_new.L1,N_new.L3,N_new.L4,N_new.L2,N_new.L5,N_new.L6 .equiv NN_new, N_new + 1 +.equiv N_new.L0, N_new + 18 +.equiv N_new.L1, N_new + 61 +.equiv N_new.L3, N_new + 79 +.equiv N_new.L4, N_new + 83 +.equiv N_new.L2, N_new + 83 +.equiv N_new.L5, N_new + 107 +.equiv N_new.L6, N_new + 140 .section .text .align 16 immediate_return: @@ -77,8 +89,15 @@ .byte 80,233 .long raise$2 - (.+4) .byte 88,195 -.global N_record_type_length,NN_record_type_length +.global N_record_type_length,NN_record_type_length,N_record_type_length.L0,N_record_type_length.L1,N_record_type_length.L3,N_record_type_length.L4,N_record_type_length.L2,N_record_type_length.L5,N_record_type_length.L6 .equiv NN_record_type_length, N_record_type_length + 1 +.equiv N_record_type_length.L0, N_record_type_length + 19 +.equiv N_record_type_length.L1, N_record_type_length + 44 +.equiv N_record_type_length.L3, N_record_type_length + 62 +.equiv N_record_type_length.L4, N_record_type_length + 66 +.equiv N_record_type_length.L2, N_record_type_length + 66 +.equiv N_record_type_length.L5, N_record_type_length + 92 +.equiv N_record_type_length.L6, N_record_type_length + 104 .section .text .align 16 N_pr_record_type_confess_slot: @@ -205,6 +224,8 @@ .byte 88,91,193,224,2,5 .long rvec .byte 91,137,24,184,27,0,0,0,195 -.global N_rvec_set,NN_rvec_set,N_rvec_set.L1 +.global N_rvec_set,NN_rvec_set,N_rvec_set.L0,N_rvec_set.L1,N_rvec_set.L2 .equiv NN_rvec_set, N_rvec_set + 1 +.equiv N_rvec_set.L0, N_rvec_set + 19 .equiv N_rvec_set.L1, N_rvec_set + 37 +.equiv N_rvec_set.L2, N_rvec_set + 60 Index: sys.s =================================================================== RCS file: /cvsroot/wisp/wisp/src/native/sys.s,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- sys.s 18 Sep 2002 21:12:38 -0000 1.13 +++ sys.s 26 Sep 2002 18:22:37 -0000 1.14 @@ -34,8 +34,23 @@ .byte 139,9,137,199,131,239,12,139,63,80,137,250,184,11,0,0,0,205,128,91 .byte 137,220,80,233 .long encsi$1 - (.+4) -.global N_sys_ns_execve,NN_sys_ns_execve +.global N_sys_ns_execve,NN_sys_ns_execve,N_sys_ns_execve.L0,N_sys_ns_execve.L1,N_sys_ns_execve.L3,N_sys_ns_execve.L4,N_sys_ns_execve.L2,N_sys_ns_execve.L5,N_sys_ns_execve.L6,N_sys_ns_execve.L7,N_sys_ns_execve.L8,N_sys_ns_execve.L10,N_sys_ns_execve.L11,N_sys_ns_execve.L9,N_sys_ns_execve.L12,N_sys_ns_execve.L13,N_sys_ns_execve.L14 .equiv NN_sys_ns_execve, N_sys_ns_execve + 1 +.equiv N_sys_ns_execve.L0, N_sys_ns_execve + 19 +.equiv N_sys_ns_execve.L1, N_sys_ns_execve + 76 +.equiv N_sys_ns_execve.L3, N_sys_ns_execve + 94 +.equiv N_sys_ns_execve.L4, N_sys_ns_execve + 98 +.equiv N_sys_ns_execve.L2, N_sys_ns_execve + 98 +.equiv N_sys_ns_execve.L5, N_sys_ns_execve + 122 +.equiv N_sys_ns_execve.L6, N_sys_ns_execve + 144 +.equiv N_sys_ns_execve.L7, N_sys_ns_execve + 189 +.equiv N_sys_ns_execve.L8, N_sys_ns_execve + 234 +.equiv N_sys_ns_execve.L10, N_sys_ns_execve + 252 +.equiv N_sys_ns_execve.L11, N_sys_ns_execve + 256 +.equiv N_sys_ns_execve.L9, N_sys_ns_execve + 256 +.equiv N_sys_ns_execve.L12, N_sys_ns_execve + 280 +.equiv N_sys_ns_execve.L13, N_sys_ns_execve + 295 +.equiv N_sys_ns_execve.L14, N_sys_ns_execve + 338 .section .text .align 16 N_sys_ns_for_dir_entries: @@ -62,11 +77,16 @@ .byte 255,255,88,88,233,121,255,255,255,88,91,91,91,129,196,24,2,0,0,80 .byte 233 .long encsi$1 - (.+4) -.global N_sys_ns_for_dir_entries,NN_sys_ns_for_dir_entries,N_sys_ns_for_dir_entries.L1,N_sys_ns_for_dir_entries.L6,N_sys_ns_for_dir_entries.L7 +.global N_sys_ns_for_dir_entries,NN_sys_ns_for_dir_entries,N_sys_ns_for_dir_entries.L0,N_sys_ns_for_dir_entries.L1,N_sys_ns_for_dir_entries.L2,N_sys_ns_for_dir_entries.L4,N_sys_ns_for_dir_entries.L6,N_sys_ns_for_dir_entries.L7,N_sys_ns_for_dir_entries.L5,N_sys_ns_for_dir_entries.L3 .equiv NN_sys_ns_for_dir_entries, N_sys_ns_for_dir_entries + 1 +.equiv N_sys_ns_for_dir_entries.L0, N_sys_ns_for_dir_entries + 19 .equiv N_sys_ns_for_dir_entries.L1, N_sys_ns_for_dir_entries + 32 +.equiv N_sys_ns_for_dir_entries.L2, N_sys_ns_for_dir_entries + 44 +.equiv N_sys_ns_for_dir_entries.L4, N_sys_ns_for_dir_entries + 76 .equiv N_sys_ns_for_dir_entries.L6, N_sys_ns_for_dir_entries + 123 .equiv N_sys_ns_for_dir_entries.L7, N_sys_ns_for_dir_entries + 151 +.equiv N_sys_ns_for_dir_entries.L5, N_sys_ns_for_dir_entries + 172 +.equiv N_sys_ns_for_dir_entries.L3, N_sys_ns_for_dir_entries + 179 .section .text .align 16 N_sys_ns_select: @@ -139,11 +159,43 @@ .byte 233,5,0,0,0,88,88,88,106,0,88,137,199,88,137,198,88,137,194,88,137 .byte 193,88,137,195,184,142,0,0,0,205,128,131,196,8,80,233 .long encsi$1 - (.+4) -.global N_sys_ns_select,NN_sys_ns_select,N_sys_ns_select.L1,N_sys_ns_select.L31,N_sys_ns_select.L32 +.global N_sys_ns_select,NN_sys_ns_select,N_sys_ns_select.L0,N_sys_ns_select.L1,N_sys_ns_select.L2,N_sys_ns_select.L4,N_sys_ns_select.L6,N_sys_ns_select.L7,N_sys_ns_select.L5,N_sys_ns_select.L8,N_sys_ns_select.L9,N_sys_ns_select.L10,N_sys_ns_select.L3,N_sys_ns_select.L11,N_sys_ns_select.L13,N_sys_ns_select.L15,N_sys_ns_select.L16,N_sys_ns_select.L14,N_sys_ns_select.L17,N_sys_ns_select.L18,N_sys_ns_select.L19,N_sys_ns_select.L12,N_sys_ns_select.L20,N_sys_ns_select.L22,N_sys_ns_select.L24,N_sys_ns_select.L25,N_sys_ns_select.L23,N_sys_ns_select.L26,N_sys_ns_select.L27,N_sys_ns_select.L28,N_sys_ns_select.L21,N_sys_ns_select.L29,N_sys_ns_select.L31,N_sys_ns_select.L32,N_sys_ns_select.L33,N_sys_ns_select.L30,N_sys_ns_select.L34 .equiv NN_sys_ns_select, N_sys_ns_select + 1 +.equiv N_sys_ns_select.L0, N_sys_ns_select + 19 .equiv N_sys_ns_select.L1, N_sys_ns_select + 45 +.equiv N_sys_ns_select.L2, N_sys_ns_select + 68 +.equiv N_sys_ns_select.L4, N_sys_ns_select + 120 +.equiv N_sys_ns_select.L6, N_sys_ns_select + 138 +.equiv N_sys_ns_select.L7, N_sys_ns_select + 142 +.equiv N_sys_ns_select.L5, N_sys_ns_select + 142 +.equiv N_sys_ns_select.L8, N_sys_ns_select + 166 +.equiv N_sys_ns_select.L9, N_sys_ns_select + 200 +.equiv N_sys_ns_select.L10, N_sys_ns_select + 224 +.equiv N_sys_ns_select.L3, N_sys_ns_select + 229 +.equiv N_sys_ns_select.L11, N_sys_ns_select + 232 +.equiv N_sys_ns_select.L13, N_sys_ns_select + 283 +.equiv N_sys_ns_select.L15, N_sys_ns_select + 301 +.equiv N_sys_ns_select.L16, N_sys_ns_select + 305 +.equiv N_sys_ns_select.L14, N_sys_ns_select + 305 +.equiv N_sys_ns_select.L17, N_sys_ns_select + 329 +.equiv N_sys_ns_select.L18, N_sys_ns_select + 363 +.equiv N_sys_ns_select.L19, N_sys_ns_select + 387 +.equiv N_sys_ns_select.L12, N_sys_ns_select + 392 +.equiv N_sys_ns_select.L20, N_sys_ns_select + 395 +.equiv N_sys_ns_select.L22, N_sys_ns_select + 446 +.equiv N_sys_ns_select.L24, N_sys_ns_select + 464 +.equiv N_sys_ns_select.L25, N_sys_ns_select + 468 +.equiv N_sys_ns_select.L23, N_sys_ns_select + 468 +.equiv N_sys_ns_select.L26, N_sys_ns_select + 492 +.equiv N_sys_ns_select.L27, N_sys_ns_select + 526 +.equiv N_sys_ns_select.L28, N_sys_ns_select + 550 +.equiv N_sys_ns_select.L21, N_sys_ns_select + 555 +.equiv N_sys_ns_select.L29, N_sys_ns_select + 558 .equiv N_sys_ns_select.L31, N_sys_ns_select + 608 .equiv N_sys_ns_select.L32, N_sys_ns_select + 627 +.equiv N_sys_ns_select.L33, N_sys_ns_select + 650 +.equiv N_sys_ns_select.L30, N_sys_ns_select + 676 +.equiv N_sys_ns_select.L34, N_sys_ns_select + 681 .section .text .align 16 N_sys_fd_isset: @@ -172,9 +224,20 @@ .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 +.global N_sys_fd_isset,NN_sys_fd_isset,N_sys_fd_isset.L0,N_sys_fd_isset.L1,N_sys_fd_isset.L2,N_sys_fd_isset.L3,N_sys_fd_isset.L5,N_sys_fd_isset.L6,N_sys_fd_isset.L4,N_sys_fd_isset.L7,N_sys_fd_isset.L8,N_sys_fd_isset.L9,N_sys_fd_isset.L10,N_sys_fd_isset.L11 .equiv NN_sys_fd_isset, N_sys_fd_isset + 1 +.equiv N_sys_fd_isset.L0, N_sys_fd_isset + 19 .equiv N_sys_fd_isset.L1, N_sys_fd_isset + 40 +.equiv N_sys_fd_isset.L2, N_sys_fd_isset + 63 +.equiv N_sys_fd_isset.L3, N_sys_fd_isset + 90 +.equiv N_sys_fd_isset.L5, N_sys_fd_isset + 108 +.equiv N_sys_fd_isset.L6, N_sys_fd_isset + 112 +.equiv N_sys_fd_isset.L4, N_sys_fd_isset + 112 +.equiv N_sys_fd_isset.L7, N_sys_fd_isset + 136 +.equiv N_sys_fd_isset.L8, N_sys_fd_isset + 170 +.equiv N_sys_fd_isset.L9, N_sys_fd_isset + 194 +.equiv N_sys_fd_isset.L10, N_sys_fd_isset + 234 +.equiv N_sys_fd_isset.L11, N_sys_fd_isset + 236 .section .text .align 16 N_sys_fd_clr: @@ -202,9 +265,18 @@ .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 +.global N_sys_fd_clr,NN_sys_fd_clr,N_sys_fd_clr.L0,N_sys_fd_clr.L1,N_sys_fd_clr.L2,N_sys_fd_clr.L3,N_sys_fd_clr.L5,N_sys_fd_clr.L6,N_sys_fd_clr.L4,N_sys_fd_clr.L7,N_sys_fd_clr.L8,N_sys_fd_clr.L9 .equiv NN_sys_fd_clr, N_sys_fd_clr + 1 +.equiv N_sys_fd_clr.L0, N_sys_fd_clr + 19 .equiv N_sys_fd_clr.L1, N_sys_fd_clr + 40 +.equiv N_sys_fd_clr.L2, N_sys_fd_clr + 63 +.equiv N_sys_fd_clr.L3, N_sys_fd_clr + 90 +.equiv N_sys_fd_clr.L5, N_sys_fd_clr + 108 +.equiv N_sys_fd_clr.L6, N_sys_fd_clr + 112 +.equiv N_sys_fd_clr.L4, N_sys_fd_clr + 112 +.equiv N_sys_fd_clr.L7, N_sys_fd_clr + 136 +.equiv N_sys_fd_clr.L8, N_sys_fd_clr + 170 +.equiv N_sys_fd_clr.L9, N_sys_fd_clr + 194 .section .text .align 16 N_sys_fd_set: @@ -232,9 +304,18 @@ .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 +.global N_sys_fd_set,NN_sys_fd_set,N_sys_fd_set.L0,N_sys_fd_set.L1,N_sys_fd_set.L2,N_sys_fd_set.L3,N_sys_fd_set.L5,N_sys_fd_set.L6,N_sys_fd_set.L4,N_sys_fd_set.L7,N_sys_fd_set.L8,N_sys_fd_set.L9 .equiv NN_sys_fd_set, N_sys_fd_set + 1 +.equiv N_sys_fd_set.L0, N_sys_fd_set + 19 .equiv N_sys_fd_set.L1, N_sys_fd_set + 40 +.equiv N_sys_fd_set.L2, N_sys_fd_set + 63 +.equiv N_sys_fd_set.L3, N_sys_fd_set + 90 +.equiv N_sys_fd_set.L5, N_sys_fd_set + 108 +.equiv N_sys_fd_set.L6, N_sys_fd_set + 112 +.equiv N_sys_fd_set.L4, N_sys_fd_set + 112 +.equiv N_sys_fd_set.L7, N_sys_fd_set + 136 +.equiv N_sys_fd_set.L8, N_sys_fd_set + 170 +.equiv N_sys_fd_set.L9, N_sys_fd_set + 194 .section .text .align 16 N_sys_fd_zero: @@ -254,8 +335,18 @@ .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 +.global N_sys_fd_zero,NN_sys_fd_zero,N_sys_fd_zero.L0,N_sys_fd_zero.L2,N_sys_fd_zero.L3,N_sys_fd_zero.L5,N_sys_fd_zero.L6,N_sys_fd_zero.L4,N_sys_fd_zero.L7,N_sys_fd_zero.L8,N_sys_fd_zero.L9,N_sys_fd_zero.L1 .equiv NN_sys_fd_zero, N_sys_fd_zero + 1 +.equiv N_sys_fd_zero.L0, N_sys_fd_zero + 27 +.equiv N_sys_fd_zero.L2, N_sys_fd_zero + 48 +.equiv N_sys_fd_zero.L3, N_sys_fd_zero + 73 +.equiv N_sys_fd_zero.L5, N_sys_fd_zero + 91 +.equiv N_sys_fd_zero.L6, N_sys_fd_zero + 95 +.equiv N_sys_fd_zero.L4, N_sys_fd_zero + 95 +.equiv N_sys_fd_zero.L7, N_sys_fd_zero + 119 +.equiv N_sys_fd_zero.L8, N_sys_fd_zero + 153 +.equiv N_sys_fd_zero.L9, N_sys_fd_zero + 177 +.equiv N_sys_fd_zero.L1, N_sys_fd_zero + 195 .section .text .align 16 N_sys_low_tcsetattr: @@ -289,9 +380,23 @@ .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) -.global N_sys_low_tcsetattr,NN_sys_low_tcsetattr,N_sys_low_tcsetattr.L1 +.global N_sys_low_tcsetattr,NN_sys_low_tcsetattr,N_sys_low_tcsetattr.L0,N_sys_low_tcsetattr.L1,N_sys_low_tcsetattr.L2,N_sys_low_tcsetattr.L4,N_sys_low_tcsetattr.L6,N_sys_low_tcsetattr.L7,N_sys_low_tcsetattr.L5,N_sys_low_tcsetattr.L3,N_sys_low_tcsetattr.L8,N_sys_low_tcsetattr.L10,N_sys_low_tcsetattr.L11,N_sys_low_tcsetattr.L9,N_sys_low_tcsetattr.L12,N_sys_low_tcsetattr.L13,N_sys_low_tcsetattr.L14 .equiv NN_sys_low_tcsetattr, N_sys_low_tcsetattr + 1 +.equiv N_sys_low_tcsetattr.L0, N_sys_low_tcsetattr + 19 .equiv N_sys_low_tcsetattr.L1, N_sys_low_tcsetattr + 36 +.equiv N_sys_low_tcsetattr.L2, N_sys_low_tcsetattr + 64 +.equiv N_sys_low_tcsetattr.L4, N_sys_low_tcsetattr + 88 +.equiv N_sys_low_tcsetattr.L6, N_sys_low_tcsetattr + 112 +.equiv N_sys_low_tcsetattr.L7, N_sys_low_tcsetattr + 124 +.equiv N_sys_low_tcsetattr.L5, N_sys_low_tcsetattr + 124 +.equiv N_sys_low_tcsetattr.L3, N_sys_low_tcsetattr + 124 +.equiv N_sys_low_tcsetattr.L8, N_sys_low_tcsetattr + 152 +.equiv N_sys_low_tcsetattr.L10, N_sys_low_tcsetattr + 170 +.equiv N_sys_low_tcsetattr.L11, N_sys_low_tcsetattr + 174 +.equiv N_sys_low_tcsetattr.L9, N_sys_low_tcsetattr + 174 +.equiv N_sys_low_tcsetattr.L12, N_sys_low_tcsetattr + 198 +.equiv N_sys_low_tcsetattr.L13, N_sys_low_tcsetattr + 232 +.equiv N_sys_low_tcsetattr.L14, N_sys_low_tcsetattr + 256 .section .text .align 16 N_sys_low_tcgetattr: @@ -317,9 +422,19 @@ .byte 80,88,137,194,185,1,84,0,0,88,137,195,184,54,0,0,0,205,128,80,233 .long encsi$1 - (.+4) .byte 88,195 -.global N_sys_low_tcgetattr,NN_sys_low_tcgetattr,N_sys_low_tcgetattr.L3 +.global N_sys_low_tcgetattr,NN_sys_low_tcgetattr,N_sys_low_tcgetattr.L0,N_sys_low_tcgetattr.L2,N_sys_low_tcgetattr.L3,N_sys_low_tcgetattr.L4,N_sys_low_tcgetattr.L6,N_sys_low_tcgetattr.L7,N_sys_low_tcgetattr.L5,N_sys_low_tcgetattr.L8,N_sys_low_tcgetattr.L9,N_sys_low_tcgetattr.L10,N_sys_low_tcgetattr.L1 .equiv NN_sys_low_tcgetattr, N_sys_low_tcgetattr + 1 +.equiv N_sys_low_tcgetattr.L0, N_sys_low_tcgetattr + 27 +.equiv N_sys_low_tcgetattr.L2, N_sys_low_tcgetattr + 48 .equiv N_sys_low_tcgetattr.L3, N_sys_low_tcgetattr + 63 +.equiv N_sys_low_tcgetattr.L4, N_sys_low_tcgetattr + 88 +.equiv N_sys_low_tcgetattr.L6, N_sys_low_tcgetattr + 106 +.equiv N_sys_low_tcgetattr.L7, N_sys_low_tcgetattr + 110 +.equiv N_sys_low_tcgetattr.L5, N_sys_low_tcgetattr + 110 +.equiv N_sys_low_tcgetattr.L8, N_sys_low_tcgetattr + 134 +.equiv N_sys_low_tcgetattr.L9, N_sys_low_tcgetattr + 168 +.equiv N_sys_low_tcgetattr.L10, N_sys_low_tcgetattr + 192 +.equiv N_sys_low_tcgetattr.L1, N_sys_low_tcgetattr + 216 .section .text .align 16 N_sys_low_getcwd: @@ -337,8 +452,17 @@ .byte 5,0,0,0,233 .long encsi$1 - (.+4) .byte 88,195 -.global N_sys_low_getcwd,NN_sys_low_getcwd +.global N_sys_low_getcwd,NN_sys_low_getcwd,N_sys_low_getcwd.L0,N_sys_low_getcwd.L1,N_sys_low_getcwd.L3,N_sys_low_getcwd.L4,N_sys_low_getcwd.L2,N_sys_low_getcwd.L5,N_sys_low_getcwd.L6,N_sys_low_getcwd.L7,N_sys_low_getcwd.L8 .equiv NN_sys_low_getcwd, N_sys_low_getcwd + 1 +.equiv N_sys_low_getcwd.L0, N_sys_low_getcwd + 19 +.equiv N_sys_low_getcwd.L1, N_sys_low_getcwd + 44 +.equiv N_sys_low_getcwd.L3, N_sys_low_getcwd + 62 +.equiv N_sys_low_getcwd.L4, N_sys_low_getcwd + 66 +.equiv N_sys_low_getcwd.L2, N_sys_low_getcwd + 66 +.equiv N_sys_low_getcwd.L5, N_sys_low_getcwd + 90 +.equiv N_sys_low_getcwd.L6, N_sys_low_getcwd + 115 +.equiv N_sys_low_getcwd.L7, N_sys_low_getcwd + 155 +.equiv N_sys_low_getcwd.L8, N_sys_low_getcwd + 160 .section .text .align 16 N_sys_ns_lstat: @@ -354,9 +478,12 @@ .byte 80,233 .long encsi$1 - (.+4) .byte 80,88,131,196,64,195 -.global N_sys_ns_lstat,NN_sys_ns_lstat,N_sys_ns_lstat.L3 +.global N_sys_ns_lstat,NN_sys_ns_lstat,N_sys_ns_lstat.L0,N_sys_ns_lstat.L1,N_sys_ns_lstat.L3,N_sys_ns_lstat.L2 .equiv NN_sys_ns_lstat, N_sys_ns_lstat + 1 +.equiv N_sys_ns_lstat.L0, N_sys_ns_lstat + 19 +.equiv N_sys_ns_lstat.L1, N_sys_ns_lstat + 63 .equiv N_sys_ns_lstat.L3, N_sys_ns_lstat + 76 +.equiv N_sys_ns_lstat.L2, N_sys_ns_lstat + 77 .section .text .align 16 N_sys_ns_stat: @@ -372,9 +499,12 @@ .byte 80,233 .long encsi$1 - (.+4) .byte 80,88,131,196,64,195 -.global N_sys_ns_stat,NN_sys_ns_stat,N_sys_ns_stat.L3 +.global N_sys_ns_stat,NN_sys_ns_stat,N_sys_ns_stat.L0,N_sys_ns_stat.L1,N_sys_ns_stat.L3,N_sys_ns_stat.L2 .equiv NN_sys_ns_stat, N_sys_ns_stat + 1 +.equiv N_sys_ns_stat.L0, N_sys_ns_stat + 19 +.equiv N_sys_ns_stat.L1, N_sys_ns_stat + 63 .equiv N_sys_ns_stat.L3, N_sys_ns_stat + 76 +.equiv N_sys_ns_stat.L2, N_sys_ns_stat + 77 .section .text .align 16 N_sys_ns_fstat: @@ -392,10 +522,13 @@ .byte 80,233 .long encsi$1 - (.+4) .byte 80,88,131,196,64,195 -.global N_sys_ns_fstat,NN_sys_ns_fstat,N_sys_ns_fstat.L1,N_sys_ns_fstat.L4 +.global N_sys_ns_fstat,NN_sys_ns_fstat,N_sys_ns_fstat.L0,N_sys_ns_fstat.L1,N_sys_ns_fstat.L2,N_sys_ns_fstat.L4,N_sys_ns_fstat.L3 .equiv NN_sys_ns_fstat, N_sys_ns_fstat + 1 +.equiv N_sys_ns_fstat.L0, N_sys_ns_fstat + 19 .equiv N_sys_ns_fstat.L1, N_sys_ns_fstat + 32 +.equiv N_sys_ns_fstat.L2, N_sys_ns_fstat + 69 .equiv N_sys_ns_fstat.L4, N_sys_ns_fstat + 82 +.equiv N_sys_ns_fstat.L3, N_sys_ns_fstat + 83 .section .text .align 16 struct_stat2list: @@ -570,11 +703,20 @@ .byte 133,4,0,0,0,88,139,0,80,88,91,89,1,200,137,218,137,193,88,137,195 .byte 184,4,0,0,0,205,128,80,233 .long encsi$1 - (.+4) -.global N_sys_ns_write,NN_sys_ns_write,N_sys_ns_write.L1,N_sys_ns_write.L7,N_sys_ns_write.L8 +.global N_sys_ns_write,NN_sys_ns_write,N_sys_ns_write.L0,N_sys_ns_write.L1,N_sys_ns_write.L2,N_sys_ns_write.L4,N_sys_ns_write.L5,N_sys_ns_write.L3,N_sys_ns_write.L6,N_sys_ns_write.L7,N_sys_ns_write.L8,N_sys_ns_write.L9,N_sys_ns_write.L10,N_sys_ns_write.L11 .equiv NN_sys_ns_write, N_sys_ns_write + 1 +.equiv N_sys_ns_write.L0, N_sys_ns_write + 19 .equiv N_sys_ns_write.L1, N_sys_ns_write + 39 +.equiv N_sys_ns_write.L2, N_sys_ns_write + 73 +.equiv N_sys_ns_write.L4, N_sys_ns_write + 91 +.equiv N_sys_ns_write.L5, N_sys_ns_write + 95 +.equiv N_sys_ns_write.L3, N_sys_ns_write + 95 +.equiv N_sys_ns_write.L6, N_sys_ns_write + 119 .equiv N_sys_ns_write.L7, N_sys_ns_write + 147 .equiv N_sys_ns_write.L8, N_sys_ns_write + 167 +.equiv N_sys_ns_write.L9, N_sys_ns_write + 213 +.equiv N_sys_ns_write.L10, N_sys_ns_write + 270 +.equiv N_sys_ns_write.L11, N_sys_ns_write + 324 .section .text .align 16 N_sys_ns_waitpid: @@ -654,23 +796,35 @@ .byte 80,233 .long encsi$1 - (.+4) .byte 80,88,195 -.global N_sys_ns_waitpid,NN_sys_ns_waitpid,N_sys_ns_waitpid.L1,N_sys_ns_waitpid.L2,N_sys_ns_waitpid.L6,N_sys_ns_waitpid.L9,N_sys_ns_waitpid.L10,N_sys_ns_waitpid.L11,N_sys_ns_waitpid.L14,N_sys_ns_waitpid.L15,N_sys_ns_waitpid.L16,N_sys_ns_waitpid.L18,N_sys_ns_waitpid.L19,N_sys_ns_waitpid.L20,N_sys_ns_waitpid.L21,N_sys_ns_waitpid.L22,N_sys_ns_waitpid.L26 +.global N_sys_ns_waitpid,NN_sys_ns_waitpid,N_sys_ns_waitpid.L0,N_sys_ns_waitpid.L1,N_sys_ns_waitpid.L2,N_sys_ns_waitpid.L3,N_sys_ns_waitpid.L6,N_sys_ns_waitpid.L5,N_sys_ns_waitpid.L7,N_sys_ns_waitpid.L9,N_sys_ns_waitpid.L10,N_sys_ns_waitpid.L11,N_sys_ns_waitpid.L8,N_sys_ns_waitpid.L14,N_sys_ns_waitpid.L15,N_sys_ns_waitpid.L16,N_sys_ns_waitpid.L13,N_sys_ns_waitpid.L18,N_sys_ns_waitpid.L19,N_sys_ns_waitpid.L20,N_sys_ns_waitpid.L17,N_sys_ns_waitpid.L12,N_sys_ns_waitpid.L21,N_sys_ns_waitpid.L22,N_sys_ns_waitpid.L4,N_sys_ns_waitpid.L24,N_sys_ns_waitpid.L26,N_sys_ns_waitpid.L25,N_sys_ns_waitpid.L23 .equiv NN_sys_ns_waitpid, N_sys_ns_waitpid + 1 +.equiv N_sys_ns_waitpid.L0, N_sys_ns_waitpid + 19 .equiv N_sys_ns_waitpid.L1, N_sys_ns_waitpid + 34 .equiv N_sys_ns_waitpid.L2, N_sys_ns_waitpid + 47 +.equiv N_sys_ns_waitpid.L3, N_sys_ns_waitpid + 76 .equiv N_sys_ns_waitpid.L6, N_sys_ns_waitpid + 123 +.equiv N_sys_ns_waitpid.L5, N_sys_ns_waitpid + 129 +.equiv N_sys_ns_waitpid.L7, N_sys_ns_waitpid + 131 .equiv N_sys_ns_waitpid.L9, N_sys_ns_waitpid + 171 .equiv N_sys_ns_waitpid.L10, N_sys_ns_waitpid + 184 .equiv N_sys_ns_waitpid.L11, N_sys_ns_waitpid + 200 +.equiv N_sys_ns_waitpid.L8, N_sys_ns_waitpid + 206 .equiv N_sys_ns_waitpid.L14, N_sys_ns_waitpid + 244 .equiv N_sys_ns_waitpid.L15, N_sys_ns_waitpid + 257 .equiv N_sys_ns_waitpid.L16, N_sys_ns_waitpid + 273 +.equiv N_sys_ns_waitpid.L13, N_sys_ns_waitpid + 279 .equiv N_sys_ns_waitpid.L18, N_sys_ns_waitpid + 296 .equiv N_sys_ns_waitpid.L19, N_sys_ns_waitpid + 309 .equiv N_sys_ns_waitpid.L20, N_sys_ns_waitpid + 325 +.equiv N_sys_ns_waitpid.L17, N_sys_ns_waitpid + 326 +.equiv N_sys_ns_waitpid.L12, N_sys_ns_waitpid + 326 .equiv N_sys_ns_waitpid.L21, N_sys_ns_waitpid + 340 .equiv N_sys_ns_waitpid.L22, N_sys_ns_waitpid + 353 +.equiv N_sys_ns_waitpid.L4, N_sys_ns_waitpid + 359 +.equiv N_sys_ns_waitpid.L24, N_sys_ns_waitpid + 377 .equiv N_sys_ns_waitpid.L26, N_sys_ns_waitpid + 389 +.equiv N_sys_ns_waitpid.L25, N_sys_ns_waitpid + 390 +.equiv N_sys_ns_waitpid.L23, N_sys_ns_waitpid + 390 .section .text .align 16 N_sys_ns_unlink: @@ -680,8 +834,9 @@ .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 +.global N_sys_ns_unlink,NN_sys_ns_unlink,N_sys_ns_unlink.L0 .equiv NN_sys_ns_unlink, N_sys_ns_unlink + 1 +.equiv N_sys_ns_unlink.L0, N_sys_ns_unlink + 19 .section .text .align 16 N_sys_ns_truncate: @@ -695,8 +850,9 @@ .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 +.global N_sys_ns_truncate,NN_sys_ns_truncate,N_sys_ns_truncate.L0,N_sys_ns_truncate.L1 .equiv NN_sys_ns_truncate, N_sys_ns_truncate + 1 +.equiv N_sys_ns_truncate.L0, N_sys_ns_truncate + 19 .equiv N_sys_ns_truncate.L1, N_sys_ns_truncate + 43 .section .text .align 16 @@ -709,8 +865,9 @@ .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 +.global N_sys_ns_symlink,NN_sys_ns_symlink,N_sys_ns_symlink.L0 .equiv NN_sys_ns_symlink, N_sys_ns_symlink + 1 +.equiv N_sys_ns_symlink.L0, N_sys_ns_symlink + 19 .section .text .align 16 N_sys_ns_setsid: @@ -718,8 +875,9 @@ .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 +.global N_sys_ns_setsid,NN_sys_ns_setsid,N_sys_ns_setsid.L0 .equiv NN_sys_ns_setsid, N_sys_ns_setsid + 1 +.equiv N_sys_ns_setsid.L0, N_sys_ns_setsid + 18 .section .text .align 16 N_sys_ns_setpgid: @@ -735,8 +893,9 @@ .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 +.global N_sys_ns_setpgid,NN_sys_ns_setpgid,N_sys_ns_setpgid.L0,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.L0, N_sys_ns_setpgid + 19 .equiv N_sys_ns_setpgid.L1, N_sys_ns_setpgid + 34 .equiv N_sys_ns_setpgid.L2, N_sys_ns_setpgid + 47 .section .text @@ -750,8 +909,9 @@ .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 +.global N_sys_ns_rename,NN_sys_ns_rename,N_sys_ns_rename.L0 .equiv NN_sys_ns_rename, N_sys_ns_rename + 1 +.equiv N_sys_ns_rename.L0, N_sys_ns_rename + 19 .section .text .align 16 N_sys_ns_read: @@ -791,11 +951,20 @@ .byte 133,4,0,0,0,88,139,0,80,88,91,89,1,200,137,218,137,193,88,137,195 .byte 184,3,0,0,0,205,128,80,233 .long encsi$1 - (.+4) -.global N_sys_ns_read,NN_sys_ns_read,N_sys_ns_read.L1,N_sys_ns_read.L7,N_sys_ns_read.L8 +.global N_sys_ns_read,NN_sys_ns_read,N_sys_ns_read.L0,N_sys_ns_read.L1,N_sys_ns_read.L2,N_sys_ns_read.L4,N_sys_ns_read.L5,N_sys_ns_read.L3,N_sys_ns_read.L6,N_sys_ns_read.L7,N_sys_ns_read.L8,N_sys_ns_read.L9,N_sys_ns_read.L10,N_sys_ns_read.L11 .equiv NN_sys_ns_read, N_sys_ns_read + 1 +.equiv N_sys_ns_read.L0, N_sys_ns_read + 19 .equiv N_sys_ns_read.L1, N_sys_ns_read + 39 +.equiv N_sys_ns_read.L2, N_sys_ns_read + 73 +.equiv N_sys_ns_read.L4, N_sys_ns_read + 91 +.equiv N_sys_ns_read.L5, N_sys_ns_read + 95 +.equiv N_sys_ns_read.L3, N_sys_ns_read + 95 +.equiv N_sys_ns_read.L6, N_sys_ns_read + 119 .equiv N_sys_ns_read.L7, N_sys_ns_read + 147 .equiv N_sys_ns_read.L8, N_sys_ns_read + 167 +.equiv N_sys_ns_read.L9, N_sys_ns_read + 213 +.equiv N_sys_ns_read.L10, N_sys_ns_read + 270 +.equiv N_sys_ns_read.L11, N_sys_ns_read + 324 .section .text .align 16 N_sys_ns_pipe: @@ -816,10 +985,15 @@ .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 +.global N_sys_ns_pipe,NN_sys_ns_pipe,N_sys_ns_pipe.L0,N_sys_ns_pipe.L1,N_sys_ns_pipe.L2,N_sys_ns_pipe.L3,N_sys_ns_pipe.L5,N_sys_ns_pipe.L6,N_sys_ns_pipe.L4 .equiv NN_sys_ns_pipe, N_sys_ns_pipe + 1 +.equiv N_sys_ns_pipe.L0, N_sys_ns_pipe + 18 +.equiv N_sys_ns_pipe.L1, N_sys_ns_pipe + 49 +.equiv N_sys_ns_pipe.L2, N_sys_ns_pipe + 54 +.equiv N_sys_ns_pipe.L3, N_sys_ns_pipe + 69 .equiv N_sys_ns_pipe.L5, N_sys_ns_pipe + 83 .equiv N_sys_ns_pipe.L6, N_sys_ns_pipe + 96 +.equiv N_sys_ns_pipe.L4, N_sys_ns_pipe + 102 .section .text .align 16 N_sys_ns_open: @@ -837,8 +1011,9 @@ .long decui$1 - (.+4) .byte 137,194,88,137,193,88,137,195,184,5,0,0,0,205,128,80,233 .long encsi$1 - (.+4) -.global N_sys_ns_open,NN_sys_ns_open,N_sys_ns_open.L1,N_sys_ns_open.L2 +.global N_sys_ns_open,NN_sys_ns_open,N_sys_ns_open.L0,N_sys_ns_open.L1,N_sys_ns_open.L2 .equiv NN_sys_ns_open, N_sys_ns_open + 1 +.equiv N_sys_ns_open.L0, N_sys_ns_open + 19 .equiv N_sys_ns_open.L1, N_sys_ns_open + 47 .equiv N_sys_ns_open.L2, N_sys_ns_open + 62 .section .text @@ -873,12 +1048,17 @@ .byte 88,91,91,80,233 .long encsi$1 - (.+4) .byte 88,195 -.global N_sys_ns_nanosleep,NN_sys_ns_nanosleep,N_sys_ns_nanosleep.L2,N_sys_ns_nanosleep.L3,N_sys_ns_nanosleep.L6,N_sys_ns_nanosleep.L7 +.global N_sys_ns_nanosleep,NN_sys_ns_nanosleep,N_sys_ns_nanosleep.L0,N_sys_ns_nanosleep.L2,N_sys_ns_nanosleep.L3,N_sys_ns_nanosleep.L1,N_sys_ns_nanosleep.L4,N_sys_ns_nanosleep.L6,N_sys_ns_nanosleep.L7,N_sys_ns_nanosleep.L5,N_sys_ns_nanosleep.L8 .equiv NN_sys_ns_nanosleep, N_sys_ns_nanosleep + 1 +.equiv N_sys_ns_nanosleep.L0, N_sys_ns_nanosleep + 19 .equiv N_sys_ns_nanosleep.L2, N_sys_ns_nanosleep + 67 .equiv N_sys_ns_nanosleep.L3, N_sys_ns_nanosleep + 80 +.equiv N_sys_ns_nanosleep.L1, N_sys_ns_nanosleep + 86 +.equiv N_sys_ns_nanosleep.L4, N_sys_ns_nanosleep + 98 .equiv N_sys_ns_nanosleep.L6, N_sys_ns_nanosleep + 146 .equiv N_sys_ns_nanosleep.L7, N_sys_ns_nanosleep + 159 +.equiv N_sys_ns_nanosleep.L5, N_sys_ns_nanosleep + 165 +.equiv N_sys_ns_nanosleep.L8, N_sys_ns_nanosleep + 174 .section .text .align 16 N_sys_ns_mkdir: @@ -892,8 +1072,9 @@ .long decui$1 - (.+4) .byte 137,193,88,137,195,184,39,0,0,0,205,128,80,233 .long encsi$1 - (.+4) -.global N_sys_ns_mkdir,NN_sys_ns_mkdir,N_sys_ns_mkdir.L1 +.global N_sys_ns_mkdir,NN_sys_ns_mkdir,N_sys_ns_mkdir.L0,N_sys_ns_mkdir.L1 .equiv NN_sys_ns_mkdir, N_sys_ns_mkdir + 1 +.equiv N_sys_ns_mkdir.L0, N_sys_ns_mkdir + 19 .equiv N_sys_ns_mkdir.L1, N_sys_ns_mkdir + 43 .section .text .align 16 @@ -914,8 +1095,9 @@ .long decui$1 - (.+4) .byte 137,194,88,137,193,88,137,195,184,19,0,0,0,205,128,80,233 .long encsi$1 - (.+4) -.global N_sys_ns_lseek,NN_sys_ns_lseek,N_sys_ns_lseek.L1,N_sys_ns_lseek.L2,N_sys_ns_lseek.L3 +.global N_sys_ns_lseek,NN_sys_ns_lseek,N_sys_ns_lseek.L0,N_sys_ns_lseek.L1,N_sys_ns_lseek.L2,N_sys_ns_lseek.L3 .equiv NN_sys_ns_lseek, N_sys_ns_lseek + 1 +.equiv N_sys_ns_lseek.L0, N_sys_ns_lseek + 19 .equiv N_sys_ns_lseek.L1, N_sys_ns_lseek + 36 .equiv N_sys_ns_lseek.L2, N_sys_ns_lseek + 51 .equiv N_sys_ns_lseek.L3, N_sys_ns_lseek + 66 @@ -934,8 +1116,9 @@ .long decui$1 - (.+4) .byte 91,80,83,187,4,0,0,0,137,225,184,102,0,0,0,205,128,91,91,80,233 .long encsi$1 - (.+4) -.global N_sys_ns_listen,NN_sys_ns_listen,N_sys_ns_listen.L1,N_sys_ns_listen.L2 +.global N_sys_ns_listen,NN_sys_ns_listen,N_sys_ns_listen.L0,N_sys_ns_listen.L1,N_sys_ns_listen.L2 .equiv NN_sys_ns_listen, N_sys_ns_listen + 1 +.equiv N_sys_ns_listen.L0, N_sys_ns_listen + 19 .equiv N_sys_ns_listen.L1, N_sys_ns_listen + 34 .equiv N_sys_ns_listen.L2, N_sys_ns_listen + 47 .section .text @@ -949,8 +1132,9 @@ .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_link,NN_sys_ns_link +.global N_sys_ns_link,NN_sys_ns_link,N_sys_ns_link.L0 .equiv NN_sys_ns_link, N_sys_ns_link + 1 +.equiv N_sys_ns_link.L0, N_sys_ns_link + 19 .section .text .align 16 N_sys_ns_kill: @@ -966,8 +1150,9 @@ .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_kill,NN_sys_ns_kill,N_sys_ns_kill.L1,N_sys_ns_kill.L2 +.global N_sys_ns_kill,NN_sys_ns_kill,N_sys_ns_kill.L0,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.L0, N_sys_ns_kill + 19 .equiv N_sys_ns_kill.L1, N_sys_ns_kill + 34 .equiv N_sys_ns_kill.L2, N_sys_ns_kill + 47 .section .text @@ -981,8 +1166,9 @@ .long decsi$1 - (.+4) .byte 137,195,184,132,0,0,0,205,128,80,233 .long encsi$1 - (.+4) -.global N_sys_ns_getpgid,NN_sys_ns_getpgid,N_sys_ns_getpgid.L1 +.global N_sys_ns_getpgid,NN_sys_ns_getpgid,N_sys_ns_getpgid.L0,N_sys_ns_getpgid.L1 .equiv NN_sys_ns_getpgid, N_sys_ns_getpgid + 1 +.equiv N_sys_ns_getpgid.L0, N_sys_ns_getpgid + 19 .equiv N_sys_ns_getpgid.L1, N_sys_ns_getpgid + 32 .section .text .align 16 @@ -999,8 +1185,9 @@ .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 +.global N_sys_ns_ftruncate,NN_sys_ns_ftruncate,N_sys_ns_ftruncate.L0,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.L0, N_sys_ns_ftruncate + 19 .equiv N_sys_ns_ftruncate.L1, N_sys_ns_ftruncate + 34 .equiv N_sys_ns_ftruncate.L2, N_sys_ns_ftruncate + 47 .section .text @@ -1010,8 +1197,9 @@ .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 +.global N_sys_ns_fork,NN_sys_ns_fork,N_sys_ns_fork.L0 .equiv NN_sys_ns_fork, N_sys_ns_fork + 1 +.equiv N_sys_ns_fork.L0, N_sys_ns_fork + 18 .section .text .align 16 N_sys_ns_dup2: @@ -1027,8 +1215,9 @@ .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 +.global N_sys_ns_dup2,NN_sys_ns_dup2,N_sys_ns_dup2.L0,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.L0, N_sys_ns_dup2 + 19 .equiv N_sys_ns_dup2.L1, N_sys_ns_dup2 + 34 .equiv N_sys_ns_dup2.L2, N_sys_ns_dup2 + 47 .section .text @@ -1042,8 +1231,9 @@ .long decui$1 - (.+4) .byte 137,195,184,41,0,0,0,205,128,80,233 .long encsi$1 - (.+4) -.global N_sys_ns_dup,NN_sys_ns_dup,N_sys_ns_dup.L1 +.global N_sys_ns_dup,NN_sys_ns_dup,N_sys_ns_dup.L0,N_sys_ns_dup.L1 .equiv NN_sys_ns_dup, N_sys_ns_dup + 1 +.equiv N_sys_ns_dup.L0, N_sys_ns_dup + 19 .equiv N_sys_ns_dup.L1, N_sys_ns_dup + 32 .section .text .align 16 @@ -1056,8 +1246,9 @@ .long decui$1 - (.+4) .byte 137,195,184,6,0,0,0,205,128,80,233 .long encsi$1 - (.+4) -.global N_sys_ns_close,NN_sys_ns_close,N_sys_ns_close.L1 +.global N_sys_ns_close,NN_sys_ns_close,N_sys_ns_close.L0,N_sys_ns_close.L1 .equiv NN_sys_ns_close, N_sys_ns_close + 1 +.equiv N_sys_ns_close.L0, N_sys_ns_close + 19 .equiv N_sys_ns_close.L1, N_sys_ns_close + 32 .section .text .align 16 @@ -1072,8 +1263,9 @@ .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_chmod,NN_sys_ns_chmod,N_sys_ns_chmod.L1 +.global N_sys_ns_chmod,NN_sys_ns_chmod,N_sys_ns_chmod.L0,N_sys_ns_chmod.L1 .equiv NN_sys_ns_chmod, N_sys_ns_chmod + 1 +.equiv N_sys_ns_chmod.L0, N_sys_ns_chmod + 19 .equiv N_sys_ns_chmod.L1, N_sys_ns_chmod + 43 .section .text .align 16 @@ -1084,16 +1276,18 @@ .long ws2zt - (.+4) .byte 91,137,195,184,12,0,0,0,205,128,80,233 .long encsi$1 - (.+4) -.global N_sys_ns_chdir,NN_sys_ns_chdir +.global N_sys_ns_chdir,NN_sys_ns_chdir,N_sys_ns_chdir.L0 .equiv NN_sys_ns_chdir, N_sys_ns_chdir + 1 +.equiv N_sys_ns_chdir.L0, N_sys_ns_chdir + 19 .section .text .align 16 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,184,36,0,0,0,205,128,184,27,0,0,0,195 -.global N_sys_sync,NN_sys_sync +.global N_sys_sync,NN_sys_sync,N_sys_sync.L0 .equiv NN_sys_sync, N_sys_sync + 1 +.equiv N_sys_sync.L0, N_sys_sync + 18 .section .text .align 16 N_sys_getuid: @@ -1101,8 +1295,9 @@ .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 +.global N_sys_getuid,NN_sys_getuid,N_sys_getuid.L0 .equiv NN_sys_getuid, N_sys_getuid + 1 +.equiv N_sys_getuid.L0, N_sys_getuid + 18 .section .text .align 16 N_sys_getppid: @@ -1110,8 +1305,9 @@ .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 +.global N_sys_getppid,NN_sys_getppid,N_sys_getppid.L0 .equiv NN_sys_getppid, N_sys_getppid + 1 +.equiv N_sys_getppid.L0, N_sys_getppid + 18 .section .text .align 16 N_sys_getpid: @@ -1119,8 +1315,9 @@ .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 +.global N_sys_getpid,NN_sys_getpid,N_sys_getpid.L0 .equiv NN_sys_getpid, N_sys_getpid + 1 +.equiv N_sys_getpid.L0, N_sys_getpid + 18 .section .text .align 16 N_sys_getgid: @@ -1128,8 +1325,9 @@ .long N_signal_argcount - (.+4) .byte 88,184,47,0,0,0,205,128,80,233 .long encui$1 - (.+4) -.global N_sys_getgid,NN_sys_getgid +.global N_sys_getgid,NN_sys_getgid,N_sys_getgid.L0 .equiv NN_sys_getgid, N_sys_getgid + 1 +.equiv N_sys_getgid.L0, N_sys_getgid + 18 .section .text .align 16 N_sys_geteuid: @@ -1137,8 +1335,9 @@ .long N_signal_argcount - (.+4) .byte 88,184,49,0,0,0,205,128,80,233 .long encui$1 - (.+4) -.global N_sys_geteuid,NN_sys_geteuid +.global N_sys_geteuid,NN_sys_geteuid,N_sys_geteuid.L0 .equiv NN_sys_geteuid, N_sys_geteuid + 1 +.equiv N_sys_geteuid.L0, N_sys_geteuid + 18 .section .text .align 16 N_sys_getegid: @@ -1146,8 +1345,9 @@ .long N_signal_argcount - (.+4) .byte 88,184,50,0,0,0,205,128,80,233 .long encui$1 - (.+4) -.global N_sys_getegid,NN_sys_getegid +.global N_sys_getegid,NN_sys_getegid,N_sys_getegid.L0 .equiv NN_sys_getegid, N_sys_getegid + 1 +.equiv N_sys_getegid.L0, N_sys_getegid + 18 .section .text .align 16 N_sys_exit: @@ -1163,9 +1363,12 @@ .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 +.global N_sys_exit,NN_sys_exit,N_sys_exit.L0,N_sys_exit.L1,N_sys_exit.L2,N_sys_exit.L3 .equiv NN_sys_exit, N_sys_exit + 1 +.equiv N_sys_exit.L0, N_sys_exit + 15 +.equiv N_sys_exit.L1, N_sys_exit + 36 .equiv N_sys_exit.L2, N_sys_exit + 50 +.equiv N_sys_exit.L3, N_sys_exit + 75 .section .text .align 16 N_unix_time: @@ -1173,5 +1376,6 @@ .long N_signal_argcount - (.+4) .byte 88,187,0,0,0,0,184,13,0,0,0,205,128,80,233 .long encsi$1 - (.+4) -.global N_unix_time,NN_unix_time +.global N_unix_time,NN_unix_time,N_unix_time.L0 .equiv NN_unix_time, N_unix_time + 1 +.equiv N_unix_time.L0, N_unix_time + 18 Index: vectors.s =================================================================== RCS file: /cvsroot/wisp/wisp/src/native/vectors.s,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- vectors.s 18 Sep 2002 21:18:04 -0000 1.4 +++ vectors.s 26 Sep 2002 18:22:38 -0000 1.5 @@ -28,10 +28,14 @@ .long RT_u8vector .byte 91,137,193,131,193,4,137,25,91,137,193,131,193,8,137,199,131,199,4 .byte 139,63,80,137,216,137,203,137,249,137,223,252,243,170,88,195 -.global N_make_u8vector,NN_make_u8vector,N_make_u8vector.L2,N_make_u8vector.L4,N_make_u8vector.L6 +.global N_make_u8vector,NN_make_u8vector,N_make_u8vector.L0,N_make_u8vector.L1,N_make_u8vector.L2,N_make_u8vector.L3,N_make_u8vector.L4,N_make_u8vector.L5,N_make_u8vector.L6 .equiv NN_make_u8vector, N_make_u8vector + 1 +.equiv N_make_u8vector.L0, N_make_u8vector + 16 +.equiv N_make_u8vector.L1, N_make_u8vector + 37 .equiv N_make_u8vector.L2, N_make_u8vector + 56 +.equiv N_make_u8vector.L3, N_make_u8vector + 79 .equiv N_make_u8vector.L4, N_make_u8vector + 95 +.equiv N_make_u8vector.L5, N_make_u8vector + 120 .equiv N_make_u8vector.L6, N_make_u8vector + 139 .section .text .align 16 @@ -48,8 +52,14 @@ .long raise$2 - (.+4) .byte 88,5,4,0,0,0,139,0,80,233 .long encui$1 - (.+4) -.global N_u8vector_length,NN_u8vector_length +.global N_u8vector_length,NN_u8vector_length,N_u8vector_length.L0,N_u8vector_length.L1,N_u8vector_length.L3,N_u8vector_length.L4,N_u8vector_length.L2,N_u8vector_length.L5 .equiv NN_u8vector_length, N_u8vector_length + 1 +.equiv N_u8vector_length.L0, N_u8vector_length + 19 +.equiv N_u8vector_length.L1, N_u8vector_length + 44 +.equiv N_u8vector_length.L3, N_u8vector_length + 62 +.equiv N_u8vector_length.L4, N_u8vector_length + 66 +.equiv N_u8vector_length.L2, N_u8vector_length + 66 +.equiv N_u8vector_length.L5, N_u8vector_length + 90 .section .text .align 16 N_u8vector_ref: @@ -102,11 +112,29 @@ .byte 80,233 .long raise$2 - (.+4) .byte 88,91,91,89,1,195,88,136,3,106,27,88,195 -.global N_u8vector_ref,NN_u8vector_ref,N_u8vector_ref.L1,N_u8vector_ref.L11,N_u8vector_ref.L13 +.global N_u8vector_ref,NN_u8vector_ref,N_u8vector_ref.L1,N_u8vector_ref.L2,N_u8vector_ref.L4,N_u8vector_ref.L5,N_u8vector_ref.L3,N_u8vector_ref.L6,N_u8vector_ref.L7,N_u8vector_ref.L8,N_u8vector_ref.L0,N_u8vector_ref.L10,N_u8vector_ref.L11,N_u8vector_ref.L12,N_u8vector_ref.L13,N_u8vector_ref.L14,N_u8vector_ref.L16,N_u8vector_ref.L17,N_u8vector_ref.L15,N_u8vector_ref.L18,N_u8vector_ref.L19,N_u8vector_ref.L20,N_u8vector_ref.L9 .equiv NN_u8vector_ref, N_u8vector_ref + 1 .equiv N_u8vector_ref.L1, N_u8vector_ref + 25 +.equiv N_u8vector_ref.L2, N_u8vector_ref + 52 +.equiv N_u8vector_ref.L4, N_u8vector_ref + 70 +.equiv N_u8vector_ref.L5, N_u8vector_ref + 74 +.equiv N_u8vector_ref.L3, N_u8vector_ref + 74 +.equiv N_u8vector_ref.L6, N_u8vector_ref + 98 +.equiv N_u8vector_ref.L7, N_u8vector_ref + 129 +.equiv N_u8vector_ref.L8, N_u8vector_ref + 156 +.equiv N_u8vector_ref.L0, N_u8vector_ref + 171 +.equiv N_u8vector_ref.L10, N_u8vector_ref + 192 .equiv N_u8vector_ref.L11, N_u8vector_ref + 211 +.equiv N_u8vector_ref.L12, N_u8vector_ref + 234 .equiv N_u8vector_ref.L13, N_u8vector_ref + 252 +.equiv N_u8vector_ref.L14, N_u8vector_ref + 279 +.equiv N_u8vector_ref.L16, N_u8vector_ref + 297 +.equiv N_u8vector_ref.L17, N_u8vector_ref + 301 +.equiv N_u8vector_ref.L15, N_u8vector_ref + 301 +.equiv N_u8vector_ref.L18, N_u8vector_ref + 325 +.equiv N_u8vector_ref.L19, N_u8vector_ref + 356 +.equiv N_u8vector_ref.L20, N_u8vector_ref + 383 +.equiv N_u8vector_ref.L9, N_u8vector_ref + 394 .section .text .align 16 N_u8vector_huh: @@ -196,15 +224,30 @@ .long raise$2 - (.+4) .byte 88,91,89,193,227,2,131,193,8,1,203,89,95,193,225,2,131,199,8,1,249 .byte 137,207,137,193,137,222,252,243,165,184,27,0,0,0,195 -.global N_vector_move,NN_vector_move,N_vector_move.L1,N_vector_move.L2,N_vector_move.L3,N_vector_move.L15,N_vector_move.L17,N_vector_move.L19,N_vector_move.L21 +.global N_vector_move,NN_vector_move,N_vector_move.L0,N_vector_move.L1,N_vector_move.L2,N_vector_move.L3,N_vector_move.L4,N_vector_move.L6,N_vector_move.L7,N_vector_move.L5,N_vector_move.L8,N_vector_move.L9,N_vector_move.L11,N_vector_move.L12,N_vector_move.L10,N_vector_move.L13,N_vector_move.L15,N_vector_move.L14,N_vector_move.L17,N_vector_move.L16,N_vector_move.L19,N_vector_move.L18,N_vector_move.L21,N_vector_move.L20 .equiv NN_vector_move, N_vector_move + 1 +.equiv N_vector_move.L0, N_vector_move + 19 .equiv N_vector_move.L1, N_vector_move + 34 .equiv N_vector_move.L2, N_vector_move + 47 .equiv N_vector_move.L3, N_vector_move + 67 +.equiv N_vector_move.L4, N_vector_move + 108 +.equiv N_vector_move.L6, N_vector_move + 126 +.equiv N_vector_move.L7, N_vector_move + 130 +.equiv N_vector_move.L5, N_vector_move + 130 +.equiv N_vector_move.L8, N_vector_move + 154 +.equiv N_vector_move.L9, N_vector_move + 188 +.equiv N_vector_move.L11, N_vector_move + 206 +.equiv N_vector_move.L12, N_vector_move + 210 +.equiv N_vector_move.L10, N_vector_move + 210 +.equiv N_vector_move.L13, N_vector_move + 234 .equiv N_vector_move.L15, N_vector_move + 281 +.equiv N_vector_move.L14, N_vector_move + 292 .equiv N_vector_move.L17, N_vector_move + 318 +.equiv N_vector_move.L16, N_vector_move + 329 .equiv N_vector_move.L19, N_vector_move + 375 +.equiv N_vector_move.L18, N_vector_move + 386 .equiv N_vector_move.L21, N_vector_move + 412 +.equiv N_vector_move.L20, N_vector_move + 423 .section .text .align 16 N_make_vector: @@ -230,9 +273,12 @@ .byte 80,83,233 .long N_vector_fill - (.+4) .byte 88,195 -.global N_make_vector,NN_make_vector,N_make_vector.L2,N_make_vector.L4,N_make_vector.L5 +.global N_make_vector,NN_make_vector,N_make_vector.L0,N_make_vector.L1,N_make_vector.L2,N_make_vector.L3,N_make_vector.L4,N_make_vector.L5 .equiv NN_make_vector, N_make_vector + 1 +.equiv N_make_vector.L0, N_make_vector + 16 +.equiv N_make_vector.L1, N_make_vector + 37 .equiv N_make_vector.L2, N_make_vector + 53 +.equiv N_make_vector.L3, N_make_vector + 78 .equiv N_make_vector.L4, N_make_vector + 97 .equiv N_make_vector.L5, N_make_vector + 130 .section .text @@ -250,8 +296,14 @@ .long raise$2 - (.+4) .byte 88,137,195,131,195,8,5,4,0,0,0,139,0,89,137,199,137,200,137,249 .byte 137,223,252,243,171,184,27,0,0,0,195 -.global N_vector_fill,NN_vector_fill +.global N_vector_fill,NN_vector_fill,N_vector_fill.L0,N_vector_fill.L1,N_vector_fill.L3,N_vector_fill.L4,N_vector_fill.L2,N_vector_fill.L5 .equiv NN_vector_fill, N_vector_fill + 1 +.equiv N_vector_fill.L0, N_vector_fill + 19 +.equiv N_vector_fill.L1, N_vector_fill + 46 +.equiv N_vector_fill.L3, N_vector_fill + 64 +.equiv N_vector_fill.L4, N_vector_fill + 68 +.equiv N_vector_fill.L2, N_vector_fill + 68 +.equiv N_vector_fill.L5, N_vector_fill + 92 .section .text .align 16 N_vector_ref: @@ -295,10 +347,27 @@ .byte 80,233 .long raise$2 - (.+4) .byte 88,91,91,89,193,224,2,1,195,88,137,3,106,27,88,195 -.global N_vector_ref,NN_vector_ref,N_vector_ref.L1,N_vector_ref.L11 +.global N_vector_ref,NN_vector_ref,N_vector_ref.L1,N_vector_ref.L2,N_vector_ref.L4,N_vector_ref.L5,N_vector_ref.L3,N_vector_ref.L6,N_vector_ref.L7,N_vector_ref.L8,N_vector_ref.L0,N_vector_ref.L10,N_vector_ref.L11,N_vector_ref.L12,N_vector_ref.L14,N_vector_ref.L15,N_vector_ref.L13,N_vector_ref.L16,N_vector_ref.L17,N_vector_ref.L18,N_vector_ref.L9 .equiv NN_vector_ref, N_vector_ref + 1 .equiv N_vector_ref.L1, N_vector_ref + 25 +.equiv N_vector_ref.L2, N_vector_ref + 52 +.equiv N_vector_ref.L4, N_vector_ref + 70 +.equiv N_vector_ref.L5, N_vector_ref + 74 +.equiv N_vector_ref.L3, N_vector_ref + 74 +.equiv N_vector_ref.L6, N_vector_ref + 98 +.equiv N_vector_ref.L7, N_vector_ref + 129 +.equiv N_vector_ref.L8, N_vector_ref + 156 +.equiv N_vector_ref.L0, N_vector_ref + 173 +.equiv N_vector_ref.L10, N_vector_ref + 194 .equiv N_vector_ref.L11, N_vector_ref + 212 +.equiv N_vector_ref.L12, N_vector_ref + 239 +.equiv N_vector_ref.L14, N_vector_ref + 257 +.equiv N_vector_ref.L15, N_vector_ref + 261 +.equiv N_vector_ref.L13, N_vector_ref + 261 +.equiv N_vector_ref.L16, N_vector_ref + 285 +.equiv N_vector_ref.L17, N_vector_ref + 316 +.equiv N_vector_ref.L18, N_vector_ref + 343 +.equiv N_vector_ref.L9, N_vector_ref + 357 .section .text .align 16 N_vector_length: @@ -314,8 +383,14 @@ .long raise$2 - (.+4) .byte 88,5,4,0,0,0,139,0,80,233 .long encui$1 - (.+4) -.global N_vector_length,NN_vector_length +.global N_vector_length,NN_vector_length,N_vector_length.L0,N_vector_length.L1,N_vector_length.L3,N_vector_length.L4,N_vector_length.L2,N_vector_length.L5 .equiv NN_vector_length, N_vector_length + 1 +.equiv N_vector_length.L0, N_vector_length + 19 +.equiv N_vector_length.L1, N_vector_length + 44 +.equiv N_vector_length.L3, N_vector_length + 62 +.equiv N_vector_length.L4, N_vector_length + 66 +.equiv N_vector_length.L2, N_vector_length + 66 +.equiv N_vector_length.L5, N_vector_length + 90 .section .text .align 16 N_vector_huh: Index: wstrings.s =================================================================== RCS file: /cvsroot/wisp/wisp/src/native/wstrings.s,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- wstrings.s 18 Sep 2002 21:18:04 -0000 1.8 +++ wstrings.s 26 Sep 2002 18:22:38 -0000 1.9 @@ -15,8 +15,17 @@ .byte 80,88,80,61,9,0,0,0,15,133,8,0,0,0,88,106,11,233,24,0,0,0,88,80,61 .long RT_c16string .byte 15,133,8,0,0,0,88,106,11,233,3,0,0,0,88,106,19,88,195 -.global N_string_huh,NN_string_huh +.global N_string_huh,NN_string_huh,N_string_huh.L0,N_string_huh.L1,N_string_huh.L3,N_string_huh.L4,N_string_huh.L2,N_string_huh.L5,N_string_huh.L7,N_string_huh.L8,N_string_huh.L6 .equiv NN_string_huh, N_string_huh + 1 +.equiv N_string_huh.L0, N_string_huh + 19 +.equiv N_string_huh.L1, N_string_huh + 43 +.equiv N_string_huh.L3, N_string_huh + 61 +.equiv N_string_huh.L4, N_string_huh + 65 +.equiv N_string_huh.L2, N_string_huh + 65 +.equiv N_string_huh.L5, N_string_huh + 86 +.equiv N_string_huh.L7, N_string_huh + 107 +.equiv N_string_huh.L8, N_string_huh + 110 +.equiv N_string_huh.L6, N_string_huh + 110 .section .text .align 16 N_c16string_huh: |
|
From: <di...@us...> - 2002-09-26 18:22:41
|
Update of /cvsroot/wisp/wisp/tools
In directory usw-pr-cvs1:/tmp/cvs-serv28730/tools
Modified Files:
worth
Log Message:
Made Worth's syntax stack visible to the source being translated.
Index: worth
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/worth,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- worth 18 Sep 2002 21:01:03 -0000 1.32
+++ worth 26 Sep 2002 18:22:38 -0000 1.33
@@ -15,8 +15,8 @@
unix)
(define builtin-words
- '(< <= <> = > >= begin else if stack=! then u< u<= u> u>= until
- while))
+ '(->synstack < <-synstack <= <> = > >= ?jump annihilate gen-label
+ stack=! stick-label u< u<= u> u>=))
(define (other op c)
(cond
@@ -83,10 +83,12 @@
(define (word-class word)
(cond
((cpu-register? word) 'register)
+ ((and (>= (symbol-length word) 3)
+ (broketed? word)) 'broketed)
((memq word known-procedure-box[]) 'procedure)
((assq word macro-box[]) 'macro)
((memq word builtin-words) 'builtin)
- ((keyword? word) 'keyword)
+ ((keyword? word) 'keyword)
(else #f)))
(define code-box ; a list of codeblocks
@@ -121,58 +123,62 @@
i)
(define (process-piece i)
- (case (car i)
- ((defun)
- (add-code (worth->ia32 (cadr i) (cddr i))))
- ((cells)
- (add-code (cells->ia32 (cadr i) (cddr i))))
- ((native)
- (add-code (worth->ia32 (string->symbol "N_$(cadr i)")
- `(,',(nop)
- ,(list 'unquote (string->symbol "NN_$(cadr i)"))
- wisp-prologue ,@(cddr i) wisp-epilogue))))
- ((assemble)
- (add-code (cdr i)))
- ((macro)
- (my (name . body) (cdr i)
- (if (not (or (memq name builtin-words)
- (assq name macro-box[])))
- (cons! macro-box[] (cons name body))
- (raise 'duplicate-macro name))))
- ((string)
- (my (name value . rest) (cdr i)
- (if (not (null? rest))
- (raise 'null? rest))
- (add-string name value)))
- ((define)
- (my (sym . rest) (cdr i)
- (if (not (null? rest))
- (raise 'null? rest))
- (cons! def-box[] sym)))
- ((ifdef)
- (my (sym . body) (cdr i)
- (if (memq sym def-box[])
- (for-each process-piece body))))
- ((ifndef)
- (my (sym . body) (cdr i)
- (if (not (memq sym def-box[]))
- (for-each process-piece body))))
- ((include)
- (for-each (lambda (item)
- (cond
- ((string? item) (process-file item))
- ((symbol? item) (call-with-input-file
- "$[item].wrti" 'system-path
- process-file))
- (else (raise 'filename? item))))
- (cdr i)))
- ((extern)
- (for-each (lambda (word)
- (if (word-class word)
- (raise 'duplicate-word word))
- (cons! known-procedure-box[] word))
- (cdr i)))
- (else (raise 'worth-piece? i))))
+ (try
+ (case (car i)
+ ((defun)
+ (add-code (worth->ia32 (cadr i) (cddr i))))
+ ((cells)
+ (add-code (cells->ia32 (cadr i) (cddr i))))
+ ((native)
+ (add-code (worth->ia32 (string->symbol "N_$(cadr i)")
+ `(,',(nop)
+ ,(list 'unquote (string->symbol "NN_$(cadr i)"))
+ wisp-prologue ,@(cddr i) wisp-epilogue))))
+ ((assemble)
+ (add-code (cdr i)))
+ ((macro)
+ (my (name . body) (cdr i)
+ (if (not (or (memq name builtin-words)
+ (assq name macro-box[])))
+ (cons! macro-box[] (cons name body))
+ (raise 'duplicate-macro name))))
+ ((string)
+ (my (name value . rest) (cdr i)
+ (if (not (null? rest))
+ (raise 'null? rest))
+ (add-string name value)))
+ ((define)
+ (my (sym . rest) (cdr i)
+ (if (not (null? rest))
+ (raise 'null? rest))
+ (cons! def-box[] sym)))
+ ((ifdef)
+ (my (sym . body) (cdr i)
+ (if (memq sym def-box[])
+ (for-each process-piece body))))
+ ((ifndef)
+ (my (sym . body) (cdr i)
+ (if (not (memq sym def-box[]))
+ (for-each process-piece body))))
+ ((include)
+ (for-each (lambda (item)
+ (cond
+ ((string? item) (process-file item))
+ ((symbol? item) (call-with-input-file
+ "$[item].wrti" 'system-path
+ process-file))
+ (else (raise 'filename? item))))
+ (cdr i)))
+ ((extern)
+ (for-each (lambda (word)
+ (if (word-class word)
+ (raise 'duplicate-word word))
+ (cons! known-procedure-box[] word))
+ (cdr i)))
+ (else (raise 'worth-piece? i)))
+ (except ()
+ (print "(process-piece '$[i]) -/-> $[sig] $[dat]\n")
+ (raise sig dat))))
(define (process-file input)
(cond
@@ -199,8 +205,8 @@
(raise 'duplicate-word name))
(cons! known-procedure-box[] name)
(let ((gen-label (my c (make-counter)
- (lambda ()
- (string->symbol ".L$(c)"))))
+ (lambda (prefix)
+ (string->symbol "$,[prefix].L$(c)"))))
(rcode '())
(reminder '()))
(my emit (my skip? #f
@@ -213,9 +219,8 @@
(else (cons! rcode x)))))
(begin
(emit name)
- (let ((synstack '())
- ; FIXME: regstack should be a deque
- (regstack '())
+ (let ((regstack '()) ; FIXME: regstack should be a deque
+ (synstack '())
(regref# (map (cut cons <> 0)
'(%eax %ebx %ecx %edx %esi %edi))))
(letrec (((process-word-list word-list (suppress? #f))
@@ -487,67 +492,48 @@
(type integer depth)
(stack<=! depth)
(stack>=! depth)))
- ((if)
- ; booleanize and negate the stacktop
- (process-word 0 suppress?)
- (process-word '= suppress?)
- ; force stack depth
- (stack=! 1)
- ; jump
- (my l (gen-label)
- (conditional-jump l)
- (cons! synstack (cons 'if l))))
- ((else) (flush)
- (case (and (cons? synstack) (caar synstack))
- ((if) (my l2 (gen-label)
- (emit `(jmp ,l2))
- (emit (cdar synstack))
- (cdr! synstack)
- (cons! synstack (cons 'else l2))))
- (else (raise 'unexpected-else name))))
- ((then) (flush)
- (case (and (cons? synstack) (caar synstack))
- ((if else) (emit (cdar synstack))
- (cdr! synstack))
- (else (raise 'unexpected-then name))))
- ((begin) (flush)
- (my l (gen-label)
- (emit l)
- (cons! synstack (cons 'begin l))))
- ((until)
- ; booleanize and negate the stacktop
- (process-word 0 suppress?)
- (process-word '= suppress?)
- ; force stack depth
- (stack=! 1)
- ; jump
- (case (and (cons? synstack) (caar synstack))
- ((begin)
- (conditional-jump (cdar synstack))
- (cdr! synstack))
- (else (raise 'unexpected-until name))))
- ((while)
- ; booleanize and negate the staktop
- (process-word 0 suppress?)
- (process-word '= suppress?)
- ; force stack depth
- (stack=! 1)
- ; jump
- (case (and (cons? synstack) (caar synstack))
- ((begin)
- (my exitlabel (gen-label)
- (conditional-jump exitlabel)
- (set! (car synstack)
- (list 'while (cdar synstack) exitlabel))))))
- ((repeat)
- (stack=! 0)
- ; jump
- (case (and (cons? synstack) (caar synstack))
- ((while)
- (emit `(jmp ,(cadar synstack)))
- (emit (caddar synstack))
- (cdr! synstack))
- (else (raise 'unexpected-repeat name))))
+ ((gen-label)
+ (cons! regstack (gen-label name)))
+ ((stick-label)
+ (if (null? regstack)
+ (raise 'invalid-context 'stick-label))
+ (my label (car regstack)
+ ; FIXME: check integrity of the label here
+ (cdr! regstack)
+ (emit label)))
+ ((->synstack)
+ (if (null? regstack)
+ (raise 'invalid-context '->synstack))
+ (my item (car regstack)
+ (cdr! regstack)
+ (cons! synstack item)))
+ ((<-synstack)
+ (if (null? synstack)
+ (raise 'invalid-context '<-synstack))
+ (my item (car synstack)
+ (cdr! synstack)
+ (cons! regstack item)))
+ ((annihilate)
+ (cond
+ ((null? synstack)
+ (raise 'invalid-context 'annihilate))
+ ((null? (cdr synstack))
+ (raise 'invalid-context
+ (list (car synstack) 'annihilate)))
+ (else
+ (my (etalon actual . rest) synstack
+ (set! synstack rest)
+ (if (not (eq? actual etalon))
+ (raise 'syntax-mismatch
+ (list actual etalon)))))))
+ ((?jump)
+ ; Note that |?jump| just jumps disregarding
+ ; any register usage mismatches
+ (if (null? regstack)
+ (raise 'invalid-context '?jump))
+ (my l (car regstack)
+ (cdr! regstack)
+ (conditional-jump l)))
(cons?
(case (car word)
((quote) (if (not (and (cons? (cdr word))
@@ -727,20 +713,11 @@
'(%eax %ebx %ecx %edi
%edx %esi)))
(for-each use++ regstack)))
- ((fra) (my l (string->symbol
- "$[name]$,(gen-label)")
- (cons! synstack (cons 'fra l))
- (cons! regstack l)))
- ((here) (my reg (car regstack)
- (case (and (cons? synstack)
- (caar synstack))
- ((fra) (emit (cdar synstack))
- (delete 0)
- (cdr! synstack))
- (else (raise 'unexpected-here name)))))
(else (raise 'worth-word? word))))
(else
(cond
+ ((eq? (word-class word) 'broketed)
+ (cons! synstack word))
((assq word macro-box[])
=> (serial cdr (cut process-word-list <> #t)))
((memq word known-procedure-box[])
@@ -750,7 +727,10 @@
(raise 'worth-word? word)))))
(if (and (not suppress?)
skip-assembly?[] => (cut >= <> 3))
- (emit (list '() 'stack (reverse regstack))))))
+ (emit (list '() 'stack (reverse regstack))))
+ (if (and (not suppress?)
+ skip-assembly?[] => (cut >= <> 4))
+ (emit (list '() 'synstack (reverse synstack))))))
(for-each (cut process-word <> #f) body)
(if (eq? name '_start)
(begin
|
|
From: <di...@us...> - 2002-09-26 18:22:41
|
Update of /cvsroot/wisp/wisp/doc In directory usw-pr-cvs1:/tmp/cvs-serv28730/doc Modified Files: worth.vim Log Message: Made Worth's syntax stack visible to the source being translated. Index: worth.vim =================================================================== RCS file: /cvsroot/wisp/wisp/doc/worth.vim,v retrieving revision 1.24 retrieving revision 1.25 diff -u -d -r1.24 -r1.25 --- worth.vim 18 Sep 2002 21:15:12 -0000 1.24 +++ worth.vim 26 Sep 2002 18:21:38 -0000 1.25 @@ -18,10 +18,11 @@ syn keyword worthPreproc assemble define defun extern ifdef ifndef syn keyword worthPreproc include macro native -syn keyword wispSyntax ->reg ->ureg :> <: again begin believe binary -syn keyword wispSyntax conform copy delete else flush if if-empty +syn keyword wispSyntax ->compstack ->reg ->ureg :> <-compstack <: ?jump +syn keyword wispSyntax again annihilate begin believe binary conform +syn keyword wispSyntax copy delete else flush gen-label if if-empty syn keyword wispSyntax if-int-const register repeat stack<=! stack=! -syn keyword wispSyntax stack>=! then unless until while +syn keyword wispSyntax stack>=! stick-label then unless until while syn keyword wispFunc * + - --byte@ --cell@ --tetra@ --wyde@ -2rot syn keyword wispFunc ->wisp-bool -rot / /mod 0= 1+ 1- 2* 2drop 2dup |
|
From: <di...@us...> - 2002-09-26 18:22:41
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv28730/src
Modified Files:
essence.c
Log Message:
Made Worth's syntax stack visible to the source being translated.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.227
retrieving revision 1.228
diff -u -d -r1.227 -r1.228
--- essence.c 20 Sep 2002 18:35:42 -0000 1.227
+++ essence.c 26 Sep 2002 18:21:38 -0000 1.228
@@ -763,7 +763,7 @@
void*Y320[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 4,binzc,&branch_EVM_invargca,dig,V 3,q,dig,V 3,q,dig,V 3,q,dig,V 3,q,t,&NN_sys_ns_write,tc,V 4,c,mlt,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(integer_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 19,mla,l,V 0,q,mha,l0,q,qi,W(negative_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,j,V 2,t,F,jif,V 43,mla,l,V 0,q,qi,W(sysCOLONwrite),dig,V 5,q,dig,V 5,q,dig,V 5,q,dig,V 5,q,mha,l,V 1,l,V 97,tc,V 5,c,q,mha,l0,q,qi,W(signal_system_error),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 4,r,mla,l,V 0,ds,V 4,r};
void*Y321[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,qi,I(0),mha,l0,q,qi,W(sysCOLONgetpgid),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
void*Y322[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,qi,I(0),qi,I(0),mha,l0,q,qi,W(sysCOLONsetpgid),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r};
-void*Y323[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(size),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 100,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,t,&NN_sys_low_getcwd,tc,V 1,c,mlt,s,V 1,mla,l,V 1,jinf,V 22,dig,V 0,q,qi,I(2),li,rvec+6,tc,V 2,c,q,mha,l,V 2,l,V 0,tc,V 1,c,ds,V 1,r,mla,l,V 1,q,mha,l0,q,qi,W(negative_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 33,mla,l,V 1,q,qi,W(sysCOLONgetcwd),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l0,q,qi,W(signal_system_error),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r,mla,l,V 0,q,qi,F,mla,l,V 1,q,mha,l0,q,qi,W(slice),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,ds,V 1,r};
+void*Y323[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 100,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,t,&NN_sys_low_getcwd,tc,V 1,c,mlt,s,V 1,mla,l,V 1,jinf,V 22,dig,V 0,q,qi,I(2),li,rvec+6,tc,V 2,c,q,mha,l,V 2,l,V 0,tc,V 1,c,ds,V 1,r,mla,l,V 1,q,mha,l0,q,qi,W(negative_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 33,mla,l,V 1,q,qi,W(sysCOLONgetcwd),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l0,q,qi,W(signal_system_error),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r,mla,l,V 0,q,qi,F,mla,l,V 1,q,qi,I(1),li,rvec+5,tc,V 2,c,q,mha,l0,q,qi,W(slice),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,ds,V 1,r};
void*Y324[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mlt,t,Q,mlt,s,V 0,t,B 323,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 0,qi,I(16),mla,l,V 0,tc,V 1,c,r};
void*Y325[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 4,dig,V 0,j,V 113,mla,l,V 0,q,mha,l0,q,qi,W(real_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 81,dig,V 0,q,mha,l,V 1,l,V 93,tc,V 1,c,q,dig,V 1,q,dig,V 2,q,mha,l,V 1,l,V 93,tc,V 1,c,q,li,rvec+5,tc,V 2,c,q,qi,I(1000),li,rvec+6,tc,V 2,c,q,qi,I(1000),li,rvec+6,tc,V 2,c,q,qi,I(1000),li,rvec+6,tc,V 2,c,q,mha,l0,q,qi,W(round),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 78,tc,V 2,c,j,V 13,qi,W(real_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,q,t,&NN_sys_ns_nanosleep,tc,V 1,c,mlt,s,V 1,mla,l,V 1,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 5,t,Z,ds,V 1,r,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 76,dig,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 6,mla,l,V 1,ds,V 1,r,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(1000),li,rvec+7,tc,V 2,c,q,qi,I(1000),li,rvec+7,tc,V 2,c,q,qi,I(1000),li,rvec+7,tc,V 2,c,q,li,rvec+4,tc,V 2,c,ds,V 1,r,mla,l,V 1,q,qi,W(sysCOLONnanosleep),dig,V 2,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l0,q,qi,W(signal_system_error),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r};
void*Y326[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,dig,V 1,q,t,&NN_sys_ns_for_dir_entries,tc,V 2,c,mlt,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(negative_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 48,mla,l,V 0,q,qi,W(sysCOLONfor_dir_entries),dig,V 2,q,mha,l0,q,qi,W(unquote),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 97,tc,V 2,c,q,mha,l0,q,qi,W(signal_system_error),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 2,r,mla,l,V 0,ds,V 2,r};
|
|
From: <di...@us...> - 2002-09-26 18:22:41
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv28730/src/builtin
Modified Files:
sys.wisp
Log Message:
Made Worth's syntax stack visible to the source being translated.
Index: sys.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/sys.wisp,v
retrieving revision 1.119
retrieving revision 1.120
diff -u -d -r1.119 -r1.120
--- sys.wisp 18 Sep 2002 21:08:01 -0000 1.119
+++ sys.wisp 26 Sep 2002 18:22:37 -0000 1.120
@@ -66,12 +66,13 @@
(local (sys:getcwd)
(let (loop (bufsize 16))
- (my buffer (make-c8string size)
+ (my buffer (make-c8string bufsize)
(my res ((asm NN_sys_low_getcwd) buffer)
(cond
((not res) (loop (* bufsize 2)))
((negative? res) (signal-system-error res `(sys:getcwd)))
- (else buffer[... res]))))))
+ ; Note that /res/ includes the terminating NUL byte.
+ (else buffer[... (- res 1)]))))))
(local (sys:nanosleep req)
(my res ((asm NN_sys_ns_nanosleep)
|
|
From: <di...@us...> - 2002-09-20 18:35:48
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv17355/src/builtin
Modified Files:
builtin.wisp stdenv.wisp
Log Message:
Introduced |my-options|.
Index: builtin.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/builtin.wisp,v
retrieving revision 1.212
retrieving revision 1.213
diff -u -d -r1.212 -r1.213
--- builtin.wisp 7 Sep 2002 21:59:26 -0000 1.212
+++ builtin.wisp 20 Sep 2002 18:35:44 -0000 1.213
@@ -629,4 +629,29 @@
(dict? (alist->dict (loop (dict->alist s))))
(else s))))
+(defmacro (my-options decl arglist . body)
+ (my vars '()
+ (my code '()
+ (for-each (lambda (decl)
+ (cond
+ ((keyword? decl)
+ (my var (string->symbol "$[decl]?"[1 ...])
+ (if (keyword? var)
+ (raise 'option-declaration? decl))
+ (cons! vars var)
+ (cons! code `(,decl (set! ,var #t)))))
+ (else (raise 'option-declaration? decl))))
+ decl)
+ `(let ,(map (cut list <> #f) vars)
+ (my .l (hide* ,vars ,arglist)
+ (while (not (null-list? .l))
+ (case (car .l)
+ ,@(map (lambda (code-item)
+ `((,(car code-item)) (hide .l
+ ,@(cdr code-item))))
+ code)
+ (else (raise 'unknown-option (car .l))))
+ (cdr! .l)))
+ ,@body))))
+
; vim: lispwords+=,local
Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.373
retrieving revision 1.374
diff -u -d -r1.373 -r1.374
--- stdenv.wisp 19 Sep 2002 02:43:39 -0000 1.373
+++ stdenv.wisp 20 Sep 2002 18:35:44 -0000 1.374
@@ -12,26 +12,26 @@
(cons 'list
(map (lambda (x) `(cons ',x ,x))
'(* + - / /= < << <= <box> <c16string> <class> <macro>
- <old-file> <old-port> <output-buffered-port>
- <record-type> <u8vector> <vector> =
- > >= >> abs acons! address-of alist->dict alist-copy
- analyse and append append-reverse apply assert
- assert-object-type assoc assq assv atom? aux big-integer?
- bind bit? boolean? box-empty! box-empty? box-ref box?
- broketed? builtin-modules c16string? c8string? caaaar
- caaadr caaar caadar caaddr caadr caar cadaar cadadr cadar
- caddar cadddr caddr cadr call-with-in/out-files
- call-with-input-file call-with-output-file car car! car*
- cardinal? case catch cdaaar cdaadr cdaar cdadar cdaddr
- cdadr cdar cddaar cddadr cddar cdddar cddddr cdddr cddr
- cdr cdr! cdr* ceiling cfmakeraw char->control-char
- char->integer char-and char-bit-clear char-bit-set
- char-bit-toggle char-bit? char-decimal? char-digit?
- char-downcase char-hexadecimal? char-letter-modifier?
- char-letter? char-lower-case? char-mirrored?
- char-number-letter? char-octal? char-or char-order
- char-punctuation-close? char-punctuation-connector?
- char-punctuation-dash? char-punctuation-final-quote?
+ <old-file> <old-port> <output-buffered-port> <record-type>
+ <u8vector> <vector> = > >= >> abs acons! address-of
+ alist->dict alist-copy analyse and append append-reverse
+ apply assert assert-object-type assoc assq assv atom? aux
+ big-integer? bind bit? boolean? box-empty! box-empty?
+ box-ref box? broketed? builtin-modules c16string?
+ c8string? caaaar caaadr caaar caadar caaddr caadr caar
+ cadaar cadadr cadar caddar cadddr caddr cadr
+ call-with-in/out-files call-with-input-file
+ call-with-output-file car car! car* cardinal? case catch
+ cdaaar cdaadr cdaar cdadar cdaddr cdadr cdar cddaar cddadr
+ cddar cdddar cddddr cdddr cddr cdr cdr! cdr* ceiling
+ cfmakeraw char->control-char char->integer char-and
+ char-bit-clear char-bit-set char-bit-toggle char-bit?
+ char-decimal? char-digit? char-downcase char-hexadecimal?
+ char-letter-modifier? char-letter? char-lower-case?
+ char-mirrored? char-number-letter? char-octal? char-or
+ char-order char-punctuation-close?
+ char-punctuation-connector? char-punctuation-dash?
+ char-punctuation-final-quote?
char-punctuation-initial-quote? char-punctuation-open?
char-punctuation? char-ready? char-symbol-currency?
char-symbol-math? char-symbol-starter? char-symbol?
@@ -63,8 +63,8 @@
make-c8string make-class make-counter make-dict
make-instance make-record-type make-string make-vector map
meaning member memq memv metacode modify-bit module
- module-ref modulo my-port native? negative? new newline
- ninth not null-list? null? number->string number?
+ module-ref modulo my-options my-port native? negative? new
+ newline ninth not null-list? null? number->string number?
numerator nybble? nyp? odd? open-input-file
open-output-file opt or order->dict output-mode
output-port? pack-be-integer pack-le-integer
|
|
From: <di...@us...> - 2002-09-20 18:35:47
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv17355/src
Modified Files:
essence.c wordlist.txt
Log Message:
Introduced |my-options|.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.226
retrieving revision 1.227
diff -u -d -r1.226 -r1.227
--- essence.c 20 Sep 2002 18:34:32 -0000 1.226
+++ essence.c 20 Sep 2002 18:35:42 -0000 1.227
@@ -567,535 +567,538 @@
void*Y124[]={binc,&branch_EVM_invargc,mca,subc,V 3,binzc,&branch_EVM_invargca,qi,W(dict_bind_bang),qi,W(quote),dig,V 4,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(quote),dig,V 4,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,dig,V 3,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 3,r};
void*Y125[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 52,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 1,tc,V 1,c,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 1,tc,V 1,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 120,tc,V 1,c,jif,V 19,dig,V 0,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 146,tc,V 1,c,jif,V 42,dig,V 0,q,mha,l0,q,qi,W(vector2list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 2,l,V 1,tc,V 1,c,q,mha,l0,q,qi,W(list2vector),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,mla,l,V 0,q,mha,l,V 1,l,V 86,tc,V 1,c,jif,V 37,dig,V 0,q,mha,l,V 1,l,V 82,tc,V 1,c,q,mha,l,V 2,l,V 1,tc,V 1,c,q,mha,l0,q,qi,W(alist2dict),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,dig,V 0,ds,V 1,r};
void*Y126[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,Q,mlt,s,V 1,t,B 125,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mla,l,V 0,q,mla,l,V 1,tc,V 1,c,r};
-void*Y127[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 1,xri,Q,jiz,V 50,mha,l,V 2,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 0,tc,V 1,c,q,dig,V 1,tc,V 1,c,mha,l,V 2,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mat,mha,l,V 2,st,V 1,j,V -59,t,Z,ds,V 1,r};
-void*Y128[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,t,B 127,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 156,tc,V 1,c,r};
-void*Y129[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(carTIMES),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,jif,V 61,mha,l,V 2,l,V 0,q,mla,l,V 0,q,mha,l,V 1,l,V 11,tc,V 2,c,q,mha,l,V 3,l,V 0,tc,V 1,c,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,q,dig,V 1,q,mha,l,V 1,l,V 158,tc,V 2,c,q,mha,l,V 3,l,V 1,tc,V 1,c,ds,V 1,r,t,Z,ds,V 1,r};
-void*Y130[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,Q,mlt,s,V 1,t,B 129,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mha,l,V 2,l,V 1,q,mha,l,V 2,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 1,tc,V 1,c,r};
-void*Y131[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 146,tc,V 1,c,jif,V 22,mla,l,V 1,q,mha,l0,q,qi,W(vector2list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 1,j,V 0,mla,l,V 2,xri,Q,jinz,V 17,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 158,tc,V 2,c,r,t,B 130,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 156,tc,V 1,c,r};
-void*Y132[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(carTIMES),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,jif,V 58,mla,l,V 0,mlt,s,V 1,mha,l,V 2,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 11,tc,V 2,c,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,q,dig,V 1,q,mha,l,V 1,l,V 158,tc,V 2,c,q,mha,l,V 2,l,V 4,tc,V 1,c,ds,V 1,r,t,F,ds,V 1,r};
-void*Y133[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 2,xri,Q,jinz,V 51,mla,l,V 1,mlt,s,V 3,mla,l,V 3,xri,Q,jiz,V 35,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 0,tc,V 1,c,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 3,j,V -42,t,Z,r,t,Q,mlt,s,V 4,t,B 132,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 4,tc,V 1,c,r};
-void*Y134[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jiz,V 20,mha,l,V 2,l,V 1,q,dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 2,r,t,F,ds,V 2,r};
[...1343 lines suppressed...]
struct cons conses [] = {
@@ -2160,13 +2166,13 @@
[327]{car:CH('C'),cdr:BC 326},
[328]{car:CH('A'),cdr:BC 327},
[329]{car:CH('e'),cdr:BC 328},
-[330]{car:B 724,cdr:Q},
-[331]{car:B 723,cdr:BC 330},
-[332]{car:B 725,cdr:Q},
+[330]{car:B 727,cdr:Q},
+[331]{car:B 726,cdr:BC 330},
+[332]{car:B 728,cdr:Q},
};
/* The root node of the compiled builtin library */
struct node *
-builtin_root = B 727;
+builtin_root = B 730;
/* essence.c ends here */
Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.588
retrieving revision 1.589
diff -u -d -r1.588 -r1.589
--- wordlist.txt 20 Sep 2002 18:34:58 -0000 1.588
+++ wordlist.txt 20 Sep 2002 18:35:44 -0000 1.589
@@ -119,13 +119,14 @@
make-instance make-record-type make-string make-vector map
master-dictionary mat mca meaning measurable? member memq memv meta
metacode mha mla mlt mode modify-bit module module-load module-loop
-module-ref module-was-run modules modulo mta mtime my my-port native?
-negative? negc new newline ninth nlink normalize-binding not
-not-enough-space notc now nul null null-list? null? number
-number->string number? numerator nybble? nyp? o odd? of oflag open
-open-input-file open-output-file opt optimize-source or order->dict
-origin out-of-memory output-buffered-port-aux? output-mode output-port?
-overflow p pack-be-integer pack-le-integer page parse-character-body
+module-ref module-was-run modules modulo mta mtime my my-options
+my-port native? negative? negc new newline ninth nlink
+normalize-binding not not-enough-space notc now nul null null-list?
+null? number number->string number? numerator nybble? nyp? o odd? of
+oflag open open-input-file open-output-file opt optimize-source
+option-declaration? or order->dict origin out-of-memory
+output-buffered-port-aux? output-mode output-port? overflow p
+pack-be-integer pack-le-integer page parse-character-body
parse-lambda-list pc peek-char peek-string ph pick-dict-items pipe pl
port-host port-loop port-peek-string port-read-string port-ready?
port-write-string port? positive? post-codegen postpone-linking prefix
@@ -176,11 +177,11 @@
truncate truncate-not try tty? type type-of u u8 u8vector? ubyte? uid
undefined unix-time unknown unknown-context unknown-local
unknown-open-input-file-flag unknown-open-output-file-flag
-unpack-be-integer unpack-le-integer unquote unquote-splicing unreadable
-unreadable-port unseekable-port unsure-collect unwritable-port use
-utf-8->c16string utf-8-continuer? utf-8-first-byte->length uwyde? val
-valloc value vector vector->list vector-append vector-copy vector-fill!
-vector-move! vector? void void? vs vtab while wisp-build wisp-builder
-wisp-string-hash wisp-version with-errors-to with-fluid with-input-from
-with-output-to writable? write write-char write-string writeln
-wrong-fluid x xors xri zero?
+unknown-option unpack-be-integer unpack-le-integer unquote
+unquote-splicing unreadable unreadable-port unseekable-port
+unsure-collect unwritable-port use utf-8->c16string utf-8-continuer?
+utf-8-first-byte->length uwyde? val valloc value vector vector->list
+vector-append vector-copy vector-fill! vector-move! vector? void void?
+vs vtab while wisp-build wisp-builder wisp-string-hash wisp-version
+with-errors-to with-fluid with-input-from with-output-to writable?
+write write-char write-string writeln wrong-fluid x xors xri zero?
|
|
From: <di...@us...> - 2002-09-20 18:35:03
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv17043/src/builtin
Modified Files:
filing.wisp
Log Message:
Implemented the ~buffered~ option for |open-output-file|.
Index: filing.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/filing.wisp,v
retrieving revision 1.112
retrieving revision 1.113
diff -u -d -r1.112 -r1.113
--- filing.wisp 19 Sep 2002 02:43:39 -0000 1.112
+++ filing.wisp 20 Sep 2002 18:34:59 -0000 1.113
@@ -189,6 +189,10 @@
(friend (%file-descriptor port)
fd))
+; Note that we *don't* want (new <file> ...) to actually open
+; a file. |new| can be invoked by everyone who gets access to
+; both it and the created type; |<file>| can usually easily be
+; extracted via |type-of|.
(my (%<file> %make-file %file-fd %file-mode)
(make-record-type 2
'read-string (lambda (%<file> %make-file %file-fd %file-mode)
@@ -235,6 +239,8 @@
(%file-descriptor file)
(%file-fd (%port-host file)))))
+; XXX: Perhaps it would be better to have handler list slots in
+; port structures instead of wrapping?
(my (%<output-buffered-port> %make-obp %obp-host %obp-buffer %obp-bufptr)
(make-record-type 3
'new (lambda (%<obp> %make-obp %obp-host %obp-buffer %obp-bufptr)
@@ -392,7 +398,8 @@
(system-constant 'open 'O_CREAT)
(system-constant 'open 'O_TRUNC)))
(mode #o644)
- (readable? #f))
+ (readable? #f)
+ (buffered? #f))
(while (not (null? flags))
(my f (car flags)
(if (and (integer? f) (<= 0 f #o7777))
@@ -417,6 +424,8 @@
(system-constant 'open 'O_NOFOLLOW))))
((readable)
(set! readable? #t))
+ ((buffered)
+ (set! buffered? #t))
((#f))
(else
(raise 'unknown-open-output-file-flag f)))))
@@ -426,11 +435,14 @@
'O_RDWR
'O_WRONLY))
bitfield) mode)
- (if readable?
- (my port (make-instance <old-file>)
- (init-output-file port readable? fd)
- port)
- (make-file fd 'write)))))
+ (my port (if readable?
+ (my port (make-instance <old-file>)
+ (init-output-file port readable? fd)
+ port)
+ (make-file fd 'write))
+ (if buffered?
+ (set! port (new <output-buffered-port> port 'c8string 1024)))
+ port))))
(let ((*stdin* (make-instance <old-file>))
(*stdout* (make-file 1 'write))
|
|
From: <di...@us...> - 2002-09-20 18:35:03
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv17043/src
Modified Files:
essence.c wordlist.txt
Log Message:
Implemented the ~buffered~ option for |open-output-file|.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.225
retrieving revision 1.226
diff -u -d -r1.225 -r1.226
--- essence.c 19 Sep 2002 02:43:18 -0000 1.225
+++ essence.c 20 Sep 2002 18:34:32 -0000 1.226
@@ -849,7 +849,7 @@
void*Y407[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 10,q,mha,l0,q,qi,W(frer2structure),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
void*Y408[]={binc,&branch_EVM_invargc,hop,V 11,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 425,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 1,mla,l,V 1,q,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(construct_filename),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 2,l,V 3,jinf,V 32,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,xri,F,jinz,V 4,t,T,j,V 2,t,F,q,mha,l,V 2,l,V 6,tc,V 2,c,mlt,s,V 2,mla,l,V 2,jif,V 309,mla,l,V 2,mlt,s,V 3,t,T,mlt,s,V 4,mla,l,V 3,q,mha,l0,q,qi,W(PCfd2port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 5,mha,l,V 2,l,V 5,jif,V 267,mla,l,V 1,q,mha,l,V 2,l,V 5,q,mha,l0,q,qi,W(construct_filename),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,T,mha,l,V 2,l,V 6,tc,V 2,c,mlt,s,V 6,mla,l,V 6,jif,V 223,mla,l,V 6,q,mha,l0,q,qi,W(PCfd2port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 7,mla,l,V 7,jif,V 196,mla,l,V 7,mlt,s,V 8,mla,l,V 8,q,mha,l0,q,qi,W(file_mtime),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 5,q,mha,l0,q,qi,W(file_mtime),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+15,tc,V 2,c,jif,V 19,mla,l,V 8,q,mha,l0,q,qi,W(close_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,j,V 126,qi,T,t,B 404,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 405,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,mlt,s,V 9,mla,l,V 9,jif,V 80,mla,l,V 9,mlt,s,V 10,qi,T,t,B 406,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 407,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,q,dig,V 0,jif,V 29,dig,V 0,q,mla,l,V 5,q,mha,l0,q,qi,W(close_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,dig,V 0,mlt,s,V 5,ds,V 1,j,V 0,ds,V 1,j,V 0,j,V 0,j,V 0,j,V 0,j,V 0,mla,l,V 5,r,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 7,tc,V 1,c,r,t,F,r};
void*Y409[]={binc,&branch_EVM_invargc,hop,V 8,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,qi,W(open),qi,W(O_RDONLY),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,t,F,mlt,s,V 3,t,F,mlt,s,V 4,t,F,mlt,s,V 5,t,B 401,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 1,xri,Q,jiz,V 238,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,q,dig,V 0,xri,W(follow_not),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_NOFOLLOW),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 156,dig,V 0,xri,W(signal_not),jinz,V 7,t,T,mlt,s,V 3,j,V 143,dig,V 0,xri,W(system_path),jinz,V 27,mha,l0,q,qi,W(Xsystem_pathX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 114,tc,V 1,c,q,dig,V 3,tc,V 1,c,j,V 110,dig,V 0,xri,W(frer),jinz,V 45,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 5,j,V 59,dig,V 0,xri,F,jiz,V 53,dig,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jinf,V 6,dig,V 1,xri,Q,jinz,V 10,dig,V 1,q,dig,V 3,tc,V 1,c,j,V 22,qi,W(unknown_open_input_file_flag),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,ds,V 1,ds,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V -245,ds,V 1,mla,l,V 4,jif,V 22,mla,l,V 4,q,mha,l0,q,qi,W(flatten),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 4,j,V 0,t,B 403,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 6,mla,l,V 4,xri,F,jiz,V 18,mla,l,V 0,q,qi,I(0),mha,l,V 1,l,V 114,tc,V 2,c,xri,CH('/'),jinz,V 7,t,BC 18,mlt,s,V 4,j,V 0,t,Q,mlt,s,V 7,t,B 408,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 7,mla,l,V 4,q,mla,l,V 7,tc,V 1,c,r};
-void*Y410[]={binc,&branch_EVM_invargc,hop,V 7,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,qi,W(open),qi,W(O_CREAT),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,W(open),qi,W(O_TRUNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,t,I(420),mlt,s,V 3,t,F,mlt,s,V 4,mla,l,V 1,xri,Q,jiz,V 508,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,q,mha,l0,q,qi,W(integer_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 53,t,I(0),q,dig,V 1,q,t,I(4095),q,dig,V 1,q,dig,V 3,q,li,rvec+15,tc,V 2,c,jinf,V 21,dig,V 0,q,dig,V 2,q,li,rvec+15,tc,V 2,c,jinf,V 4,t,T,j,V 2,t,F,j,V 2,t,F,ds,V 1,ds,V 1,ds,V 1,j,V 2,t,F,jif,V 7,dig,V 0,mlt,s,V 3,j,V 395,dig,V 0,q,dig,V 0,xri,W(create_not),jinz,V 54,mla,l,V 2,q,qi,W(open),qi,W(O_CREAT),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_not),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(logical_and),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 330,dig,V 0,xri,W(exclusive),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_EXCL),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 284,dig,V 0,xri,W(truncate_not),jinz,V 54,mla,l,V 2,q,qi,W(open),qi,W(O_TRUNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_not),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(logical_and),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 224,dig,V 0,xri,W(append),jinz,V 92,mla,l,V 2,q,qi,W(open),qi,W(O_APPEND),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,mla,l,V 2,q,qi,W(open),qi,W(O_TRUNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_not),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(logical_and),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 126,dig,V 0,xri,W(sync),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_SYNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 80,dig,V 0,xri,W(follow_not),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_NOFOLLOW),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 34,dig,V 0,xri,W(readable),jinz,V 7,t,T,mlt,s,V 4,j,V 21,dig,V 0,xri,F,jiz,V 15,qi,W(unknown_open_output_file_flag),dig,V 2,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,ds,V 1,ds,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V -515,mla,l,V 0,q,qi,W(open),mla,l,V 4,jif,V 4,t,W(O_RDWR),j,V 2,t,W(O_WRONLY),q,mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 2,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 3,q,mha,l0,q,qi,W(sysCOLONopen),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,mlt,s,V 5,mla,l,V 4,jif,V 56,mha,l0,q,qi,W(LTold_fileGT),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(make_instance),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 6,mla,l,V 6,q,mla,l,V 4,q,mla,l,V 5,q,mha,l0,q,qi,W(init_output_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,mla,l,V 6,r,mla,l,V 5,q,qi,W(write),mha,l0,q,qi,W(make_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r};
+void*Y410[]={binc,&branch_EVM_invargc,hop,V 8,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,qi,W(open),qi,W(O_CREAT),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,W(open),qi,W(O_TRUNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,t,I(420),mlt,s,V 3,t,F,mlt,s,V 4,t,F,mlt,s,V 5,mla,l,V 1,xri,Q,jiz,V 521,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,q,mha,l0,q,qi,W(integer_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 53,t,I(0),q,dig,V 1,q,t,I(4095),q,dig,V 1,q,dig,V 3,q,li,rvec+15,tc,V 2,c,jinf,V 21,dig,V 0,q,dig,V 2,q,li,rvec+15,tc,V 2,c,jinf,V 4,t,T,j,V 2,t,F,j,V 2,t,F,ds,V 1,ds,V 1,ds,V 1,j,V 2,t,F,jif,V 7,dig,V 0,mlt,s,V 3,j,V 408,dig,V 0,q,dig,V 0,xri,W(create_not),jinz,V 54,mla,l,V 2,q,qi,W(open),qi,W(O_CREAT),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_not),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(logical_and),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 343,dig,V 0,xri,W(exclusive),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_EXCL),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 297,dig,V 0,xri,W(truncate_not),jinz,V 54,mla,l,V 2,q,qi,W(open),qi,W(O_TRUNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_not),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(logical_and),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 237,dig,V 0,xri,W(append),jinz,V 92,mla,l,V 2,q,qi,W(open),qi,W(O_APPEND),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,mla,l,V 2,q,qi,W(open),qi,W(O_TRUNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_not),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(logical_and),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 139,dig,V 0,xri,W(sync),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_SYNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 93,dig,V 0,xri,W(follow_not),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_NOFOLLOW),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 47,dig,V 0,xri,W(readable),jinz,V 7,t,T,mlt,s,V 4,j,V 34,dig,V 0,xri,W(buffered),jinz,V 7,t,T,mlt,s,V 5,j,V 21,dig,V 0,xri,F,jiz,V 15,qi,W(unknown_open_output_file_flag),dig,V 2,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,ds,V 1,ds,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V -528,mla,l,V 0,q,qi,W(open),mla,l,V 4,jif,V 4,t,W(O_RDWR),j,V 2,t,W(O_WRONLY),q,mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 2,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 3,q,mha,l0,q,qi,W(sysCOLONopen),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,mlt,s,V 6,mla,l,V 4,jif,V 55,mha,l0,q,qi,W(LTold_fileGT),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(make_instance),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,q,mla,l,V 4,q,mla,l,V 6,q,mha,l0,q,qi,W(init_output_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,dig,V 0,ds,V 1,j,V 19,mla,l,V 6,q,qi,W(write),mha,l0,q,qi,W(make_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 7,mla,l,V 5,jif,V 32,mha,l0,q,qi,W(LToutput_buffered_portGT),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 7,q,qi,W(c8string),qi,I(1024),mha,l,V 1,l,V 109,tc,V 4,c,mlt,s,V 7,j,V 0,mla,l,V 7,r};
void*Y411[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(stdin$),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 114,tc,V 1,c,r};
void*Y412[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(stdout$),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 114,tc,V 1,c,r};
void*Y413[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(stderr$),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 114,tc,V 1,c,r};
Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.587
retrieving revision 1.588
diff -u -d -r1.587 -r1.588
--- wordlist.txt 19 Sep 2002 02:43:39 -0000 1.587
+++ wordlist.txt 20 Sep 2002 18:34:58 -0000 1.588
@@ -10,82 +10,83 @@
%fd->port %file-descriptor %get-module %port-host %read-char *
*arglist* *asm-lock* *ctx *source-dictionary* *system-path*
*user-dictionary* + - -> -A ... .l / /= := :=? < <...> << <= <> <box>
-<c16string> <class> <file> <fluid> <macro> <old-file> <old-port> <port>
-<record-type> <u8vector> <vector> = => > >= >> ? B0 B1000000 B110
-B115200 B1152000 B1200 B134 B150 B1500000 B1800 B19200 B200 B2000000
-B230400 B2400 B2500000 B300 B3000000 B3500000 B38400 B4000000 B460800
-B4800 B50 B500000 B57600 B576000 B600 B75 B921600 B9600 BRKINT BS0 BS1
-CALL CBAUDEX CLOCAL CR0 CR1 CR2 CR3 CREAD CS5 CS6 CS7 CS8 CSTOPB DEFINE
-E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EADV EAFNOSUPPORT EAGAIN EALREADY
-EBADE EBADF EBADFD EBADMSG EBADR EBADRQC EBADSLT EBFONT EBUSY ECHILD
-ECHO ECHOCTL ECHOE ECHOK ECHOKE ECHONL ECHOPRT ECHRNG ECOMM
-ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDOTDOT
-EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EIDRM EILSEQ
-EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR EISNAM EL2HLT EL2NSYNC
-EL3HLT EL3RST ELIBACC ELIBBAD ELIBEXEC ELIBMAX ELIBSCN ELNRNG ELOOP
-EMEDIUMTYPE EMFILE EMLINK EMSGSIZE EMULTIHOP ENAMETOOLONG ENAVAIL
-ENETDOWN ENETRESET ENETUNREACH ENFILE ENOANO ENOBUFS ENOCSI ENODATA
-ENODEV ENOENT ENOEXEC ENOLCK ENOLINK ENOMEDIUM ENOMEM ENOMSG ENONET
-ENOPKG ENOPROTOOPT ENOSPC ENOSR ENOSTR ENOSYS ENOTBLK ENOTCONN ENOTDIR
-ENOTEMPTY ENOTNAM ENOTSOCK ENOTTY ENOTUNIQ ENXIO EOF-INSIDE-LIST
-EOF-INSIDE-STRING EOPNOTSUPP EOVERFLOW EPERM EPFNOSUPPORT EPIPE EPROTO
-EPROTONOSUPPORT EPROTOTYPE ERANGE EREMCHG EREMOTE EREMOTEIO ERESTART
-EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESRMNT ESTALE ESTRPIPE
-ETIME ETIMEDOUT ETOOMANYREFS ETXTBSY EUCLEAN EUNATCH EUSERS EXDEV
-EXFULL FD_CLOEXEC FF0 FF1 FLUSHO F_DUPFD F_GETFD F_GETFL F_GETLK
-F_GETLK64 F_GETOWN F_GETSIG F_RDLCK F_SETFD F_SETFL F_SETLK F_SETLK64
-F_SETLKW F_SETLKW64 F_SETOWN F_SETSIG F_UNLCK F_WRLCK GLOBAL HUPCL
-ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR IMAXBEL INLCR INPCK ISIG ISTRIP
-IUCLC IXANY IXOFF IXON LOCK_EX LOCK_MAND LOCK_NB LOCK_READ LOCK_RW
-LOCK_SH LOCK_UN LOCK_WRITE Linux NCCS NL0 NL1 NOFLSH OCRNL OFDEL OFILL
-OLCUC ONLCR ONLRET ONOCR OPOST OR O_APPEND O_ASYNC O_CREAT O_DIRECT
-O_DIRECTORY O_EXCL O_FSYNC O_NDELAY O_NOCTTY O_NOFOLLOW O_NONBLOCK
-O_RDONLY O_RDWR O_SYNC O_TRUNC O_WRONLY PARENB PARMRK PARODD PARSED
-PENDIN SEEK_CUR SEEK_END SEEK_SET T TAB0 TAB1 TAB2 TAB3 TOSTOP
-UNTERMINATED-CHAR-CODE UNTERMINATED-STRING VCALL VDISCARD VEOF VEOL
-VEOL2 VERASE VINTR VKILL VLNEXT VMIN VQUIT VREPRINT VSTART VSTOP VSUSP
-VSWTC VT0 VT1 VTIME VWERASE WITHIN XCASE \16 \8 \c16 \c16string \c8
-\c8string \char16 \char8 abs absolute acons! addat address-of
-alist->dict alist-copy analyse and append append-reverse apply argcount
-args asm assemble assert assert-object-type assertion-failed assoc assq
-assume-constant-globals assv atime atom? aux b backspace
-bad-stacked-var bar begin bell big-integer big-integer? binary-equal?
-binary-logical-xor binary-vector-contents-equal? binc bind binnc binzc
-bit? blksize blockdev blocks boolean boolean? box-empty! box-empty?
-box-ref box? broketed? buffer builtin-modules bury c c16 c16string
-c16string? c8 c8string c8string? caaaar caaadr caaar caadar caaddr
-caadr caar cadaar cadadr cadar caddar cadddr caddr cadr
-call-with-in/out-files call-with-input-file call-with-output-file car
-car! car* cardinal? case catch cc cdaaar cdaadr cdaar cdadar cdaddr
-cdadr cdar cddaar cddadr cddar cdddar cddddr cdddr cddr cdr cdr! cdr*
-ceiling cflag cfmakeraw char char->control-char char->integer char-and
-char-bit-clear char-bit-set char-bit-toggle char-bit? char-decimal?
-char-digit? char-downcase char-hexadecimal? char-letter-modifier?
-char-letter? char-lower-case? char-mirrored? char-number-letter?
-char-octal? char-or char-order char-punctuation-close?
-char-punctuation-connector? char-punctuation-dash?
-char-punctuation-final-quote? char-punctuation-initial-quote?
-char-punctuation-open? char-punctuation? char-ready?
-char-symbol-currency? char-symbol-math? char-symbol-starter?
-char-symbol? char-symbolic? char-title-case? char-titlecase char-upcase
-char-upper-case? char-utf-8 char-utf-8-continue char-utf-8-length
-char-whitespace? char-xor char16 char16-bswap char16-rol char16-ror
-char16? char24? char8 char8-rol char8-ror char8? char<=? char<? char=?
-char>=? char>? char? chardev choice choice? circular-list class
-class->vector class-discriminator class-of class-slots class? cleanup
-close close-hook close-input-port close-output-port close-port closure
-codegen collect collect-string compile compound? concatenate cond
-confess conflict cons cons! cons-copy cons? const construct-filename
-core creatable? create-not ct ctime current-errors-port current-globals
-current-input-port current-output-port cut cute d dat dcc decr! define
-define-class defining-local defmacro denominator desv desv+r dev dict
-dict->alist dict-bind! dict-copy dict-defined? dict-drop! dict-fetch
-dict-ref dict? dict_ref_2 dig directory dis discriminator
-division-by-zero do dot-tail drain drop drop-buffer drop-var ds dsc
-dummy-var duplicat-hook duplicate-aux-hook duplicate-close-port-hook
-duplicate-confess-hook duplicate-dict-item! duplicate-length-hook
-duplicate-new-hook duplicate-read-char-hook duplicate-read-string-hook
-duplicate-ref-hook duplicate-slot-name duplicate-write-char-hook
+<c16string> <class> <file> <fluid> <macro> <old-file> <old-port>
+<output-buffered-port> <port> <record-type> <u8vector> <vector> = => >
+>= >> ? B0 B1000000 B110 B115200 B1152000 B1200 B134 B150 B1500000
+B1800 B19200 B200 B2000000 B230400 B2400 B2500000 B300 B3000000
+B3500000 B38400 B4000000 B460800 B4800 B50 B500000 B57600 B576000 B600
+B75 B921600 B9600 BRKINT BS0 BS1 CALL CBAUDEX CLOCAL CR0 CR1 CR2 CR3
+CREAD CS5 CS6 CS7 CS8 CSTOPB DEFINE E2BIG EACCES EADDRINUSE
+EADDRNOTAVAIL EADV EAFNOSUPPORT EAGAIN EALREADY EBADE EBADF EBADFD
+EBADMSG EBADR EBADRQC EBADSLT EBFONT EBUSY ECHILD ECHO ECHOCTL ECHOE
+ECHOK ECHOKE ECHONL ECHOPRT ECHRNG ECOMM ECONNABORTED ECONNREFUSED
+ECONNRESET EDEADLK EDESTADDRREQ EDOM EDOTDOT EDQUOT EEXIST EFAULT EFBIG
+EHOSTDOWN EHOSTUNREACH EIDRM EILSEQ EINPROGRESS EINTR EINVAL EIO
+EISCONN EISDIR EISNAM EL2HLT EL2NSYNC EL3HLT EL3RST ELIBACC ELIBBAD
+ELIBEXEC ELIBMAX ELIBSCN ELNRNG ELOOP EMEDIUMTYPE EMFILE EMLINK
+EMSGSIZE EMULTIHOP ENAMETOOLONG ENAVAIL ENETDOWN ENETRESET ENETUNREACH
+ENFILE ENOANO ENOBUFS ENOCSI ENODATA ENODEV ENOENT ENOEXEC ENOLCK
+ENOLINK ENOMEDIUM ENOMEM ENOMSG ENONET ENOPKG ENOPROTOOPT ENOSPC ENOSR
+ENOSTR ENOSYS ENOTBLK ENOTCONN ENOTDIR ENOTEMPTY ENOTNAM ENOTSOCK
+ENOTTY ENOTUNIQ ENXIO EOF-INSIDE-LIST EOF-INSIDE-STRING EOPNOTSUPP
+EOVERFLOW EPERM EPFNOSUPPORT EPIPE EPROTO EPROTONOSUPPORT EPROTOTYPE
+ERANGE EREMCHG EREMOTE EREMOTEIO ERESTART EROFS ESHUTDOWN
+ESOCKTNOSUPPORT ESPIPE ESRCH ESRMNT ESTALE ESTRPIPE ETIME ETIMEDOUT
+ETOOMANYREFS ETXTBSY EUCLEAN EUNATCH EUSERS EXDEV EXFULL FD_CLOEXEC FF0
+FF1 FLUSHO F_DUPFD F_GETFD F_GETFL F_GETLK F_GETLK64 F_GETOWN F_GETSIG
+F_RDLCK F_SETFD F_SETFL F_SETLK F_SETLK64 F_SETLKW F_SETLKW64 F_SETOWN
+F_SETSIG F_UNLCK F_WRLCK GLOBAL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR
+IGNPAR IMAXBEL INLCR INPCK ISIG ISTRIP IUCLC IXANY IXOFF IXON LOCK_EX
+LOCK_MAND LOCK_NB LOCK_READ LOCK_RW LOCK_SH LOCK_UN LOCK_WRITE Linux
+NCCS NL0 NL1 NOFLSH OCRNL OFDEL OFILL OLCUC ONLCR ONLRET ONOCR OPOST OR
+O_APPEND O_ASYNC O_CREAT O_DIRECT O_DIRECTORY O_EXCL O_FSYNC O_NDELAY
+O_NOCTTY O_NOFOLLOW O_NONBLOCK O_RDONLY O_RDWR O_SYNC O_TRUNC O_WRONLY
+PARENB PARMRK PARODD PARSED PENDIN SEEK_CUR SEEK_END SEEK_SET T TAB0
+TAB1 TAB2 TAB3 TOSTOP UNTERMINATED-CHAR-CODE UNTERMINATED-STRING VCALL
+VDISCARD VEOF VEOL VEOL2 VERASE VINTR VKILL VLNEXT VMIN VQUIT VREPRINT
+VSTART VSTOP VSUSP VSWTC VT0 VT1 VTIME VWERASE WITHIN XCASE \16 \8 \c16
+\c16string \c8 \c8string \char16 \char8 abs absolute acons! addat
+address-of alist->dict alist-copy analyse and append append-reverse
+apply argcount args asm assemble assert assert-object-type
+assertion-failed assoc assq assume-constant-globals assv atime atom?
+aux b backspace bad-stacked-var bar begin bell big-integer big-integer?
+binary-equal? binary-logical-xor binary-vector-contents-equal? binc
+bind binnc binzc bit? blksize blockdev blocks boolean boolean?
+box-empty! box-empty? box-ref box? broketed? buffer buffered
+builtin-modules bury c c16 c16string c16string? c8 c8string c8string?
+caaaar caaadr caaar caadar caaddr caadr caar cadaar cadadr cadar caddar
+cadddr caddr cadr call-with-in/out-files call-with-input-file
+call-with-output-file car car! car* cardinal? case catch cc cdaaar
+cdaadr cdaar cdadar cdaddr cdadr cdar cddaar cddadr cddar cdddar cddddr
+cdddr cddr cdr cdr! cdr* ceiling cflag cfmakeraw char
+char->control-char char->integer char-and char-bit-clear char-bit-set
+char-bit-toggle char-bit? char-decimal? char-digit? char-downcase
+char-hexadecimal? char-letter-modifier? char-letter? char-lower-case?
+char-mirrored? char-number-letter? char-octal? char-or char-order
+char-punctuation-close? char-punctuation-connector?
+char-punctuation-dash? char-punctuation-final-quote?
+char-punctuation-initial-quote? char-punctuation-open?
+char-punctuation? char-ready? char-symbol-currency? char-symbol-math?
+char-symbol-starter? char-symbol? char-symbolic? char-title-case?
+char-titlecase char-upcase char-upper-case? char-utf-8
+char-utf-8-continue char-utf-8-length char-whitespace? char-xor char16
+char16-bswap char16-rol char16-ror char16? char24? char8 char8-rol
+char8-ror char8? char<=? char<? char=? char>=? char>? char? chardev
+choice choice? circular-list class class->vector class-discriminator
+class-of class-slots class? cleanup close close-hook close-input-port
+close-output-port close-port closure codegen collect collect-string
+compile compound? concatenate cond confess conflict cons cons!
+cons-copy cons? const construct-filename core creatable? create-not ct
+ctime current-errors-port current-globals current-input-port
+current-output-port cut cute d dat dcc decr! define define-class
+defining-local defmacro denominator desv desv+r dev dict dict->alist
+dict-bind! dict-copy dict-defined? dict-drop! dict-fetch dict-ref dict?
+dict_ref_2 dig directory dis discriminator division-by-zero do dot-tail
+drain drop drop-buffer drop-var ds dsc dummy-var duplicat-hook
+duplicate-aux-hook duplicate-close-port-hook duplicate-confess-hook
+duplicate-dict-item! duplicate-length-hook duplicate-new-hook
+duplicate-read-char-hook duplicate-read-string-hook duplicate-ref-hook
+duplicate-slot-name duplicate-write-char-hook
duplicate-write-string-hook dwim-stringify eighth else end
ensure-in-buffer ensure-line-in-buffer env-ref eof-object? eof? eq?
equal? eqv? errno erroneous-binding erroneous-dot-binding eval even?
@@ -183,4 +184,3 @@
wisp-string-hash wisp-version with-errors-to with-fluid with-input-from
with-output-to writable? write write-char write-string writeln
wrong-fluid x xors xri zero?
-<output-buffered-port>
|
|
From: <di...@us...> - 2002-09-19 02:43:43
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv3689
Modified Files:
essence.c wordlist.txt
Log Message:
Implemented char-based output-buffered ports.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.224
retrieving revision 1.225
diff -u -d -r1.224 -r1.225
--- essence.c 18 Sep 2002 21:17:47 -0000 1.224
+++ essence.c 19 Sep 2002 02:43:18 -0000 1.225
@@ -447,8 +447,8 @@
void*Y3[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,t,&NN_pr_make_record_type,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,F,q,t,F,q,t,F,q,t,F,q,t,F,q,t,F,q,t,F,q,t,F,q,t,F,q,t,F,q,mla,l,V 1,xri,Q,jiz,V 524,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 3,p,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 4,p,l,V 1,mlt,s,V 5,mla,l,V 5,mlt,s,V 1,mla,l,V 3,q,dig,V 0,xri,W(ref),jinz,V 40,dig,V 10,jif,V 16,qi,W(duplicate_ref_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 10,j,V 428,dig,V 0,xri,W(length),jinz,V 40,dig,V 9,jif,V 16,qi,W(duplicate_length_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 9,j,V 382,dig,V 0,xri,W(new),jinz,V 40,dig,V 8,jif,V 16,qi,W(duplicate_new_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 8,j,V 336,dig,V 0,xri,W(read_char),jinz,V 40,dig,V 7,jif,V 16,qi,W(duplicate_read_char_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 7,j,V 290,dig,V 0,xri,W(write_char),jinz,V 40,dig,V 6,jif,V 16,qi,W(duplicate_write_char_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 6,j,V 244,dig,V 0,xri,W(read_string),jinz,V 40,dig,V 5,jif,V 16,qi,W(duplicate_read_string_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 5,j,V 198,dig,V 0,xri,W(write_string),jinz,V 40,dig,V 4,jif,V 16,qi,W(duplicate_write_string_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 4,j,V 152,dig,V 0,xri,W(close_port),jinz,V 40,dig,V 3,jif,V 16,qi,W(duplicate_close_port_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 3,j,V 106,dig,V 0,xri,W(aux),jinz,V 40,dig,V 2,jif,V 16,qi,W(duplicate_aux_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 2,j,V 60,dig,V 0,xri,W(confess),jinz,V 40,dig,V 1,jif,V 16,qi,W(duplicate_confess_hook),mla,l,V 4,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 18,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 11,tc,V 2,c,bury,V 1,j,V 14,qi,W(record_hook_name_huh),mla,l,V 3,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,j,V -531,dig,V 9,jif,V 13,dig,V 10,q,dig,V 10,q,t,&NN_pr_record_type_ref_slot,tc,V -2,c,j,V 0,dig,V 8,jif,V 13,dig,V 10,q,dig,V 9,q,t,&NN_pr_record_type_length_slot,tc,V -2,c,j,V 0,dig,V 7,jif,V 13,dig,V 10,q,dig,V 8,q,t,&NN_pr_record_type_new_slot,tc,V -2,c,j,V 0,dig,V 6,jif,V 13,dig,V 10,q,dig,V 7,q,t,&NN_pr_record_type_read_char_slot,tc,V -2,c,j,V 0,dig,V 5,jif,V 13,dig,V 10,q,dig,V 6,q,t,&NN_pr_record_type_write_char_slot,tc,V -2,c,j,V 0,dig,V 4,jif,V 13,dig,V 10,q,dig,V 5,q,t,&NN_pr_record_type_read_string_slot,tc,V -2,c,j,V 0,dig,V 3,jif,V 13,dig,V 10,q,dig,V 4,q,t,&NN_pr_record_type_write_string_slot,tc,V -2,c,j,V 0,dig,V 2,jif,V 13,dig,V 10,q,dig,V 3,q,t,&NN_pr_record_type_close_port_slot,tc,V -2,c,j,V 0,dig,V 1,jif,V 13,dig,V 10,q,dig,V 2,q,t,&NN_pr_record_type_aux_slot,tc,V -2,c,j,V 0,dig,V 0,jif,V 13,dig,V 10,q,dig,V 1,q,t,&NN_pr_record_type_confess_slot,tc,V -2,c,j,V 0,ds,V 1,ds,V 1,ds,V 1,ds,V 1,ds,V 1,ds,V 1,ds,V 1,ds,V 1,ds,V 1,ds,V 1,ds,V 1,mla,l,V 2,r};
void*Y4[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,t,&NN_pr_record_type_read_char_slot,tc,V 1,c,mlt,s,V 0,dig,V 0,q,t,&NN_pr_record_type_read_string_slot,tc,V 1,c,mlt,s,V 1,mla,l,V 0,jif,V 5,mla,l,V 1,j,V 2,t,F,jif,V 5,t,T,ds,V 1,r,mla,l,V 0,jif,V 5,t,W(char),ds,V 1,r,mla,l,V 1,jif,V 5,t,W(string),ds,V 1,r,t,F,ds,V 1,r};
void*Y5[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,t,&NN_pr_record_type_write_char_slot,tc,V 1,c,mlt,s,V 0,dig,V 0,q,t,&NN_pr_record_type_write_string_slot,tc,V 1,c,mlt,s,V 1,mla,l,V 0,jif,V 5,mla,l,V 1,j,V 2,t,F,jif,V 5,t,T,ds,V 1,r,mla,l,V 0,jif,V 5,t,W(char),ds,V 1,r,mla,l,V 1,jif,V 5,t,W(string),ds,V 1,r,t,F,ds,V 1,r};
-void*Y6[]={binc,&branch_EVM_invargc,hop,V 8,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 138,tc,V 1,c,mlt,s,V 2,mla,l,V 2,jif,V 88,mla,l,V 2,mlt,s,V 3,mha,l0,q,qi,W(EQGT),t,&NN_dict_ref_2,tc,V 2,c,jif,V 67,mha,l,V 1,l,V 113,jif,V 57,mla,l,V 3,q,t,&NN_pr_record_type_aux_slot,tc,V 1,c,mlt,s,V 4,mla,l,V 4,jif,V 37,mla,l,V 4,mlt,s,V 5,t,T,mlt,s,V 6,t,F,mlt,s,V 7,mla,l,V 5,q,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 11,tc,V 3,c,r,t,F,r,t,F,r,t,F,r,t,F,r};
-void*Y7[]={binc,&branch_EVM_invargc,hop,V 8,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 138,tc,V 1,c,mlt,s,V 2,mla,l,V 2,jif,V 88,mla,l,V 2,mlt,s,V 3,mha,l0,q,qi,W(EQGT),t,&NN_dict_ref_2,tc,V 2,c,jif,V 67,mha,l,V 1,l,V 113,jif,V 57,mla,l,V 3,q,t,&NN_pr_record_type_confess_slot,tc,V 1,c,mlt,s,V 4,mla,l,V 4,jif,V 37,mla,l,V 4,mlt,s,V 5,t,T,mlt,s,V 6,t,F,mlt,s,V 7,mla,l,V 5,q,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 11,tc,V 3,c,r,t,F,r,t,F,r,t,F,r,t,F,r};
+void*Y6[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 138,tc,V 1,c,mlt,s,V 2,mla,l,V 2,jif,V 70,mla,l,V 2,mlt,s,V 3,mla,l,V 3,q,mha,l,V 1,l,V 113,tc,V 1,c,jif,V 47,mla,l,V 3,q,t,&NN_pr_record_type_aux_slot,tc,V 1,c,mlt,s,V 4,mla,l,V 4,jif,V 27,mla,l,V 4,mlt,s,V 5,mla,l,V 5,q,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 11,tc,V 3,c,r,t,F,r,t,F,r,t,F,r};
+void*Y7[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 138,tc,V 1,c,mlt,s,V 2,mla,l,V 2,jif,V 70,mla,l,V 2,mlt,s,V 3,mla,l,V 3,q,mha,l,V 1,l,V 113,tc,V 1,c,jif,V 47,mla,l,V 3,q,t,&NN_pr_record_type_confess_slot,tc,V 1,c,mlt,s,V 4,mla,l,V 4,jif,V 27,mla,l,V 4,mlt,s,V 5,mla,l,V 5,q,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 11,tc,V 3,c,r,t,F,r,t,F,r,t,F,r};
void*Y8[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 90,tc,V 1,c,jinf,V 28,dig,V 0,q,mha,l,V 1,l,V 108,tc,V 1,c,jinf,V 15,qi,W(procedure_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,dig,V 0,q,mha,l,V 1,l,V 154,tc,V 1,c,ds,V 1,r};
void*Y9[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 155,tc,V 1,c,ds,V 1,r};
void*Y10[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 113,qi,W(define),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(procedure2macro),qi,W(lambda),qi,W(Xsource_dictionaryX),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 42,mla,l,V 2,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 24,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,j,V 2,t,F,jif,V 179,qi,W(define),mla,l,V 1,q,qi,W(procedure2macro),qi,W(lambda),qi,W(Xsource_dictionaryX),qi,W(DOTl),mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(apply),qi,W(hide),qi,W(DOTl),mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(DOTl),qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r,qi,W(syntax_error),qi,W(defmacro),mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 110,tc,V 2,c,r};
@@ -815,8 +815,8 @@
void*Y372[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 4,binzc,&branch_EVM_invargca,mlt,p,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,t,B 371,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,r};
void*Y373[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l,V 2,l,V 2,tc,V 1,c,mlt,s,V 0,mla,l,V 0,jif,V 112,dig,V 0,xri,T,jiz,V 17,dig,V 0,q,dig,V 2,q,mha,l,V 2,l,V 3,tc,V 1,c,xors,jinz,V 45,mla,l,V 0,q,mha,l0,q,qi,W(sysCOLONclose),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,dig,V 1,q,qi,F,mha,l,V 2,l,V 2,tc,V -2,c,dig,V 1,q,qi,F,mha,l,V 2,l,V 3,tc,V -2,c,j,V 42,dig,V 0,xri,W(read),jinz,V 15,dig,V 1,q,qi,W(write),mha,l,V 2,l,V 3,tc,V -2,c,j,V 21,dig,V 0,xri,W(write),jinz,V 15,dig,V 1,q,qi,W(read),mha,l,V 2,l,V 3,tc,V -2,c,j,V 0,j,V 0,t,Z,ds,V 2,r};
void*Y374[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 4,binzc,&branch_EVM_invargca,mlt,p,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,t,B 373,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,r};
-void*Y375[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 95,tc,V 1,c,jif,V 19,dig,V 0,q,mha,l0,q,qi,W(PCfile_descriptor),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,dig,V 0,q,mha,l,V 1,l,V 171,tc,V 1,c,ds,V 1,r};
-void*Y376[]={binc,&branch_EVM_invargc,mca,subc,V 3,binzc,&branch_EVM_invargca,dig,V 2,q,dig,V 2,q,dig,V 2,q,mha,l,V 1,l,V 109,tc,V 2,c,q,qi,I(0),mha,l,V 2,l,V 1,tc,V 3,c,ds,V 3,r};
+void*Y375[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 95,tc,V 1,c,jif,V 19,dig,V 0,q,mha,l0,q,qi,W(PCfile_descriptor),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,dig,V 0,q,mha,l0,q,qi,W(PCport_host),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 171,tc,V 1,c,ds,V 1,r};
+void*Y376[]={binc,&branch_EVM_invargc,mca,subc,V 3,binzc,&branch_EVM_invargca,dig,V 2,q,dig,V 2,xri,W(c8string),jinz,V 13,dig,V 1,q,mha,l,V 1,l,V 100,tc,V 1,c,j,V 14,dig,V 2,q,dig,V 2,q,mha,l,V 1,l,V 109,tc,V 2,c,q,qi,I(0),mha,l,V 2,l,V 1,tc,V 3,c,ds,V 3,r};
void*Y377[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 5,binzc,&branch_EVM_invargca,mlt,p,s,V 4,p,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,t,B 376,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,r};
void*Y378[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 0,q,mha,l,V 2,l,V 2,tc,V 1,c,r};
void*Y379[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 0,t,F,r};
@@ -832,266 +832,270 @@
void*Y389[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 5,binzc,&branch_EVM_invargca,mlt,p,s,V 4,p,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,t,B 388,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,r};
void*Y390[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,qi,W(flush),mha,l0,q,qi,W(aux),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,dig,V 1,q,mha,l,V 2,l,V 2,tc,V 1,c,q,dig,V 1,q,mha,l0,q,qi,W(read_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 2,r};
void*Y391[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 5,binzc,&branch_EVM_invargca,mlt,p,s,V 4,p,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,t,B 390,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,r};
-void*Y393[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,jinf,V 5,dig,V 0,ds,V 2,r,dig,V 1,q,mha,l0,q,qi,W(string_null_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 5,dig,V 0,ds,V 2,r,dig,V 1,q,qi,B 392,mha,l0,q,qi,W(stringEQ_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 5,dig,V 0,ds,V 2,r,dig,V 1,q,qi,I(-1),mha,l,V 1,l,V 114,tc,V 2,c,xri,CH('/'),jinz,V 22,dig,V 1,q,dig,V 1,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 2,r,dig,V 1,q,qi,CH('/'),dig,V 2,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,ds,V 2,r};
-void*Y394[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,dig,V 1,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 19,qi,W(port_loop),mha,l,V 2,l,V 0,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 2,r,dig,V 1,q,qi,W(host),mha,l0,q,qi,W(PCconfess),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 0,mla,l,V 0,jif,V 41,mla,l,V 0,mlt,s,V 1,t,T,mlt,s,V 2,mla,l,V 1,q,dig,V 2,q,dig,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 2,l,V 1,tc,V 2,c,ds,V 2,r,dig,V 1,ds,V 2,r};
-void*Y395[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,Q,mlt,s,V 1,t,B 394,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mla,l,V 0,q,qi,Q,mla,l,V 1,tc,V 2,c,r};
-void*Y396[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(LTold_fileGT),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(make_instance),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,dig,V 1,q,mha,l0,q,qi,W(init_input_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mla,l,V 0,ds,V 1,r};
-void*Y397[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 4,jif,V 28,mha,l,V 2,l,V 4,q,dig,V 1,q,mha,l,V 1,l,V 78,tc,V 2,c,mat,mha,l,V 2,st,V 4,t,Z,ds,V 1,r,dig,V 0,mat,mha,l,V 2,st,V 4,t,Z,ds,V 1,r};
-void*Y398[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,t,F,mlt,s,V 0,mha,l,V 3,l,V 0,q,mha,l,V 2,l,V 2,q,qi,I(0),mha,l0,q,qi,W(sysCOLONopen),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,r};
-void*Y399[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,mla,l,V 1,q,t,B 68,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 398,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,r};
-void*Y400[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 8,q,mha,l0,q,qi,W(close_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,t,F,ds,V 2,r};
-void*Y401[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 8,q,mha,l0,q,qi,W(read_whole_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mha,l,V 3,l,V 8,q,mha,l0,q,qi,W(close_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mla,l,V 0,r};
-void*Y402[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,t,F,ds,V 2,r};
-void*Y403[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 10,q,mha,l0,q,qi,W(frer2structure),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
-void*Y404[]={binc,&branch_EVM_invargc,hop,V 11,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 425,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 1,mla,l,V 1,q,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(construct_filename),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 2,l,V 3,jinf,V 32,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 4,t,T,j,V 2,t,F,xri,F,jinz,V 4,t,T,j,V 2,t,F,q,mha,l,V 2,l,V 6,tc,V 2,c,mlt,s,V 2,mla,l,V 2,jif,V 309,mla,l,V 2,mlt,s,V 3,t,T,mlt,s,V 4,mla,l,V 3,q,mha,l0,q,qi,W(PCfd2port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 5,mha,l,V 2,l,V 5,jif,V 267,mla,l,V 1,q,mha,l,V 2,l,V 5,q,mha,l0,q,qi,W(construct_filename),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,T,mha,l,V 2,l,V 6,tc,V 2,c,mlt,s,V 6,mla,l,V 6,jif,V 223,mla,l,V 6,q,mha,l0,q,qi,W(PCfd2port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 7,mla,l,V 7,jif,V 196,mla,l,V 7,mlt,s,V 8,mla,l,V 8,q,mha,l0,q,qi,W(file_mtime),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 5,q,mha,l0,q,qi,W(file_mtime),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+15,tc,V 2,c,jif,V 19,mla,l,V 8,q,mha,l0,q,qi,W(close_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,j,V 126,qi,T,t,B 400,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 401,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,mlt,s,V 9,mla,l,V 9,jif,V 80,mla,l,V 9,mlt,s,V 10,qi,T,t,B 402,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 403,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,q,dig,V 0,jif,V 29,dig,V 0,q,mla,l,V 5,q,mha,l0,q,qi,W(close_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,dig,V 0,mlt,s,V 5,ds,V 1,j,V 0,ds,V 1,j,V 0,j,V 0,j,V 0,j,V 0,j,V 0,mla,l,V 5,r,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 7,tc,V 1,c,r,t,F,r};
-void*Y405[]={binc,&branch_EVM_invargc,hop,V 8,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,qi,W(open),qi,W(O_RDONLY),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,t,F,mlt,s,V 3,t,F,mlt,s,V 4,t,F,mlt,s,V 5,t,B 397,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 1,xri,Q,jiz,V 238,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,q,dig,V 0,xri,W(follow_not),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_NOFOLLOW),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 156,dig,V 0,xri,W(signal_not),jinz,V 7,t,T,mlt,s,V 3,j,V 143,dig,V 0,xri,W(system_path),jinz,V 27,mha,l0,q,qi,W(Xsystem_pathX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 114,tc,V 1,c,q,dig,V 3,tc,V 1,c,j,V 110,dig,V 0,xri,W(frer),jinz,V 45,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 5,j,V 59,dig,V 0,xri,F,jiz,V 53,dig,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jinf,V 6,dig,V 1,xri,Q,jinz,V 10,dig,V 1,q,dig,V 3,tc,V 1,c,j,V 22,qi,W(unknown_open_input_file_flag),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,ds,V 1,ds,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V -245,ds,V 1,mla,l,V 4,jif,V 22,mla,l,V 4,q,mha,l0,q,qi,W(flatten),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 4,j,V 0,t,B 399,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 6,mla,l,V 4,xri,F,jiz,V 18,mla,l,V 0,q,qi,I(0),mha,l,V 1,l,V 114,tc,V 2,c,xri,CH('/'),jinz,V 7,t,BC 18,mlt,s,V 4,j,V 0,t,Q,mlt,s,V 7,t,B 404,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 7,mla,l,V 4,q,mla,l,V 7,tc,V 1,c,r};
-void*Y406[]={binc,&branch_EVM_invargc,hop,V 7,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,qi,W(open),qi,W(O_CREAT),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,W(open),qi,W(O_TRUNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,t,I(420),mlt,s,V 3,t,F,mlt,s,V 4,mla,l,V 1,xri,Q,jiz,V 508,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,q,mha,l0,q,qi,W(integer_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 53,t,I(0),q,dig,V 1,q,t,I(4095),q,dig,V 1,q,dig,V 3,q,li,rvec+15,tc,V 2,c,jinf,V 21,dig,V 0,q,dig,V 2,q,li,rvec+15,tc,V 2,c,jinf,V 4,t,T,j,V 2,t,F,j,V 2,t,F,ds,V 1,ds,V 1,ds,V 1,j,V 2,t,F,jif,V 7,dig,V 0,mlt,s,V 3,j,V 395,dig,V 0,q,dig,V 0,xri,W(create_not),jinz,V 54,mla,l,V 2,q,qi,W(open),qi,W(O_CREAT),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_not),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(logical_and),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 330,dig,V 0,xri,W(exclusive),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_EXCL),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 284,dig,V 0,xri,W(truncate_not),jinz,V 54,mla,l,V 2,q,qi,W(open),qi,W(O_TRUNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_not),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(logical_and),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 224,dig,V 0,xri,W(append),jinz,V 92,mla,l,V 2,q,qi,W(open),qi,W(O_APPEND),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,mla,l,V 2,q,qi,W(open),qi,W(O_TRUNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_not),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(logical_and),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 126,dig,V 0,xri,W(sync),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_SYNC),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 80,dig,V 0,xri,W(follow_not),jinz,V 40,mla,l,V 2,q,qi,W(open),qi,W(O_NOFOLLOW),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,j,V 34,dig,V 0,xri,W(readable),jinz,V 7,t,T,mlt,s,V 4,j,V 21,dig,V 0,xri,F,jiz,V 15,qi,W(unknown_open_output_file_flag),dig,V 2,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,ds,V 1,ds,V 1,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 1,j,V -515,mla,l,V 0,q,qi,W(open),mla,l,V 4,jif,V 4,t,W(O_RDWR),j,V 2,t,W(O_WRONLY),q,mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 2,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 3,q,mha,l0,q,qi,W(sysCOLONopen),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,mlt,s,V 5,mla,l,V 4,jif,V 56,mha,l0,q,qi,W(LTold_fileGT),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(make_instance),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 6,mla,l,V 6,q,mla,l,V 4,q,mla,l,V 5,q,mha,l0,q,qi,W(init_output_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,mla,l,V 6,r,mla,l,V 5,q,qi,W(write),mha,l0,q,qi,W(make_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r};
-void*Y407[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(stdin$),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 114,tc,V 1,c,r};
-void*Y408[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(stdout$),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 114,tc,V 1,c,r};
-void*Y409[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(stderr$),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 114,tc,V 1,c,r};
-void*Y410[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(stdin$),t,&NN_dict_ref_2,tc,V 2,c,q,dig,V 2,q,dig,V 2,q,mha,l0,q,qi,W(with_fluid),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,ds,V 2,r};
-void*Y411[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(stdout$),t,&NN_dict_ref_2,tc,V 2,c,q,dig,V 2,q,dig,V 2,q,mha,l0,q,qi,W(with_fluid),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,ds,V 2,r};
-void*Y412[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(stderr$),t,&NN_dict_ref_2,tc,V 2,c,q,dig,V 2,q,dig,V 2,q,mha,l0,q,qi,W(with_fluid),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,ds,V 2,r};
-void*Y413[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 18,mac,mca,subc,V 1,jizc,V 23,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 34,mac,p,s,V 1,p,s,V 0,j,V 21,j,V 23,mac,p,s,V 0,mha,l0,q,qi,W(current_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 0,c,s,V 1,t,T,s,V 2,mla,l,V 1,q,mla,l,V 0,q,mla,l,V 2,q,mha,l0,q,qi,W(port_peek_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,r};
-void*Y414[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(peek_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 14,mla,l,V 0,q,mha,l,V 2,l,V 1,tc,V 1,c,j,V 2,t,F,jif,V 83,mha,l,V 2,l,V 0,q,mha,l0,q,qi,W(read_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mla,l,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,mha,l,V 2,l,V 2,q,qi,I(1),li,rvec+5,tc,V 2,c,mat,mha,l,V 2,st,V 2,mha,l,V 2,l,V 2,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 9,mha,l,V 3,l,V 1,tc,V 0,c,r,t,Z,r,t,Z,r};
-void*Y415[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,Q,mlt,s,V 1,t,B 414,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mla,l,V 1,tc,V 0,c,r};
-void*Y416[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,I(0),s,V 2,t,B 415,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(collect_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
-void*Y417[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binc,&branch_EVM_invargca,mac,mca,subc,V 2,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 0,jizc,V 6,mac,p,s,V 0,j,V 16,mac,mha,l0,q,qi,W(current_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 0,c,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(port_ready_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
-void*Y418[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 3,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,qi,W(my),mla,l,V 1,q,mla,l,V 2,q,qi,W(try),qi,W(begin),mla,l,V 3,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(finally),qi,W(if),qi,W(port_huh),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(close_port),mla,l,V 1,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
-void*Y419[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 3,q,mha,l0,q,qi,W(port_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 20,mha,l,V 2,l,V 3,q,mha,l0,q,qi,W(close_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r,t,Z,r};
-void*Y420[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 4,tc,V 0,c,dig,V 1,q,dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 2,r};
-void*Y421[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 3,q,dig,V 0,jif,V 13,dig,V 0,q,mha,l,V 2,l,V 2,tc,V 1,c,j,V 2,t,F,ds,V 1,mlt,s,V 0,mha,l,V 2,l,V 4,tc,V 0,c,mla,l,V 0,r};
-void*Y422[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,p,s,V 2,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mha,l0,q,qi,W(open_input_file),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 11,tc,V 3,c,mlt,s,V 3,t,B 419,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,qi,T,t,B 420,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 421,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,r};
-void*Y423[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,p,s,V 2,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mha,l0,q,qi,W(open_output_file),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 11,tc,V 3,c,mlt,s,V 3,t,B 419,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,qi,T,t,B 420,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 421,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,r};
-void*Y424[]={binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 0,q,mha,l0,q,qi,W(port_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 20,mha,l,V 3,l,V 0,q,mha,l0,q,qi,W(close_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r,t,Z,r};
-void*Y425[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 1,tc,V 0,c,dig,V 1,q,dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 2,r};
-void*Y426[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 3,l,V 0,jif,V 22,mha,l,V 2,l,V 3,q,mha,l,V 3,l,V 0,q,mha,l,V 2,l,V 2,tc,V 2,c,j,V 2,t,Z,mlt,s,V 0,mha,l,V 3,l,V 1,tc,V 0,c,mla,l,V 0,r};
-void*Y427[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 0,binzc,&branch_EVM_invargca,mlt,mha,l,V 2,l,V 3,jif,V 81,mha,l0,q,qi,W(open_output_file),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 2,l,V 1,q,mha,l,V 1,l,V 11,tc,V 2,c,mlt,s,V 0,t,B 424,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,qi,T,t,B 425,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 426,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,j,V 2,t,Z,mlt,s,V 2,mha,l,V 2,l,V 4,tc,V 0,c,mla,l,V 2,r};
-void*Y428[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 3,binzc,&branch_EVM_invargca,mlt,p,s,V 2,p,s,V 1,p,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jinf,V 17,mla,l,V 0,q,mha,l,V 1,l,V 97,tc,V 1,c,mlt,s,V 0,j,V 0,mla,l,V 1,q,mha,l,V 1,l,V 79,tc,V 1,c,jinf,V 17,mla,l,V 1,q,mha,l,V 1,l,V 97,tc,V 1,c,mlt,s,V 1,j,V 0,mha,l0,q,qi,W(open_input_file),t,&NN_dict_ref_2,tc,V 2,c,q,mla,l,V 0,q,mha,l,V 1,l,V 11,tc,V 2,c,mlt,s,V 3,t,B 419,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,qi,T,t,B 420,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 427,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 28,tc,V 3,c,r};
-void*Y429[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 2,l,V 3,mlt,s,V 0,mla,l,V 0,jif,V 19,mla,l,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,j,V 2,t,F,jinf,V 88,mha,l,V 2,l,V 1,q,mha,l,V 2,l,V 2,tc,V 1,c,mlt,s,V 1,mla,l,V 1,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 49,mla,l,V 1,q,mha,l,V 2,l,V 0,tc,V 1,c,mha,l,V 2,l,V 3,jif,V 21,mha,l,V 2,l,V 3,q,qi,I(1),li,rvec+5,tc,V 2,c,mat,mha,l,V 2,st,V 3,j,V 0,mha,l,V 2,l,V 4,tc,V 0,c,r,t,Z,r,t,Z,r};
-void*Y430[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 5,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 3,jizc,V 21,mac,mca,subc,V 2,jizc,V 29,mac,p,s,V 3,p,s,V 2,p,s,V 1,p,s,V 0,j,V 37,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 21,j,V 23,mac,p,s,V 1,p,s,V 0,mha,l0,q,qi,W(read),t,&NN_dict_ref_2,tc,V 2,c,s,V 2,t,F,s,V 3,t,Q,mlt,s,V 4,t,B 429,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 4,mla,l,V 4,tc,V 0,c,t,Z,r};
-void*Y431[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,t,F,mlt,s,V 0,qi,I(16384),dig,V 1,q,mha,l0,q,qi,W(read_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r};
-void*Y432[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,F,mlt,s,V 1,mla,l,V 0,q,mha,l,V 2,l,V 0,q,t,B 431,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(read_allEQGT),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,r};
-void*Y433[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,q,t,B 432,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 156,tc,V 1,c,q,mha,l,V 1,l,V 11,tc,V 2,c,r};
-void*Y434[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 19,mac,p,s,V 0,mha,l0,q,qi,W(current_output_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 0,c,s,V 1,mla,l,V 0,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 1,q,mha,l0,q,qi,W(write_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r};
-void*Y435[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 19,mac,p,s,V 0,mha,l0,q,qi,W(current_output_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 0,c,s,V 1,mla,l,V 0,q,mla,l,V 1,q,mha,l0,q,qi,W(write),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mla,l,V 1,q,mha,l0,q,qi,W(newline),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r};
-void*Y436[]={binc,&branch_EVM_invargc,hop,V 10,mca,subc,V 0,binc,&branch_EVM_invargca,mac,mca,subc,V 2,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 0,jizc,V 6,mac,p,s,V 0,j,V 16,mac,mha,l0,q,qi,W(current_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 0,c,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 95,tc,V 1,c,jif,V 18,mla,l,V 0,q,mha,l0,q,qi,W(PCread_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 138,tc,V 1,c,mlt,s,V 1,mla,l,V 1,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 15,qi,W(readable_huh),mla,l,V 0,q,mha,l,V 1,l,V 110,tc,V 2,c,r,mla,l,V 1,q,t,&NN_pr_record_type_read_char_slot,tc,V 1,c,mlt,s,V 2,mla,l,V 2,jif,V 27,mla,l,V 2,mlt,s,V 3,t,T,mlt,s,V 4,t,F,mlt,s,V 5,mla,l,V 0,q,mla,l,V 3,tc,V 1,c,r,mla,l,V 1,q,t,&NN_pr_record_type_read_string_slot,tc,V 1,c,mlt,s,V 6,mla,l,V 6,jif,V 92,mla,l,V 6,mlt,s,V 7,t,T,mlt,s,V 8,mla,l,V 0,q,qi,I(1),mla,l,V 7,tc,V 2,c,mlt,s,V 9,mla,l,V 9,q,mha,l,V 1,l,V 120,tc,V 1,c,jif,V 29,mla,l,V 9,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,I(1),jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 15,mla,l,V 9,q,qi,I(0),mha,l,V 1,l,V 114,tc,V 2,c,r,mla,l,V 9,r,qi,W(readable_huh),mla,l,V 0,q,mha,l,V 1,l,V 110,tc,V 2,c,r};
-void*Y437[]={binc,&branch_EVM_invargc,hop,V 11,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 19,mac,p,s,V 0,mha,l0,q,qi,W(current_output_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 0,c,s,V 1,mla,l,V 0,q,dig,V 0,q,mha,l,V 1,l,V 77,tc,V 1,c,jinf,V 15,qi,W(char_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,ds,V 1,mla,l,V 1,q,mha,l,V 1,l,V 95,tc,V 1,c,jif,V 31,mla,l,V 1,q,mla,l,V 0,q,mha,l,V 1,l,V 117,tc,V 1,c,q,mha,l0,q,qi,W(port_write_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 138,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 15,qi,W(writable_huh),mla,l,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,r,mla,l,V 2,q,t,&NN_pr_record_type_write_char_slot,tc,V 1,c,mlt,s,V 3,mla,l,V 3,jif,V 31,mla,l,V 3,mlt,s,V 4,t,T,mlt,s,V 5,t,F,mlt,s,V 6,mla,l,V 1,q,mla,l,V 0,q,mla,l,V 4,tc,V 2,c,r,mla,l,V 2,q,t,&NN_pr_record_type_write_string_slot,tc,V 1,c,mlt,s,V 7,mla,l,V 7,jif,V 40,mla,l,V 7,mlt,s,V 8,t,T,mlt,s,V 9,t,F,mlt,s,V 10,mla,l,V 1,q,mla,l,V 0,q,mha,l,V 1,l,V 117,tc,V 1,c,q,mla,l,V 8,tc,V 2,c,r,qi,W(writable_huh),mla,l,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,r};
-void*Y438[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(positive_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 166,mha,l,V 2,l,V 1,q,dig,V 1,q,mha,l,V 2,l,V 4,tc,V 2,c,mlt,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 13,t,T,mat,mha,l,V 2,st,V 6,t,Z,ds,V 1,r,mla,l,V 0,xri,F,jinz,V 4,t,T,j,V 2,t,F,jinf,V 96,mla,l,V 0,q,mha,l,V 1,l,V 120,tc,V 1,c,jinf,V 16,qi,W(string_huh),mla,l,V 0,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 66,mla,l,V 0,q,mha,l0,q,qi,W(string_null_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 47,mla,l,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,dig,V 0,q,mla,l,V 0,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,li,rvec+5,tc,V 2,c,q,mha,l,V 3,l,V 1,tc,V 1,c,ds,V 1,r,t,Z,ds,V 1,r};
-void*Y439[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,Q,mlt,s,V 1,t,B 438,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mha,l,V 2,l,V 0,q,mla,l,V 1,tc,V 1,c,r};
-void*Y440[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(positive_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 131,mha,l,V 2,l,V 1,q,dig,V 1,q,mha,l,V 2,l,V 9,tc,V 2,c,mlt,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(eof_object_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 13,t,T,mat,mha,l,V 2,st,V 11,t,Z,ds,V 1,r,mla,l,V 0,xri,F,jinz,V 4,t,T,j,V 2,t,F,jinf,V 61,mla,l,V 0,q,mha,l,V 1,l,V 77,tc,V 1,c,jinf,V 16,qi,W(char_huh),mla,l,V 0,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 31,mla,l,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,dig,V 0,q,qi,I(1),li,rvec+5,tc,V 2,c,q,mha,l,V 3,l,V 1,tc,V 1,c,ds,V 1,r,t,Z,ds,V 1,r};
-void*Y441[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,Q,mlt,s,V 1,t,B 440,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,mha,l,V 2,l,V 0,q,mla,l,V 1,tc,V 1,c,r};
-void*Y442[]={binc,&branch_EVM_invargc,hop,V 13,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 19,mac,p,s,V 0,mha,l0,q,qi,W(current_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 0,c,s,V 1,mla,l,V 1,q,mha,l,V 1,l,V 95,tc,V 1,c,jif,V 22,mla,l,V 1,q,mla,l,V 0,q,mha,l0,q,qi,W(port_read_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 138,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 15,qi,W(writable_huh),mla,l,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,r,mla,l,V 2,q,t,&NN_pr_record_type_read_string_slot,tc,V 1,c,mlt,s,V 3,mla,l,V 3,jif,V 80,mla,l,V 3,mlt,s,V 4,t,T,mlt,s,V 5,t,F,mlt,s,V 6,t,B 439,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(collect_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 7,mla,l,V 7,q,mha,l0,q,qi,W(string_null_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 5,mla,l,V 6,j,V 2,t,F,jif,V 3,t,Z,r,mla,l,V 7,r,mla,l,V 2,q,t,&NN_pr_record_type_read_char_slot,tc,V 1,c,mlt,s,V 8,mla,l,V 8,jif,V 80,mla,l,V 8,mlt,s,V 9,t,T,mlt,s,V 10,t,F,mlt,s,V 11,t,B 441,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(collect_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 12,mla,l,V 12,q,mha,l0,q,qi,W(string_null_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 5,mla,l,V 11,j,V 2,t,F,jif,V 3,t,Z,r,mla,l,V 12,r,qi,W(readable_huh),mla,l,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,r};
-void*Y443[]={binc,&branch_EVM_invargc,hop,V 12,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 19,mac,p,s,V 0,mha,l0,q,qi,W(current_output_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 0,c,s,V 1,mla,l,V 0,q,dig,V 0,q,mha,l,V 1,l,V 120,tc,V 1,c,jinf,V 15,qi,W(string_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,ds,V 1,mla,l,V 1,q,mha,l,V 1,l,V 95,tc,V 1,c,jif,V 22,mla,l,V 1,q,mla,l,V 0,q,mha,l0,q,qi,W(port_write_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r,mla,l,V 1,q,mha,l,V 1,l,V 138,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 15,qi,W(writable_huh),mla,l,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,r,mla,l,V 2,q,t,&NN_pr_record_type_write_string_slot,tc,V 1,c,mlt,s,V 3,mla,l,V 3,jif,V 31,mla,l,V 3,mlt,s,V 4,t,T,mlt,s,V 5,t,F,mlt,s,V 6,mla,l,V 1,q,mla,l,V 0,q,mla,l,V 4,tc,V 2,c,r,mla,l,V 2,q,t,&NN_pr_record_type_write_char_slot,tc,V 1,c,mlt,s,V 7,mla,l,V 7,jif,V 97,mla,l,V 7,mlt,s,V 8,t,T,mlt,s,V 9,mla,l,V 0,q,mha,l0,q,qi,W(length),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 10,t,I(0),mlt,s,V 11,mla,l,V 11,q,mla,l,V 10,q,li,rvec+15,tc,V 2,c,jif,V 43,mla,l,V 1,q,mla,l,V 0,q,mla,l,V 11,q,mha,l,V 1,l,V 114,tc,V 2,c,q,mla,l,V 8,tc,V 2,c,mla,l,V 11,q,qi,I(1),li,rvec+4,tc,V 2,c,mlt,s,V 11,j,V -58,t,Z,r,qi,W(writable_huh),mla,l,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,r};
-void*Y444[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 95,tc,V 1,c,jif,V 19,dig,V 0,q,mha,l0,q,qi,W(PCclose_input_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,dig,V 0,q,mha,l,V 1,l,V 138,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 16,qi,W(port_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,r,mla,l,V 0,q,t,&NN_pr_record_type_close_port_slot,tc,V 1,c,mlt,s,V 1,mla,l,V 1,jif,V 30,mla,l,V 1,mlt,s,V 2,t,T,mlt,s,V 3,t,F,mlt,s,V 4,dig,V 0,q,qi,W(read),mla,l,V 2,tc,V 2,c,ds,V 1,r,t,F,ds,V 1,r};
-void*Y445[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 95,tc,V 1,c,jif,V 19,dig,V 0,q,mha,l0,q,qi,W(PCclose_output_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,dig,V 0,q,mha,l,V 1,l,V 138,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 16,qi,W(port_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,r,mla,l,V 0,q,t,&NN_pr_record_type_close_port_slot,tc,V 1,c,mlt,s,V 1,mla,l,V 1,jif,V 30,mla,l,V 1,mlt,s,V 2,t,T,mlt,s,V 3,t,F,mlt,s,V 4,dig,V 0,q,qi,W(write),mla,l,V 2,tc,V 2,c,ds,V 1,r,t,F,ds,V 1,r};
-void*Y446[]={binc,&branch_EVM_invargc,hop,V 5,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 95,tc,V 1,c,jif,V 19,dig,V 0,q,mha,l0,q,qi,W(PCclose_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 1,r,dig,V 0,q,mha,l,V 1,l,V 138,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 16,qi,W(port_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,r,mla,l,V 0,q,t,&NN_pr_record_type_close_port_slot,tc,V 1,c,mlt,s,V 1,mla,l,V 1,jif,V 30,mla,l,V 1,mlt,s,V 2,t,T,mlt,s,V 3,t,F,mlt,s,V 4,dig,V 0,q,qi,T,mla,l,V 2,tc,V 2,c,ds,V 1,r,t,F,ds,V 1,r};
-void*Y447[]={binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binc,&branch_EVM_invargca,mac,mca,subc,V 2,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 0,jizc,V 6,mac,p,s,V 0,j,V 16,mac,mha,l0,q,qi,W(current_output_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 0,c,s,V 0,qi,CH(10),mla,l,V 0,q,mha,l0,q,qi,W(write_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,t,Z,r};
-void*Y448[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 0,p,s,V 1,j,V 19,mac,p,s,V 0,mha,l0,q,qi,W(current_output_port),t,&NN_dict_ref_2,tc,V 2,c,tc,V 0,c,s,V 1,mla,l,V 0,q,mha,l0,q,qi,W(dwim_stringify),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 1,q,mha,l0,q,qi,W(write_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,t,Z,r};
-void*Y449[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l,V 1,l,V 120,tc,V 1,c,jif,V 35,dig,V 1,q,dig,V 1,jif,V 12,mha,l0,q,qi,W(sysCOLONstat),t,&NN_dict_ref_2,tc,V 2,c,j,V 10,mha,l0,q,qi,W(sysCOLONlstat),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 2,r,dig,V 1,q,mha,l0,q,qi,W(file_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 33,dig,V 1,q,mha,l0,q,qi,W(file_descriptor),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(sysCOLONfstat),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,ds,V 2,r,qi,W(file_huh),dig,V 2,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 2,r};
-void*Y450[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,T,s,V 1,mha,l,V 1,l,V 78,q,qi,BC 45,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 178,tc,V 2,c,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,mlt,s,V 2,qi,W(st_mode),mla,l,V 2,q,mha,l0,q,qi,W(assq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 3,mla,l,V 3,q,qi,I(4096),mha,l,V 1,l,V 107,tc,V 2,c,mlt,s,V 4,mla,l,V 3,q,qi,I(4096),mha,l0,q,qi,W(quotient),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 5,qi,W(type),mla,l,V 5,q,mha,l0,q,qi,W(file_types),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(assv),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,dig,V 0,jif,V 13,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,j,V 2,t,F,ds,V 1,jinf,V 2,t,F,q,mha,l,V 1,l,V 78,tc,V 2,c,q,qi,W(mode),mla,l,V 4,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mla,l,V 2,q,mha,l,V 1,l,V 78,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,r};
-void*Y451[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,T,s,V 1,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 178,tc,V 2,c,q,mha,l0,q,qi,W(third),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,I(4096),mha,l0,q,qi,W(quotient),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(file_types),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(assv),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 2,mla,l,V 2,jif,V 13,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,r,t,F,r};
-void*Y452[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,T,s,V 1,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 178,tc,V 2,c,q,qi,I(12),mha,l0,q,qi,W(list_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r};
-void*Y453[]={binc,&branch_EVM_invargc,hop,V 2,mca,subc,V 1,binc,&branch_EVM_invargca,mac,mca,subc,V 3,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 1,jizc,V 9,mac,p,s,V 1,p,s,V 0,j,V 8,mac,p,s,V 0,t,T,s,V 1,mla,l,V 0,q,mla,l,V 1,q,mha,l,V 1,l,V 178,tc,V 2,c,q,qi,I(11),mha,l0,q,qi,W(list_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r};
-void*Y454[]={binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 2,binc,&branch_EVM_invargca,mac,mca,subc,V 4,binnc,&branch_EVM_invargca,mac,mlt,mca,mca,subc,V 2,jizc,V 12,mac,p,s,V 2,p,s,V 1,p,s,V 0,j,V 11,mac,p,s,V 1,p,s,V 0,t,T,s,V 2,mla,l,V 1,q,qi,W(open),qi,W(O_RDONLY),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,W(open),qi,W(O_DIRECTORY),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 2,jif,V 4,t,I(0),j,V 17,qi,W(open),qi,W(O_NOFOLLOW),mha,l0,q,qi,W(system_constant),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(logical_or),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,I(0),mha,l0,q,qi,W(sysCOLONopen),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,mlt,s,V 3,mla,l,V 0,q,mla,l,V 3,q,mha,l0,q,qi,W(sysCOLONfor_dir_entries),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mla,l,V 3,q,mha,l0,q,qi,W(sysCOLONclose),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,t,Z,r};
-void*Y455[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 2,binzc,&branch_EVM_invargca,t,Q,mlt,s,V 0,dig,V 1,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 14,dig,V 0,xri,Q,jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 391,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,q,mha,l,V 1,l,V 121,tc,V 1,c,jif,V 68,dig,V 2,q,mha,l0,q,qi,W(odd_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 28,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mla,l,V 0,q,mha,l,V 1,l,V 78,tc,V 2,c,mlt,s,V 0,j,V 0,dig,V 2,q,qi,I(2),mha,l0,q,qi,W(quotient),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,bury,V 2,j,V 282,dig,V 0,jinf,V 22,dig,V 2,q,qi,I(2),mha,l0,q,qi,W(quotient),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,bury,V 2,j,V 256,dig,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jif,V 230,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 1,p,l,V 1,mlt,s,V 2,t,I(1),q,mla,l,V 1,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 28,dig,V 0,q,qi,I(2),li,rvec+6,tc,V 2,c,bury,V 0,mla,l,V 1,q,qi,I(1),li,rvec+5,tc,V 2,c,mlt,s,V 1,j,V -47,dig,V 3,q,dig,V 1,q,mha,l,V 1,l,V 107,tc,V 2,c,q,dig,V 4,q,dig,V 2,q,mha,l0,q,qi,W(quotient),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,bury,V 4,dig,V 0,q,mha,l0,q,qi,W(zero_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 15,mla,l,V 2,xri,Q,jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 29,dig,V 0,q,qi,I(1),li,rvec+5,tc,V 2,c,bury,V 0,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 2,j,V -66,mla,l,V 2,xri,Q,jiz,V 45,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,jif,V 25,dig,V 0,q,dig,V 0,q,mla,l,V 0,q,mha,l,V 1,l,V 78,tc,V 2,c,mlt,s,V 0,ds,V 1,j,V 0,ds,V 1,j,V 0,ds,V 1,ds,V 1,j,V 13,qi,W(flag_specifier_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -427,mla,l,V 0,ds,V 2,r};
-void*Y456[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l0,q,qi,W(file_descriptor),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 165,tc,V 1,c,ds,V 1,r};
-void*Y457[]={binc,&branch_EVM_invargc,mca,subc,V 3,binzc,&branch_EVM_invargca,dig,V 2,q,mha,l0,q,qi,W(file_descriptor),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 2,q,dig,V 2,q,mha,l,V 1,l,V 166,tc,V 3,c,ds,V 3,r};
-void*Y458[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 2,l,V 9,q,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 114,tc,V 2,c,q,mha,l,V 1,l,V 78,tc,V 2,c,ds,V 1,r};
-void*Y459[]={binc,&branch_EVM_invargc,hop,V 10,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,mla,l,V 0,q,mha,l0,q,qi,W(tcgetattr_raw),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 1,mla,l,V 1,mlt,s,V 2,mla,l,V 2,xri,Q,jiz,V 472,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 3,t,T,mlt,s,V 4,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 5,mla,l,V 5,xri,W(iflag),jinz,V 48,mla,l,V 3,q,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,BC 59,mha,l0,q,qi,W(integer2flag_list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,j,V 367,mla,l,V 5,xri,W(oflag),jinz,V 48,mla,l,V 3,q,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,BC 95,mha,l0,q,qi,W(integer2flag_list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,j,V 312,mla,l,V 5,xri,W(cflag),jinz,V 164,mla,l,V 3,q,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 6,mla,l,V 6,q,qi,I(16),mha,l,V 1,l,V 107,tc,V 2,c,mlt,s,V 7,mla,l,V 6,q,qi,I(16),mha,l0,q,qi,W(quotient),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,qi,BC 108,mha,l0,q,qi,W(integer2flag_list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 8,qi,W(CBAUDEX),mla,l,V 8,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 16,mla,l,V 7,q,qi,I(16),li,rvec+4,tc,V 2,c,mlt,s,V 7,j,V 0,mla,l,V 7,q,qi,BC 142,mha,l0,q,qi,W(integer2flag_list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mla,l,V 8,q,mha,l0,q,qi,W(append_reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,j,V 141,mla,l,V 5,xri,W(lflag),jinz,V 48,mla,l,V 3,q,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,BC 158,mha,l0,q,qi,W(integer2flag_list),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,j,V 86,mla,l,V 5,xri,W(cc),jinz,V 79,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 9,mla,l,V 3,q,t,B 458,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,qi,W(termios),qi,W(cc),mha,l0,q,qi,W(system_constant_internal),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(map),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,j,V 0,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 2,j,V -479,mla,l,V 1,r};
-void*Y460[]={binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,xri,Q,jiz,V 6253,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 0,p,l,V 1,mlt,s,V 1,mla,l,V 0,mlt,s,V 2,mla,l,V 2,xri,W(now),jiz,V 14,mla,l,V 2,xri,W(drain),jiz,V 7,mla,l,V 2,xri,W(flush),jinz,V 86,mha,l,V 2,l,V 8,jif,V 20,mla,l,V 0,q,mha,l,V 2,l,V 8,xors,jiz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 31,qi,W(conflict),mha,l,V 2,l,V 8,q,mla,l,V 0,q,mha,l,V 1,l,V 97,tc,V 2,c,q,mha,l,V 1,l,V 110,tc,V 2,c,j,V 0,mla,l,V 0,mat,mha,l,V 2,st,V 8,mla,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IGNBRK),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(0),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(BRKINT),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(1),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IGNPAR),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(2),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(PARMRK),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(3),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(INPCK),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(4),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ISTRIP),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(5),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(INLCR),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(6),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IGNCR),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(7),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ICRNL),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(8),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IUCLC),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(9),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IXON),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(10),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IXANY),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(11),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IXOFF),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(12),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(IMAXBEL),jinz,V 86,mha,l,V 2,l,V 3,q,mha,l,V 2,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(13),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(OPOST),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(0),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(OLCUC),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(1),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ONLCR),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(2),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(OCRNL),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(3),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ONOCR),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(4),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(ONLRET),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(5),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(OFILL),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(6),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(OFDEL),jinz,V 86,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(7),mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 9,tc,V 1,c,ds,V 1,r,mla,l,V 2,xri,W(NL0),jinz,V 57,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(8),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(NL1),jinz,V 57,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(8),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(CR0),jinz,V 109,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(9),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(10),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(CR1),jinz,V 109,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(9),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(10),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(CR2),jinz,V 109,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(9),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(10),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(CR3),jinz,V 109,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(9),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(10),qi,I(1),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,ds,V 1,r,mla,l,V 2,xri,W(TAB0),jinz,V 109,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(11),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mha,l,V 2,l,V 4,q,mha,l,V 2,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,I(12),qi,I(0),mha,l0,q,qi,W(modify_bit),t,&NN_dict_ref_2,...
[truncated message content] |
|
From: <di...@us...> - 2002-09-19 02:43:43
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv3689/builtin
Modified Files:
filing.wisp records.wisp stdenv.wisp
Log Message:
Implemented char-based output-buffered ports.
Index: filing.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/filing.wisp,v
retrieving revision 1.111
retrieving revision 1.112
diff -u -d -r1.111 -r1.112
--- filing.wisp 18 Sep 2002 21:18:04 -0000 1.111
+++ filing.wisp 19 Sep 2002 02:43:39 -0000 1.112
@@ -233,13 +233,16 @@
(define (file-descriptor file)
(if (instance? file)
(%file-descriptor file)
- (%file-fd file))))
+ (%file-fd (%port-host file)))))
(my (%<output-buffered-port> %make-obp %obp-host %obp-buffer %obp-bufptr)
(make-record-type 3
'new (lambda (%<obp> %make-obp %obp-host %obp-buffer %obp-bufptr)
(lambda (host buffer-type buffer-size)
- (%make-obp host (new buffer-type buffer-size) 0)))
+ (%make-obp host (if (eq? buffer-type 'c8string)
+ (make-c8string buffer-size)
+ (new buffer-type buffer-size))
+ 0)))
'confess (lambda (%<obp> %make-obp %obp-host %obp-buffer %obp-bufptr)
(lambda (port . rest)
(apply
@@ -267,7 +270,23 @@
'read-string (lambda (%<obp> %make-obp %obp-host %obp-buffer %obp-bufptr)
(lambda (port amount)
(aux port 'flush)
- (read-string (%obp-host port) amount)))))
+ (read-string (%obp-host port) amount)))
+ 'write-char (lambda (%<obp> %make-obp %obp-host %obp-buffer %obp-bufptr)
+ (lambda (port ch)
+ (set! (ref (%obp-buffer port) (%obp-bufptr port)) ch)
+ (incr! (%obp-bufptr port))
+ (if (>= (%obp-bufptr port) (length (%obp-buffer port)))
+ (aux port 'flush))))
+ 'close-port (lambda (%<obp> %make-obp %obp-host %obp-buffer %obp-bufptr)
+ (lambda (port direction)
+ (aux port 'flush)
+ (case direction
+ ((#t) (close-port (%obp-host port)))
+ ((read) (close-input-port (%obp-host port)))
+ ((write) (close-output-port (%obp-host port))))
+ (begin))))
+
+ (define <output-buffered-port> %<output-buffered-port>))
(define (construct-filename dir base)
(cond
Index: records.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/records.wisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- records.wisp 18 Sep 2002 21:18:04 -0000 1.10
+++ records.wisp 19 Sep 2002 02:43:39 -0000 1.11
@@ -109,11 +109,13 @@
; the Wisp and objects while |aux| is for public communication between
; objects and their clients.
(define (aux obj . args)
- (and (type-of obj) -> t => record-type?
- ((asm NN_pr_record_type_aux_slot) t)
- => (cut apply <> obj args)))
+ (and (type-of obj) -> t
+ (record-type? t)
+ ((asm NN_pr_record_type_aux_slot) t) -> a
+ (apply a obj args)))
(define (%confess obj . args)
- (and (type-of obj) -> t => record-type?
- ((asm NN_pr_record_type_confess_slot) t)
- => (cut apply <> obj args)))
+ (and (type-of obj) -> t
+ (record-type? t)
+ ((asm NN_pr_record_type_confess_slot) t) -> c
+ (apply c obj args)))
Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.372
retrieving revision 1.373
diff -u -d -r1.372 -r1.373
--- stdenv.wisp 18 Sep 2002 21:18:04 -0000 1.372
+++ stdenv.wisp 19 Sep 2002 02:43:39 -0000 1.373
@@ -12,7 +12,8 @@
(cons 'list
(map (lambda (x) `(cons ',x ,x))
'(* + - / /= < << <= <box> <c16string> <class> <macro>
- <old-file> <old-port> <record-type> <u8vector> <vector> =
+ <old-file> <old-port> <output-buffered-port>
+ <record-type> <u8vector> <vector> =
> >= >> abs acons! address-of alist->dict alist-copy
analyse and append append-reverse apply assert
assert-object-type assoc assq assv atom? aux big-integer?
|
|
From: <di...@us...> - 2002-09-18 21:18:20
|
Update of /cvsroot/wisp/wisp/modules In directory usw-pr-cvs1:/tmp/cvs-serv2384/modules Modified Files: builtin.wid Log Message: Created the beginnings of port wrapping. Index: builtin.wid =================================================================== RCS file: /cvsroot/wisp/wisp/modules/builtin.wid,v retrieving revision 1.181 retrieving revision 1.182 diff -u -d -r1.181 -r1.182 --- builtin.wid 18 Sep 2002 21:11:06 -0000 1.181 +++ builtin.wid 18 Sep 2002 21:17:47 -0000 1.182 @@ -1453,6 +1453,13 @@ :See also: |map|, |collect-string|. +confess + + This confessor intentionally left undocumented. + + :See also: |aux|. + + cons (|cons| /car/ /cdr/) => /cons/ |
|
From: <di...@us...> - 2002-09-18 21:18:20
|
Update of /cvsroot/wisp/wisp/doc In directory usw-pr-cvs1:/tmp/cvs-serv2384/doc Modified Files: wisp.vim Log Message: Created the beginnings of port wrapping. Index: wisp.vim =================================================================== RCS file: /cvsroot/wisp/wisp/doc/wisp.vim,v retrieving revision 1.230 retrieving revision 1.231 diff -u -d -r1.230 -r1.231 --- wisp.vim 18 Sep 2002 21:15:12 -0000 1.230 +++ wisp.vim 18 Sep 2002 21:17:46 -0000 1.231 @@ -123,20 +123,21 @@ syn keyword wispFunc * + - / /= < << <= = > >= >> abs address-of syn keyword wispFunc alist->dict alist->vector alist-copy analyse angle syn keyword wispFunc append append-reverse apply assert-object-type -syn keyword wispFunc assoc assq assv atom? big-integer? bit? boolean? -syn keyword wispFunc box-empty! box-empty? box-ref box? broketed? -syn keyword wispFunc builtin-modules c16string? c8string? caaaar caaadr -syn keyword wispFunc caaar caadar caaddr caadr caar cadaar cadadr cadar -syn keyword wispFunc caddar cadddr caddr cadr call-with-in/out-files -syn keyword wispFunc call-with-input-file call-with-output-file car -syn keyword wispFunc car* cardinal? catch cdaaar cdaadr cdaar cdadar -syn keyword wispFunc cdaddr cdadr cdar cddaar cddadr cddar cdddar -syn keyword wispFunc cddddr cdddr cddr cdr cdr* ceiling cfmakeraw -syn keyword wispFunc char->control-char char->integer char-and -syn keyword wispFunc char-bit-clear char-bit-set char-bit-toggle -syn keyword wispFunc char-bit? char-decimal? char-digit? char-downcase -syn keyword wispFunc char-hexadecimal? char-letter-modifier? -syn keyword wispFunc char-letter? char-lower-case? char-mirrored? +syn keyword wispFunc assoc assq assv atom? aux big-integer? bit? +syn keyword wispFunc boolean? box-empty! box-empty? box-ref box? +syn keyword wispFunc broketed? builtin-modules c16string? c8string? +syn keyword wispFunc caaaar caaadr caaar caadar caaddr caadr caar +syn keyword wispFunc cadaar cadadr cadar caddar cadddr caddr cadr +syn keyword wispFunc call-with-in/out-files call-with-input-file +syn keyword wispFunc call-with-output-file car car* cardinal? catch +syn keyword wispFunc cdaaar cdaadr cdaar cdadar cdaddr cdadr cdar +syn keyword wispFunc cddaar cddadr cddar cdddar cddddr cdddr cddr cdr +syn keyword wispFunc cdr* ceiling cfmakeraw char->control-char +syn keyword wispFunc char->integer char-and char-bit-clear char-bit-set +syn keyword wispFunc char-bit-toggle char-bit? char-decimal? +syn keyword wispFunc char-digit? char-downcase char-hexadecimal? +syn keyword wispFunc char-letter-modifier? char-letter? +syn keyword wispFunc char-lower-case? char-mirrored? syn keyword wispFunc char-number-letter? char-octal? char-or char-order syn keyword wispFunc char-punctuation-close? syn keyword wispFunc char-punctuation-connector? char-punctuation-dash? |
Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv2384/src/native
Modified Files:
boxes.s boxes.wth misc.s misc.wth records.nasm vectors.s
vectors.wth wstrings.s wstrings.wth
Log Message:
Created the beginnings of port wrapping.
Index: boxes.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/boxes.s,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- boxes.s 18 Sep 2002 21:16:50 -0000 1.12
+++ boxes.s 18 Sep 2002 21:18:04 -0000 1.13
@@ -69,5 +69,5 @@
.long NN_box_ref
.byte 19,0,0,0
.long NN_make_box
-.byte 19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0
+.byte 19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0
.global RT_box
Index: boxes.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/boxes.wth,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- boxes.wth 18 Sep 2002 21:16:50 -0000 1.8
+++ boxes.wth 18 Sep 2002 21:18:04 -0000 1.9
@@ -19,6 +19,8 @@
(tetra 19) ; FALSE
(tetra 19) ; FALSE
(tetra 19) ; FALSE
+ (tetra 19) ; FALSE
+ (tetra 19) ; FALSE
(tetra 19)) ; FALSE
(extern RT_box)
Index: misc.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.s,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- misc.s 18 Sep 2002 21:16:50 -0000 1.12
+++ misc.s 18 Sep 2002 21:18:04 -0000 1.13
@@ -81,6 +81,24 @@
.equiv NN_record_type_length, N_record_type_length + 1
.section .text
.align 16
+N_pr_record_type_confess_slot:
+.byte 144,187,12,0,0,0,186
+.long RT_record_type
+.byte 233
+.long slot_accessor_body - (.+4)
+.global N_pr_record_type_confess_slot,NN_pr_record_type_confess_slot
+.equiv NN_pr_record_type_confess_slot, N_pr_record_type_confess_slot + 1
+.section .text
+.align 16
+N_pr_record_type_aux_slot:
+.byte 144,187,11,0,0,0,186
+.long RT_record_type
+.byte 233
+.long slot_accessor_body - (.+4)
+.global N_pr_record_type_aux_slot,NN_pr_record_type_aux_slot
+.equiv NN_pr_record_type_aux_slot, N_pr_record_type_aux_slot + 1
+.section .text
+.align 16
N_pr_record_type_close_port_slot:
.byte 144,187,10,0,0,0,186
.long RT_record_type
@@ -164,11 +182,12 @@
.align 16
RT_record_type:
.long RT_record_type
-.byte 10,0,0,0
+.byte 12,0,0,0
.long NN_record_type_huh
.byte 19,0,0,0
.long NN_record_type_length
-.byte 19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0
+.byte 19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19
+.byte 0,0,0
.global RT_record_type
.section .text
.align 16
Index: misc.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.wth,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- misc.wth 18 Sep 2002 21:16:50 -0000 1.12
+++ misc.wth 18 Sep 2002 21:18:04 -0000 1.13
@@ -41,9 +41,11 @@
(native rvec_set dup 2 = argc drop
swap RVEC_LEN rdecui cells 'rvec + cell! VOID)
+; The |confess| slot is meant for communicating between Wisp and
+; the object--it is not generally accessible by the user code.
(assemble RT_record_type
(tetra RT_record_type) ; type pointer
- (tetra 10) ; slot count
+ (tetra 12) ; slot count
(tetra NN_record_type_huh) ; discriminator
(tetra 19) ; FALSE ; |ref|
(tetra NN_record_type_length) ; |length|
@@ -52,7 +54,9 @@
(tetra 19) ; FALSE ; |write-char|
(tetra 19) ; FALSE ; |read-string|
(tetra 19) ; FALSE ; |write-string|
- (tetra 19)) ; FALSE ; |close-port|
+ (tetra 19) ; FALSE ; |close-port|
+ (tetra 19) ; FALSE ; |aux|
+ (tetra 19)) ; FALSE ; |confess|
(native record_type_huh
'RT_record_type go-discriminate)
@@ -84,6 +88,12 @@
(native pr_record_type_close_port_slot
'RT_record_type 10 go-access-slot)
+
+(native pr_record_type_aux_slot
+ 'RT_record_type 11 go-access-slot)
+
+(native pr_record_type_confess_slot
+ 'RT_record_type 12 go-access-slot)
(native record_type_length dup 1 = argc drop
dup get-type 'RT_record_type = if
Index: records.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/records.nasm,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- records.nasm 18 Sep 2002 21:16:50 -0000 1.36
+++ records.nasm 18 Sep 2002 21:18:04 -0000 1.37
@@ -28,7 +28,7 @@
mov [esp], eax
mov edx, RT_record_type
; we don't have a discriminator yet
- gcall record_constructor_body, eax, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
+ gcall record_constructor_body, eax, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
push eax
; stack: (slot-count record-type)
valloc 6
Index: vectors.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/vectors.s,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- vectors.s 18 Sep 2002 21:16:50 -0000 1.3
+++ vectors.s 18 Sep 2002 21:18:04 -0000 1.4
@@ -125,7 +125,7 @@
.long NN_u8vector_ref
.long NN_u8vector_length
.long NN_make_u8vector
-.byte 19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0
+.byte 19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0
.global RT_u8vector
.section .text
.align 16
@@ -334,5 +334,5 @@
.long NN_vector_ref
.long NN_vector_length
.long NN_make_vector
-.byte 19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0
+.byte 19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0
.global RT_vector
Index: vectors.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/vectors.wth,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- vectors.wth 18 Sep 2002 21:16:50 -0000 1.3
+++ vectors.wth 18 Sep 2002 21:18:04 -0000 1.4
@@ -42,6 +42,8 @@
(tetra 19) ; FALSE
(tetra 19) ; FALSE
(tetra 19) ; FALSE
+ (tetra 19) ; FALSE
+ (tetra 19) ; FALSE
(tetra 19)) ; FALSE
(native vector_huh
@@ -113,6 +115,8 @@
(tetra NN_u8vector_ref)
(tetra NN_u8vector_length)
(tetra NN_make_u8vector)
+ (tetra 19) ; FALSE
+ (tetra 19) ; FALSE
(tetra 19) ; FALSE
(tetra 19) ; FALSE
(tetra 19) ; FALSE
Index: wstrings.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/wstrings.s,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- wstrings.s 18 Sep 2002 21:16:50 -0000 1.7
+++ wstrings.s 18 Sep 2002 21:18:04 -0000 1.8
@@ -35,5 +35,5 @@
.long NN_c16string_ref
.byte 19,0,0,0
.long NN_make_c16string
-.byte 19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0
+.byte 19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0
.global RT_c16string
Index: wstrings.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/wstrings.wth,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- wstrings.wth 18 Sep 2002 21:16:50 -0000 1.7
+++ wstrings.wth 18 Sep 2002 21:18:04 -0000 1.8
@@ -19,6 +19,8 @@
(tetra 19) ; FALSE
(tetra 19) ; FALSE
(tetra 19) ; FALSE
+ (tetra 19) ; FALSE
+ (tetra 19) ; FALSE
(tetra 19)) ; FALSE
(extern RT_c16string)
|
|
From: <di...@us...> - 2002-09-18 21:18:07
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv2384/src/builtin
Modified Files:
filing.wisp init.wisp records.wisp stdenv.wisp
Log Message:
Created the beginnings of port wrapping.
Index: filing.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/filing.wisp,v
retrieving revision 1.110
retrieving revision 1.111
diff -u -d -r1.110 -r1.111
--- filing.wisp 18 Sep 2002 21:16:49 -0000 1.110
+++ filing.wisp 18 Sep 2002 21:18:04 -0000 1.111
@@ -235,6 +235,40 @@
(%file-descriptor file)
(%file-fd file))))
+(my (%<output-buffered-port> %make-obp %obp-host %obp-buffer %obp-bufptr)
+ (make-record-type 3
+ 'new (lambda (%<obp> %make-obp %obp-host %obp-buffer %obp-bufptr)
+ (lambda (host buffer-type buffer-size)
+ (%make-obp host (new buffer-type buffer-size) 0)))
+ 'confess (lambda (%<obp> %make-obp %obp-host %obp-buffer %obp-bufptr)
+ (lambda (port . rest)
+ (apply
+ (lambda-pack
+ ((host) (%obp-host port))
+ (else #f))
+ rest)))
+ 'aux (lambda (%<obp> %make-obp %obp-host %obp-buffer %obp-bufptr)
+ (lambda (port . rest)
+ (apply
+ (lambda-pack
+ ((flush)
+ (if (not (zero? (%obp-bufptr port)))
+ (begin
+ (write-string (substring (%obp-buffer port)
+ 0 (%obp-bufptr port))
+ (%obp-host port))
+ (set! (%obp-bufptr port) 0))))
+ (else (raise 'output-buffered-port-aux? else)))
+ rest)))
+ 'read-char (lambda (%<obp> %make-obp %obp-host %obp-buffer %obp-bufptr)
+ (lambda (port)
+ (aux port 'flush)
+ (read-char (%obp-host port))))
+ 'read-string (lambda (%<obp> %make-obp %obp-host %obp-buffer %obp-bufptr)
+ (lambda (port amount)
+ (aux port 'flush)
+ (read-string (%obp-host port) amount)))))
+
(define (construct-filename dir base)
(cond
((not dir) base)
@@ -242,6 +276,20 @@
((string=? dir ".") base)
((char=? dir[-1] #\/) (string-append dir base))
(else (string-append dir #\/ base))))
+
+; 'host' is a term used for the port being wrapped in the context
+; of port wrapping. Note that the user isn't supposed to get direct
+; access to the wrapped port but the host-tracking is needed in
+; order to associate ports with file descriptors through the wrapping
+; (and possibly several layers of it).
+
+(define (%port-host port)
+ (let (loop (p port) (visited '()))
+ (cond
+ ((memq p visited) (raise 'port-loop port))
+ ((%confess p 'host) => (lambda (q)
+ (loop q (cons p visited))))
+ (else p))))
(define (%fd->port fd)
(my port (make-instance <old-file>)
Index: init.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/init.wisp,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -d -r1.62 -r1.63
--- init.wisp 18 Sep 2002 21:13:37 -0000 1.62
+++ init.wisp 18 Sep 2002 21:18:04 -0000 1.63
@@ -52,7 +52,9 @@
(begin
(set! (dict-ref *user-dictionary* 'assemble) assemble)
(set! (dict-ref *user-dictionary* 'instruction-list)
- (map car IHAL)))
+ (map car IHAL))
+ (set! (dict-ref *user-dictionary* 'confess) %confess)
+ (set! (dict-ref *user-dictionary* 'port-host) %port-host))
(set! (car *asm-lock*) #t))
; if the script name ends with a slash, look it up in WISP_PATH
(if (and (string? script) (not (string-null? script))
Index: records.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/records.wisp,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- records.wisp 18 Sep 2002 21:16:49 -0000 1.9
+++ records.wisp 18 Sep 2002 21:18:04 -0000 1.10
@@ -16,7 +16,9 @@
(write-char-hook #f)
(read-string-hook #f)
(write-string-hook #f)
- (close-port-hook #f))
+ (close-port-hook #f)
+ (aux-hook #f)
+ (confess-hook #f))
(while (not (null? hooks))
(my (hook-name hook-generator . rest-hooks) hooks
(set! hooks rest-hooks)
@@ -45,6 +47,12 @@
((close-port) (if close-port-hook
(raise 'duplicate-close-port-hook hook-generator)
(set! close-port-hook (apply hook-generator data))))
+ ((aux) (if aux-hook
+ (raise 'duplicate-aux-hook hook-generator)
+ (set! aux-hook (apply hook-generator data))))
+ ((confess) (if confess-hook
+ (raise 'duplicate-confess-hook hook-generator)
+ (set! confess-hook (apply hook-generator data))))
(else (raise 'record-hook-name? hook-name)))))
(if ref-hook
(set! ((asm NN_pr_record_type_ref_slot) record-type)
@@ -69,7 +77,13 @@
write-string-hook))
(if close-port-hook
(set! ((asm NN_pr_record_type_close_port_slot) record-type)
- close-port-hook)))
+ close-port-hook))
+ (if aux-hook
+ (set! ((asm NN_pr_record_type_aux_slot) record-type)
+ aux-hook))
+ (if confess-hook
+ (set! ((asm NN_pr_record_type_confess_slot) record-type)
+ confess-hook)))
data))
(define (input-mode rt)
@@ -89,3 +103,17 @@
(c 'char)
(s 'string)
(else #f))))
+
+; |aux| and |%confess| are similar in function but with one important
+; difference: |%confess| is meant for private communication between
+; the Wisp and objects while |aux| is for public communication between
+; objects and their clients.
+(define (aux obj . args)
+ (and (type-of obj) -> t => record-type?
+ ((asm NN_pr_record_type_aux_slot) t)
+ => (cut apply <> obj args)))
+
+(define (%confess obj . args)
+ (and (type-of obj) -> t => record-type?
+ ((asm NN_pr_record_type_confess_slot) t)
+ => (cut apply <> obj args)))
Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.371
retrieving revision 1.372
diff -u -d -r1.371 -r1.372
--- stdenv.wisp 18 Sep 2002 21:16:49 -0000 1.371
+++ stdenv.wisp 18 Sep 2002 21:18:04 -0000 1.372
@@ -15,22 +15,22 @@
<old-file> <old-port> <record-type> <u8vector> <vector> =
> >= >> abs acons! address-of alist->dict alist-copy
analyse and append append-reverse apply assert
- assert-object-type assoc assq assv atom? big-integer? bind
- bit? boolean? box-empty! box-empty? box-ref box? broketed?
- builtin-modules c16string? c8string? caaaar caaadr caaar
- caadar caaddr caadr caar cadaar cadadr cadar caddar cadddr
- caddr cadr call-with-in/out-files call-with-input-file
- call-with-output-file car car! car* cardinal? case catch
- cdaaar cdaadr cdaar cdadar cdaddr cdadr cdar cddaar cddadr
- cddar cdddar cddddr cdddr cddr cdr cdr! cdr* ceiling
- cfmakeraw char->control-char char->integer char-and
- char-bit-clear char-bit-set char-bit-toggle char-bit?
- char-decimal? char-digit? char-downcase char-hexadecimal?
- char-letter-modifier? char-letter? char-lower-case?
- char-mirrored? char-number-letter? char-octal? char-or
- char-order char-punctuation-close?
- char-punctuation-connector? char-punctuation-dash?
- char-punctuation-final-quote?
+ assert-object-type assoc assq assv atom? aux big-integer?
+ bind bit? boolean? box-empty! box-empty? box-ref box?
+ broketed? builtin-modules c16string? c8string? caaaar
+ caaadr caaar caadar caaddr caadr caar cadaar cadadr cadar
+ caddar cadddr caddr cadr call-with-in/out-files
+ call-with-input-file call-with-output-file car car! car*
+ cardinal? case catch cdaaar cdaadr cdaar cdadar cdaddr
+ cdadr cdar cddaar cddadr cddar cdddar cddddr cdddr cddr
+ cdr cdr! cdr* ceiling cfmakeraw char->control-char
+ char->integer char-and char-bit-clear char-bit-set
+ char-bit-toggle char-bit? char-decimal? char-digit?
+ char-downcase char-hexadecimal? char-letter-modifier?
+ char-letter? char-lower-case? char-mirrored?
+ char-number-letter? char-octal? char-or char-order
+ char-punctuation-close? char-punctuation-connector?
+ char-punctuation-dash? char-punctuation-final-quote?
char-punctuation-initial-quote? char-punctuation-open?
char-punctuation? char-ready? char-symbol-currency?
char-symbol-math? char-symbol-starter? char-symbol?
@@ -112,8 +112,9 @@
(list (car mec)
'use module-name))
(loop (cdr modules)))))))
- ; finally, the special case
+ ; finally, the special cases
((eq? obj assemble) (cons 'assemble '-A))
+ ((eq? obj %confess) (cons 'confess '-A))
(else #f)))
((*regular-env)
(my e (alist->dict invariably-regular-items)
|
|
From: <di...@us...> - 2002-09-18 21:18:07
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv2384/src
Modified Files:
essence.c wordlist.txt
Log Message:
Created the beginnings of port wrapping.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.223
retrieving revision 1.224
diff -u -d -r1.223 -r1.224
--- essence.c 18 Sep 2002 21:16:38 -0000 1.223
+++ essence.c 18 Sep 2002 21:17:47 -0000 1.224
@@ -331,7 +331,9 @@
NN_pr_get_argument_list,
NN_pr_get_environment,
NN_pr_make_record_type,
+ NN_pr_record_type_aux_slot,
NN_pr_record_type_close_port_slot,
+ NN_pr_record_type_confess_slot,
NN_pr_record_type_length_slot,
NN_pr_record_type_new_slot,
NN_pr_record_type_read_char_slot,
@@ -442,634 +444,654 @@
void*Y0[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jinf,V 16,qi,W(cons_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,r,dig,V 0,ds,V 1,r};
[...1602 lines suppressed...]
struct cons conses [] = {
@@ -2110,13 +2152,13 @@
[327]{car:CH('C'),cdr:BC 326},
[328]{car:CH('A'),cdr:BC 327},
[329]{car:CH('e'),cdr:BC 328},
-[330]{car:B 700,cdr:Q},
-[331]{car:B 699,cdr:BC 330},
-[332]{car:B 701,cdr:Q},
+[330]{car:B 720,cdr:Q},
+[331]{car:B 719,cdr:BC 330},
+[332]{car:B 721,cdr:Q},
};
/* The root node of the compiled builtin library */
struct node *
-builtin_root = B 703;
+builtin_root = B 723;
/* essence.c ends here */
Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.585
retrieving revision 1.586
diff -u -d -r1.585 -r1.586
--- wordlist.txt 18 Sep 2002 21:16:49 -0000 1.585
+++ wordlist.txt 18 Sep 2002 21:18:04 -0000 1.586
@@ -6,56 +6,57 @@
#
#### @(#) $Id$
-! $ $? %close-input-port %close-output-port %close-port %fd->port
-%file-descriptor %get-module %read-char * *arglist* *asm-lock* *ctx
-*source-dictionary* *system-path* *user-dictionary* + - -> -A ... .l /
-/= := :=? < <...> << <= <> <box> <c16string> <class> <file> <fluid>
-<macro> <old-file> <old-port> <port> <record-type> <u8vector> <vector>
-= => > >= >> ? B0 B1000000 B110 B115200 B1152000 B1200 B134 B150
-B1500000 B1800 B19200 B200 B2000000 B230400 B2400 B2500000 B300
-B3000000 B3500000 B38400 B4000000 B460800 B4800 B50 B500000 B57600
-B576000 B600 B75 B921600 B9600 BRKINT BS0 BS1 CALL CBAUDEX CLOCAL CR0
-CR1 CR2 CR3 CREAD CS5 CS6 CS7 CS8 CSTOPB DEFINE E2BIG EACCES EADDRINUSE
-EADDRNOTAVAIL EADV EAFNOSUPPORT EAGAIN EALREADY EBADE EBADF EBADFD
-EBADMSG EBADR EBADRQC EBADSLT EBFONT EBUSY ECHILD ECHO ECHOCTL ECHOE
-ECHOK ECHOKE ECHONL ECHOPRT ECHRNG ECOMM ECONNABORTED ECONNREFUSED
-ECONNRESET EDEADLK EDESTADDRREQ EDOM EDOTDOT EDQUOT EEXIST EFAULT EFBIG
-EHOSTDOWN EHOSTUNREACH EIDRM EILSEQ EINPROGRESS EINTR EINVAL EIO
-EISCONN EISDIR EISNAM EL2HLT EL2NSYNC EL3HLT EL3RST ELIBACC ELIBBAD
-ELIBEXEC ELIBMAX ELIBSCN ELNRNG ELOOP EMEDIUMTYPE EMFILE EMLINK
-EMSGSIZE EMULTIHOP ENAMETOOLONG ENAVAIL ENETDOWN ENETRESET ENETUNREACH
-ENFILE ENOANO ENOBUFS ENOCSI ENODATA ENODEV ENOENT ENOEXEC ENOLCK
-ENOLINK ENOMEDIUM ENOMEM ENOMSG ENONET ENOPKG ENOPROTOOPT ENOSPC ENOSR
-ENOSTR ENOSYS ENOTBLK ENOTCONN ENOTDIR ENOTEMPTY ENOTNAM ENOTSOCK
-ENOTTY ENOTUNIQ ENXIO EOF-INSIDE-LIST EOF-INSIDE-STRING EOPNOTSUPP
-EOVERFLOW EPERM EPFNOSUPPORT EPIPE EPROTO EPROTONOSUPPORT EPROTOTYPE
-ERANGE EREMCHG EREMOTE EREMOTEIO ERESTART EROFS ESHUTDOWN
-ESOCKTNOSUPPORT ESPIPE ESRCH ESRMNT ESTALE ESTRPIPE ETIME ETIMEDOUT
-ETOOMANYREFS ETXTBSY EUCLEAN EUNATCH EUSERS EXDEV EXFULL FD_CLOEXEC FF0
-FF1 FLUSHO F_DUPFD F_GETFD F_GETFL F_GETLK F_GETLK64 F_GETOWN F_GETSIG
-F_RDLCK F_SETFD F_SETFL F_SETLK F_SETLK64 F_SETLKW F_SETLKW64 F_SETOWN
-F_SETSIG F_UNLCK F_WRLCK GLOBAL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR
-IGNPAR IMAXBEL INLCR INPCK ISIG ISTRIP IUCLC IXANY IXOFF IXON LOCK_EX
-LOCK_MAND LOCK_NB LOCK_READ LOCK_RW LOCK_SH LOCK_UN LOCK_WRITE Linux
-NCCS NL0 NL1 NOFLSH OCRNL OFDEL OFILL OLCUC ONLCR ONLRET ONOCR OPOST OR
-O_APPEND O_ASYNC O_CREAT O_DIRECT O_DIRECTORY O_EXCL O_FSYNC O_NDELAY
-O_NOCTTY O_NOFOLLOW O_NONBLOCK O_RDONLY O_RDWR O_SYNC O_TRUNC O_WRONLY
-PARENB PARMRK PARODD PARSED PENDIN SEEK_CUR SEEK_END SEEK_SET T TAB0
-TAB1 TAB2 TAB3 TOSTOP UNTERMINATED-CHAR-CODE UNTERMINATED-STRING VCALL
-VDISCARD VEOF VEOL VEOL2 VERASE VINTR VKILL VLNEXT VMIN VQUIT VREPRINT
-VSTART VSTOP VSUSP VSWTC VT0 VT1 VTIME VWERASE WITHIN XCASE \16 \8 \c16
-\c16string \c8 \c8string \char16 \char8 abs absolute acons! addat
-address-of alist->dict alist-copy analyse and append append-reverse
-apply argcount args asm assemble assert assert-object-type
-assertion-failed assoc assq assume-constant-globals assv atime atom? b
-backspace bad-stacked-var bar begin bell big-integer big-integer?
-binary-equal? binary-logical-xor binary-vector-contents-equal? binc
-bind binnc binzc bit? blksize blockdev blocks boolean boolean?
-box-empty! box-empty? box-ref box? broketed? buffer builtin-modules
-bury c c16 c16string c16string? c8 c8string c8string? caaaar caaadr
-caaar caadar caaddr caadr caar cadaar cadadr cadar caddar cadddr caddr
-cadr call-with-in/out-files call-with-input-file call-with-output-file
-car car! car* cardinal? case catch cc cdaaar cdaadr cdaar cdadar cdaddr
+! $ $? %close-input-port %close-output-port %close-port %confess
+%fd->port %file-descriptor %get-module %port-host %read-char *
+*arglist* *asm-lock* *ctx *source-dictionary* *system-path*
+*user-dictionary* + - -> -A ... .l / /= := :=? < <...> << <= <> <box>
+<c16string> <class> <file> <fluid> <macro> <old-file> <old-port> <port>
+<record-type> <u8vector> <vector> = => > >= >> ? B0 B1000000 B110
+B115200 B1152000 B1200 B134 B150 B1500000 B1800 B19200 B200 B2000000
+B230400 B2400 B2500000 B300 B3000000 B3500000 B38400 B4000000 B460800
+B4800 B50 B500000 B57600 B576000 B600 B75 B921600 B9600 BRKINT BS0 BS1
+CALL CBAUDEX CLOCAL CR0 CR1 CR2 CR3 CREAD CS5 CS6 CS7 CS8 CSTOPB DEFINE
+E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EADV EAFNOSUPPORT EAGAIN EALREADY
+EBADE EBADF EBADFD EBADMSG EBADR EBADRQC EBADSLT EBFONT EBUSY ECHILD
+ECHO ECHOCTL ECHOE ECHOK ECHOKE ECHONL ECHOPRT ECHRNG ECOMM
+ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDOTDOT
+EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EIDRM EILSEQ
+EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR EISNAM EL2HLT EL2NSYNC
+EL3HLT EL3RST ELIBACC ELIBBAD ELIBEXEC ELIBMAX ELIBSCN ELNRNG ELOOP
+EMEDIUMTYPE EMFILE EMLINK EMSGSIZE EMULTIHOP ENAMETOOLONG ENAVAIL
+ENETDOWN ENETRESET ENETUNREACH ENFILE ENOANO ENOBUFS ENOCSI ENODATA
+ENODEV ENOENT ENOEXEC ENOLCK ENOLINK ENOMEDIUM ENOMEM ENOMSG ENONET
+ENOPKG ENOPROTOOPT ENOSPC ENOSR ENOSTR ENOSYS ENOTBLK ENOTCONN ENOTDIR
+ENOTEMPTY ENOTNAM ENOTSOCK ENOTTY ENOTUNIQ ENXIO EOF-INSIDE-LIST
+EOF-INSIDE-STRING EOPNOTSUPP EOVERFLOW EPERM EPFNOSUPPORT EPIPE EPROTO
+EPROTONOSUPPORT EPROTOTYPE ERANGE EREMCHG EREMOTE EREMOTEIO ERESTART
+EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESRMNT ESTALE ESTRPIPE
+ETIME ETIMEDOUT ETOOMANYREFS ETXTBSY EUCLEAN EUNATCH EUSERS EXDEV
+EXFULL FD_CLOEXEC FF0 FF1 FLUSHO F_DUPFD F_GETFD F_GETFL F_GETLK
+F_GETLK64 F_GETOWN F_GETSIG F_RDLCK F_SETFD F_SETFL F_SETLK F_SETLK64
+F_SETLKW F_SETLKW64 F_SETOWN F_SETSIG F_UNLCK F_WRLCK GLOBAL HUPCL
+ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR IMAXBEL INLCR INPCK ISIG ISTRIP
+IUCLC IXANY IXOFF IXON LOCK_EX LOCK_MAND LOCK_NB LOCK_READ LOCK_RW
+LOCK_SH LOCK_UN LOCK_WRITE Linux NCCS NL0 NL1 NOFLSH OCRNL OFDEL OFILL
+OLCUC ONLCR ONLRET ONOCR OPOST OR O_APPEND O_ASYNC O_CREAT O_DIRECT
+O_DIRECTORY O_EXCL O_FSYNC O_NDELAY O_NOCTTY O_NOFOLLOW O_NONBLOCK
+O_RDONLY O_RDWR O_SYNC O_TRUNC O_WRONLY PARENB PARMRK PARODD PARSED
+PENDIN SEEK_CUR SEEK_END SEEK_SET T TAB0 TAB1 TAB2 TAB3 TOSTOP
+UNTERMINATED-CHAR-CODE UNTERMINATED-STRING VCALL VDISCARD VEOF VEOL
+VEOL2 VERASE VINTR VKILL VLNEXT VMIN VQUIT VREPRINT VSTART VSTOP VSUSP
+VSWTC VT0 VT1 VTIME VWERASE WITHIN XCASE \16 \8 \c16 \c16string \c8
+\c8string \char16 \char8 abs absolute acons! addat address-of
+alist->dict alist-copy analyse and append append-reverse apply argcount
+args asm assemble assert assert-object-type assertion-failed assoc assq
+assume-constant-globals assv atime atom? aux b backspace
+bad-stacked-var bar begin bell big-integer big-integer? binary-equal?
+binary-logical-xor binary-vector-contents-equal? binc bind binnc binzc
+bit? blksize blockdev blocks boolean boolean? box-empty! box-empty?
+box-ref box? broketed? buffer builtin-modules bury c c16 c16string
+c16string? c8 c8string c8string? caaaar caaadr caaar caadar caaddr
+caadr caar cadaar cadadr cadar caddar cadddr caddr cadr
+call-with-in/out-files call-with-input-file call-with-output-file car
+car! car* cardinal? case catch cc cdaaar cdaadr cdaar cdadar cdaddr
cdadr cdar cddaar cddadr cddar cdddar cddddr cdddr cddr cdr cdr! cdr*
ceiling cflag cfmakeraw char char->control-char char->integer char-and
char-bit-clear char-bit-set char-bit-toggle char-bit? char-decimal?
@@ -74,38 +75,38 @@
class->vector class-discriminator class-of class-slots class? cleanup
close close-hook close-input-port close-output-port close-port closure
codegen collect collect-string compile compound? concatenate cond
-conflict cons cons! cons-copy cons? const construct-filename core
-creatable? create-not ct ctime current-errors-port current-globals
+confess conflict cons cons! cons-copy cons? const construct-filename
+core creatable? create-not ct ctime current-errors-port current-globals
current-input-port current-output-port cut cute d dat dcc decr! define
define-class defining-local defmacro denominator desv desv+r dev dict
dict->alist dict-bind! dict-copy dict-defined? dict-drop! dict-fetch
dict-ref dict? dict_ref_2 dig directory dis discriminator
division-by-zero do dot-tail drain drop drop-buffer drop-var ds dsc
-dummy-var duplicate-close-port-hook duplicate-dict-item!
-duplicate-length-hook duplicate-new-hook duplicate-read-char-hook
-duplicate-read-string-hook duplicate-ref-hook duplicate-slot-name
-duplicate-write-char-hook duplicate-write-string-hook dwim-stringify
-eighth else end ensure-in-buffer ensure-line-in-buffer env-ref
-eof-object? eof? eq? equal? eqv? errno erroneous-binding
-erroneous-dot-binding eval even? evmfunc evmfunc? except exclusive exit
-export f false fatal-handler fcntl fd fdset-ref fifth file-close-hook
-file-ctime file-descriptor file-mtime file-ready? file-stat file-type
-file-types file? filter finally find find-tail first fit-for-symbol?
-fit-for-variable-name? fixnum fixnum? flag-specifier? flatten flock
-floor fluid-list fluid-my fluid? fluids flush follow-not
-for-all-env-vars for-dir-entries for-each form? fourth fraction
-fraction? frer frer->structure friend gid grammar-error hache hidden
-hide hide* hold home hop ia32 if iflag immediate-sublambdas
-imported-variables inc incr! infix init-input-file init-output-file
-init-port ino input-mode input-port? instance instance-of-wrong-class
-instance? instruction-list integer integer->char integer->flag-list
-integer->string integer? intermingle internal-trouble invalid
-invalid-argument-name invalid-assignment invalid-branch-target
-invalid-char invalid-cut invalid-definition invalid-dollar-construct
-invalid-export invalid-form invalid-frer invalid-frer-opcode
-invalid-intercode-instruction invalid-lambda-list
-invalid-lambda-pack-clause invalid-module-name invalid-my-target
-invalid-place invalid-reader-syntax invalid-slot-name
+dummy-var duplicat-hook duplicate-aux-hook duplicate-close-port-hook
+duplicate-confess-hook duplicate-dict-item! duplicate-length-hook
+duplicate-new-hook duplicate-read-char-hook duplicate-read-string-hook
+duplicate-ref-hook duplicate-slot-name duplicate-write-char-hook
+duplicate-write-string-hook dwim-stringify eighth else end
+ensure-in-buffer ensure-line-in-buffer env-ref eof-object? eof? eq?
+equal? eqv? errno erroneous-binding erroneous-dot-binding eval even?
+evmfunc evmfunc? except exclusive exit export f false fatal-handler
+fcntl fd fdset-ref fifth file-close-hook file-ctime file-descriptor
+file-mtime file-ready? file-stat file-type file-types file? filter
+finally find find-tail first fit-for-symbol? fit-for-variable-name?
+fixnum fixnum? flag-specifier? flatten flock floor fluid-list fluid-my
+fluid? fluids flush follow-not for-all-env-vars for-dir-entries
+for-each form? fourth fraction fraction? frer frer->structure friend
+gid grammar-error hache hidden hide hide* hold home hook-accessors hop
+host ia32 if iflag immediate-sublambdas imported-variables inc incr!
+infix init-input-file init-output-file init-port ino input-mode
+input-port? instance instance-of-wrong-class instance? instruction-list
+integer integer->char integer->flag-list integer->string integer?
+intermingle internal-trouble invalid invalid-argument-name
+invalid-assignment invalid-branch-target invalid-char invalid-cut
+invalid-definition invalid-dollar-construct invalid-export invalid-form
+invalid-frer invalid-frer-opcode invalid-intercode-instruction
+invalid-lambda-list invalid-lambda-pack-clause invalid-module-name
+invalid-my-target invalid-place invalid-reader-syntax invalid-slot-name
invalid-system-constant-name-part invalid-try-clause
invalid-utf-8-sequence invalid-whence invargc invargca j jif jige jilt
jinc jinf jinnc jinz jiz jizc key keyword? l l0 lambda lambda-pack
@@ -122,12 +123,12 @@
not-enough-space notc now nul null null-list? null? number
number->string number? numerator nybble? nyp? o odd? of oflag open
open-input-file open-output-file opt optimize-source or order->dict
-origin out-of-memory output-mode output-port? overflow p
-pack-be-integer pack-le-integer page parse-character-body
+origin out-of-memory output-buffered-port-aux? output-mode output-port?
+overflow p pack-be-integer pack-le-integer page parse-character-body
parse-lambda-list pc peek-char peek-string ph pick-dict-items pipe pl
-port-peek-string port-read-string port-ready? port-write-string port?
-positive? post-codegen postpone-linking prefix premature-eof prep
-preprocess preprocessed-source? preprocessing-error
+port-host port-loop port-peek-string port-read-string port-ready?
+port-write-string port? positive? post-codegen postpone-linking prefix
+premature-eof prep preprocess preprocessed-source? preprocessing-error
prevent-invalid-call print procedure->macro procedure-remark procedure?
process-simple-quasiquote process-unquote-splicing processor-type
prohibited pt q qh qi ql qn qt quasiquote quasiquote-cons quote
|
|
From: <di...@us...> - 2002-09-18 21:17:11
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv2015/modules
Modified Files:
Makefile.am string-port.wim unix.wim
Removed Files:
block-port.wim
Log Message:
Introduced the new, more polymorphic port mechanism.
Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/Makefile.am,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -d -r1.56 -r1.57
--- Makefile.am 7 Sep 2002 21:52:38 -0000 1.56
+++ Makefile.am 18 Sep 2002 21:16:38 -0000 1.57
@@ -20,12 +20,12 @@
wisp_DATA = shell.wisp
wim_DATA = \
- and-let.wim arithmetics.wim balanced.wim baudot.wim block-port.wim \
- cgi.wim codecoll.wim collectors.wim display.wim encoding.wim \
- files.wim frer.wim getopt.wim ini.wim keyboard.wim lists.wim \
- locale.wim mingle.wim morse.wim phases.wim promises.wim qsort.wim \
- random.wim regex.wim string-port.wim strings.wim tester.wim \
- time.wim unicode.wim unix.wim url.wim xml.wim wispdoc.wim
+ and-let.wim arithmetics.wim balanced.wim baudot.wim cgi.wim \
+ codecoll.wim collectors.wim display.wim encoding.wim files.wim \
+ frer.wim getopt.wim ini.wim keyboard.wim lists.wim locale.wim \
+ mingle.wim morse.wim phases.wim promises.wim qsort.wim random.wim \
+ regex.wim string-port.wim strings.wim tester.wim time.wim \
+ unicode.wim unix.wim url.wim xml.wim wispdoc.wim
frwim_DATA = $(filter-out arithmetics.frwim,$(wim_DATA:%.wim=%.frwim))
Index: string-port.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/string-port.wim,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- string-port.wim 7 Sep 2002 21:56:55 -0000 1.15
+++ string-port.wim 18 Sep 2002 21:16:38 -0000 1.16
@@ -9,17 +9,18 @@
(module string-port)
(export
- <string-port> get-output-string open-input-string open-output-string)
+ <output-string-port> <string-port> get-output-string
+ open-input-string open-output-string)
-(define-class (<string-port> <port>)
+(define-class (<string-port> <old-port>)
data pos
(#f data pos)
(friend (init-input-string port str)
- (init-port port raw-string-reader #f raw-string-seeker #f (lambda #f #t))
+ (init-port port raw-string-reader #f #f (lambda #f #t))
(set! data str)
(set! pos 0))
(friend (init-output-string port) ; all string ports are readable
- (init-port port raw-string-reader raw-string-writer raw-string-seeker #f (lambda #f #t))
+ (init-port port raw-string-reader raw-string-writer #f (lambda #f #t))
(set! data (string))
(set! pos 0))
(friend (raw-string-reader port string start count)
@@ -32,33 +33,37 @@
(set! count (- (length data) pos)))
(string-move! string start data pos count)
(incr! pos count)
- count)))
- (friend (raw-string-writer port string start count)
- (if (negative? count)
- (raise 'range count))
- (if (> (+ pos count) (length data))
- (set! (length data) (+ pos count)))
- (string-move! data pos string start count)
- (incr! pos count)
- count)
- (friend (raw-string-seeker port whence delta)
- (set! pos (+ delta (case whence
- ((absolute) 0)
- ((relative) pos)
- ((end) (length data))
- (else (raise 'invalid-whence whence)))))
- pos)
- (friend (get-output-string port)
- (string-copy data)))
+ count))))
(define (open-input-string s)
(my port (make-instance <string-port>)
(init-input-string port s)
port))
+(bind (<output-string-port> %make-osp %osp-buffer %osp-pointer)
+ (make-record-type 2
+ 'new (lambda (<output-string-port> %make-osp
+ %osp-buffer %osp-pointer)
+ (lambda ()
+ (%make-osp (new <c16string> 64) 0)))
+ 'write-char (lambda (<output-string-port> %make-osp
+ %osp-buffer %osp-pointer)
+ (lambda (port ch)
+ (if (<= (length (%osp-buffer port))
+ (%osp-pointer port))
+ (my new-buffer (new <c16string>
+ (* (length (%osp-buffer port))
+ 2))
+ (string-move! new-buffer 0 (%osp-buffer port) 0
+ (length (%osp-buffer port)))
+ (set! (%osp-buffer port) new-buffer)))
+ (set! (%osp-buffer port)[(%osp-pointer port)] ch)
+ (incr! (%osp-pointer port))))))
+
(define (open-output-string)
- (my port (make-instance <string-port>)
- (init-output-string port)
- port))
+ (new <output-string-port>))
+
+(define (get-output-string port)
+ (string-copy (%osp-buffer port) 0 (%osp-pointer port)))
; vim: lispwords+=,define-class,friend
Index: unix.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/unix.wim,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -d -r1.43 -r1.44
--- unix.wim 7 Sep 2002 21:56:27 -0000 1.43
+++ unix.wim 18 Sep 2002 21:16:38 -0000 1.44
@@ -92,7 +92,7 @@
; parent
(begin
(sys:close (cdr pipe))
- (my res (make-instance <file>)
+ (my res (make-instance <old-file>)
(init-input-file res (car pipe) (make-pipe-close-hook child))
res)))))
@@ -109,7 +109,7 @@
; parent
(begin
(sys:close (car pipe))
- (my res (make-instance <file>)
+ (my res (make-instance <old-file>)
(init-output-file res #f (cdr pipe)
(make-pipe-close-hook child))
res)))))
--- block-port.wim DELETED ---
|
Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv2015/src/native
Modified Files:
boxes.s boxes.wth misc.s misc.wth records.nasm vectors.s
vectors.wth wstrings.s wstrings.wth
Log Message:
Introduced the new, more polymorphic port mechanism.
Index: boxes.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/boxes.s,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- boxes.s 18 Sep 2002 21:10:03 -0000 1.11
+++ boxes.s 18 Sep 2002 21:16:50 -0000 1.12
@@ -69,5 +69,5 @@
.long NN_box_ref
.byte 19,0,0,0
.long NN_make_box
-.byte 19,0,0,0,19,0,0,0
+.byte 19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0
.global RT_box
Index: boxes.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/boxes.wth,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- boxes.wth 18 Sep 2002 21:10:03 -0000 1.7
+++ boxes.wth 18 Sep 2002 21:16:50 -0000 1.8
@@ -16,6 +16,9 @@
(tetra 19) ; FALSE
(tetra NN_make_box)
(tetra 19) ; FALSE
+ (tetra 19) ; FALSE
+ (tetra 19) ; FALSE
+ (tetra 19) ; FALSE
(tetra 19)) ; FALSE
(extern RT_box)
Index: misc.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.s,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- misc.s 18 Sep 2002 21:14:09 -0000 1.11
+++ misc.s 18 Sep 2002 21:16:50 -0000 1.12
@@ -81,6 +81,33 @@
.equiv NN_record_type_length, N_record_type_length + 1
.section .text
.align 16
+N_pr_record_type_close_port_slot:
+.byte 144,187,10,0,0,0,186
+.long RT_record_type
+.byte 233
+.long slot_accessor_body - (.+4)
+.global N_pr_record_type_close_port_slot,NN_pr_record_type_close_port_slot
+.equiv NN_pr_record_type_close_port_slot, N_pr_record_type_close_port_slot + 1
+.section .text
+.align 16
+N_pr_record_type_write_string_slot:
+.byte 144,187,9,0,0,0,186
+.long RT_record_type
+.byte 233
+.long slot_accessor_body - (.+4)
+.global N_pr_record_type_write_string_slot,NN_pr_record_type_write_string_slot
+.equiv NN_pr_record_type_write_string_slot, N_pr_record_type_write_string_slot + 1
+.section .text
+.align 16
+N_pr_record_type_read_string_slot:
+.byte 144,187,8,0,0,0,186
+.long RT_record_type
+.byte 233
+.long slot_accessor_body - (.+4)
+.global N_pr_record_type_read_string_slot,NN_pr_record_type_read_string_slot
+.equiv NN_pr_record_type_read_string_slot, N_pr_record_type_read_string_slot + 1
+.section .text
+.align 16
N_pr_record_type_write_char_slot:
.byte 144,187,7,0,0,0,186
.long RT_record_type
@@ -137,11 +164,11 @@
.align 16
RT_record_type:
.long RT_record_type
-.byte 7,0,0,0
+.byte 10,0,0,0
.long NN_record_type_huh
.byte 19,0,0,0
.long NN_record_type_length
-.byte 19,0,0,0,19,0,0,0,19,0,0,0
+.byte 19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0
.global RT_record_type
.section .text
.align 16
Index: misc.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/misc.wth,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- misc.wth 18 Sep 2002 21:14:09 -0000 1.11
+++ misc.wth 18 Sep 2002 21:16:50 -0000 1.12
@@ -43,13 +43,16 @@
(assemble RT_record_type
(tetra RT_record_type) ; type pointer
- (tetra 7) ; slot count
+ (tetra 10) ; slot count
(tetra NN_record_type_huh) ; discriminator
(tetra 19) ; FALSE ; |ref|
(tetra NN_record_type_length) ; |length|
(tetra 19) ; FALSE ; |new|
(tetra 19) ; FALSE ; |read-char|
- (tetra 19)) ; FALSE ; |write-char|
+ (tetra 19) ; FALSE ; |write-char|
+ (tetra 19) ; FALSE ; |read-string|
+ (tetra 19) ; FALSE ; |write-string|
+ (tetra 19)) ; FALSE ; |close-port|
(native record_type_huh
'RT_record_type go-discriminate)
@@ -72,6 +75,15 @@
(native pr_record_type_write_char_slot
'RT_record_type 7 go-access-slot)
+
+(native pr_record_type_read_string_slot
+ 'RT_record_type 8 go-access-slot)
+
+(native pr_record_type_write_string_slot
+ 'RT_record_type 9 go-access-slot)
+
+(native pr_record_type_close_port_slot
+ 'RT_record_type 10 go-access-slot)
(native record_type_length dup 1 = argc drop
dup get-type 'RT_record_type = if
Index: records.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/records.nasm,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -d -r1.35 -r1.36
--- records.nasm 18 Sep 2002 21:10:03 -0000 1.35
+++ records.nasm 18 Sep 2002 21:16:50 -0000 1.36
@@ -28,7 +28,7 @@
mov [esp], eax
mov edx, RT_record_type
; we don't have a discriminator yet
- gcall record_constructor_body, eax, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
+ gcall record_constructor_body, eax, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE
push eax
; stack: (slot-count record-type)
valloc 6
Index: vectors.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/vectors.s,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- vectors.s 18 Sep 2002 21:15:23 -0000 1.2
+++ vectors.s 18 Sep 2002 21:16:50 -0000 1.3
@@ -125,7 +125,7 @@
.long NN_u8vector_ref
.long NN_u8vector_length
.long NN_make_u8vector
-.byte 19,0,0,0,19,0,0,0
+.byte 19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0
.global RT_u8vector
.section .text
.align 16
@@ -334,5 +334,5 @@
.long NN_vector_ref
.long NN_vector_length
.long NN_make_vector
-.byte 19,0,0,0,19,0,0,0
+.byte 19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0
.global RT_vector
Index: vectors.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/vectors.wth,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- vectors.wth 18 Sep 2002 21:15:23 -0000 1.2
+++ vectors.wth 18 Sep 2002 21:16:50 -0000 1.3
@@ -39,6 +39,9 @@
(tetra NN_vector_length)
(tetra NN_make_vector)
(tetra 19) ; FALSE
+ (tetra 19) ; FALSE
+ (tetra 19) ; FALSE
+ (tetra 19) ; FALSE
(tetra 19)) ; FALSE
(native vector_huh
@@ -110,6 +113,9 @@
(tetra NN_u8vector_ref)
(tetra NN_u8vector_length)
(tetra NN_make_u8vector)
+ (tetra 19) ; FALSE
+ (tetra 19) ; FALSE
+ (tetra 19) ; FALSE
(tetra 19) ; FALSE
(tetra 19)) ; FALSE
Index: wstrings.s
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/wstrings.s,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- wstrings.s 18 Sep 2002 21:10:03 -0000 1.6
+++ wstrings.s 18 Sep 2002 21:16:50 -0000 1.7
@@ -35,5 +35,5 @@
.long NN_c16string_ref
.byte 19,0,0,0
.long NN_make_c16string
-.byte 19,0,0,0,19,0,0,0
+.byte 19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0,19,0,0,0
.global RT_c16string
Index: wstrings.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/wstrings.wth,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- wstrings.wth 18 Sep 2002 21:10:03 -0000 1.6
+++ wstrings.wth 18 Sep 2002 21:16:50 -0000 1.7
@@ -16,6 +16,9 @@
(tetra 19) ; FALSE
(tetra NN_make_c16string) ; FALSE
(tetra 19) ; FALSE
+ (tetra 19) ; FALSE
+ (tetra 19) ; FALSE
+ (tetra 19) ; FALSE
(tetra 19)) ; FALSE
(extern RT_c16string)
|
|
From: <di...@us...> - 2002-09-18 21:16:52
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv2015/src/builtin
Modified Files:
filing.wisp records.wisp stdenv.wisp tostring.wisp
Log Message:
Introduced the new, more polymorphic port mechanism.
Index: filing.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/filing.wisp,v
retrieving revision 1.109
retrieving revision 1.110
diff -u -d -r1.109 -r1.110
--- filing.wisp 18 Sep 2002 21:12:38 -0000 1.109
+++ filing.wisp 18 Sep 2002 21:16:49 -0000 1.110
@@ -14,35 +14,21 @@
(define (raise-unwritable-port port . rest)
(raise 'unwritable-port port))
-(define (raise-unseekable-port port . rest)
- (raise 'unseekable-port port))
-
-;; Some ports communicate with data strings and can seek along them.
-;; Others communicate with serial sinks and sources that are unseekable.
-;; Since input buffering is unavoidable, you better assume that reading
-;; a file sets the write pointer to an undefined value and vice versa,
-;; so you need to do an explicit seek.
-;; Unfortunately, Wisp can't check the correct order since there are
-;; some files (like TCP sessions or character devices) which don't need
-;; seeking at all.
-
-(define-class <port>
+(define-class <old-port>
(read-only
eof?)
(hidden
buffer start stop
raw-read-string raw-write-string ; they take: port string start count
- raw-seek ; takes: port whence delta
close-hook ; takes: port read? write?
raw-ready? ; takes: port
ensure-in-buffer) ; takes: count [block?]
- (friend (init-port port reader writer seeker clhook ready?)
+ (friend (init-port port reader writer clhook ready?)
(set! start 0)
(set! stop 0)
(set! eof? #f)
(set! raw-read-string (or reader raise-unreadable-port))
(set! raw-write-string (or writer raise-unwritable-port))
- (set! raw-seek (or seeker raise-unseekable-port))
(set! close-hook clhook)
(set! raw-ready? ready?)
(set! buffer (make-string 16))
@@ -121,7 +107,7 @@
(if (or (number? e) (eq? e #t))
buffer[start]
e)))
- (friend (port-read-string port amount block?)
+ (friend (port-read-string port amount (block? #t))
(my s (port-peek-string port amount block?)
(if (string? s)
(incr! start (length s)))
@@ -147,27 +133,22 @@
(set! start 0)
(set! stop 0)
(set! eof? #f))
- (friend (seek port whence delta)
- (if (eq? whence 'relative) ; if we've recently read
- (decr! delta (- stop start))) ; seek relative to the read buffer's start
- (drop-buffer port)
- (raw-seek port whence delta))
(friend (port-write-string port s)
(drop-buffer port)
(raw-write-string port s 0 (length s)))
- (friend (close-input-port port)
+ (friend (%close-input-port port)
(set! raw-read-string raise-unreadable-port)
(hold
(if close-hook
(close-hook port #t (eq? raw-write-string raise-unwritable-port))
(begin))
(set! buffer '()))) ; deallocate buffer storage
- (friend (close-output-port port)
+ (friend (%close-output-port port)
(set! raw-write-string raise-unwritable-port)
(if close-hook
(close-hook port (eq? raw-read-string raise-unreadable-port) #t)
(begin)))
- (friend (close-port port)
+ (friend (%close-port port)
(set! raw-read-string raise-unreadable-port)
(set! raw-write-string raise-unwritable-port)
(if close-hook
@@ -182,27 +163,20 @@
(friend (output-port? port)
(not (eq? raw-write-string raise-unwritable-port))))
-(define-class (<file> <port>)
+(define-class (<old-file> <old-port>)
(read-only
fd)
(friend (init-input-file port fildes (clhook file-close-hook))
- (init-port port raw-input-file-reader #f raw-file-seeker clhook file-ready?)
+ (init-port port raw-input-file-reader #f clhook file-ready?)
(set! fd fildes))
(friend (init-output-file port readable? fildes (clhook file-close-hook))
(init-port port (and readable? raw-input-file-reader)
- raw-output-file-writer raw-file-seeker clhook file-ready?)
+ raw-output-file-writer clhook file-ready?)
(set! fd fildes))
(friend (raw-input-file-reader port string start-pos count)
(sys:read fd string start-pos count))
(friend (raw-output-file-writer port string start-pos count)
(sys:write fd string start-pos count))
- (friend (raw-file-seeker port whence delta)
- (sys:lseek fd delta (system-constant 'fcntl 'seek
- (case whence
- ((absolute) 'SEEK_SET)
- ((relative) 'SEEK_CUR)
- ((end) 'SEEK_END)
- (else (raise 'invalid-whence whence))))))
(friend (file-close-hook port read? write?)
(if (and read? write?)
(begin
@@ -212,13 +186,54 @@
(my fdset (make-fdset)
(set! (fdset-ref fdset fd) #t)
(not (zero? (sys:select (+ fd 1) fdset #f #f 0 0)))))
- (friend (file-descriptor port)
+ (friend (%file-descriptor port)
fd))
-(define (read-char (port (current-input-port)))
- (if (instance? port)
- (%read-char port)
- (((asm NN_pr_record_type_read_char_slot) (type-of port)) port)))
+(my (%<file> %make-file %file-fd %file-mode)
+ (make-record-type 2
+ 'read-string (lambda (%<file> %make-file %file-fd %file-mode)
+ (lambda (file amount)
+ (my fd (%file-fd file)
+ (if (or (not fd)
+ (not (memq (%file-mode file)
+ '(read #t))))
+ (raise 'input-port? file))
+ (my s (make-c8string amount)
+ (my res (sys:read fd s 0 amount)
+ (cond
+ ((= res amount) s)
+ ((zero? amount) (begin)) ; FIXME: not entirely correct
+ (else (substring s 0 res))))))))
+ 'write-string (lambda (%<file> %make-file %file-fd %file-mode)
+ (lambda (file s)
+ (my fd (%file-fd file)
+ (if (or (not fd)
+ (not (memq (%file-mode file)
+ '(write #t))))
+ (raise 'output-port? file))
+ ; FIXME: what if writing doesn't entirely succeed?
+ (sys:write fd s 0 (length s)))))
+ 'close-port (lambda (%<file> %make-file %file-fd %file-mode)
+ (lambda (file direction)
+ (my fd (%file-fd file)
+ (if fd
+ (cond
+ ((or (eq? direction #t)
+ (eq? direction (%file-mode file)))
+ (sys:close fd)
+ (set! (%file-fd file) #f)
+ (set! (%file-mode file) #f))
+ ((eq? direction 'read)
+ (set! (%file-mode file) 'write))
+ ((eq? direction 'write)
+ (set! (%file-mode file) 'read))))
+ (begin)))))
+ (define <file> %<file>)
+ (define make-file %make-file)
+ (define (file-descriptor file)
+ (if (instance? file)
+ (%file-descriptor file)
+ (%file-fd file))))
(define (construct-filename dir base)
(cond
@@ -229,7 +244,7 @@
(else (string-append dir #\/ base))))
(define (%fd->port fd)
- (my port (make-instance <file>)
+ (my port (make-instance <old-file>)
(init-input-file port fd)
port))
@@ -339,21 +354,21 @@
(else
(raise 'unknown-open-output-file-flag f)))))
(cdr! flags))
- (my port (make-instance <file>)
- (init-output-file port readable?
- (sys:open name (logical-or (system-constant 'open
- (if readable?
- 'O_RDWR
- 'O_WRONLY))
- bitfield) mode))
- port)))
+ (my fd (sys:open name (logical-or (system-constant 'open
+ (if readable?
+ 'O_RDWR
+ 'O_WRONLY))
+ bitfield) mode)
+ (if readable?
+ (my port (make-instance <old-file>)
+ (init-output-file port readable? fd)
+ port)
+ (make-file fd 'write)))))
-(let ((*stdin* (make-instance <file>))
- (*stdout* (make-instance <file>))
- (*stderr* (make-instance <file>)))
+(let ((*stdin* (make-instance <old-file>))
+ (*stdout* (make-file 1 'write))
+ (*stderr* (make-file 2 'write)))
(init-input-file *stdin* 0)
- (init-output-file *stdout* #f 1)
- (init-output-file *stderr* #f 2)
(define stdin$ (make-fluid *stdin*))
(define stdout$ (make-fluid *stdout*))
@@ -374,12 +389,9 @@
;; General file operations
-(define port? (class-discriminator <port>))
-
-(define file? (class-discriminator <file>))
+(define port? (class-discriminator <old-port>))
-(define (read-string length (port (current-input-port)) (block? #t))
- (port-read-string port length block?))
+(define file? (class-discriminator <old-file>))
(define (peek-string length (port (current-input-port)) (block? #t))
(port-peek-string port length block?))
@@ -453,19 +465,126 @@
(define (read-char (port (current-input-port)))
(if (instance? port)
(%read-char port)
- (((asm NN_pr_record_type_read_char_slot) (type-of port)) port)))
+ (my t (type-of port)
+ (cond
+ ((symbol? t) (raise 'readable? port))
+ (((asm NN_pr_record_type_read_char_slot) t)
+ => (cut <> port))
+ (((asm NN_pr_record_type_read_string_slot) t)
+ => (lambda (sr)
+ (my s (sr port 1)
+ (if (and (string? s) (= (length s) 1))
+ s[0]
+ s))))
+ (else (raise 'readable? port))))))
; Note that Scheme's |write-char| takes the port argument *last*
; whereas the |write-char| hooks take it *first*.
(define (write-char object (port (current-output-port)))
+ (type char object)
(if (instance? port)
- (write-string (string object) port)
- (((asm NN_pr_record_type_write_char_slot) (type-of port))
- port object)))
+ (port-write-string port (string object))
+ (my t (type-of port)
+ (cond
+ ((symbol? t) (raise 'writable? port))
+ (((asm NN_pr_record_type_write_char_slot) t)
+ => (cut <> port object))
+ (((asm NN_pr_record_type_write_string_slot) t)
+ => (cut <> port (string object)))
+ (else (raise 'writable? port))))))
+
+;; FIXME: what about terminals?
+(define (read-string amount (port (current-input-port)))
+ (if (instance? port)
+ (port-read-string port amount)
+ (my t (type-of port)
+ (cond
+ ((symbol? t) (raise 'writable? port))
+ (((asm NN_pr_record_type_read_string_slot) t)
+ => (lambda (sr)
+ (my eof? #f
+ (my data (collect-string
+ (lambda (emit)
+ (let (loop (amount amount))
+ (if (positive? amount)
+ (my chunk (sr port amount)
+ (cond
+ ((eof-object? chunk) (set! eof? #t))
+ ((not chunk)) ; no data yet
+ ((not (string? chunk))
+ (raise 'string? chunk))
+ ((string-null? chunk))
+ (else (emit chunk)
+ (loop (- amount
+ (length chunk))))))))))
+ (if (and (string-null? data) eof?)
+ (begin)
+ data)))))
+ (((asm NN_pr_record_type_read_char_slot) t)
+ => (lambda (cr)
+ (my eof? #f
+ (my data (collect-string
+ (lambda (emit)
+ (let (loop (amount amount))
+ (if (positive? amount)
+ (my ch (cr port amount)
+ (cond
+ ((eof-object? ch) (set! eof? #t))
+ ((not ch)) ; no data yet
+ ((not (char? ch))
+ (raise 'char? ch))
+ (else (emit ch)
+ (loop (- amount 1)))))))))
+ (if (and (string-null? data) eof?)
+ (begin)
+ data)))))
+ (else (raise 'readable? port))))))
; See the comment near |write-char|.
(define (write-string s (port (current-output-port)))
- (port-write-string port s))
+ (type string s)
+ (if (instance? port)
+ (port-write-string port s)
+ (my t (type-of port)
+ (cond
+ ((symbol? t) (raise 'writable? port))
+ (((asm NN_pr_record_type_write_string_slot) t)
+ => (cut <> port s))
+ (((asm NN_pr_record_type_write_char_slot) t)
+ => (lambda (cw)
+ (my l (length s)
+ (my i 0
+ (while (< i l)
+ (cw port s[i])
+ (incr! i))))))
+ (else (raise 'writable? port))))))
+
+(define (close-input-port p)
+ (if (instance? p)
+ (%close-input-port p)
+ (my t (type-of p)
+ (cond
+ ((symbol? t) (raise 'port? p))
+ (((asm NN_pr_record_type_close_port_slot) t)
+ => (cut <> p 'read))))))
+
+(define (close-output-port p)
+ (if (instance? p)
+ (%close-output-port p)
+ (my t (type-of p)
+ (cond
+ ((symbol? t) (raise 'port? p))
+ (((asm NN_pr_record_type_close_port_slot) t)
+ => (cut <> p 'write))))))
+
+(define (close-port p)
+ (if (instance? p)
+ (%close-port p)
+ (my t (type-of p)
+ (cond
+ ((symbol? t) (raise 'port? p))
+ (((asm NN_pr_record_type_close_port_slot) t)
+ => (cut <> p #t))))))
(define (newline (port (current-output-port)))
(write-char #\newline port)
Index: records.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/records.wisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- records.wisp 18 Sep 2002 21:10:02 -0000 1.8
+++ records.wisp 18 Sep 2002 21:16:49 -0000 1.9
@@ -13,26 +13,38 @@
(length-hook #f)
(new-hook #f)
(read-char-hook #f)
- (write-char-hook #f))
+ (write-char-hook #f)
+ (read-string-hook #f)
+ (write-string-hook #f)
+ (close-port-hook #f))
(while (not (null? hooks))
(my (hook-name hook-generator . rest-hooks) hooks
(set! hooks rest-hooks)
(case hook-name
- ((ref) (if ref-hook
- (raise 'duplicate-ref-hook hook-generator)
- (set! ref-hook (apply hook-generator data))))
- ((length) (if length-hook
- (raise 'duplicate-length-hook hook-generator)
- (set! length-hook (apply hook-generator data))))
- ((new) (if new-hook
- (raise 'duplicate-new-hook hook-generator)
- (set! new-hook (apply hook-generator data))))
- ((read-char) (if read-char-hook
- (raise 'duplicate-read-char-hook hook-generator)
- (set! read-char-hook (apply hook-generator data))))
- ((write-char) (if write-char-hook
- (raise 'duplicate-write-char-hook hook-generator)
- (set! write-char-hook (apply hook-generator data))))
+ ((ref) (if ref-hook
+ (raise 'duplicate-ref-hook hook-generator)
+ (set! ref-hook (apply hook-generator data))))
+ ((length) (if length-hook
+ (raise 'duplicate-length-hook hook-generator)
+ (set! length-hook (apply hook-generator data))))
+ ((new) (if new-hook
+ (raise 'duplicate-new-hook hook-generator)
+ (set! new-hook (apply hook-generator data))))
+ ((read-char) (if read-char-hook
+ (raise 'duplicate-read-char-hook hook-generator)
+ (set! read-char-hook (apply hook-generator data))))
+ ((write-char) (if write-char-hook
+ (raise 'duplicate-write-char-hook hook-generator)
+ (set! write-char-hook (apply hook-generator data))))
+ ((read-string) (if read-string-hook
+ (raise 'duplicate-read-string-hook hook-generator)
+ (set! read-string-hook (apply hook-generator data))))
+ ((write-string) (if write-string-hook
+ (raise 'duplicate-write-string-hook hook-generator)
+ (set! write-string-hook (apply hook-generator data))))
+ ((close-port) (if close-port-hook
+ (raise 'duplicate-close-port-hook hook-generator)
+ (set! close-port-hook (apply hook-generator data))))
(else (raise 'record-hook-name? hook-name)))))
(if ref-hook
(set! ((asm NN_pr_record_type_ref_slot) record-type)
@@ -48,5 +60,32 @@
read-char-hook))
(if write-char-hook
(set! ((asm NN_pr_record_type_write_char_slot) record-type)
- write-char-hook)))
+ write-char-hook))
+ (if read-string-hook
+ (set! ((asm NN_pr_record_type_read_string_slot) record-type)
+ read-string-hook))
+ (if write-string-hook
+ (set! ((asm NN_pr_record_type_write_string_slot) record-type)
+ write-string-hook))
+ (if close-port-hook
+ (set! ((asm NN_pr_record_type_close_port_slot) record-type)
+ close-port-hook)))
data))
+
+(define (input-mode rt)
+ (let ((c ((asm NN_pr_record_type_read_char_slot) rt))
+ (s ((asm NN_pr_record_type_read_string_slot) rt)))
+ (cond
+ ((and c s) #t)
+ (c 'char)
+ (s 'string)
+ (else #f))))
+
+(define (output-mode rt)
+ (let ((c ((asm NN_pr_record_type_write_char_slot) rt))
+ (s ((asm NN_pr_record_type_write_string_slot) rt)))
+ (cond
+ ((and c s) #t)
+ (c 'char)
+ (s 'string)
+ (else #f))))
Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.370
retrieving revision 1.371
diff -u -d -r1.370 -r1.371
--- stdenv.wisp 18 Sep 2002 21:15:21 -0000 1.370
+++ stdenv.wisp 18 Sep 2002 21:16:49 -0000 1.371
@@ -11,12 +11,12 @@
(metacode
(cons 'list
(map (lambda (x) `(cons ',x ,x))
- '(* + - / /= < << <= <box> <c16string> <class> <file>
- <macro> <port> <record-type> <u8vector> <vector> = > >= >>
- abs acons! address-of alist->dict alist-copy analyse and
- append append-reverse apply assert assert-object-type
- assoc assq assv atom? big-integer? bind bit? boolean?
- box-empty! box-empty? box-ref box? broketed?
+ '(* + - / /= < << <= <box> <c16string> <class> <macro>
+ <old-file> <old-port> <record-type> <u8vector> <vector> =
+ > >= >> abs acons! address-of alist->dict alist-copy
+ analyse and append append-reverse apply assert
+ assert-object-type assoc assq assv atom? big-integer? bind
+ bit? boolean? box-empty! box-empty? box-ref box? broketed?
builtin-modules c16string? c8string? caaaar caaadr caaar
caadar caaddr caadr caar cadaar cadadr cadar caddar cadddr
caddr cadr call-with-in/out-files call-with-input-file
@@ -54,17 +54,18 @@
fit-for-symbol? fit-for-variable-name? fixnum? flatten
floor for-all-env-vars for-dir-entries for-each fourth
fraction? frer->structure hache hide* incr! init-port
- input-port? instance? integer->char integer->string
- integer? intermingle keyword? lambda-pack last-cons length
- let let* letrec list list->semideque list->vector
- list-copy list-ref list? load lookup-slot macro->procedure
- macro? make-box make-c16string make-c8string make-class
- make-counter make-dict make-instance make-record-type
- make-string make-vector map meaning member memq memv
- metacode modify-bit module module-ref modulo my-port
- native? negative? new newline ninth not null-list? null?
- number->string number? numerator nybble? nyp? odd?
- open-input-file open-output-file opt or order->dict
+ input-mode input-port? instance? integer->char
+ integer->string integer? intermingle keyword? lambda-pack
+ last-cons length let let* letrec list list->semideque
+ list->vector list-copy list-ref list? load lookup-slot
+ macro->procedure macro? make-box make-c16string
+ make-c8string make-class make-counter make-dict
+ make-instance make-record-type make-string make-vector map
+ meaning member memq memv metacode modify-bit module
+ module-ref modulo my-port native? negative? new newline
+ ninth not null-list? null? number->string number?
+ numerator nybble? nyp? odd? open-input-file
+ open-output-file opt or order->dict output-mode
output-port? pack-be-integer pack-le-integer
parse-character-body parse-lambda-list peek-char
peek-string pick-dict-items port? positive? prep
@@ -74,12 +75,12 @@
read-character-body read-directory read-line read-string
read-whole-file real? rec record-type-discriminator
record-type? reduce-index ref remainder reverse round
- run-ewisp-file sbyte? second seek semideque
- semideque->list semideque-bottom semideque-insert!
- semideque-pop! semideque-push! semideque-top serial
- seventh signal sixth slice split-by-char string
- string->c16string string->c8string string->integer
- string->list string->number string->symbol string-append
+ run-ewisp-file sbyte? second semideque semideque->list
+ semideque-bottom semideque-insert! semideque-pop!
+ semideque-push! semideque-top serial seventh signal sixth
+ slice split-by-char string string->c16string
+ string->c8string string->integer string->list
+ string->number string->symbol string-append
string-concatenate string-copy string-downcase
string-downcase! string-fill! string-join string-move!
string-null? string-template string-upcase string-upcase!
Index: tostring.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/tostring.wisp,v
retrieving revision 1.81
retrieving revision 1.82
diff -u -d -r1.81 -r1.82
--- tostring.wisp 18 Sep 2002 21:15:23 -0000 1.81
+++ tostring.wisp 18 Sep 2002 21:16:49 -0000 1.82
@@ -233,14 +233,18 @@
(loop (superclass c) (+ g 1))
g))))
(emit #\>))
+ ((eq? (type-of s) <file>)
+ (emit "#<file ")
+ (emit (integer->string (file-descriptor s)))
+ (emit #\>))
((instance? s)
(cond
((file? s)
- (emit "#<file ")
+ (emit "#<old-file ")
(emit (integer->string (file-descriptor s)))
(emit #\>))
((port? s)
- (emit "#<port ")
+ (emit "#<old-port ")
(emit (stringify-address s))
(emit #\>))
(else
|
|
From: <di...@us...> - 2002-09-18 21:16:52
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv2015/src
Modified Files:
essence.c wordlist.txt
Log Message:
Introduced the new, more polymorphic port mechanism.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.222
retrieving revision 1.223
diff -u -d -r1.222 -r1.223
--- essence.c 18 Sep 2002 21:15:13 -0000 1.222
+++ essence.c 18 Sep 2002 21:16:38 -0000 1.223
@@ -331,11 +331,14 @@
NN_pr_get_argument_list,
NN_pr_get_environment,
NN_pr_make_record_type,
+ NN_pr_record_type_close_port_slot,
NN_pr_record_type_length_slot,
NN_pr_record_type_new_slot,
NN_pr_record_type_read_char_slot,
+ NN_pr_record_type_read_string_slot,
NN_pr_record_type_ref_slot,
NN_pr_record_type_write_char_slot,
+ NN_pr_record_type_write_string_slot,
[...2221 lines suppressed...]
+[321]{car:BC 316,cdr:BC 320},
+[322]{car:BC 315,cdr:BC 321},
+[323]{car:W(LTDOTDOTDOTGT),cdr:Q},
+[324]{car:W(LTGT),cdr:BC 323},
+[325]{car:CH('i'),cdr:Q},
+[326]{car:CH('c'),cdr:BC 325},
+[327]{car:CH('C'),cdr:BC 326},
+[328]{car:CH('A'),cdr:BC 327},
+[329]{car:CH('e'),cdr:BC 328},
+[330]{car:B 700,cdr:Q},
+[331]{car:B 699,cdr:BC 330},
+[332]{car:B 701,cdr:Q},
};
/* The root node of the compiled builtin library */
struct node *
-builtin_root = B 689;
+builtin_root = B 703;
/* essence.c ends here */
Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.584
retrieving revision 1.585
diff -u -d -r1.584 -r1.585
--- wordlist.txt 18 Sep 2002 21:15:21 -0000 1.584
+++ wordlist.txt 18 Sep 2002 21:16:49 -0000 1.585
@@ -6,43 +6,44 @@
#
#### @(#) $Id$
-! $ $? %fd->port %get-module %read-char * *arglist* *asm-lock* *ctx
+! $ $? %close-input-port %close-output-port %close-port %fd->port
+%file-descriptor %get-module %read-char * *arglist* *asm-lock* *ctx
*source-dictionary* *system-path* *user-dictionary* + - -> -A ... .l /
/= := :=? < <...> << <= <> <box> <c16string> <class> <file> <fluid>
-<macro> <port> <record-type> <u8vector> <vector> = => > >= >> ? B0
-B1000000 B110 B115200 B1152000 B1200 B134 B150 B1500000 B1800 B19200
-B200 B2000000 B230400 B2400 B2500000 B300 B3000000 B3500000 B38400
-B4000000 B460800 B4800 B50 B500000 B57600 B576000 B600 B75 B921600
-B9600 BRKINT BS0 BS1 CALL CBAUDEX CLOCAL CR0 CR1 CR2 CR3 CREAD CS5 CS6
-CS7 CS8 CSTOPB DEFINE E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EADV
-EAFNOSUPPORT EAGAIN EALREADY EBADE EBADF EBADFD EBADMSG EBADR EBADRQC
-EBADSLT EBFONT EBUSY ECHILD ECHO ECHOCTL ECHOE ECHOK ECHOKE ECHONL
-ECHOPRT ECHRNG ECOMM ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK
-EDESTADDRREQ EDOM EDOTDOT EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN
-EHOSTUNREACH EIDRM EILSEQ EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR
-EISNAM EL2HLT EL2NSYNC EL3HLT EL3RST ELIBACC ELIBBAD ELIBEXEC ELIBMAX
-ELIBSCN ELNRNG ELOOP EMEDIUMTYPE EMFILE EMLINK EMSGSIZE EMULTIHOP
-ENAMETOOLONG ENAVAIL ENETDOWN ENETRESET ENETUNREACH ENFILE ENOANO
-ENOBUFS ENOCSI ENODATA ENODEV ENOENT ENOEXEC ENOLCK ENOLINK ENOMEDIUM
-ENOMEM ENOMSG ENONET ENOPKG ENOPROTOOPT ENOSPC ENOSR ENOSTR ENOSYS
-ENOTBLK ENOTCONN ENOTDIR ENOTEMPTY ENOTNAM ENOTSOCK ENOTTY ENOTUNIQ
-ENXIO EOF-INSIDE-LIST EOF-INSIDE-STRING EOPNOTSUPP EOVERFLOW EPERM
-EPFNOSUPPORT EPIPE EPROTO EPROTONOSUPPORT EPROTOTYPE ERANGE EREMCHG
-EREMOTE EREMOTEIO ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH
-ESRMNT ESTALE ESTRPIPE ETIME ETIMEDOUT ETOOMANYREFS ETXTBSY EUCLEAN
-EUNATCH EUSERS EXDEV EXFULL FD_CLOEXEC FF0 FF1 FLUSHO F_DUPFD F_GETFD
-F_GETFL F_GETLK F_GETLK64 F_GETOWN F_GETSIG F_RDLCK F_SETFD F_SETFL
-F_SETLK F_SETLK64 F_SETLKW F_SETLKW64 F_SETOWN F_SETSIG F_UNLCK F_WRLCK
-GLOBAL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR IMAXBEL INLCR
-INPCK ISIG ISTRIP IUCLC IXANY IXOFF IXON LOCK_EX LOCK_MAND LOCK_NB
-LOCK_READ LOCK_RW LOCK_SH LOCK_UN LOCK_WRITE Linux NCCS NL0 NL1 NOFLSH
-OCRNL OFDEL OFILL OLCUC ONLCR ONLRET ONOCR OPOST OR O_APPEND O_ASYNC
-O_CREAT O_DIRECT O_DIRECTORY O_EXCL O_FSYNC O_NDELAY O_NOCTTY
-O_NOFOLLOW O_NONBLOCK O_RDONLY O_RDWR O_SYNC O_TRUNC O_WRONLY PARENB
-PARMRK PARODD PARSED PENDIN SEEK_CUR SEEK_END SEEK_SET T TAB0 TAB1 TAB2
-TAB3 TOSTOP UNTERMINATED-CHAR-CODE UNTERMINATED-STRING VCALL VDISCARD
-VEOF VEOL VEOL2 VERASE VINTR VKILL VLNEXT VMIN VQUIT VREPRINT VSTART
-VSTOP VSUSP VSWTC VT0 VT1 VTIME VWERASE WITHIN XCASE \16 \8 \c16
+<macro> <old-file> <old-port> <port> <record-type> <u8vector> <vector>
+= => > >= >> ? B0 B1000000 B110 B115200 B1152000 B1200 B134 B150
+B1500000 B1800 B19200 B200 B2000000 B230400 B2400 B2500000 B300
+B3000000 B3500000 B38400 B4000000 B460800 B4800 B50 B500000 B57600
+B576000 B600 B75 B921600 B9600 BRKINT BS0 BS1 CALL CBAUDEX CLOCAL CR0
+CR1 CR2 CR3 CREAD CS5 CS6 CS7 CS8 CSTOPB DEFINE E2BIG EACCES EADDRINUSE
+EADDRNOTAVAIL EADV EAFNOSUPPORT EAGAIN EALREADY EBADE EBADF EBADFD
+EBADMSG EBADR EBADRQC EBADSLT EBFONT EBUSY ECHILD ECHO ECHOCTL ECHOE
+ECHOK ECHOKE ECHONL ECHOPRT ECHRNG ECOMM ECONNABORTED ECONNREFUSED
+ECONNRESET EDEADLK EDESTADDRREQ EDOM EDOTDOT EDQUOT EEXIST EFAULT EFBIG
+EHOSTDOWN EHOSTUNREACH EIDRM EILSEQ EINPROGRESS EINTR EINVAL EIO
+EISCONN EISDIR EISNAM EL2HLT EL2NSYNC EL3HLT EL3RST ELIBACC ELIBBAD
+ELIBEXEC ELIBMAX ELIBSCN ELNRNG ELOOP EMEDIUMTYPE EMFILE EMLINK
+EMSGSIZE EMULTIHOP ENAMETOOLONG ENAVAIL ENETDOWN ENETRESET ENETUNREACH
+ENFILE ENOANO ENOBUFS ENOCSI ENODATA ENODEV ENOENT ENOEXEC ENOLCK
+ENOLINK ENOMEDIUM ENOMEM ENOMSG ENONET ENOPKG ENOPROTOOPT ENOSPC ENOSR
+ENOSTR ENOSYS ENOTBLK ENOTCONN ENOTDIR ENOTEMPTY ENOTNAM ENOTSOCK
+ENOTTY ENOTUNIQ ENXIO EOF-INSIDE-LIST EOF-INSIDE-STRING EOPNOTSUPP
+EOVERFLOW EPERM EPFNOSUPPORT EPIPE EPROTO EPROTONOSUPPORT EPROTOTYPE
+ERANGE EREMCHG EREMOTE EREMOTEIO ERESTART EROFS ESHUTDOWN
+ESOCKTNOSUPPORT ESPIPE ESRCH ESRMNT ESTALE ESTRPIPE ETIME ETIMEDOUT
+ETOOMANYREFS ETXTBSY EUCLEAN EUNATCH EUSERS EXDEV EXFULL FD_CLOEXEC FF0
+FF1 FLUSHO F_DUPFD F_GETFD F_GETFL F_GETLK F_GETLK64 F_GETOWN F_GETSIG
+F_RDLCK F_SETFD F_SETFL F_SETLK F_SETLK64 F_SETLKW F_SETLKW64 F_SETOWN
+F_SETSIG F_UNLCK F_WRLCK GLOBAL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR
+IGNPAR IMAXBEL INLCR INPCK ISIG ISTRIP IUCLC IXANY IXOFF IXON LOCK_EX
+LOCK_MAND LOCK_NB LOCK_READ LOCK_RW LOCK_SH LOCK_UN LOCK_WRITE Linux
+NCCS NL0 NL1 NOFLSH OCRNL OFDEL OFILL OLCUC ONLCR ONLRET ONOCR OPOST OR
+O_APPEND O_ASYNC O_CREAT O_DIRECT O_DIRECTORY O_EXCL O_FSYNC O_NDELAY
+O_NOCTTY O_NOFOLLOW O_NONBLOCK O_RDONLY O_RDWR O_SYNC O_TRUNC O_WRONLY
+PARENB PARMRK PARODD PARSED PENDIN SEEK_CUR SEEK_END SEEK_SET T TAB0
+TAB1 TAB2 TAB3 TOSTOP UNTERMINATED-CHAR-CODE UNTERMINATED-STRING VCALL
+VDISCARD VEOF VEOL VEOL2 VERASE VINTR VKILL VLNEXT VMIN VQUIT VREPRINT
+VSTART VSTOP VSUSP VSWTC VT0 VT1 VTIME VWERASE WITHIN XCASE \16 \8 \c16
\c16string \c8 \c8string \char16 \char8 abs absolute acons! addat
address-of alist->dict alist-copy analyse and append append-reverse
apply argcount args asm assemble assert assert-object-type
@@ -80,27 +81,29 @@
dict->alist dict-bind! dict-copy dict-defined? dict-drop! dict-fetch
dict-ref dict? dict_ref_2 dig directory dis discriminator
division-by-zero do dot-tail drain drop drop-buffer drop-var ds dsc
-dummy-var duplicate-dict-item! duplicate-length-hook duplicate-new-hook
-duplicate-read-char-hook duplicate-ref-hook duplicate-slot-name
-duplicate-write-char-hook dwim-stringify eighth else end
-ensure-in-buffer ensure-line-in-buffer env-ref eof-object? eof? eq?
-equal? eqv? errno erroneous-binding erroneous-dot-binding eval even?
-evmfunc evmfunc? except exclusive exit export f false fatal-handler
-fcntl fd fdset-ref fifth file-close-hook file-ctime file-descriptor
-file-mtime file-ready? file-stat file-type file-types file? filter
-finally find find-tail first fit-for-symbol? fit-for-variable-name?
-fixnum fixnum? flag-specifier? flatten flock floor fluid-list fluid-my
-fluid? fluids flush follow-not for-all-env-vars for-dir-entries
-for-each form? fourth fraction fraction? frer frer->structure friend
-gid grammar-error hache hidden hide hide* hold home hop ia32 if iflag
-immediate-sublambdas imported-variables inc incr! infix init-input-file
-init-output-file init-port ino input-port? instance
-instance-of-wrong-class instance? instruction-list integer
-integer->char integer->flag-list integer->string integer? intermingle
-internal-trouble invalid invalid-argument-name invalid-assignment
-invalid-branch-target invalid-char invalid-cut invalid-definition
-invalid-dollar-construct invalid-export invalid-form invalid-frer
-invalid-frer-opcode invalid-intercode-instruction invalid-lambda-list
+dummy-var duplicate-close-port-hook duplicate-dict-item!
+duplicate-length-hook duplicate-new-hook duplicate-read-char-hook
+duplicate-read-string-hook duplicate-ref-hook duplicate-slot-name
+duplicate-write-char-hook duplicate-write-string-hook dwim-stringify
+eighth else end ensure-in-buffer ensure-line-in-buffer env-ref
+eof-object? eof? eq? equal? eqv? errno erroneous-binding
+erroneous-dot-binding eval even? evmfunc evmfunc? except exclusive exit
+export f false fatal-handler fcntl fd fdset-ref fifth file-close-hook
+file-ctime file-descriptor file-mtime file-ready? file-stat file-type
+file-types file? filter finally find find-tail first fit-for-symbol?
+fit-for-variable-name? fixnum fixnum? flag-specifier? flatten flock
+floor fluid-list fluid-my fluid? fluids flush follow-not
+for-all-env-vars for-dir-entries for-each form? fourth fraction
+fraction? frer frer->structure friend gid grammar-error hache hidden
+hide hide* hold home hop ia32 if iflag immediate-sublambdas
+imported-variables inc incr! infix init-input-file init-output-file
+init-port ino input-mode input-port? instance instance-of-wrong-class
+instance? instruction-list integer integer->char integer->flag-list
+integer->string integer? intermingle internal-trouble invalid
+invalid-argument-name invalid-assignment invalid-branch-target
+invalid-char invalid-cut invalid-definition invalid-dollar-construct
+invalid-export invalid-form invalid-frer invalid-frer-opcode
+invalid-intercode-instruction invalid-lambda-list
invalid-lambda-pack-clause invalid-module-name invalid-my-target
invalid-place invalid-reader-syntax invalid-slot-name
invalid-system-constant-name-part invalid-try-clause
@@ -110,15 +113,16 @@
list->semideque list->vector list-copy list-ref list? load local
local-count logical-and logical-not logical-or logical-xor lookup-slot
mac macro->procedure macro? make-box make-c16string make-c8string
-make-class make-counter make-dict make-fdset make-fluid make-instance
-make-record-type make-string make-vector map master-dictionary mat mca
-meaning measurable? member memq memv meta metacode mha mla mlt mode
-modify-bit module module-load module-loop module-ref module-was-run
-modules modulo mta mtime my my-port native? negative? negc new newline
-ninth nlink normalize-binding not not-enough-space notc now nul null
-null-list? null? number number->string number? numerator nybble? nyp? o
-odd? of oflag open open-input-file open-output-file opt optimize-source
-or order->dict origin out-of-memory output-port? overflow p
+make-class make-counter make-dict make-fdset make-file make-fluid
+make-instance make-record-type make-string make-vector map
+master-dictionary mat mca meaning measurable? member memq memv meta
+metacode mha mla mlt mode modify-bit module module-load module-loop
+module-ref module-was-run modules modulo mta mtime my my-port native?
+negative? negc new newline ninth nlink normalize-binding not
+not-enough-space notc now nul null null-list? null? number
+number->string number? numerator nybble? nyp? o odd? of oflag open
+open-input-file open-output-file opt optimize-source or order->dict
+origin out-of-memory output-mode output-port? overflow p
pack-be-integer pack-le-integer page parse-character-body
parse-lambda-list pc peek-char peek-string ph pick-dict-items pipe pl
port-peek-string port-read-string port-ready? port-write-string port?
@@ -134,7 +138,7 @@
raw-write-string rdev read read-all=> read-char read-char-sequence
read-character-body read-directory read-external-string read-line
read-only read-string read-until-dollar read-whole-file readable
-real-use real? rec record-constructor record-hook-name?
+readable? real-use real? rec record-constructor record-hook-name?
record-type-discriminator record-type-referrer record-type?
reduce-index ref reg regex regex-template regular regular-env relative
remainder rename return reverse rolocal roslot round rubout
@@ -176,5 +180,5 @@
valloc value vector vector->list vector-append vector-copy vector-fill!
vector-move! vector? void void? vs vtab while wisp-build wisp-builder
wisp-string-hash wisp-version with-errors-to with-fluid with-input-from
-with-output-to write write-char write-string writeln wrong-fluid x xors
-xri zero?
+with-output-to writable? write write-char write-string writeln
+wrong-fluid x xors xri zero?
|
|
From: <di...@us...> - 2002-09-18 21:15:56
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv1563/src
Modified Files:
essence.c wordlist.txt
Log Message:
Implemented |<u8vector>|.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.221
retrieving revision 1.222
diff -u -d -r1.221 -r1.222
--- essence.c 18 Sep 2002 21:13:27 -0000 1.221
+++ essence.c 18 Sep 2002 21:15:13 -0000 1.222
@@ -408,6 +408,7 @@
NN_third,
NN_truncate,
NN_type_of,
+ NN_u8vector_huh,
NN_unix_time,
NN_unsigned_get_bit,
NN_utf_8_first_byte2length,
@@ -419,6 +420,7 @@
RT_box,
RT_c16string,
RT_record_type,
[...1113 lines suppressed...]
struct cons conses [] = {
@@ -2076,13 +2079,13 @@
[326]{car:CH('C'),cdr:BC 325},
[327]{car:CH('A'),cdr:BC 326},
[328]{car:CH('e'),cdr:BC 327},
-[329]{car:B 685,cdr:Q},
-[330]{car:B 684,cdr:BC 329},
-[331]{car:B 686,cdr:Q},
+[329]{car:B 686,cdr:Q},
+[330]{car:B 685,cdr:BC 329},
+[331]{car:B 687,cdr:Q},
};
/* The root node of the compiled builtin library */
struct node *
-builtin_root = B 688;
+builtin_root = B 689;
/* essence.c ends here */
Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.583
retrieving revision 1.584
diff -u -d -r1.583 -r1.584
--- wordlist.txt 18 Sep 2002 21:13:37 -0000 1.583
+++ wordlist.txt 18 Sep 2002 21:15:21 -0000 1.584
@@ -9,52 +9,52 @@
! $ $? %fd->port %get-module %read-char * *arglist* *asm-lock* *ctx
*source-dictionary* *system-path* *user-dictionary* + - -> -A ... .l /
/= := :=? < <...> << <= <> <box> <c16string> <class> <file> <fluid>
-<macro> <port> <record-type> <vector> = => > >= >> ? B0 B1000000 B110
-B115200 B1152000 B1200 B134 B150 B1500000 B1800 B19200 B200 B2000000
-B230400 B2400 B2500000 B300 B3000000 B3500000 B38400 B4000000 B460800
-B4800 B50 B500000 B57600 B576000 B600 B75 B921600 B9600 BRKINT BS0 BS1
-CALL CBAUDEX CLOCAL CR0 CR1 CR2 CR3 CREAD CS5 CS6 CS7 CS8 CSTOPB DEFINE
-E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EADV EAFNOSUPPORT EAGAIN EALREADY
-EBADE EBADF EBADFD EBADMSG EBADR EBADRQC EBADSLT EBFONT EBUSY ECHILD
-ECHO ECHOCTL ECHOE ECHOK ECHOKE ECHONL ECHOPRT ECHRNG ECOMM
-ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDOTDOT
-EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EIDRM EILSEQ
-EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR EISNAM EL2HLT EL2NSYNC
-EL3HLT EL3RST ELIBACC ELIBBAD ELIBEXEC ELIBMAX ELIBSCN ELNRNG ELOOP
-EMEDIUMTYPE EMFILE EMLINK EMSGSIZE EMULTIHOP ENAMETOOLONG ENAVAIL
-ENETDOWN ENETRESET ENETUNREACH ENFILE ENOANO ENOBUFS ENOCSI ENODATA
-ENODEV ENOENT ENOEXEC ENOLCK ENOLINK ENOMEDIUM ENOMEM ENOMSG ENONET
-ENOPKG ENOPROTOOPT ENOSPC ENOSR ENOSTR ENOSYS ENOTBLK ENOTCONN ENOTDIR
-ENOTEMPTY ENOTNAM ENOTSOCK ENOTTY ENOTUNIQ ENXIO EOF-INSIDE-LIST
-EOF-INSIDE-STRING EOPNOTSUPP EOVERFLOW EPERM EPFNOSUPPORT EPIPE EPROTO
-EPROTONOSUPPORT EPROTOTYPE ERANGE EREMCHG EREMOTE EREMOTEIO ERESTART
-EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESRMNT ESTALE ESTRPIPE
-ETIME ETIMEDOUT ETOOMANYREFS ETXTBSY EUCLEAN EUNATCH EUSERS EXDEV
-EXFULL FD_CLOEXEC FF0 FF1 FLUSHO F_DUPFD F_GETFD F_GETFL F_GETLK
-F_GETLK64 F_GETOWN F_GETSIG F_RDLCK F_SETFD F_SETFL F_SETLK F_SETLK64
-F_SETLKW F_SETLKW64 F_SETOWN F_SETSIG F_UNLCK F_WRLCK GLOBAL HUPCL
-ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR IMAXBEL INLCR INPCK ISIG ISTRIP
-IUCLC IXANY IXOFF IXON LOCK_EX LOCK_MAND LOCK_NB LOCK_READ LOCK_RW
-LOCK_SH LOCK_UN LOCK_WRITE Linux NCCS NL0 NL1 NOFLSH OCRNL OFDEL OFILL
-OLCUC ONLCR ONLRET ONOCR OPOST OR O_APPEND O_ASYNC O_CREAT O_DIRECT
-O_DIRECTORY O_EXCL O_FSYNC O_NDELAY O_NOCTTY O_NOFOLLOW O_NONBLOCK
-O_RDONLY O_RDWR O_SYNC O_TRUNC O_WRONLY PARENB PARMRK PARODD PARSED
-PENDIN SEEK_CUR SEEK_END SEEK_SET T TAB0 TAB1 TAB2 TAB3 TOSTOP
-UNTERMINATED-CHAR-CODE UNTERMINATED-STRING VCALL VDISCARD VEOF VEOL
-VEOL2 VERASE VINTR VKILL VLNEXT VMIN VQUIT VREPRINT VSTART VSTOP VSUSP
-VSWTC VT0 VT1 VTIME VWERASE WITHIN XCASE \16 \8 \c16 \c16string \c8
-\c8string \char16 \char8 abs absolute acons! addat address-of
-alist->dict alist-copy analyse and append append-reverse apply argcount
-args asm assemble assert assert-object-type assertion-failed assoc assq
-assume-constant-globals assv atime atom? b backspace bad-stacked-var
-bar begin bell big-integer big-integer? binary-equal?
-binary-logical-xor binary-vector-contents-equal? binc bind binnc binzc
-bit? blksize blockdev blocks boolean boolean? box-empty! box-empty?
-box-ref box? broketed? buffer builtin-modules bury c c16 c16string
-c16string? c8 c8string c8string? caaaar caaadr caaar caadar caaddr
-caadr caar cadaar cadadr cadar caddar cadddr caddr cadr
-call-with-in/out-files call-with-input-file call-with-output-file car
-car! car* cardinal? case catch cc cdaaar cdaadr cdaar cdadar cdaddr
+<macro> <port> <record-type> <u8vector> <vector> = => > >= >> ? B0
+B1000000 B110 B115200 B1152000 B1200 B134 B150 B1500000 B1800 B19200
+B200 B2000000 B230400 B2400 B2500000 B300 B3000000 B3500000 B38400
+B4000000 B460800 B4800 B50 B500000 B57600 B576000 B600 B75 B921600
+B9600 BRKINT BS0 BS1 CALL CBAUDEX CLOCAL CR0 CR1 CR2 CR3 CREAD CS5 CS6
+CS7 CS8 CSTOPB DEFINE E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EADV
+EAFNOSUPPORT EAGAIN EALREADY EBADE EBADF EBADFD EBADMSG EBADR EBADRQC
+EBADSLT EBFONT EBUSY ECHILD ECHO ECHOCTL ECHOE ECHOK ECHOKE ECHONL
+ECHOPRT ECHRNG ECOMM ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK
+EDESTADDRREQ EDOM EDOTDOT EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN
+EHOSTUNREACH EIDRM EILSEQ EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR
+EISNAM EL2HLT EL2NSYNC EL3HLT EL3RST ELIBACC ELIBBAD ELIBEXEC ELIBMAX
+ELIBSCN ELNRNG ELOOP EMEDIUMTYPE EMFILE EMLINK EMSGSIZE EMULTIHOP
+ENAMETOOLONG ENAVAIL ENETDOWN ENETRESET ENETUNREACH ENFILE ENOANO
+ENOBUFS ENOCSI ENODATA ENODEV ENOENT ENOEXEC ENOLCK ENOLINK ENOMEDIUM
+ENOMEM ENOMSG ENONET ENOPKG ENOPROTOOPT ENOSPC ENOSR ENOSTR ENOSYS
+ENOTBLK ENOTCONN ENOTDIR ENOTEMPTY ENOTNAM ENOTSOCK ENOTTY ENOTUNIQ
+ENXIO EOF-INSIDE-LIST EOF-INSIDE-STRING EOPNOTSUPP EOVERFLOW EPERM
+EPFNOSUPPORT EPIPE EPROTO EPROTONOSUPPORT EPROTOTYPE ERANGE EREMCHG
+EREMOTE EREMOTEIO ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH
+ESRMNT ESTALE ESTRPIPE ETIME ETIMEDOUT ETOOMANYREFS ETXTBSY EUCLEAN
+EUNATCH EUSERS EXDEV EXFULL FD_CLOEXEC FF0 FF1 FLUSHO F_DUPFD F_GETFD
+F_GETFL F_GETLK F_GETLK64 F_GETOWN F_GETSIG F_RDLCK F_SETFD F_SETFL
+F_SETLK F_SETLK64 F_SETLKW F_SETLKW64 F_SETOWN F_SETSIG F_UNLCK F_WRLCK
+GLOBAL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR IMAXBEL INLCR
+INPCK ISIG ISTRIP IUCLC IXANY IXOFF IXON LOCK_EX LOCK_MAND LOCK_NB
+LOCK_READ LOCK_RW LOCK_SH LOCK_UN LOCK_WRITE Linux NCCS NL0 NL1 NOFLSH
+OCRNL OFDEL OFILL OLCUC ONLCR ONLRET ONOCR OPOST OR O_APPEND O_ASYNC
+O_CREAT O_DIRECT O_DIRECTORY O_EXCL O_FSYNC O_NDELAY O_NOCTTY
+O_NOFOLLOW O_NONBLOCK O_RDONLY O_RDWR O_SYNC O_TRUNC O_WRONLY PARENB
+PARMRK PARODD PARSED PENDIN SEEK_CUR SEEK_END SEEK_SET T TAB0 TAB1 TAB2
+TAB3 TOSTOP UNTERMINATED-CHAR-CODE UNTERMINATED-STRING VCALL VDISCARD
+VEOF VEOL VEOL2 VERASE VINTR VKILL VLNEXT VMIN VQUIT VREPRINT VSTART
+VSTOP VSUSP VSWTC VT0 VT1 VTIME VWERASE WITHIN XCASE \16 \8 \c16
+\c16string \c8 \c8string \char16 \char8 abs absolute acons! addat
+address-of alist->dict alist-copy analyse and append append-reverse
+apply argcount args asm assemble assert assert-object-type
+assertion-failed assoc assq assume-constant-globals assv atime atom? b
+backspace bad-stacked-var bar begin bell big-integer big-integer?
+binary-equal? binary-logical-xor binary-vector-contents-equal? binc
+bind binnc binzc bit? blksize blockdev blocks boolean boolean?
+box-empty! box-empty? box-ref box? broketed? buffer builtin-modules
+bury c c16 c16string c16string? c8 c8string c8string? caaaar caaadr
+caaar caadar caaddr caadr caar cadaar cadadr cadar caddar cadddr caddr
+cadr call-with-in/out-files call-with-input-file call-with-output-file
+car car! car* cardinal? case catch cc cdaaar cdaadr cdaar cdadar cdaddr
cdadr cdar cddaar cddadr cddar cdddar cddddr cdddr cddr cdr cdr! cdr*
ceiling cflag cfmakeraw char char->control-char char->integer char-and
char-bit-clear char-bit-set char-bit-toggle char-bit? char-decimal?
@@ -167,8 +167,8 @@
system-constants system-path system-type t t* tab takervec target tc
tcchangeattr tcgetattr tcgetattr-raw tcsetattr-raw tenth termios th
third tn too-long-character topocopy toposplit translate tree-copy true
-truncate truncate-not try tty? type type-of ubyte? uid undefined
-unix-time unknown unknown-context unknown-local
+truncate truncate-not try tty? type type-of u u8 u8vector? ubyte? uid
+undefined unix-time unknown unknown-context unknown-local
unknown-open-input-file-flag unknown-open-output-file-flag
unpack-be-integer unpack-le-integer unquote unquote-splicing unreadable
unreadable-port unseekable-port unsure-collect unwritable-port use
|
|
From: <di...@us...> - 2002-09-18 21:15:46
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv1563/modules
Modified Files:
universal.wrti wisptyp.wrti
Log Message:
Implemented |<u8vector>|.
Index: universal.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/universal.wrti,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- universal.wrti 18 Sep 2002 21:12:24 -0000 1.21
+++ universal.wrti 18 Sep 2002 21:15:12 -0000 1.22
@@ -519,6 +519,7 @@
,(bsr ,0 ,0))
;; Comparison
+
(macro within
-rot over <= -rot > and)
@@ -528,6 +529,9 @@
(macro max
2dup < if swap then drop swap)
+ (macro unless
+ 0 = if)
+
;; Memory calculations
(macro wydes
@@ -606,13 +610,15 @@
(macro --cell@ --tetra@)
(macro cell! tetra!)
- (macro fill
+ (macro bytefill
(conform %edi %ecx %eax)
,(cld)
,(rep)
,(stos %al)
(believe))
+ (macro fill bytefill) ; FIXME: drop this
+
(macro tetrafill
(conform %edi %ecx %eax)
,(cld)
@@ -622,12 +628,14 @@
(macro cellfill tetrafill)
- (macro move
+ (macro bytemove
(conform %esi %edi %ecx)
,(cld)
,(rep)
,(movs \byte)
(believe))
+
+ (macro move bytemove) ; FIXME: drop this
(macro tetramove
(conform %esi %edi %ecx)
Index: wisptyp.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/wisptyp.wrti,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- wisptyp.wrti 18 Sep 2002 21:12:24 -0000 1.17
+++ wisptyp.wrti 18 Sep 2002 21:15:13 -0000 1.18
@@ -34,9 +34,15 @@
(macro cons?
2 xor 7 and 0 =)
+ (macro require-cons
+ dup cons? unless 'WB_cons_huh swap go-raise then)
+
(macro utdecons ; (cons) -> (car cdr)
dup utcar@ swap utcdr@)
+ (macro decons
+ require-cons untag-cons utdecons)
+
;; Node manipulation
(macro untag-node
@@ -45,11 +51,14 @@
(macro require-vector
dup get-type 'RT_vector <> if 'WB_vector_huh swap go-raise then)
- (macro vector-length
- cell+ cell@)
+ (macro require-u8vector
+ dup get-type 'RT_u8vector <> if 'WB_u8vector_huh swap go-raise then)
- (macro vector-data
- 2 cells +)
+ (macro vector-length cell+ cell@)
+ (macro vector-data 2 cells +)
+
+ (macro u8vector-length cell+ cell@)
+ (macro u8vector-data 2 cells +)
(macro require-c8string
dup get-type NC_C8STRING <> if 'WB_c8string_huh swap go-raise then)
|
