wisp-cvs Mailing List for Wisp interpreter (Page 37)
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-04 14:25:43
|
Update of /cvsroot/wisp/wisp/src/native In directory usw-pr-cvs1:/tmp/cvs-serv28382/src/native Modified Files: boxes.s cons.s Log Message: Improved Worth's comparison handling. Index: boxes.s =================================================================== RCS file: /cvsroot/wisp/wisp/src/native/boxes.s,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- boxes.s 31 Aug 2002 14:29:22 -0000 1.4 +++ boxes.s 4 Sep 2002 14:25:41 -0000 1.5 @@ -1,7 +1,7 @@ .section .text .align 16 N_box_empty_huh: -.byte 144,131,249,1,15,148,192,15,182,192,247,216,137,195,131,251,0,15,148,192,15,182,192,247,216,81,133,192,15,132,8,0,0,0,88,137,193,233 +.byte 144,81,131,249,1,15,132,8,0,0,0,88,137,193,233 .long N_signal_argcount - (.+4) .byte 88,88,104 .long N_box_empty_huh.L1 @@ -9,27 +9,27 @@ .long RT_box .byte 187,1,0,0,0,233 .long slot_accessor_body - (.+4) -.byte 137,195,131,251,35,15,148,192,15,182,192,247,216,133,192,15,132,7,0,0,0,106,11,233,2,0,0,0,106,19,88,195 +.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 .equiv NN_box_empty_huh, N_box_empty_huh + 1 -.equiv .L0, N_box_empty_huh + 42 -.equiv N_box_empty_huh.L1, N_box_empty_huh + 70 -.equiv .L2, N_box_empty_huh + 98 -.equiv .L3, N_box_empty_huh + 100 +.equiv .L0, N_box_empty_huh + 19 +.equiv N_box_empty_huh.L1, N_box_empty_huh + 47 +.equiv .L2, N_box_empty_huh + 65 +.equiv .L3, N_box_empty_huh + 67 .section .text .align 16 N_box_empty: -.byte 144,131,249,1,15,148,192,15,182,192,247,216,137,195,131,251,0,15,148,192,15,182,192,247,216,81,133,192,15,132,8,0,0,0,88,137,193,233 +.byte 144,81,131,249,1,15,132,8,0,0,0,88,137,193,233 .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 .equiv NN_box_empty, N_box_empty + 1 -.equiv .L0, N_box_empty + 42 +.equiv .L0, N_box_empty + 19 .section .text .align 16 N_box_ref: -.byte 144,131,249,1,15,148,192,15,182,192,247,216,81,133,192,15,132,10,0,0,0,88,91,83,104 +.byte 144,81,131,249,1,15,133,10,0,0,0,88,91,83,104 .long box_ref.final .byte 83,80,88,137,193,186 .long RT_box @@ -37,24 +37,24 @@ .long slot_accessor_body - (.+4) .global N_box_ref,NN_box_ref .equiv NN_box_ref, N_box_ref + 1 -.equiv .L0, N_box_ref + 31 +.equiv .L0, N_box_ref + 21 .section .text .align 16 box_ref.final: -.byte 137,195,131,251,35,15,148,192,15,182,192,247,216,83,133,192,15,132,13,0,0,0,88,88,104 +.byte 80,61,35,0,0,0,15,133,13,0,0,0,88,88,104 .long WB_undefined .byte 80,233 .long raise$2 - (.+4) .byte 88,91,195 .global box_ref.final -.equiv .L0, box_ref.final + 35 +.equiv .L0, box_ref.final + 25 .section .text .align 16 N_make_box: -.byte 144,131,249,0,15,148,192,15,182,192,247,216,81,133,192,15,132,5,0,0,0,88,64,106,35,80,88,137,193,186 +.byte 144,81,133,201,15,133,5,0,0,0,88,64,106,35,80,88,137,193,186 .long RT_box .byte 233 .long record_constructor_body - (.+4) .global N_make_box,NN_make_box .equiv NN_make_box, N_make_box + 1 -.equiv .L0, N_make_box + 26 +.equiv .L0, N_make_box + 15 Index: cons.s =================================================================== RCS file: /cvsroot/wisp/wisp/src/native/cons.s,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- cons.s 31 Aug 2002 14:29:22 -0000 1.2 +++ cons.s 4 Sep 2002 14:25:41 -0000 1.3 @@ -1,23 +1,23 @@ .section .text .align 16 N_cons_huh: -.byte 144,131,249,1,15,148,192,15,182,192,247,216,137,195,131,251,0,15,148,192,15,182,192,247,216,81,133,192,15,132,8,0,0,0,88,137,193,233 +.byte 144,81,131,249,1,15,132,8,0,0,0,88,137,193,233 .long N_signal_argcount - (.+4) -.byte 88,88,53,2,0,0,0,37,7,0,0,0,137,195,131,251,0,15,148,192,15,182,192,247,216,133,192,15,132,7,0,0,0,106,11,233,2,0,0,0,106,19,88,195 +.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,0,0,106,19,88,195 .global N_cons_huh,NN_cons_huh .equiv NN_cons_huh, N_cons_huh + 1 -.equiv .L0, N_cons_huh + 42 -.equiv .L1, N_cons_huh + 82 -.equiv .L2, N_cons_huh + 84 +.equiv .L0, N_cons_huh + 19 +.equiv .L1, N_cons_huh + 46 +.equiv .L2, N_cons_huh + 48 .section .text .align 16 N_cons: -.byte 144,131,249,2,15,148,192,15,182,192,247,216,137,195,131,251,0,15,148,192,15,182,192,247,216,81,133,192,15,132,8,0,0,0,88,137,193,233 +.byte 144,81,131,249,2,15,132,8,0,0,0,88,137,193,233 .long N_signal_argcount - (.+4) .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 .equiv NN_cons, N_cons + 1 -.equiv .L0, N_cons + 42 -.equiv cons$2, N_cons + 43 +.equiv .L0, N_cons + 19 +.equiv cons$2, N_cons + 20 |
|
From: <di...@us...> - 2002-09-04 14:25:36
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv28356/modules
Modified Files:
display.wim
Log Message:
Reformatted |display|.
Index: display.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/display.wim,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- display.wim 22 Jul 2002 14:53:07 -0000 1.8
+++ display.wim 4 Sep 2002 14:25:33 -0000 1.9
@@ -12,28 +12,28 @@
(define (display s (port *stdout*))
(cond
- ((or (rational? s) (eq? s #t) (eq? s #f) (eq? s '()) (symbol? s))
- (write s))
+ ((or (number? s) (boolean? s) (null? s) (symbol? s))
+ (write s))
((string? s) (write-string s port))
((char? s) (write-char s port))
((vector? s)
- (write-char #\# port)
- (display (vector->list s) port))
+ (write-char #\# port)
+ (display (vector->list s) port))
((cons? s)
- (write-char #\open port)
- (let (intloop (s s))
- (cond
- ((null? (cdr s))
- (display (car s) port))
- ((cons? (cdr s))
- (display (car s) port)
- (write-char #\space port)
- (intloop (cdr s)))
- (else
- (display (car s) port)
- (write-string " . " port)
- (display (cdr s) port))))
- (write-char #\close port))
+ (write-char #\open port)
+ (let (intloop (s s))
+ (cond
+ ((null? (cdr s))
+ (display (car s) port))
+ ((cons? (cdr s))
+ (display (car s) port)
+ (write-char #\space port)
+ (intloop (cdr s)))
+ (else
+ (display (car s) port)
+ (write-string " . " port)
+ (display (cdr s) port))))
+ (write-char #\close port))
(else
(write s port)))
(begin))
|
|
From: <di...@us...> - 2002-09-04 13:49:04
|
Update of /cvsroot/wisp/wisp/wa In directory usw-pr-cvs1:/tmp/cvs-serv11978/wa Modified Files: Makefile.am Log Message: Added a %.wth -> %.was rule to wa/Makefile.am . Index: Makefile.am =================================================================== RCS file: /cvsroot/wisp/wisp/wa/Makefile.am,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- Makefile.am 31 Aug 2002 14:29:22 -0000 1.2 +++ Makefile.am 4 Sep 2002 13:49:00 -0000 1.3 @@ -15,3 +15,7 @@ check: cupid # attempt translation ./$< > /dev/null # attempt running test `./$< | wc -l` -eq 4 # test the run + +%.was: %.wth + WISP_PATH=$(top_srcdir)/modules $(top_builddir)/src/wisp \ + $(top_srcdir)/tools/worth -III -o $@ $< |
|
From: <di...@us...> - 2002-08-31 14:59:52
|
Update of /cvsroot/wisp/CVSROOT
In directory usw-pr-cvs1:/tmp/cvs-serv11685
Modified Files:
syncmail
Log Message:
Dyked the binaryness checking feature of syncmail .
Index: syncmail
===================================================================
RCS file: /cvsroot/wisp/CVSROOT/syncmail,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- syncmail 29 Aug 2002 04:18:03 -0000 1.1
+++ syncmail 31 Aug 2002 14:59:47 -0000 1.2
@@ -117,10 +117,6 @@
PROGRAM = sys.argv[0]
-BINARY_EXPLANATION_LINES = [
- "(This appears to be a binary file; contents omitted.)\n"
- ]
-
REVCRE = re.compile("^(NONE|[0-9.]+)$")
NOVERSION = "Couldn't generate diff; no version number found in filespec: %s"
BACKSLASH = "Couldn't generate diff: backslash in filespec's filename: %s"
@@ -170,15 +166,6 @@
fp = os.popen(update_cmd)
lines = fp.readlines()
fp.close()
- # Is this a binary file? Let's look at the first few
- # lines to figure it out:
- for line in lines[:5]:
- for c in string.rstrip(line):
- if c in string.whitespace:
- continue
- if c < ' ' or c > chr(127):
- lines = BINARY_EXPLANATION_LINES[:]
- break
lines.insert(0, '--- NEW FILE: %s ---\n' % file)
except IOError, e:
lines = ['***** Error reading new file: ',
|
|
From: <di...@us...> - 2002-08-31 14:39:53
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv6943/modules
Modified Files:
shell.wisp
Log Message:
Implemented the SRFI-31 |rec| form.
Index: shell.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/shell.wisp,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- shell.wisp 26 Aug 2002 16:18:19 -0000 1.31
+++ shell.wisp 31 Aug 2002 14:39:19 -0000 1.32
@@ -167,24 +167,25 @@
(print "$[r] = $[v]\n")
(if (procedure? v)
(my org (origin v)
- (my doc (if org
- (my pkg (cdr org)
- (cond
- ((or (eq? pkg '-A)
- (and (cons? pkg)
- (eq? (car pkg) 'regular-env)))
- (builtin.wid (car org)))
- ((and (cons? pkg)
- (eq? (car pkg) 'use))
- (my module-name (second pkg)
- (my mwc (assq module-name module.wids[])
- (if (not mwc)
- (begin
- (set! mwc (cons module-name
- (make-wid-holder
- "$[module-name]")))
- (cons! module.wids[] mwc)))
- ((cdr mwc) (car org))))))))
+ (my doc (and org
+ (my pkg (cdr org)
+ (cond
+ ((or (eq? pkg '-A)
+ (and (cons? pkg)
+ (eq? (car pkg) 'regular-env)))
+ (builtin.wid (car org)))
+ ((and (cons? pkg)
+ (eq? (car pkg) 'use))
+ (my module-name (second pkg)
+ (my mwc (assq module-name module.wids[])
+ (if (not mwc)
+ (begin
+ (set! mwc (cons module-name
+ (make-wid-holder
+ "$[module-name]")))
+ (cons! module.wids[] mwc)))
+ ((cdr mwc) (car org)))))
+ (else #f))))
(if (or org doc)
(begin
(newline)
|
|
From: <di...@us...> - 2002-08-31 14:39:49
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv6943/src
Modified Files:
essence.c wordlist.txt
Log Message:
Implemented the SRFI-31 |rec| form.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.171
retrieving revision 1.172
diff -u -d -r1.171 -r1.172
--- essence.c 31 Aug 2002 14:30:07 -0000 1.171
+++ essence.c 31 Aug 2002 14:39:20 -0000 1.172
@@ -1045,19 +1045,20 @@
void*Y643[]={j,V 1,V 0,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,xri,W(LTDOTDOTDOTGT),jiz,V 43,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 1,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 7,tc,V 1,c,q,mha,l,V 1,l,V 84,tc,V 2,c,ds,V 1,r,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 13,qi,W(LTDOTDOTDOTGT),mha,l,V 1,l,V 104,tc,V 1,c,ds,V 1,r,qi,W(append),qi,W(LTDOTDOTDOTGT),qi,W(list),dig,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,ds,V 1,r};
void*Y644[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 9,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 1,q,mha,l0,q,qi,W(list_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 2,mla,l,V 2,xri,Q,jiz,V 15,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,xri,W(LTDOTDOTDOTGT),jinz,V 27,qi,W(invalid_cut),qi,W(cut),mla,l,V 1,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 116,tc,V 2,c,j,V 0,t,I(0),mlt,s,V 3,qi,W(dummy_var),mha,l,V 1,l,V 104,tc,V 1,c,mlt,s,V 4,t,Q,mlt,s,V 5,t,F,mlt,s,V 6,mla,l,V 2,q,dig,V 0,xri,Q,jiz,V 352,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 0,xri,W(LTGT),jinz,V 147,mla,l,V 3,q,qi,I(1),li,rvec+4,tc,V 2,c,mlt,s,V 3,qi,B 641,mla,l,V 3,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 642,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 4,q,dig,V 1,q,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,dig,V 0,q,mla,l,V 5,q,mha,l,V 1,l,V 84,tc,V 2,c,mlt,s,V 5,dig,V 2,q,dig,V 1,q,mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,ds,V 1,j,V 171,dig,V 0,xri,W(LTDOTDOTDOTGT),jinz,V 103,mla,l,V 6,jif,V 16,qi,W(invalid_cut),mla,l,V 1,q,mha,l,V 1,l,V 116,tc,V 2,c,j,V 0,mla,l,V 4,q,qi,W(LTDOTDOTDOTGT),mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,qi,W(LTDOTDOTDOTGT),mla,l,V 5,q,mha,l,V 1,l,V 84,tc,V 2,c,mlt,s,V 5,qi,W(DOTDOTDOT),mla,l,V 5,q,mha,l,V 1,l,V 84,tc,V 2,c,mlt,s,V 5,t,T,mlt,s,V 6,j,V 62,dig,V 1,q,qi,W(hideTIMES),mla,l,V 4,q,dig,V 4,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,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 -358,ds,V 1,mla,l,V 6,jif,V 43,qi,W(apply),t,Q,mlt,s,V 7,t,B 643,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 7,mla,l,V 2,q,mla,l,V 7,tc,V 1,c,q,mha,l,V 1,l,V 84,tc,V 2,c,j,V 3,mla,l,V 2,mlt,s,V 8,qi,W(lambda),mla,l,V 5,q,mha,l0,q,qi,W(reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,W(my),qi,W(dummy_var),qi,F,mla,l,V 8,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,r};
void*Y646[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 5,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,mha,l0,q,qi,W(make_counter),t,&NN_dict_ref_2,tc,V 2,c,tc,V 0,c,mlt,s,V 2,t,Q,mlt,s,V 3,t,Q,mlt,s,V 4,mla,l,V 1,q,dig,V 0,xri,Q,jiz,V 174,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,qi,BC 321,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 20,dig,V 1,q,mla,l,V 4,q,mha,l,V 1,l,V 84,tc,V 2,c,mlt,s,V 4,j,V 101,qi,B 645,mla,l,V 2,tc,V 0,c,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string2symbol),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,q,dig,V 3,q,mha,l,V 1,l,V 104,tc,V 2,c,q,mla,l,V 3,q,mha,l,V 1,l,V 84,tc,V 2,c,mlt,s,V 3,dig,V 0,q,mla,l,V 4,q,mha,l,V 1,l,V 84,tc,V 2,c,mlt,s,V 4,ds,V 1,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -180,ds,V 1,qi,W(let),mla,l,V 3,q,mha,l0,q,qi,W(reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,W(cut),mla,l,V 4,q,mha,l0,q,qi,W(reverse),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,r};
-void*Y647[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 4,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,t,W(x),mlt,s,V 3,mla,l,V 1,q,mla,l,V 2,q,mha,l,V 1,l,V 84,tc,V 2,c,q,dig,V 0,xri,Q,jiz,V 95,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,qi,W(hide),qi,W(x),dig,V 3,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mla,l,V 3,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,mlt,s,V 3,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -101,ds,V 1,qi,W(lambda),qi,W(x),qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mla,l,V 3,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,r};
-void*Y648[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(syscalls),t,&NN_dict_ref_2,tc,V 2,c,mlt,s,V 0,mla,l,V 0,xri,Q,jiz,V 75,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 2,q,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,dig,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,ds,V 1,ds,V 1,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 0,j,V -82,t,Z,ds,V 1,r};
-void*Y649[]={j,V 1,V 0,binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,qi,W(init_input_file),mha,l0,q,qi,W(init_input_file),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,dig,V 0,q,qi,W(init_output_file),mha,l0,q,qi,W(init_output_file),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,t,Z,ds,V 1,r};
-void*Y650[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 0,mlt,s,V 0,mla,l,V 0,xri,W(syscalls),jinz,V 49,qi,W(provide_syscalls),qi,W(quote),dig,V 3,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,ds,V 2,r,mla,l,V 0,xri,W(semiraw_files),jinz,V 49,qi,W(provide_semiraw_files),qi,W(quote),dig,V 3,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,qi,Q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 84,tc,V 2,c,ds,V 2,r,qi,W(unknown),dig,V 1,q,mha,l,V 1,l,V 116,tc,V 2,c,ds,V 2,r};
-void*Y651[]={j,V 1,V 0,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 85,tc,V 1,c,jif,V 125,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 0,p,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 1,mha,l,V 2,l,V 0,q,mla,l,V 1,q,mha,l0,q,qi,W(rassq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,dig,V 0,jif,V 32,dig,V 0,q,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,W(use),mla,l,V 0,q,mha,l,V 1,l,V 104,tc,V 3,c,ds,V 1,j,V 2,t,F,ds,V 1,jinf,V 20,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 2,l,V 13,tc,V 1,c,ds,V 1,r,t,F,ds,V 1,r};
-void*Y652[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 14,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 225,q,mha,l0,q,qi,W(rassq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 1,mla,l,V 1,jif,V 50,mla,l,V 1,mlt,s,V 2,t,T,mlt,s,V 3,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 4,t,T,mlt,s,V 5,t,F,mlt,s,V 6,mla,l,V 4,q,qi,W(regular_env),mha,l,V 1,l,V 104,tc,V 2,c,r,mla,l,V 0,q,mha,l0,q,qi,W(syscalls),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(rassq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 7,mla,l,V 7,jif,V 52,mla,l,V 7,mlt,s,V 8,t,T,mlt,s,V 9,mla,l,V 8,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 10,t,T,mlt,s,V 11,t,F,mlt,s,V 12,mla,l,V 10,q,qi,W(gimme),qi,W(syscalls),mha,l,V 1,l,V 104,tc,V 3,c,r,mla,l,V 0,q,mha,l,V 1,l,V 226,xors,jinz,V 13,qi,W(origin),qi,W(regular_env),mha,l,V 1,l,V 104,tc,V 2,c,r,mla,l,V 0,q,mha,l,V 1,l,V 227,xors,jinz,V 11,qi,W(regular_env),mha,l,V 1,l,V 104,tc,V 1,c,r,t,Q,mlt,s,V 13,t,B 651,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 13,mha,l0,q,qi,W(modules),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 26,tc,V 1,c,q,mla,l,V 13,tc,V 1,c,jinf,V 33,mla,l,V 0,q,mha,l0,q,qi,W(assemble),t,&NN_dict_ref_2,tc,V 2,c,xors,jinz,V 14,qi,W(assemble),qi,W(_A),mha,l,V 1,l,V 84,tc,V 2,c,j,V 2,t,F,r};
-void*Y653[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 1,l,V 225,q,mha,l0,q,qi,W(alist2dict),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 0,mla,l,V 0,q,qi,W(regular_env),mha,l,V 1,l,V 227,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mla,l,V 0,q,qi,W(origin),mha,l,V 1,l,V 226,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mla,l,V 0,q,qi,W(wisp_version),mha,l,V 1,l,V 167,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mla,l,V 0,q,qi,W(wisp_build),mha,l,V 1,l,V 168,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mla,l,V 0,q,qi,W(wisp_builder),mha,l,V 1,l,V 169,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mla,l,V 0,q,qi,W(XmacrosX),mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(dict_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mla,l,V 0,r};
-void*Y657[]={j,V 1,V 0,binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,mha,l0,q,qi,W(XstderrX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,B 654,dig,V 3,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 655,dig,V 4,q,mha,l0,q,qi,W(structure2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 656,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 5,c,q,mha,l0,q,qi,W(print),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,qi,I(255),mha,l,V 1,l,V 224,tc,V 1,c,ds,V 2,r};
-void*Y661[]={j,V 1,V 0,binc,&branch_EVM_invargc,mca,subc,V 0,binzc,&branch_EVM_invargca,qi,B 658,mha,l,V 1,l,V 167,q,mha,l0,q,qi,W(dwim_stringify),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 659,mha,l,V 1,l,V 169,q,mha,l0,q,qi,W(dwim_stringify),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 660,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 5,c,q,mha,l0,q,qi,W(write_string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,qi,I(0),mha,l,V 1,l,V 224,tc,V 1,c,r};
-void*Y668[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 1,binzc,&branch_EVM_invargca,t,F,mlt,s,V 0,dig,V 0,q,mha,l0,q,qi,W(Xuser_dictionaryX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(load),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,ds,V 1,r};
-void*Y669[]={j,V 1,V 0,binc,&branch_EVM_invargc,mca,subc,V 0,binc,&branch_EVM_invargca,mlt,inc,dcc,jizc,V 3,p,j,V -6,mha,l,V 2,l,V 3,jif,V 20,mha,l,V 2,l,V 1,q,mha,l0,q,qi,W(run_ewisp_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,r,mha,l,V 2,l,V 1,jif,V 31,mha,l,V 2,l,V 1,q,mha,l0,q,qi,W(Xuser_dictionaryX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(load),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r,mha,l,V 2,l,V 6,jif,V 34,qi,B 667,qi,W(system_path),t,B 668,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(call_with_input_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,tc,V 0,c,r,mha,l0,q,qi,W(XstdinX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(Xuser_dictionaryX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(load),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,r};
-void*Y670[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 7,mca,subc,V 3,binzc,&branch_EVM_invargca,mlt,p,s,V 2,p,s,V 1,p,s,V 0,qi,CH('V'),mla,l,V 0,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jif,V 15,mha,l0,q,qi,W(state_version),t,&NN_dict_ref_2,tc,V 2,c,tc,V 0,c,j,V 0,qi,CH('e'),mla,l,V 0,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 3,qi,CH('A'),mla,l,V 0,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 4,qi,CH('C'),mla,l,V 0,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 19,qi,CH('c'),mla,l,V 0,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 5,qi,CH('i'),mla,l,V 0,q,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 24,mha,l0,q,qi,W(XstdinX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(tty_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 6,mla,l,V 0,q,dig,V 0,xri,Q,jiz,V 122,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,BC 326,mha,l0,q,qi,W(memq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 79,mha,l0,q,qi,W(XstderrX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,B 662,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(dwim_stringify),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,qi,B 663,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(print),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,qi,I(255),mha,l,V 1,l,V 224,tc,V 1,c,j,V 0,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -128,ds,V 1,mla,l,V 2,mat,mha,l,V 1,st,V 0,mha,l0,q,qi,W(Xuser_dictionaryX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(XarglistX),mla,l,V 2,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,qi,B 664,mha,l0,q,qi,W(env_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,jif,V 40,mha,l0,q,qi,W(Xsystem_pathX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,CH(':'),dig,V 2,q,mha,l0,q,qi,W(split_by_char),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l,V 1,l,V 26,tc,V -2,c,j,V 91,qi,B 665,mha,l0,q,qi,W(env_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,jif,V 69,mha,l0,q,qi,W(Xsystem_pathX),t,&NN_dict_ref_2,tc,V 2,c,q,dig,V 1,q,qi,B 666,mha,l0,q,qi,W(string_append),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(Xsystem_pathX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 26,tc,V 1,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 26,tc,V -2,c,j,V 0,ds,V 1,ds,V 1,mla,l,V 5,jif,V 52,mha,l0,q,qi,W(Xsystem_pathX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,B 365,mha,l0,q,qi,W(Xsystem_pathX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 26,tc,V 1,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 26,tc,V -2,c,j,V 0,mla,l,V 4,jif,V 96,mha,l0,q,qi,W(Xuser_dictionaryX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(assemble),mha,l0,q,qi,W(assemble),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(Xuser_dictionaryX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(instruction_list),mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 201,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(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,j,V 26,mha,l0,q,qi,W(Xasm_lockX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,T,mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,mla,l,V 1,q,mha,l,V 1,l,V 133,tc,V 1,c,jif,V 49,mla,l,V 1,q,mha,l0,q,qi,W(string_null_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jinf,V 26,mla,l,V 1,q,qi,I(-1),mha,l,V 1,l,V 123,tc,V 2,c,xri,CH('/'),jinz,V 4,t,T,j,V 2,t,F,j,V 2,t,F,j,V 2,t,F,jif,V 60,mla,l,V 1,q,qi,I(0),qi,I(-1),mha,l0,q,qi,W(slice),t,&NN_dict_ref_2,tc,V 2,c,tc,V 3,c,q,mha,l0,q,qi,W(Xsystem_pathX),t,&NN_dict_ref_2,tc,V 2,c,q,mha,l,V 1,l,V 123,tc,V 1,c,q,mha,l0,q,qi,W(open_input_file),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 1,j,V 0,qi,T,mha,l0,q,qi,W(fatal_handler),t,&NN_dict_ref_2,tc,V 2,c,q,t,B 669,q,qi,V 2,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 34,tc,V 3,c,qi,I(0),mha,l,V 1,l,V 224,tc,V 1,c,r};
-void*Y675[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 228,mca,subc,V 2,binzc,&branch_EVM_invargca,mlt,p,s,V 1,p,s,V 0,t,V 1,q,t,&NN_valloc,tc,V 1,c,q,ph,qi,I(20),t,&NN_make_dict,tc,V 0,c,q,pt,mha,st,V 0,mta,q,t,&NN_rvec_set,tc,V 2,c,t,&NN_printeger2string,mlt,s,V 2,t,&NN_prlshl,mlt,s,V 3,t,&NN_prlshr,mlt,s,V 4,t,&NN_prstring2integer,mlt,s,V 5,t,&NN_prsymbol2string,mlt,s,V 6,t,&NN_ws2zt,mlt,s,V 7,t,&RT_box,mlt,s,V 8,t,&RT_c16string,mlt,s,V 9,t,&RT_record_type,mlt,s,V 10,t,&NN_encui,mlt,s,V 11,t,&NN_apply,mlt,s,V 12,t,&NN_big_integer_huh,mlt,s,V 13,t,&NN_binary_mul,mlt,s,V 14,t,&NN_binary_add,mlt,s,V 15,t,&NN_binary_sub,mlt,s,V 16,t,&NN_binary_eqvp,mlt,s,V 17,t,&NN_bland,mlt,s,V 18,t,&NN_blor,mlt,s,V 19,t,&NN_binary_num_equalp,mlt,s,V 20,t,&NN_binary_num_lessp,mlt,s,V 21,t,&NN_binary_div,mlt,s,V 22,t,&NN_bitstring_ref,mlt,s,V 23,t,&NN_box_empty,mlt,s,V 24,t,&NN_box_empty_huh,mlt,s,V 25,t,&NN_box_ref,mlt,s,V 26,t,&NN_box_huh,mlt,s,V 27,t,&NN_c16string_length,mlt,s,V 28,t,&NN_c16string_ref,mlt,s,V 29,t,&NN_c16string_huh,mlt,s,V 30,t,&NN_c8string_length,mlt,s,V 31,t,&NN_c8string_ref,mlt,s,V 32,t,&NN_c8string_huh,mlt,s,V 33,t,&NN_catch,mlt,s,V 34,t,&NN_ceiling,mlt,s,V 35,t,&NN_char2integer,mlt,s,V 36,t,&NN_char_and,mlt,s,V 37,t,&NN_char_bit_clear,mlt,s,V 38,t,&NN_char_bit_set,mlt,s,V 39,t,&NN_char_bit_toggle,mlt,s,V 40,t,&NN_char_bit_huh,mlt,s,V 41,t,&NN_char_decimal_huh,mlt,s,V 42,t,&NN_char_digit_huh,mlt,s,V 43,t,&NN_char_downcase,mlt,s,V 44,t,&NN_char_hexadecimal_huh,mlt,s,V 45,t,&NN_char_letter_modifier_huh,mlt,s,V 46,t,&NN_char_letter_huh,mlt,s,V 47,t,&NN_char_lower_case_huh,mlt,s,V 48,t,&NN_char_mirrored_huh,mlt,s,V 49,t,&NN_char_number_letter_huh,mlt,s,V 50,t,&NN_char_octal_huh,mlt,s,V 51,t,&NN_char_or,mlt,s,V 52,t,&NN_char_order,mlt,s,V 53,t,&NN_char_punctuation_close_huh,mlt,s,V 54,t,&NN_char_punctuation_connector_huh,mlt,s,V 55,t,&NN_char_punctuation_dash_huh,mlt,s,V 56,t,&NN_char_punctuation_final_quote_huh,mlt,s,V 57,t,&NN_char_punctuation_initial_quote_huh,mlt,s,V 58,t,&NN_char_punctuation_open_huh,mlt,s,V 59,t,&NN_char_punctuation_huh,mlt,s,V 60,t,&NN_char_symbol_currency_huh,mlt,s,V 61,t,&NN_char_symbol_math_huh,mlt,s,V 62,t,&NN_char_symbol_starter_huh,mlt,s,V 63,t,&NN_char_symbol_huh,mlt,s,V 64,t,&NN_char_symbolic_huh,mlt,s,V 65,t,&NN_char_title_case_huh,mlt,s,V 66,t,&NN_char_titlecase,mlt,s,V 67,t,&NN_char_upcase,mlt,s,V 68,t,&NN_char_upper_case_huh,mlt,s,V 69,t,&NN_char_utf_8,mlt,s,V 70,t,&NN_char_utf_8_continue,mlt,s,V 71,t,&NN_char_utf_8_length,mlt,s,V 72,t,&NN_char_whitespace_huh,mlt,s,V 73,t,&NN_char_xor,mlt,s,V 74,t,&NN_char16_bswap,mlt,s,V 75,t,&NN_char16_rol,mlt,s,V 76,t,&NN_char16_ror,mlt,s,V 77,t,&NN_char16_huh,mlt,s,V 78,t,&NN_char24_huh,mlt,s,V 79,t,&NN_char8_rol,mlt,s,V 80,t,&NN_char8_ror,mlt,s,V 81,t,&NN_char8_huh,mlt,s,V 82,t,&NN_char_huh,mlt,s,V 83,t,&NN_cons,mlt,s,V 84,t,&NN_cons_huh,mlt,s,V 85,t,&NN_decsi,mlt,s,V 86,t,&NN_decui,mlt,s,V 87,t,&NN_dict2alist,mlt,s,V 88,t,&NN_dict_drop,mlt,s,V 89,t,&NN_dict_fetch,mlt,s,V 90,t,&NN_dict_set,mlt,s,V 91,t,&NN_dict_huh,mlt,s,V 92,t,&NN_e2f_set,mlt,s,V 93,t,&NN_e2f_sref,mlt,s,V 94,t,&NN_encsi,mlt,s,V 95,t,&NN_encui,mlt,s,V 96,t,&NN_evmfunc_huh,mlt,s,V 97,t,&NN_fit_for_symbol_huh,mlt,s,V 98,t,&NN_fixnum_huh,mlt,s,V 99,t,&NN_floor,mlt,s,V 100,t,&NN_fraction_huh,mlt,s,V 101,t,&NN_instance_huh,mlt,s,V 102,t,&NN_integer2char,mlt,s,V 103,t,&NN_list,mlt,s,V 104,t,&NN_make_box,mlt,s,V 105,t,&NN_make_c16string,mlt,s,V 106,t,&NN_make_c8string,mlt,s,V 107,t,&NN_make_dict,mlt,s,V 108,t,&NN_make_string,mlt,s,V 109,t,&NN_make_vector,mlt,s,V 110,t,&NN_memmove,mlt,s,V 111,t,&NN_memset,mlt,s,V 112,t,&NN_mk_e2f,mlt,s,V 113,t,&NN_modulo,mlt,s,V 114,t,&NN_native_huh,mlt,s,V 115,t,&NN_raise,mlt,s,V 116,t,&NN_rat2cons,mlt,s,V 117,t,&NN_realloc,mlt,s,V 118,t,&NN_record_type_discriminator,mlt,s,V 119,t,&NN_record_type_referrer,mlt,s,V 120,t,&NN_record_type_slot_count,mlt,s,V 121,t,&NN_record_type_huh,mlt,s,V 122,t,&NN_ref,mlt,s,V 123,t,&NN_remainder,mlt,s,V 124,t,&NN_rvec_set,mlt,s,V 125,t,&NN_salloc,mlt,s,V 126,t,&NN_string,mlt,s,V 127,t,&NN_strcomp,mlt,s,V 128,t,&NN_string_fill,mlt,s,V 129,t,&NN_string_length,mlt,s,V 130,t,&NN_string_move,mlt,s,V 131,t,&NN_string_ref,mlt,s,V 132,t,&NN_string_huh,mlt,s,V 133,t,&NN_symbol_huh,mlt,s,V 134,t,&NN_sys_exit,mlt,s,V 135,t,&NN_sys_fstat,mlt,s,V 136,t,&NN_sys_getegid,mlt,s,V 137,t,&NN_sys_geteuid,mlt,s,V 138,t,&NN_sys_getgid,mlt,s,V 139,t,&NN_sys_getpid,mlt,s,V 140,t,&NN_sys_getppid,mlt,s,V 141,t,&NN_sys_getuid,mlt,s,V 142,t,&NN_sys_lstat,mlt,s,V 143,t,&NN_sys_ns_close,mlt,s,V 144,t,&NN_sys_ns_dup,mlt,s,V 145,t,&NN_sys_ns_dup2,mlt,s,V 146,t,&NN_sys_ns_fork,mlt,s,V 147,t,&NN_sys_ns_getpgid,mlt,s,V 148,t,&NN_sys_ns_kill,mlt,s,V 149,t,&NN_sys_ns_listen,mlt,s,V 150,t,&NN_sys_ns_setsid,mlt,s,V 151,t,&NN_sys_select,mlt,s,V 152,t,&NN_sys_stat,mlt,s,V 153,t,&NN_truncate,mlt,s,V 154,t,&NN_type_of,mlt,s,V 155,t,&NN_unix_time,mlt,s,V 156,t,&NN_unsigned_get_bit,mlt,s,V 157,t,&NN_utf_8_first_byte2length,mlt,s,V 158,t,&NN_valloc,mlt,s,V 159,t,&NN_vector_fill,mlt,s,V 160,t,&NN_vector_length,mlt,s,V 161,t,&NN_vector_move,mlt,s,V 162,t,&NN_vector_ref,mlt,s,V 163,t,&NN_vector_huh,mlt,s,V 164,t,&NN_wisp_string_hash,mlt,s,V 165,mla,l,V 116,mlt,s,V 166,t,&S_wisp_version,mlt,s,V 167,t,&S_wisp_build,mlt,s,V 168,t,&S_wisp_builder,mlt,s,V 169,qi,I(19),t,&NN_clos,q,mla,l,V 125,tc,V 2,c,qi,I(3),mla,l,V 91,q,mla,l,V 125,tc,V 2,c,qi,I(4),mla,l,V 15,q,mla,l,V 125,tc,V 2,c,qi,I(5),mla,l,V 16,q,mla,l,V 125,tc,V 2,c,qi,I(6),mla,l,V 14,q,mla,l,V 125,tc,V 2,c,qi,I(7),mla,l,V 22,q,mla,l,V 125,tc,V 2,c,qi,I(9),mla,l,V 116,q,mla,l,V 125,tc,V 2,c,qi,I(10),t,B 0,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mla,l,V 125,tc,V 2,c,t,B 1,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 170,qi,I(11),mla,l,V 170,q,mla,l,V 125,tc,V 2,c,qi,I(14),mla,l,V 20,q,mla,l,V 125,tc,V 2,c,qi,I(15),mla,l,V 21,q,mla,l,V 125,tc,V 2,c,qi,I(17),mla,l,V 17,q,mla,l,V 125,tc,V 2,c,mha,l0,q,qi,W(master_dictionary),t,rvec,l,V 20,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(dict_ref),t,B 2,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(master_dictionary),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(get_raw_header_item),t,&NN_get_raw_header_item,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(master_dictionary),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(valloc),t,&NN_valloc,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(XmacrosX),mla,l,V 108,tc,V 0,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(defmacro),t,B 3,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(metacode),t,B 4,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(assert),t,B 5,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(type),t,B 7,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(define),t,B 8,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(not),t,B 9,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(null_huh),t,B 10,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(LT),t,B 12,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(LTEQ),t,B 14,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(EQ),t,B 16,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(GT),t,B 18,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(GTEQ),t,B 20,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(charLTEQ_huh),t,B 22,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(charLT_huh),t,B 24,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(charEQ_huh),t,B 26,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(charGTEQ_huh),t,B 28,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(charGT_huh),t,B 30,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(eq_huh),t,B 26,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(eqv_huh),t,B 16,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(SLASHEQ),t,B 32,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cardinal_huh),t,B 33,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(eval),t,B 34,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(or),t,B 36,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(and),t,B 38,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,t,B 40,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 171,t,B 43,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 172,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(quasiquote),t,B 44,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(process_unquote_splicing),t,B 45,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(process_simple_quasiquote),t,B 46,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(quasiquote_cons),t,B 47,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(do),t,B 49,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(incr_bang),t,B 50,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(decr_bang),t,B 51,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(cons_bang),t,B 52,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(acons_bang),t,B 53,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(car_bang),t,B 54,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(cdr_bang),t,B 55,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(swap_bang),t,B 56,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(pick_dict_items),t,B 58,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(dict_defined_huh),t,B 61,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(dict_copy),t,B 62,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(hache),t,B 66,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(duplicate_dict_item_bang),t,B 67,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(make_empty_env),t,B 68,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(env_copy),t,B 69,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(current_globals),t,B 70,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(integer2string),t,B 71,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(string2integer),t,B 72,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(cond),t,B 73,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(zero_huh),t,B 74,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(positive_huh),t,B 75,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(negative_huh),t,B 76,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(binary_equal_huh),t,B 77,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(binary_vector_contents_equal_huh),t,B 78,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(equal_huh),t,B 80,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(boolean_huh),t,B 81,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(void_huh),t,B 82,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(eof_object_huh),t,B 82,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(bit_huh),t,B 83,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(nyp_huh),t,B 84,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(nybble_huh),t,B 85,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(sbyte_huh),t,B 86,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(ubyte_huh),t,B 87,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(swyde_huh),t,B 88,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(uwyde_huh),t,B 89,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(keyword_huh),t,B 90,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(broketed_huh),t,B 91,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(PLUS),t,B 92,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(_),t,B 93,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(TIMES),t,B 94,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(SLASH),t,B 95,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(quotient),t,B 96,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(even_huh),t,B 97,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(odd_huh),t,B 98,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(numerator),t,B 99,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(denominator),t,B 100,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(abs),t,B 101,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(round),t,B 102,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(make_counter),t,B 104,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(integer_huh),t,B 105,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(rational_huh),t,B 106,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(real_huh),t,B 107,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(number_huh),t,B 108,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(procedure_huh),t,B 109,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(atom_huh),t,B 110,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(sub),t,B 111,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(slice),t,B 112,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(try),t,B 114,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(dict_bind_bang),t,B 116,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(bind),t,B 117,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(tree_copy),t,B 119,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(make_record_type),t,B 120,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,t,B 122,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 173,mha,l0,q,qi,W(map),t,B 125,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(for_each),t,B 127,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(carTIMES),t,B 130,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cdrTIMES),t,B 132,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(append_reverse),t,B 133,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(reverse),t,B 134,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(drop),t,B 135,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(list_ref),t,B 136,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(concatenate),t,B 137,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(append),t,B 138,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(list_huh),t,B 140,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(length),t,B 142,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(length_huh),t,B 144,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(memq),t,B 146,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(memv),t,B 148,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(member),t,B 150,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(assq),t,B 152,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(assv),t,B 154,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(assoc),t,B 156,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(rassq),t,B 158,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(rassv),t,B 160,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(rassoc),t,B 162,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(circular_list),t,B 163,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(order2dict),t,B 164,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(alist2dict),t,B 165,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(vector2list),t,B 166,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(intermingle),t,B 168,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(flatten),t,B 170,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(null_list_huh),t,B 171,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(find_tail),t,B 173,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(find),t,B 174,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(filter),t,B 176,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(toposplit),t,B 178,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(list_copy),t,B 180,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cons_copy),t,B 181,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(alist_copy),t,B 182,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(last_cons),t,B 184,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(semideque),t,B 185,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(list2semideque),t,B 186,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(semideque2list),t,B 187,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(semideque_insert_bang),t,B 188,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(semideque_push_bang),t,B 189,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(semideque_pop_bang),t,B 190,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(semideque_top),t,B 191,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(semideque_bottom),t,B 192,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(system_constants),qi,W(sysnr),qi,W(exit),qi,I(1),mla,l,V 84,tc,V 2,c,q,qi,W(fork),qi,I(2),mla,l,V 84,tc,V 2,c,q,qi,W(read),qi,I(3),mla,l,V 84,tc,V 2,c,q,qi,W(write),qi,I(4),mla,l,V 84,tc,V 2,c,q,qi,W(open),qi,I(5),mla,l,V 84,tc,V 2,c,q,qi,W(close),qi,I(6),mla,l,V 84,tc,V 2,c,q,qi,W(waitpid),qi,I(7),mla,l,V 84,tc,V 2,c,q,qi,W(link),qi,I(9),mla,l,V 84,tc,V 2,c,q,qi,W(unlink),qi,I(10),mla,l,V 84,tc,V 2,c,q,qi,W(execve),qi,I(11),mla,l,V 84,tc,V 2,c,q,qi,W(chdir),qi,I(12),mla,l,V 84,tc,V 2,c,q,qi,W(time),qi,I(13),mla,l,V 84,tc,V 2,c,q,qi,W(chmod),qi,I(15),mla,l,V 84,tc,V 2,c,q,qi,W(lseek),qi,I(19),mla,l,V 84,tc,V 2,c,q,qi,W(getpid),qi,I(20),mla,l,V 84,tc,V 2,c,q,qi,W(getuid),qi,I(24),mla,l,V 84,tc,V 2,c,q,qi,W(kill),qi,I(37),mla,l,V 84,tc,V 2,c,q,qi,W(rename),qi,I(38),mla,l,V 84,tc,V 2,c,q,qi,W(mkdir),qi,I(39),mla,l,V 84,tc,V 2,c,q,qi,W(dup),qi,I(41),mla,l,V 84,tc,V 2,c,q,qi,W(pipe),qi,I(42),mla,l,V 84,tc,V 2,c,q,qi,W(getgid),qi,I(47),mla,l,V 84,tc,V 2,c,q,qi,W(geteuid),qi,I(49),mla,l,V 84,tc,V 2,c,q,qi,W(getegid),qi,I(50),mla,l,V 84,tc,V 2,c,q,qi,W(ioctl),qi,I(54),mla,l,V 84,tc,V 2,c,q,qi,W(fcntl),qi,I(55),mla,l,V 84,tc,V 2,c,q,qi,W(setpgid),qi,I(57),mla,l,V 84,tc,V 2,c,q,qi,W(dup2),qi,I(63),mla,l,V 84,tc,V 2,c,q,qi,W(getppid),qi,I(64),mla,l,V 84,tc,V 2,c,q,qi,W(setsid),qi,I(66),mla,l,V 84,tc,V 2,c,q,qi,W(symlink),qi,I(83),mla,l,V 84,tc,V 2,c,q,qi,W(truncate),qi,I(92),mla,l,V 84,tc,V 2,c,q,qi,W(ftruncate),qi,I(93),mla,l,V 84,tc,V 2,c,q,qi,W(socketcall),qi,I(102),mla,l,V 84,tc,V 2,c,q,qi,W(getpgid),qi,I(132),mla,l,V 84,tc,V 2,c,q,qi,W(nanosleep),qi,I(162),mla,l,V 84,tc,V 2,c,q,qi,W(getcwd),qi,I(183),mla,l,V 84,tc,V 2,c,q,qi,Q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,qi,W(sktnr),qi,W(listen),qi,I(4),mla,l,V 84,tc,V 2,c,q,qi,W(accept),qi,I(5),mla,l,V 84,tc,V 2,c,q,qi,Q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,qi,W(termios),qi,W(NCCS),qi,I(32),mla,l,V 84,tc,V 2,c,q,qi,W(cc),qi,W(VINTR),qi,I(0),mla,l,V 84,tc,V 2,c,q,qi,W(VQUIT),qi,I(1),mla,l,V 84,tc,V 2,c,q,qi,W(VERASE),qi,I(2),mla,l,V 84,tc,V 2,c,q,qi,W(VKILL),qi,I(3),mla,l,V 84,tc,V 2,c,q,qi,W(VEOF),qi,I(4),mla,l,V 84,tc,V 2,c,q,qi,W(VTIME),qi,I(5),mla,l,V 84,tc,V 2,c,q,qi,W(VMIN),qi,I(6),mla,l,V 84,tc,V 2,c,q,qi,W(VSWTC),qi,I(7),mla,l,V 84,tc,V 2,c,q,qi,W(VSTART),qi,I(8),mla,l,V 84,tc,V 2,c,q,qi,W(VSTOP),qi,I(9),mla,l,V 84,tc,V 2,c,q,qi,W(VSUSP),qi,I(10),mla,l,V 84,tc,V 2,c,q,qi,W(VEOL),qi,I(11),mla,l,V 84,tc,V 2,c,q,qi,W(VREPRINT),qi,I(12),mla,l,V 84,tc,V 2,c,q,qi,W(VDISCARD),qi,I(13),mla,l,V 84,tc,V 2,c,q,qi,W(VWERASE),qi,I(14),mla,l,V 84,tc,V 2,c,q,qi,W(VLNEXT),qi,I(15),mla,l,V 84,tc,V 2,c,q,qi,W(VEOL2),qi,I(16),mla,l,V 84,tc,V 2,c,q,qi,Q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,qi,Q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,qi,W(ioctl),qi,W(TCGETS),qi,I(21505),mla,l,V 84,tc,V 2,c,q,qi,W(TCSETS),qi,I(21506),mla,l,V 84,tc,V 2,c,q,qi,W(TCSETSW),qi,I(21507),mla,l,V 84,tc,V 2,c,q,qi,W(TCSETSF),qi,I(21508),mla,l,V 84,tc,V 2,c,q,qi,Q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,qi,W(open),qi,W(O_RDONLY),qi,I(0),mla,l,V 84,tc,V 2,c,q,qi,W(O_WRONLY),qi,I(1),mla,l,V 84,tc,V 2,c,q,qi,W(O_RDWR),qi,I(2),mla,l,V 84,tc,V 2,c,q,qi,W(O_CREAT),qi,I(64),mla,l,V 84,tc,V 2,c,q,qi,W(O_EXCL),qi,I(128),mla,l,V 84,tc,V 2,c,q,qi,W(O_NOCTTY),qi,I(256),mla,l,V 84,tc,V 2,c,q,qi,W(O_TRUNC),qi,I(512),mla,l,V 84,tc,V 2,c,q,qi,W(O_APPEND),qi,I(1024),mla,l,V 84,tc,V 2,c,q,qi,W(O_NONBLOCK),qi,I(2048),mla,l,V 84,tc,V 2,c,q,qi,W(O_NDELAY),qi,I(2048),mla,l,V 84,tc,V 2,c,q,qi,W(O_SYNC),qi,I(4096),mla,l,V 84,tc,V 2,c,q,qi,W(O_FSYNC),qi,I(4096),mla,l,V 84,tc,V 2,c,q,qi,W(O_ASYNC),qi,I(8192),mla,l,V 84,tc,V 2,c,q,qi,W(O_DIRECT),qi,I(16384),mla,l,V 84,tc,V 2,c,q,qi,W(O_DIRECTORY),qi,I(0),qi,I(256),qi,I(0),qi,I(256),qi,I(1),qi,I(256),qi,I(0),qi,I(256),qi,I(0),qi,I(256),qi,I(0),qi,I(256),qi,I(0),qi,I(256),qi,I(0),li,rvec+6,tc,V 2,c,q,li,rvec+4,tc,V 2,c,q,li,rvec+6,tc,V 2,c,q,li,rvec+4,tc,V 2,c,q,li,rvec+6,tc,V 2,c,q,li,rvec+4,tc,V 2,c,q,li,rvec+6,tc,V 2,c,q,li,rvec+4,tc,V 2,c,q,li,rvec+6,tc,V 2,c,q,li,rvec+4,tc,V 2,c,q,li,rvec+6,tc,V 2,c,q,li,rvec+4,tc,V 2,c,q,li,rvec+6,tc,V 2,c,q,li,rvec+4,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,qi,W(O_NOFOLLOW),qi,I(0),qi,I(256),qi,I(0),qi,I(256),qi,I(2),qi,I(256),qi,I(0),qi,I(256),qi,I(0),qi,I(256),qi,I(0),qi,I(256),qi,I(0),qi,I(256),qi,I(0),li,rvec+6,tc,V 2,c,q,li,rvec+4,tc,V 2,c,q,li,rvec+6,tc,V 2,c,q,li,rvec+4,tc,V 2,c,q,li,rvec+6,tc,V 2,c,q,li,rvec+4,tc,V 2,c,q,li,rvec+6,tc,V 2,c,q,li,rvec+4,tc,V 2,c,q,li,rvec+6,tc,V 2,c,q,li,rvec+4,tc,V 2,c,q,li,rvec+6,tc,V 2,c,q,li,rvec+4,tc,V 2,c,q,li,rvec+6,tc,V 2,c,q,li,rvec+4,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,qi,Q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,qi,W(fcntl),qi,W(F_DUPFD),qi,I(0),mla,l,V 84,tc,V 2,c,q,qi,W(F_GETFD),qi,I(1),mla,l,V 84,tc,V 2,c,q,qi,W(F_SETFD),qi,I(2),mla,l,V 84,tc,V 2,c,q,qi,W(F_GETFL),qi,I(3),mla,l,V 84,tc,V 2,c,q,qi,W(F_SETFL),qi,I(4),mla,l,V 84,tc,V 2,c,q,qi,W(F_GETLK),qi,I(5),mla,l,V 84,tc,V 2,c,q,qi,W(F_SETLK),qi,I(6),mla,l,V 84,tc,V 2,c,q,qi,W(F_SETLKW),qi,I(7),mla,l,V 84,tc,V 2,c,q,qi,W(F_SETOWN),qi,I(8),mla,l,V 84,tc,V 2,c,q,qi,W(F_GETOWN),qi,I(9),mla,l,V 84,tc,V 2,c,q,qi,W(F_SETSIG),qi,I(10),mla,l,V 84,tc,V 2,c,q,qi,W(F_GETSIG),qi,I(11),mla,l,V 84,tc,V 2,c,q,qi,W(F_GETLK64),qi,I(12),mla,l,V 84,tc,V 2,c,q,qi,W(F_SETLK64),qi,I(13),mla,l,V 84,tc,V 2,c,q,qi,W(F_SETLKW64),qi,I(14),mla,l,V 84,tc,V 2,c,q,qi,W(FD_CLOEXEC),qi,I(1),mla,l,V 84,tc,V 2,c,q,qi,W(LOCK_SH),qi,I(1),mla,l,V 84,tc,V 2,c,q,qi,W(LOCK_EX),qi,I(2),mla,l,V 84,tc,V 2,c,q,qi,W(LOCK_NB),qi,I(4),mla,l,V 84,tc,V 2,c,q,qi,W(LOCK_UN),qi,I(8),mla,l,V 84,tc,V 2,c,q,qi,W(LOCK_MAND),qi,I(32),mla,l,V 84,tc,V 2,c,q,qi,W(LOCK_READ),qi,I(64),mla,l,V 84,tc,V 2,c,q,qi,W(LOCK_WRITE),qi,I(128),mla,l,V 84,tc,V 2,c,q,qi,W(LOCK_RW),qi,I(192),mla,l,V 84,tc,V 2,c,q,qi,W(flock),qi,W(F_RDLCK),qi,I(0),mla,l,V 84,tc,V 2,c,q,qi,W(F_WRLCK),qi,I(1),mla,l,V 84,tc,V 2,c,q,qi,W(F_UNLCK),qi,I(2),mla,l,V 84,tc,V 2,c,q,qi,Q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,qi,W(seek),qi,W(SEEK_SET),qi,I(0),mla,l,V 84,tc,V 2,c,q,qi,W(SEEK_CUR),qi,I(1),mla,l,V 84,tc,V 2,c,q,qi,W(SEEK_END),qi,I(2),mla,l,V 84,tc,V 2,c,q,qi,Q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,qi,Q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,qi,W(size_of),qi,W(short),qi,I(2),mla,l,V 84,tc,V 2,c,q,qi,W(int),qi,I(4),mla,l,V 84,tc,V 2,c,q,qi,W(long),qi,I(4),mla,l,V 84,tc,V 2,c,q,qi,W(long_long),qi,I(8),mla,l,V 84,tc,V 2,c,q,qi,W(fd_set),qi,I(128),mla,l,V 84,tc,V 2,c,q,qi,W(FD_SETSIZE),qi,I(1024),mla,l,V 84,tc,V 2,c,q,qi,W(off_t),qi,I(4),mla,l,V 84,tc,V 2,c,q,qi,W(pid_t),qi,I(4),mla,l,V 84,tc,V 2,c,q,qi,W(struct),qi,W(flock),qi,I(16),mla,l,V 84,tc,V 2,c,q,qi,W(termios),qi,I(60),mla,l,V 84,tc,V 2,c,q,qi,Q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,qi,Q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,qi,W(target),qi,W(system_type),qi,W(Linux),mla,l,V 84,tc,V 2,c,q,qi,W(processor_type),qi,W(ia32),mla,l,V 84,tc,V 2,c,q,qi,Q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,qi,W(errno),qi,W(EPERM),qi,I(1),mla,l,V 84,tc,V 2,c,q,qi,W(ENOENT),qi,I(2),mla,l,V 84,tc,V 2,c,q,qi,W(ESRCH),qi,I(3),mla,l,V 84,tc,V 2,c,q,qi,W(EINTR),qi,I(4),mla,l,V 84,tc,V 2,c,q,qi,W(EIO),qi,I(5),mla,l,V 84,tc,V 2,c,q,qi,W(ENXIO),qi,I(6),mla,l,V 84,tc,V 2,c,q,qi,W(E2BIG),qi,I(7),mla,l,V 84,tc,V 2,c,q,qi,W(ENOEXEC),qi,I(8),mla,l,V 84,tc,V 2,c,q,qi,W(EBADF),qi,I(9),mla,l,V 84,tc,V 2,c,q,qi,W(ECHILD),qi,I(10),mla,l,V 84,tc,V 2,c,q,qi,W(EAGAIN),qi,I(11),mla,l,V 84,tc,V 2,c,q,qi,W(ENOMEM),qi,I(12),mla,l,V 84,tc,V 2,c,q,qi,W(EACCES),qi,I(13),mla,l,V 84,tc,V 2,c,q,qi,W(EFAULT),qi,I(14),mla,l,V 84,tc,V 2,c,q,qi,W(ENOTBLK),qi,I(15),mla,l,V 84,tc,V 2,c,q,qi,W(EBUSY),qi,I(16),mla,l,V 84,tc,V 2,c,q,qi,W(EEXIST),qi,I(17),mla,l,V 84,tc,V 2,c,q,qi,W(EXDEV),qi,I(18),mla,l,V 84,tc,V 2,c,q,qi,W(ENODEV),qi,I(19),mla,l,V 84,tc,V 2,c,q,qi,W(ENOTDIR),qi,I(20),mla,l,V 84,tc,V 2,c,q,qi,W(EISDIR),qi,I(21),mla,l,V 84,tc,V 2,c,q,qi,W(EINVAL),qi,I(22),mla,l,V 84,tc,V 2,c,q,qi,W(ENFILE),qi,I(23),mla,l,V 84,tc,V 2,c,q,qi,W(EMFILE),qi,I(24),mla,l,V 84,tc,V 2,c,q,qi,W(ENOTTY),qi,I(25),mla,l,V 84,tc,V 2,c,q,qi,W(ETXTBSY),qi,I(26),mla,l,V 84,tc,V 2,c,q,qi,W(EFBIG),qi,I(27),mla,l,V 84,tc,V 2,c,q,qi,W(ENOSPC),qi,I(28),mla,l,V 84,tc,V 2,c,q,qi,W(ESPIPE),qi,I(29),mla,l,V 84,tc,V 2,c,q,qi,W(EROFS),qi,I(30),mla,l,V 84,tc,V 2,c,q,qi,W(EMLINK),qi,I(31),mla,l,V 84,tc,V 2,c,q,qi,W(EPIPE),qi,I(32),mla,l,V 84,tc,V 2,c,q,qi,W(EDOM),qi,I(33),mla,l,V 84,tc,V 2,c,q,qi,W(ERANGE),qi,I(34),mla,l,V 84,tc,V 2,c,q,qi,W(EDEADLK),qi,I(35),mla,l,V 84,tc,V 2,c,q,qi,W(ENAMETOOLONG),qi,I(36),mla,l,V 84,tc,V 2,c,q,qi,W(ENOLCK),qi,I(37),mla,l,V 84,tc,V 2,c,q,qi,W(ENOSYS),qi,I(38),mla,l,V 84,tc,V 2,c,q,qi,W(ENOTEMPTY),qi,I(39),mla,l,V 84,tc,V 2,c,q,qi,W(ELOOP),qi,I(40),mla,l,V 84,tc,V 2,c,q,qi,W(ENOMSG),qi,I(42),mla,l,V 84,tc,V 2,c,q,qi,W(EIDRM),qi,I(43),mla,l,V 84,tc,V 2,c,q,qi,W(ECHRNG),qi,I(44),mla,l,V 84,tc,V 2,c,q,qi,W(EL2NSYNC),qi,I(45),mla,l,V 84,tc,V 2,c,q,qi,W(EL3HLT),qi,I(46),mla,l,V 84,tc,V 2,c,q,qi,W(EL3RST),qi,I(47),mla,l,V 84,tc,V 2,c,q,qi,W(ELNRNG),qi,I(48),mla,l,V 84,tc,V 2,c,q,qi,W(EUNATCH),qi,I(49),mla,l,V 84,tc,V 2,c,q,qi,W(ENOCSI),qi,I(50),mla,l,V 84,tc,V 2,c,q,qi,W(EL2HLT),qi,I(51),mla,l,V 84,tc,V 2,c,q,qi,W(EBADE),qi,I(52),mla,l,V 84,tc,V 2,c,q,qi,W(EBADR),qi,I(53),mla,l,V 84,tc,V 2,c,q,qi,W(EXFULL),qi,I(54),mla,l,V 84,tc,V 2,c,q,qi,W(ENOANO),qi,I(55),mla,l,V 84,tc,V 2,c,q,qi,W(EBADRQC),qi,I(56),mla,l,V 84,tc,V 2,c,q,qi,W(EBADSLT),qi,I(57),mla,l,V 84,tc,V 2,c,q,qi,W(EBFONT),qi,I(59),mla,l,V 84,tc,V 2,c,q,qi,W(ENOSTR),qi,I(60),mla,l,V 84,tc,V 2,c,q,qi,W(ENODATA),qi,I(61),mla,l,V 84,tc,V 2,c,q,qi,W(ETIME),qi,I(62),mla,l,V 84,tc,V 2,c,q,qi,W(ENOSR),qi,I(63),mla,l,V 84,tc,V 2,c,q,qi,W(ENONET),qi,I(64),mla,l,V 84,tc,V 2,c,q,qi,W(ENOPKG),qi,I(65),mla,l,V 84,tc,V 2,c,q,qi,W(EREMOTE),qi,I(66),mla,l,V 84,tc,V 2,c,q,qi,W(ENOLINK),qi,I(67),mla,l,V 84,tc,V 2,c,q,qi,W(EADV),qi,I(68),mla,l,V 84,tc,V 2,c,q,qi,W(ESRMNT),qi,I(69),mla,l,V 84,tc,V 2,c,q,qi,W(ECOMM),qi,I(70),mla,l,V 84,tc,V 2,c,q,qi,W(EPROTO),qi,I(71),mla,l,V 84,tc,V 2,c,q,qi,W(EMULTIHOP),qi,I(72),mla,l,V 84,tc,V 2,c,q,qi,W(EDOTDOT),qi,I(73),mla,l,V 84,tc,V 2,c,q,qi,W(EBADMSG),qi,I(74),mla,l,V 84,tc,V 2,c,q,qi,W(EOVERFLOW),qi,I(75),mla,l,V 84,tc,V 2,c,q,qi,W(ENOTUNIQ),qi,I(76),mla,l,V 84,tc,V 2,c,q,qi,W(EBADFD),qi,I(77),mla,l,V 84,tc,V 2,c,q,qi,W(EREMCHG),qi,I(78),mla,l,V 84,tc,V 2,c,q,qi,W(ELIBACC),qi,I(79),mla,l,V 84,tc,V 2,c,q,qi,W(ELIBBAD),qi,I(80),mla,l,V 84,tc,V 2,c,q,qi,W(ELIBSCN),qi,I(81),mla,l,V 84,tc,V 2,c,q,qi,W(ELIBMAX),qi,I(82),mla,l,V 84,tc,V 2,c,q,qi,W(ELIBEXEC),qi,I(83),mla,l,V 84,tc,V 2,c,q,qi,W(EILSEQ),qi,I(84),mla,l,V 84,tc,V 2,c,q,qi,W(ERESTART),qi,I(85),mla,l,V 84,tc,V 2,c,q,qi,W(ESTRPIPE),qi,I(86),mla,l,V 84,tc,V 2,c,q,qi,W(EUSERS),qi,I(87),mla,l,V 84,tc,V 2,c,q,qi,W(ENOTSOCK),qi,I(88),mla,l,V 84,tc,V 2,c,q,qi,W(EDESTADDRREQ),qi,I(89),mla,l,V 84,tc,V 2,c,q,qi,W(EMSGSIZE),qi,I(90),mla,l,V 84,tc,V 2,c,q,qi,W(EPROTOTYPE),qi,I(91),mla,l,V 84,tc,V 2,c,q,qi,W(ENOPROTOOPT),qi,I(92),mla,l,V 84,tc,V 2,c,q,qi,W(EPROTONOSUPPORT),qi,I(93),mla,l,V 84,tc,V 2,c,q,qi,W(ESOCKTNOSUPPORT),qi,I(94),mla,l,V 84,tc,V 2,c,q,qi,W(EOPNOTSUPP),qi,I(95),mla,l,V 84,tc,V 2,c,q,qi,W(EPFNOSUPPORT),qi,I(96),mla,l,V 84,tc,V 2,c,q,qi,W(EAFNOSUPPORT),qi,I(97),mla,l,V 84,tc,V 2,c,q,qi,W(EADDRINUSE),qi,I(98),mla,l,V 84,tc,V 2,c,q,qi,W(EADDRNOTAVAIL),qi,I(99),mla,l,V 84,tc,V 2,c,q,qi,W(ENETDOWN),qi,I(100),mla,l,V 84,tc,V 2,c,q,qi,W(ENETUNREACH),qi,I(101),mla,l,V 84,tc,V 2,c,q,qi,W(ENETRESET),qi,I(102),mla,l,V 84,tc,V 2,c,q,qi,W(ECONNABORTED),qi,I(103),mla,l,V 84,tc,V 2,c,q,qi,W(ECONNRESET),qi,I(104),mla,l,V 84,tc,V 2,c,q,qi,W(ENOBUFS),qi,I(105),mla,l,V 84,tc,V 2,c,q,qi,W(EISCONN),qi,I(106),mla,l,V 84,tc,V 2,c,q,qi,W(ENOTCONN),qi,I(107),mla,l,V 84,tc,V 2,c,q,qi,W(ESHUTDOWN),qi,I(108),mla,l,V 84,tc,V 2,c,q,qi,W(ETOOMANYREFS),qi,I(109),mla,l,V 84,tc,V 2,c,q,qi,W(ETIMEDOUT),qi,I(110),mla,l,V 84,tc,V 2,c,q,qi,W(ECONNREFUSED),qi,I(111),mla,l,V 84,tc,V 2,c,q,qi,W(EHOSTDOWN),qi,I(112),mla,l,V 84,tc,V 2,c,q,qi,W(EHOSTUNREACH),qi,I(113),mla,l,V 84,tc,V 2,c,q,qi,W(EALREADY),qi,I(114),mla,l,V 84,tc,V 2,c,q,qi,W(EINPROGRESS),qi,I(115),mla,l,V 84,tc,V 2,c,q,qi,W(ESTALE),qi,I(116),mla,l,V 84,tc,V 2,c,q,qi,W(EUCLEAN),qi,I(117),mla,l,V 84,tc,V 2,c,q,qi,W(ENOTNAM),qi,I(118),mla,l,V 84,tc,V 2,c,q,qi,W(ENAVAIL),qi,I(119),mla,l,V 84,tc,V 2,c,q,qi,W(EISNAM),qi,I(120),mla,l,V 84,tc,V 2,c,q,qi,W(EREMOTEIO),qi,I(121),mla,l,V 84,tc,V 2,c,q,qi,W(EDQUOT),qi,I(122),mla,l,V 84,tc,V 2,c,q,qi,W(ENOMEDIUM),qi,I(123),mla,l,V 84,tc,V 2,c,q,qi,W(EMEDIUMTYPE),qi,I(124),mla,l,V 84,tc,V 2,c,q,qi,Q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,qi,Q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,mla,l,V 84,tc,V 2,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(desv),t,B 193,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(desvPLUSr),t,B 194,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(system_constant_internal),t,B 198,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(system_constant),t,B 199,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(logical_and),t,B 200,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(logical_or),t,B 201,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(binary_logical_xor),t,B 202,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(logical_xor),t,B 203,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(logical_not),t,B 204,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(LTLT),t,B 205,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(GTGT),t,B 206,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(car),t,&NN_car,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cdr),t,&NN_cdr,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(caar),t,&NN_caar,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cadr),t,&NN_cadr,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cdar),t,&NN_cdar,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cddr),t,&NN_cddr,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(caaar),t,&NN_caaar,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(caadr),t,&NN_caadr,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cadar),t,&NN_cadar,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(caddr),t,&NN_caddr,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cdaar),t,&NN_cdaar,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cdadr),t,&NN_cdadr,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cddar),t,&NN_cddar,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cdddr),t,&NN_cdddr,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(caaaar),t,&NN_caaaar,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(caaadr),t,&NN_caaadr,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(caadar),t,&NN_caadar,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(caaddr),t,&NN_caaddr,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cadaar),t,&NN_cadaar,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cadadr),t,&NN_cadadr,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(caddar),t,&NN_caddar,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cadddr),t,&NN_cadddr,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cdaaar),t,&NN_cdaaar,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cdaadr),t,&NN_cdaadr,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cdadar),t,&NN_cdadar,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cdaddr),t,&NN_cdaddr,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cddaar),t,&NN_cddaar,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cddadr),t,&NN_cddadr,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cdddar),t,&NN_cdddar,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(cddddr),t,&NN_cddddr,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(first),t,&NN_first,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(second),t,&NN_second,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(third),t,&NN_third,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(fourth),t,&NN_fourth,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(fifth),t,&NN_fifth,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(sixth),t,&NN_sixth,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(seventh),t,&NN_seventh,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(eighth),t,&NN_eighth,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(ninth),t,&NN_ninth,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(tenth),t,&NN_tenth,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(case),t,B 210,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(lambda_pack),t,B 212,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(letTIMES),t,B 213,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(hideTIMES),t,B 215,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(normalize_binding),t,B 216,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(let),t,B 218,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(letrec),t,B 222,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(list2vector),t,B 223,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(vector),t,B 224,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(vector_copy),t,B 225,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,t,B 226,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 174,mha,l0,q,qi,W(LTclassGT),qi,&BCL0,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(freeze_class),t,B 227,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(superclass),t,B 228,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(lookup_slot),t,B 230,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(class_slots),t,B 231,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(class2vector),t,B 232,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(hide_slots),t,B 233,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(protect_slots),t,B 234,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(make_instance),t,B 235,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(class_huh),t,B 236,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(class_of),t,B 237,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(subclass_huh),t,B 239,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,t,B 240,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 175,mha,l0,q,qi,W(class_discriminator),t,B 242,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(XmacrosX),t,&NN_dict_ref_2,tc,V 2,c,q,qi,W(define_class),t,B 245,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l0,q,qi,W(dict_ref),t,&NN_dict_ref_2,tc,V 2,c,tc,V -3,c,mha,l0,q,qi,W(string2symbol),t,B 246,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(string2list),t,B 247,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(string_upcase_bang),t,B 248,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(string_downcase_bang),t,B 249,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(string_upcase),t,B 250,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(string_downcase),t,B 251,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mha,l0,q,qi,W(reduce_index),t,B 252,q,qi,V 1,qh,ql,li,rvec+19,tc,V 4,c,q,li,rvec+3,tc,V 3,c,mh...
[truncated message content] |
|
From: <di...@us...> - 2002-08-31 14:39:48
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv6943/src/builtin
Modified Files:
Makefile.am ORDER
Added Files:
rec.wisp
Log Message:
Implemented the SRFI-31 |rec| form.
--- NEW FILE: rec.wisp ---
(This appears to be a binary file; contents omitted.)
Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/Makefile.am,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- Makefile.am 26 Aug 2002 16:20:07 -0000 1.36
+++ Makefile.am 31 Aug 2002 14:39:45 -0000 1.37
@@ -11,6 +11,6 @@
case.wisp codegen.wisp cut.wisp cxr.wisp dictbase.wisp ewisp.wisp \
filing.wisp frer.wisp init.wisp lambda-parser.wisp lists.wisp \
locals.wisp macrobase.wisp modular.wisp pack.wisp parser.wisp \
- preproc.wisp objects.wisp semideque.wisp serial.wisp stdenv.wisp \
- strings.wisp symbols.wisp sys.wisp sysconst.wisp sysenv.wisp \
- tostring.wisp unix.wisp vectors.wisp
+ preproc.wisp objects.wisp rec.wisp semideque.wisp serial.wisp \
+ stdenv.wisp strings.wisp symbols.wisp sys.wisp sysconst.wisp \
+ sysenv.wisp tostring.wisp unix.wisp vectors.wisp
Index: ORDER
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/ORDER,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -d -r1.45 -r1.46
--- ORDER 26 Aug 2002 16:20:07 -0000 1.45
+++ ORDER 31 Aug 2002 14:39:45 -0000 1.46
@@ -37,6 +37,7 @@
unix.wisp
ewisp.wisp
cut.wisp
+rec.wisp
serial.wisp
stdenv.wisp
init.wisp # must be last--it never returns
|
|
From: <di...@us...> - 2002-08-31 14:30:40
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5049/modules
Modified Files:
xml.wim
Log Message:
Fixed stringification of named characters and parsing of &...; XML entities.
Index: xml.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/xml.wim,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- xml.wim 31 Aug 2002 14:28:26 -0000 1.34
+++ xml.wim 31 Aug 2002 14:30:07 -0000 1.35
@@ -30,33 +30,14 @@
((#\: #\< #\> #\& #\/ #\=) #f)
(else (char-symbolic? ch))))
-(define (read-charseq port pred (initial #f) (limit #f))
- (collect-string
- (lambda (emit)
- (if initial
- (begin
- (emit initial)
- (if limit
- (decr! limit))))
- (let (loop (limit limit))
- (and (or (not limit) (not (zero? limit)))
- (my ch (peek-char port)
- (cond
- ((eof-object? ch)) ; done
- ((not (pred ch))) ; done
- (else
- (emit ch)
- (read-char port)
- (loop (and limit (- limit 1)))))))))))
-
(define (parse-xml-amp port)
- (my sym (read-charseq port (serial (cut char=? <> #\;) not) #f 5)
+ (my sym (read-char-sequence port (serial (cut char=? <> #\;) not) 5)
(my p (assoc sym '(("amp" . #\&)
("lt" . #\<)
("gt" . #\>)
- ("quot" . #\'))
+ ("quot" . #\"))
string=?)
- (if
+ (if p
(begin
(read-char port)
(cdr p))
@@ -68,7 +49,7 @@
((#\> #\/)
'#f) ; no more attributes
(else
- (my name (read-charseq port char-xml-symbolic?)
+ (my name (read-char-sequence port char-xml-symbolic?)
; no spaces allowed
(if (eqv? (peek-char port) #\=)
(read-char port)
@@ -117,7 +98,7 @@
(my </? (eqv? (peek-char port) #\/)
(if </?
(read-char port))
- (let* ((tag-name (read-charseq port char-xml-symbolic?))
+ (let* ((tag-name (read-char-sequence port char-xml-symbolic?))
(name (string->symbol tag-name)))
(if (not name)
(raise 'invalid-xml:invalid-element-name port))
@@ -187,12 +168,12 @@
(simple-encode text '((#\& . "&")
(#\< . "<")
(#\> . ">")
- (#\' . """))))
+ (#\" . """))))
(define (generate-start-tag name attrs (port *stdout*))
(write-string
(apply string-append "<$[name]"
- `(,@(map (lambda (x) " $,(car x)='$,(quote-text (cdr x))'")
+ `(,@(map (lambda (x) " $,(car x)=\"$,(quote-text (cdr x))\"")
attrs) ">")) port))
(define (output-xml-element elem (port *stdout*))
|
|
From: <di...@us...> - 2002-08-31 14:30:27
|
Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv5049/src/builtin
Modified Files:
tostring.wisp
Log Message:
Fixed stringification of named characters and parsing of &...; XML entities.
Index: tostring.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/tostring.wisp,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -d -r1.72 -r1.73
--- tostring.wisp 26 Aug 2002 16:13:01 -0000 1.72
+++ tostring.wisp 31 Aug 2002 14:30:24 -0000 1.73
@@ -134,7 +134,7 @@
((rassv s char-names)
=> (lambda (c)
(emit "#\\")
- (emit (symbol->string (car s)))))
+ (emit (symbol->string (car c)))))
((char=? s #\U+7F)
(emit "#\\^?"))
((char<? s #\U+20)
|
|
From: <di...@us...> - 2002-08-31 14:30:27
|
Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv5049/src
Modified Files:
essence.c wisp.c.nepl
Log Message:
Fixed stringification of named characters and parsing of &...; XML entities.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.170
retrieving revision 1.171
diff -u -d -r1.170 -r1.171
--- essence.c 31 Aug 2002 14:28:26 -0000 1.170
+++ essence.c 31 Aug 2002 14:30:07 -0000 1.171
@@ -1031,7 +1031,7 @@
void*Y618[]={j,V 1,V 0,binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,jif,V 39,dig,V 1,q,mha,l0,q,qi,W(superclass),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 1,q,qi,I(1),li,rvec+4,tc,V 2,c,q,mha,l,V 4,l,V 11,tc,V 2,c,ds,V 2,r,dig,V 0,ds,V 2,r};
void*Y625[]={j,V 1,V 0,binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,xri,W(undefined),jinz,V 13,qi,B 624,mha,l,V 3,l,V 0,tc,V 1,c,ds,V 2,r,dig,V 1,q,dig,V 1,q,mha,l,V 1,l,V 116,tc,V 2,c,ds,V 2,r};
void*Y627[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 1,mca,subc,V 0,binzc,&branch_EVM_invargca,mha,l,V 4,l,V 0,q,mha,l,V 1,l,V 26,tc,V 1,c,mlt,s,V 0,qi,B 626,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 3,l,V 2,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r};
-void*Y629[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 12,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,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 27,mla,l,V 0,q,mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(rational_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 27,mla,l,V 0,q,mha,l0,q,qi,W(rational2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,xri,Q,jinz,V 11,qi,B 595,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,xri,T,jinz,V 11,qi,B 596,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,xri,F,jinz,V 11,qi,B 597,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 134,tc,V 1,c,jif,V 27,mla,l,V 0,q,mha,l0,q,qi,W(symbol2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 164,tc,V 1,c,jif,V 54,mla,l,V 0,q,mha,l,V 3,l,V 1,tc,V 1,c,jinf,V 37,qi,CH('#'),mha,l,V 3,l,V 0,tc,V 1,c,mla,l,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 3,l,V 2,tc,V 1,c,r,t,Z,r,mla,l,V 0,q,mha,l,V 1,l,V 85,tc,V 1,c,jif,V 361,mla,l,V 0,q,mha,l,V 3,l,V 1,tc,V 1,c,jinf,V 344,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 85,tc,V 1,c,jif,V 76,mla,l,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,Q,jinz,V 51,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,BC 319,mha,l0,q,qi,W(assq),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,j,V 2,t,F,j,V 2,t,F,mlt,s,V 1,mla,l,V 1,jif,V 50,mla,l,V 1,mlt,s,V 2,t,T,mlt,s,V 3,mla,l,V 2,q,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 2,tc,V 1,c,r,qi,CH('('),mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 3,l,V 2,tc,V 1,c,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 85,tc,V 1,c,jif,V 33,mla,l,V 0,q,mha,l,V 2,l,V 2,q,mha,l0,q,qi,W(assq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 47,qi,CH(' '),mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 3,l,V 2,tc,V 1,c,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 0,j,V -98,mla,l,V 0,xri,Q,jiz,V 24,qi,B 598,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 3,l,V 2,tc,V 1,c,j,V 0,qi,CH(')'),mha,l,V 3,l,V 0,tc,V 1,c,r,t,Z,r,mla,l,V 0,q,mha,l,V 1,l,V 83,tc,V 1,c,jif,V 364,t,CH(' '),mlt,s,V 4,mla,l,V 0,mlt,s,V 5,t,CH(127),mlt,s,V 6,mla,l,V 4,q,mla,l,V 5,jige,V 17,mla,l,V 5,q,mla,l,V 6,jige,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 23,qi,B 556,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 215,q,mha,l0,q,qi,W(rassv),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 7,mla,l,V 7,jif,V 56,mla,l,V 7,mlt,s,V 8,t,T,mlt,s,V 9,qi,B 556,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(symbol2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,xri,CH(127),jinz,V 11,qi,B 599,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,t,CH(' '),jige,V 49,qi,B 600,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 36,tc,V 1,c,q,qi,I(64),li,rvec+4,tc,V 2,c,q,mha,l,V 1,l,V 103,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,qi,B 601,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 36,tc,V 1,c,q,qi,I(16),mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string_upcase),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 10,qi,I(4),mla,l,V 10,q,mha,l,V 1,l,V 130,tc,V 1,c,q,li,rvec+5,tc,V 2,c,q,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 24,dig,V 0,q,qi,CH('0'),mha,l,V 1,l,V 109,tc,V 2,c,q,mha,l,V 3,l,V 0,tc,V 1,c,j,V 0,ds,V 1,mla,l,V 10,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 133,tc,V 1,c,jif,V 489,mla,l,V 0,q,mha,l,V 1,l,V 33,tc,V 1,c,jinf,V 28,mla,l,V 0,q,mha,l,V 1,l,V 30,tc,V 1,c,jif,V 12,qi,B 602,mha,l,V 3,l,V 0,tc,V 1,c,j,V 2,t,F,qi,CH('"'),mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 130,tc,V 1,c,q,t,I(0),q,dig,V 0,q,dig,V 2,q,li,rvec+15,tc,V 2,c,jif,V 393,mla,l,V 0,q,dig,V 1,q,mha,l,V 1,l,V 123,tc,V 2,c,q,dig,V 0,q,dig,V 0,xri,CH(7),jinz,V 12,qi,B 603,mha,l,V 3,l,V 0,tc,V 1,c,j,V 338,dig,V 0,xri,CH(8),jinz,V 12,qi,B 604,mha,l,V 3,l,V 0,tc,V 1,c,j,V 320,dig,V 0,xri,CH(9),jinz,V 12,qi,B 605,mha,l,V 3,l,V 0,tc,V 1,c,j,V 302,dig,V 0,xri,CH(10),jinz,V 12,qi,B 606,mha,l,V 3,l,V 0,tc,V 1,c,j,V 284,dig,V 0,xri,CH(12),jinz,V 12,qi,B 607,mha,l,V 3,l,V 0,tc,V 1,c,j,V 266,dig,V 0,xri,CH(13),jinz,V 12,qi,B 608,mha,l,V 3,l,V 0,tc,V 1,c,j,V 248,dig,V 0,xri,CH(27),jinz,V 12,qi,B 609,mha,l,V 3,l,V 0,tc,V 1,c,j,V 230,dig,V 0,xri,CH('"'),jinz,V 12,qi,B 610,mha,l,V 3,l,V 0,tc,V 1,c,j,V 212,dig,V 0,xri,CH('\\'),jiz,V 6,dig,V 0,xri,CH('$'),jinz,V 23,qi,CH('\\'),mha,l,V 3,l,V 0,tc,V 1,c,dig,V 1,q,mha,l,V 3,l,V 0,tc,V 1,c,j,V 177,dig,V 1,q,t,CH(' '),jilt,V 14,qi,CH('~'),dig,V 2,jilt,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 13,dig,V 1,q,mha,l,V 3,l,V 0,tc,V 1,c,j,V 139,qi,B 611,mha,l,V 3,l,V 0,tc,V 1,c,dig,V 1,q,mha,l,V 1,l,V 36,tc,V 1,c,q,qi,I(16),mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string_upcase),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,q,mha,l,V 1,l,V 130,tc,V 1,c,q,dig,V 0,xri,I(1),jiz,V 6,dig,V 0,xri,I(3),jinz,V 12,qi,CH('0'),mha,l,V 3,l,V 0,tc,V 1,c,j,V 26,dig,V 0,xri,I(2),jinz,V 4,t,T,j,V 2,t,F,jinf,V 12,dig,V 0,xri,I(4),jinz,V 4,t,T,j,V 2,t,F,ds,V 1,dig,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH(']'),mha,l,V 3,l,V 0,tc,V 1,c,ds,V 1,ds,V 1,ds,V 1,dig,V 0,q,qi,I(1),li,rvec+4,tc,V 2,c,bury,V 0,j,V -406,ds,V 1,ds,V 1,qi,CH('"'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 92,tc,V 1,c,jif,V 47,qi,B 612,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(procedure_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 123,qi,B 555,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 115,tc,V 1,c,jif,V 4,t,B 613,j,V 2,t,B 614,q,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(meaning),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,jif,V 49,qi,CH(' '),mha,l,V 3,l,V 0,tc,V 1,c,dig,V 0,q,mha,l,V 1,l,V 85,tc,V 1,c,jif,V 4,dig,V 0,j,V 11,dig,V 0,q,mha,l,V 1,l,V 104,tc,V 1,c,q,mha,l,V 3,l,V 2,tc,V 1,c,j,V 0,ds,V 1,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(void_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 11,qi,B 615,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(class_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 112,qi,B 616,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,B 617,mha,l,V 3,l,V 0,tc,V 1,c,t,Q,mlt,s,V 11,t,B 618,q,qi,V 4,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 11,mla,l,V 0,q,qi,I(0),mla,l,V 11,tc,V 2,c,q,mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 102,tc,V 1,c,jif,V 193,mla,l,V 0,q,mha,l0,q,qi,W(file_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 61,qi,B 619,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,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,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,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 47,qi,B 620,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,qi,B 621,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 122,tc,V 1,c,jif,V 92,qi,B 622,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,B 623,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 121,tc,V 1,c,q,mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 27,tc,V 1,c,jif,V 37,qi,T,t,B 625,q,qi,V 4,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 627,q,qi,V 4,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 34,tc,V 3,c,r,qi,B 628,mha,l,V 3,l,V 0,tc,V 1,c,r};
+void*Y629[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 12,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,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 27,mla,l,V 0,q,mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(rational_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 27,mla,l,V 0,q,mha,l0,q,qi,W(rational2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,xri,Q,jinz,V 11,qi,B 595,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,xri,T,jinz,V 11,qi,B 596,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,xri,F,jinz,V 11,qi,B 597,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 134,tc,V 1,c,jif,V 27,mla,l,V 0,q,mha,l0,q,qi,W(symbol2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 164,tc,V 1,c,jif,V 54,mla,l,V 0,q,mha,l,V 3,l,V 1,tc,V 1,c,jinf,V 37,qi,CH('#'),mha,l,V 3,l,V 0,tc,V 1,c,mla,l,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 3,l,V 2,tc,V 1,c,r,t,Z,r,mla,l,V 0,q,mha,l,V 1,l,V 85,tc,V 1,c,jif,V 361,mla,l,V 0,q,mha,l,V 3,l,V 1,tc,V 1,c,jinf,V 344,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l,V 1,l,V 85,tc,V 1,c,jif,V 76,mla,l,V 0,q,mha,l0,q,qi,W(cddr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,xri,Q,jinz,V 51,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,qi,BC 319,mha,l0,q,qi,W(assq),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,j,V 2,t,F,j,V 2,t,F,mlt,s,V 1,mla,l,V 1,jif,V 50,mla,l,V 1,mlt,s,V 2,t,T,mlt,s,V 3,mla,l,V 2,q,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(cadr),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 2,tc,V 1,c,r,qi,CH('('),mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 3,l,V 2,tc,V 1,c,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 0,mla,l,V 0,q,mha,l,V 1,l,V 85,tc,V 1,c,jif,V 33,mla,l,V 0,q,mha,l,V 2,l,V 2,q,mha,l0,q,qi,W(assq),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 47,qi,CH(' '),mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l,V 3,l,V 2,tc,V 1,c,mla,l,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,mlt,s,V 0,j,V -98,mla,l,V 0,xri,Q,jiz,V 24,qi,B 598,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 3,l,V 2,tc,V 1,c,j,V 0,qi,CH(')'),mha,l,V 3,l,V 0,tc,V 1,c,r,t,Z,r,mla,l,V 0,q,mha,l,V 1,l,V 83,tc,V 1,c,jif,V 364,t,CH(' '),mlt,s,V 4,mla,l,V 0,mlt,s,V 5,t,CH(127),mlt,s,V 6,mla,l,V 4,q,mla,l,V 5,jige,V 17,mla,l,V 5,q,mla,l,V 6,jige,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 23,qi,B 556,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 215,q,mha,l0,q,qi,W(rassv),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 7,mla,l,V 7,jif,V 56,mla,l,V 7,mlt,s,V 8,t,T,mlt,s,V 9,qi,B 556,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 8,q,li,rvec+10,tc,V 1,c,ct,l0,q,mha,l0,q,qi,W(symbol2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,xri,CH(127),jinz,V 11,qi,B 599,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,t,CH(' '),jige,V 49,qi,B 600,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 36,tc,V 1,c,q,qi,I(64),li,rvec+4,tc,V 2,c,q,mha,l,V 1,l,V 103,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,r,qi,B 601,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 36,tc,V 1,c,q,qi,I(16),mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string_upcase),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 10,qi,I(4),mla,l,V 10,q,mha,l,V 1,l,V 130,tc,V 1,c,q,li,rvec+5,tc,V 2,c,q,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 24,dig,V 0,q,qi,CH('0'),mha,l,V 1,l,V 109,tc,V 2,c,q,mha,l,V 3,l,V 0,tc,V 1,c,j,V 0,ds,V 1,mla,l,V 10,q,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 133,tc,V 1,c,jif,V 489,mla,l,V 0,q,mha,l,V 1,l,V 33,tc,V 1,c,jinf,V 28,mla,l,V 0,q,mha,l,V 1,l,V 30,tc,V 1,c,jif,V 12,qi,B 602,mha,l,V 3,l,V 0,tc,V 1,c,j,V 2,t,F,qi,CH('"'),mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 130,tc,V 1,c,q,t,I(0),q,dig,V 0,q,dig,V 2,q,li,rvec+15,tc,V 2,c,jif,V 393,mla,l,V 0,q,dig,V 1,q,mha,l,V 1,l,V 123,tc,V 2,c,q,dig,V 0,q,dig,V 0,xri,CH(7),jinz,V 12,qi,B 603,mha,l,V 3,l,V 0,tc,V 1,c,j,V 338,dig,V 0,xri,CH(8),jinz,V 12,qi,B 604,mha,l,V 3,l,V 0,tc,V 1,c,j,V 320,dig,V 0,xri,CH(9),jinz,V 12,qi,B 605,mha,l,V 3,l,V 0,tc,V 1,c,j,V 302,dig,V 0,xri,CH(10),jinz,V 12,qi,B 606,mha,l,V 3,l,V 0,tc,V 1,c,j,V 284,dig,V 0,xri,CH(12),jinz,V 12,qi,B 607,mha,l,V 3,l,V 0,tc,V 1,c,j,V 266,dig,V 0,xri,CH(13),jinz,V 12,qi,B 608,mha,l,V 3,l,V 0,tc,V 1,c,j,V 248,dig,V 0,xri,CH(27),jinz,V 12,qi,B 609,mha,l,V 3,l,V 0,tc,V 1,c,j,V 230,dig,V 0,xri,CH('"'),jinz,V 12,qi,B 610,mha,l,V 3,l,V 0,tc,V 1,c,j,V 212,dig,V 0,xri,CH('\\'),jiz,V 6,dig,V 0,xri,CH('$'),jinz,V 23,qi,CH('\\'),mha,l,V 3,l,V 0,tc,V 1,c,dig,V 1,q,mha,l,V 3,l,V 0,tc,V 1,c,j,V 177,dig,V 1,q,t,CH(' '),jilt,V 14,qi,CH('~'),dig,V 2,jilt,V 4,t,T,j,V 2,t,F,j,V 2,t,F,jif,V 13,dig,V 1,q,mha,l,V 3,l,V 0,tc,V 1,c,j,V 139,qi,B 611,mha,l,V 3,l,V 0,tc,V 1,c,dig,V 1,q,mha,l,V 1,l,V 36,tc,V 1,c,q,qi,I(16),mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,mha,l0,q,qi,W(string_upcase),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,q,mha,l,V 1,l,V 130,tc,V 1,c,q,dig,V 0,xri,I(1),jiz,V 6,dig,V 0,xri,I(3),jinz,V 12,qi,CH('0'),mha,l,V 3,l,V 0,tc,V 1,c,j,V 26,dig,V 0,xri,I(2),jinz,V 4,t,T,j,V 2,t,F,jinf,V 12,dig,V 0,xri,I(4),jinz,V 4,t,T,j,V 2,t,F,ds,V 1,dig,V 0,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH(']'),mha,l,V 3,l,V 0,tc,V 1,c,ds,V 1,ds,V 1,ds,V 1,dig,V 0,q,qi,I(1),li,rvec+4,tc,V 2,c,bury,V 0,j,V -406,ds,V 1,ds,V 1,qi,CH('"'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 92,tc,V 1,c,jif,V 47,qi,B 612,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(procedure_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 123,qi,B 555,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 115,tc,V 1,c,jif,V 4,t,B 613,j,V 2,t,B 614,q,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(meaning),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 0,jif,V 49,qi,CH(' '),mha,l,V 3,l,V 0,tc,V 1,c,dig,V 0,q,mha,l,V 1,l,V 85,tc,V 1,c,jif,V 4,dig,V 0,j,V 11,dig,V 0,q,mha,l,V 1,l,V 104,tc,V 1,c,q,mha,l,V 3,l,V 2,tc,V 1,c,j,V 0,ds,V 1,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(void_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 11,qi,B 615,mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l0,q,qi,W(class_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 112,qi,B 616,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,B 617,mha,l,V 3,l,V 0,tc,V 1,c,t,Q,mlt,s,V 11,t,B 618,q,qi,V 4,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 11,mla,l,V 0,q,qi,I(0),mla,l,V 11,tc,V 2,c,q,mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 102,tc,V 1,c,jif,V 193,mla,l,V 0,q,mha,l0,q,qi,W(file_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,jif,V 61,qi,B 619,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,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,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,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 47,qi,B 620,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,qi,B 621,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 122,tc,V 1,c,jif,V 92,qi,B 622,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l0,q,qi,W(stringify_address),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,B 623,mha,l,V 3,l,V 0,tc,V 1,c,mla,l,V 0,q,mha,l,V 1,l,V 121,tc,V 1,c,q,mha,l0,q,qi,W(integer2string),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 3,l,V 0,tc,V 1,c,qi,CH('>'),mha,l,V 3,l,V 0,tc,V 1,c,r,mla,l,V 0,q,mha,l,V 1,l,V 27,tc,V 1,c,jif,V 37,qi,T,t,B 625,q,qi,V 4,qh,ql,li,rvec+19,tc,V 4,c,q,t,B 627,q,qi,V 4,qh,ql,li,rvec+19,tc,V 4,c,q,mha,l,V 1,l,V 34,tc,V 3,c,r,qi,B 628,mha,l,V 3,l,V 0,tc,V 1,c,r};
void*Y630[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 3,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,t,B 594,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 1,t,Q,mlt,s,V 2,t,B 629,q,qi,V 3,qh,ql,li,rvec+19,tc,V 4,c,mlt,s,V 2,mha,l,V 2,l,V 1,q,mla,l,V 2,tc,V 1,c,r};
void*Y631[]={j,V 1,V 0,binc,&branch_EVM_invargc,hop,V 4,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 0,mla,l,V 0,q,qi,T,mha,l0,q,qi,W(topocopy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 1,p,l,V 1,q,li,rvec+10,tc,V 1,c,ct,l0,mlt,s,V 2,mla,l,V 2,q,dig,V 0,xri,Q,jiz,V 79,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,T,q,dig,V 1,q,dig,V 2,q,li,rvec+10,tc,V 1,c,ct,l,V 1,q,mha,l0,q,qi,W(car),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,dig,V 1,q,qi,F,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,ds,V 1,ds,V 1,dig,V 0,q,li,rvec+10,tc,V 1,c,ct,l,V 1,bury,V 0,j,V -85,ds,V 1,qi,I(1),mha,l0,q,qi,W(make_counter),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,mlt,s,V 3,t,B 630,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*Y632[]={j,V 1,V 0,hop,V 4,mlt,jinnc,V 10,notc,p,s,V 1,t,T,s,V 0,j,V 6,t,F,s,V 1,s,V 0,mca,subc,V 1,binzc,&branch_EVM_invargca,mlt,p,s,V 2,mla,l,V 2,q,mha,l,V 1,l,V 223,q,mha,l0,q,qi,W(assoc),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,mlt,s,V 3,mla,l,V 0,jif,V 128,mla,l,V 3,jif,V 47,mla,l,V 3,q,mla,l,V 1,jif,V 19,mla,l,V 1,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,j,V 2,t,F,q,mha,l0,q,qi,W(cdr),t,&NN_dict_ref_2,tc,V 2,c,tc,V -2,c,t,Z,r,mla,l,V 1,jif,V 68,mla,l,V 2,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mla,l,V 1,q,mha,l0,q,qi,W(string_copy),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,mha,l,V 1,l,V 84,tc,V 2,c,q,mha,l,V 1,l,V 223,q,mha,l,V 1,l,V 84,tc,V 2,c,mat,mha,l,V 1,st,V 223,t,Z,r,t,Z,r,mla,l,V 3,jif,V 13,mla,l,V 3,q,li,rvec+10,tc,V 1,c,ct,l,V 1,r,t,F,r};
Index: wisp.c.nepl
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wisp.c.nepl,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -d -r1.53 -r1.54
--- wisp.c.nepl 26 Aug 2002 16:18:22 -0000 1.53
+++ wisp.c.nepl 31 Aug 2002 14:30:24 -0000 1.54
@@ -59,7 +59,7 @@
{
if (wordreg)
{
- write (1, "wisp engine died from exception ", 29);
+ write (1, "wisp engine died from exception ", 32);
if (symbolp (rvec [0]))
{
const char *t = sym2zt (rvec [0]);
|
|
From: <di...@us...> - 2002-08-31 14:29:40
|
Update of /cvsroot/wisp/wisp/web
In directory usw-pr-cvs1:/tmp/cvs-serv4997/web
Modified Files:
Makefile.am index.html
Added Files:
gray.cgi names.cgi show.cgi wisp.css
Log Message:
Moved gray.cgi, names.cgi, show.cgi, and wisp.css from doc/examples to web .
--- NEW FILE: gray.cgi ---
#! /usr/bin/wisp -eC
Content-type: text/html; charset=utf-8
|: (use strings) :|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head>
<title>Gray Scales (Sample eWisp run)</title>
<link type="text/css" href="wisp.css" rel="stylesheet">
</head>
<!-- @(#) $Id: gray.cgi,v 1.1 2002/08/31 14:29:38 digg Exp $ -->
<body>
<h1>Gray Scales</h1>
<p>This is running on Wisp version [: wisp-version :] that was built at
about [: wisp-build :] by [: wisp-builder :] and
might or might not be the current version.</p>
<p>Look at the <a href='show.cgi?file=gray.cgi'>source code</a>.</p>
<p>Here's an automatically generated list of some gray tones:</p>
<table cellpadding=16 width='100%'>
|:
(do ((row 0 (+ row 1)))
((>= row 8))
(write-string "<tr>\n")
(do ((col 0 (+ col 1)))
((>= col 8))
(my i (+ (* col 32) (* row 4))
(my hex-color (pad-left (integer->string i 16) 2 #\0)
(set! hex-color (string-append hex-color hex-color hex-color))
(print "<td style='background-color: #$,[hex-color]'><tt style='color: blue'>$,[hex-color]</tt></td>\n"))))
(write-string "</tr>\n"))
:|
</table>
<hr>
<p>
<a href='http://validator.w3.org/check/referer'><img
src='/valid-html401.gif' alt='Valid HTML 4.01!'
style='border: 0' width='88' height='31'></a>
<a href="http://jigsaw.w3.org/css-validator/check/referer"><img
src="/vcss.gif" alt="Valid CSS!"
style='border: 0' width="88" height="31"></a>
</p>
</body>
</html>
|: ; vim: ft=ewisp
--- NEW FILE: names.cgi ---
#! /usr/bin/wisp -Ce
Content-type: text/html; charset=utf-8
Pragma: no-cache
Expires: Fri, 1 Sep 2000 00:00:00 +0000
|: (use cgi strings time) :|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head>
<title>Name list demo</title>
<link rel="stylesheet" href="wisp.css" type="text/css">
<!-- @(#) $Id: names.cgi,v 1.1 2002/08/31 14:29:38 digg Exp $ -->
</head>
<body class=white>
<h1 style="text-align: center">Name list demo</h1>
<div style="text-align: center">
<table cellpadding=16>
<tr><td style="color: black; background-color: #ffffc0">
|: (define time (unix-time)) :|
It's currently [: time :] o' Unix clock. <p>
|: (define time-parts (posix-time->utc time)) :|
Therefore, have a nice
[: (vector-ref
'#("January" "February" "March"
"April" "May" "June"
"July" "August" "September"
"October" "November" "December")
(- (second time-parts) 1)) :]
[: (my mday (third time-parts)
(string-append
(integer->string mday)
(cond
((and (>= mday 4) (<= mday 19)) "th")
((= (remainder mday 10) 1) "st")
((= (remainder mday 10) 2) "nd")
((= (remainder mday 10) 3) "rd")
(else "th")))) :]
[: (first time-parts) :] CE! <p>
<form action="names.cgi" method=get>
|: (define *whole-list* (make-box '()))
;; I urge you to acknowledge that it's very insecure to have the user maintain
;; his status data and send it back to you and thusly, it should NOT be done.
;; HOWEVER, by doing this in a demo like this, maybe you, a potential
;; developer, can see for yourself why this is so bad.
;; Besides, it makes the Lisp-style CGI processing much more apparent.
(let ((old (dict-fetch *cgi-query* 'old))
(inp (dict-fetch *cgi-query* 'inp)))
(if inp
(begin
(car! inp)
(set! inp (string-join (string->word-list inp)))
(if (string=? inp "")
(print "Toggle an empty name, huh?<p>\n")
(if old
(begin
(car! old)
(if (not (cons? old))
(set! old (list old)))
(my filt? #f
(set! old (collect
(lambda (emit)
(for-each
(lambda (vi)
(cond
((string=? vi inp)
(set! filt? #t))
((string-ci=? vi inp)
(set! filt? #t)
(emit inp))
(else
(emit vi))))
old)
(if (not filt?)
(emit inp)))))))
(set! old (list inp))))
(set! (box-ref *whole-list*) old)
(print "<p>Your list has $(length (box-ref *whole-list*)) names so far")
(if (not (null? (box-ref *whole-list*)))
(print ", as follows"))
(print ".</p>\n")
(if (not (box-ref *whole-list*))
(set! (box-ref *whole-list*) '()))
(if (not (null? (box-ref *whole-list*)))
(begin
(print "<ol>\n")
(for-each
(lambda (n)
(print "<li> $,[n]\n")
(print "<input type=hidden name=old value=\"$,[n]\">\n")) (box-ref *whole-list*))
(print "</ol>\n"))))))
:|
<p>Name: <input name=inp> <input type=submit value=Toggle></p>
</form>
</td></tr>
<tr><td style="width: 24em">
Whenever you enter a name and hit the Toggle button, the name will be added
to the list above|: (if (null? (box-ref *whole-list*))
(print " (which is not shown currently \
because it's empty)")) :|.
If the name happens to be there already, it's, contrariwise, removed. <p>
Note that this application is case knowledgeable.<p>
That's it. <p>
Well, the <a href="show.cgi?file=names.cgi">source</a> is available too.
<p>
And finally, you might want to validate that this machine-generated page
uses <a href="http://validator.w3.org/check/referer">valid HTML</a> and
<a href="http://jigsaw.w3.org/css-validator/check/referer">valid CSS</a>.
</td></tr>
</table>
</div>
</body>
</html>
|: #| vim: set ft=ewisp: |# :|
--- NEW FILE: show.cgi ---
#! /usr/bin/wisp -Ce
Content-type: text/html; charset=UTF-8
|:
;;;; show.cgi - show a script to a web client
;;
;; Copyleft © 2002 by Andres Soolo (di...@us...)
;; This file is licensed under the GNU GPL v2. If you
;; don't know what that means, please do read the GPL.
;;
;;;; @(#) $Id: show.cgi,v 1.1 2002/08/31 14:29:38 digg Exp $
(use
cgi unix)
(define source-name (dict-ref *cgi-query* 'file "show.cgi"))
(define errors? (make-box #f))
:|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head>
<title>Listing of [: (html-encode source-name) :]</title>
<link rel="stylesheet" href="wisp.css" type="text/css">
</head>
<body>
<h1>Listing of [: (html-encode source-name) :]</h1>
<hr>
|: (if (or (absolute-path? source-name)
(path-contains-dotdot? source-name))
(begin
(print "<div class=err>Sorry, I can't let you \
see this file.</div>\n")
(set! (box-ref errors?) #t))
(my source-file (try (open-input-file source-name)
(except ()
'#f))
(if source-file
(begin
(print "<pre class=listing><tt>\n")
(let (loop)
(my source-line (read-line source-file)
(if (not (eof-object? source-line))
(begin
(print "$,(html-encode source-line)\n")
(loop)))))
(print "</tt></pre>"))
(begin
(print "<div class=err>Sorry, I couldn't \
open this file.</div>")
(set! (box-ref errors?) #t)))))
:|
<hr>
|: (define identity (if (box-ref errors?) "error message" "listing")) :|
<p>This [: identity :] was generated by a
<a href="http://wisp.sourceforge.net/">Wisp</a> script. <br>
[: ; It could be done in a better way.
(if (string=? source-name "show.cgi")
""
"See the <a href=\"show.cgi?file=show.cgi\">\
listing of the lister</a>.<br>") :]
<a href="http://validator.w3.org/check/referer">Validate</a> this [: identity :].</p>
</body>
</html>
|: #| vim: set ft=ewisp
--- NEW FILE: wisp.css ---
(This appears to be a binary file; contents omitted.)
Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/web/Makefile.am,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- Makefile.am 28 Aug 2002 20:05:43 -0000 1.1
+++ Makefile.am 31 Aug 2002 14:29:37 -0000 1.2
@@ -6,4 +6,17 @@
#
#### @(#) $Id$
-EXTRA_DIST = .cvsignore index.html
+EXTRA_DIST = .cvsignore gray.cgi index.html names.cgi show.cgi wisp.css
+
+webdir = ${prefix}/share/doc/wisp/web
+
+install: install-dir install-readable install-executable
+
+install-dir:
+ install -d ${webdir}
+
+install-readable: index.html wisp.css
+ install -m644 $^ ${webdir}
+
+install-executable: gray.cgi names.cgi show.cgi
+ install -m755 $^ ${webdir}
Index: index.html
===================================================================
RCS file: /cvsroot/wisp/wisp/web/index.html,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- index.html 28 Aug 2002 20:05:43 -0000 1.1
+++ index.html 31 Aug 2002 14:29:38 -0000 1.2
@@ -4,6 +4,7 @@
<meta http-equiv="Content-type" content="text/html; charset=UTF-8">
<link type="text/css" href="wisp.css" rel="stylesheet">
<title>Resources for the Wisp Community</title>
+<!-- @(#) $Id$ -->
</head>
<body>
<center>
@@ -27,12 +28,12 @@
src="vcss.gif" border="0" width="88" height="31"
alt="Valid CSS!"></a>
<p>
- <a href="http://www.anybrowser.org/campaign/"><img
- src=anybrowser.gif border=0 width=88 height=31
- alt="Best viewed with ANY browser"></a>
+ <a href="http://www.anybrowser.org/campaign/"><img
+ src=anybrowser.gif border=0 width=88 height=31
+ alt="Best viewed with ANY browser"></a>
<p>
<hr>
- <p>
+ <p>
<b>Hosted by</b><br>
<a href="http://www.sourceforge.net/"><img
src="http://sourceforge.net/sflogo.php?group_id=3492"
|
|
From: <di...@us...> - 2002-08-31 14:29:40
|
Update of /cvsroot/wisp/wisp/tools
In directory usw-pr-cvs1:/tmp/cvs-serv4997/tools
Modified Files:
sfweb
Log Message:
Moved gray.cgi, names.cgi, show.cgi, and wisp.css from doc/examples to web .
Index: sfweb
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/sfweb,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- sfweb 28 Aug 2002 20:05:43 -0000 1.1
+++ sfweb 31 Aug 2002 14:29:37 -0000 1.2
@@ -19,7 +19,7 @@
mkdir $DIR
install -d -m2755 -gwisp $DIR/bin $DIR/cgi-bin $DIR/htdocs
-make -C src static-wisp
+make -C src wisp static-wisp
install -m0755 -gwisp src/static-wisp $DIR/bin/wisp
make -C modules # generate *.frwim
for f in `chdir modules && find -name \*.wim -or -name \*.frwim`
@@ -30,7 +30,7 @@
for f in gray.cgi names.cgi show.cgi
do
- install -m0755 -gwisp doc/examples/$f $DIR/cgi-bin/$f
+ install -m0755 -gwisp web/$f $DIR/cgi-bin/$f
ed $DIR/cgi-bin/$f << 'EOE'
1s:#! /usr/bin/wisp:#! ../bin/wisp:
g:\(href=\(["']\)\)wisp\.css\2:s::\1../wisp.css\2:
@@ -38,7 +38,7 @@
EOE
done
-install -m0644 -gwisp doc/examples/wisp.css $DIR/htdocs
+install -m0644 -gwisp web/wisp.css $DIR/htdocs
install -m0644 -gwisp web/index.html $DIR/htdocs
( chdir $DIR; tar czf ../$DIR.tar.gz bin cgi-bin htdocs )
|
|
From: <di...@us...> - 2002-08-31 14:29:40
|
Update of /cvsroot/wisp/wisp/doc/examples
In directory usw-pr-cvs1:/tmp/cvs-serv4997/doc/examples
Modified Files:
Makefile.am
Removed Files:
gray.cgi names.cgi show.cgi wisp.css
Log Message:
Moved gray.cgi, names.cgi, show.cgi, and wisp.css from doc/examples to web .
Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/examples/Makefile.am,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- Makefile.am 30 Jul 2002 21:44:00 -0000 1.33
+++ Makefile.am 31 Aug 2002 14:29:37 -0000 1.34
@@ -9,7 +9,6 @@
EXTRA_DIST = closure.wisp quine.wisp signal.wisp \
rawkey.wisp \
embed.ewisp \
- gray.cgi names.cgi show.cgi wisp.css \
find.wisp \
undoc.wisp \
hello.was hello.wth banana.wth false.wth angry.wth \
@@ -25,11 +24,10 @@
install-readable: closure.wisp quine.wisp signal.wisp \
rawkey.wisp \
find.wisp undoc.wisp \
- hello.was hello.wth banana.wth false.wth angry.wth \
- wisp.css
+ hello.was hello.wth banana.wth false.wth angry.wth
install -m644 $^ ${exampledir}
-install-executable: embed.ewisp gray.cgi names.cgi show.cgi
+install-executable: embed.ewisp
install -m755 $^ ${exampledir}
check: quine-check
--- gray.cgi DELETED ---
--- names.cgi DELETED ---
--- show.cgi DELETED ---
--- wisp.css DELETED ---
|
|
From: <di...@us...> - 2002-08-31 14:29:40
|
Update of /cvsroot/wisp/wisp
In directory usw-pr-cvs1:/tmp/cvs-serv4997
Modified Files:
wisplint.wisp
Log Message:
Moved gray.cgi, names.cgi, show.cgi, and wisp.css from doc/examples to web .
Index: wisplint.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/wisplint.wisp,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- wisplint.wisp 31 Aug 2002 14:27:45 -0000 1.16
+++ wisplint.wisp 31 Aug 2002 14:29:37 -0000 1.17
@@ -89,8 +89,6 @@
"doc/TODO"
"doc/depends.txt"
"doc/examples/embed.ewisp"
- "doc/examples/gray.cgi"
- "doc/examples/names.cgi"
"doc/examples/quine.wisp"
"doc/paw.txt"
"doc/wisp.texi"
@@ -104,7 +102,10 @@
"tests/cut-check.wisp"
"tests/srfi-1.wisp"
"tests/srfi-26.wisp"
- "wa/README.wa")
+ "wa/README.wa"
+ "web/gray.cgi"
+ "web/index.html"
+ "web/names.cgi")
string=?)))
(begin
(run check-for-gpl-notice name)
@@ -133,8 +134,6 @@
"doc/TODO"
"doc/depends.txt"
"doc/examples/embed.ewisp"
- "doc/examples/gray.cgi"
- "doc/examples/names.cgi"
"doc/examples/quine.wisp"
"doc/wisp.texi"
"install-sh"
@@ -185,6 +184,8 @@
".patchlog"
"CVS")
string=?)
+ (string=? name[-4 ...] ".rej")
+ (string=? name[-5 ...] ".orig")
(regex-match ignore name)))
(case (file-type n)
((directory) (loop n))
|
|
From: <di...@us...> - 2002-08-31 14:29:25
|
Update of /cvsroot/wisp/wisp/wa
In directory usw-pr-cvs1:/tmp/cvs-serv4879/wa
Modified Files:
Makefile.am
Log Message:
Implemented the beginnings of Worth's delay-optimization.
Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/wa/Makefile.am,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- Makefile.am 8 Aug 2002 17:20:00 -0000 1.1
+++ Makefile.am 31 Aug 2002 14:29:22 -0000 1.2
@@ -11,3 +11,7 @@
cupid: cupid.wth
WISP_PATH=$(top_srcdir)/modules $(top_builddir)/src/wisp \
$(top_srcdir)/tools/worth $<
+
+check: cupid # attempt translation
+ ./$< > /dev/null # attempt running
+ test `./$< | wc -l` -eq 4 # test the run
|
|
From: <di...@us...> - 2002-08-31 14:29:25
|
Update of /cvsroot/wisp/wisp/modules/cpu
In directory usw-pr-cvs1:/tmp/cvs-serv4879/modules/cpu
Modified Files:
ia32.wim
Log Message:
Implemented the beginnings of Worth's delay-optimization.
Index: ia32.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/cpu/ia32.wim,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- ia32.wim 26 Aug 2002 16:18:19 -0000 1.24
+++ ia32.wim 31 Aug 2002 14:29:22 -0000 1.25
@@ -640,6 +640,16 @@
; Data movement
(mov 8086+?
((rm8 cc) #o017 (byte+ '#o220 1) (modrm 0 '0)) ; SETxx
+ ; FIXME: this should be done with fewer rules
+ ((%eax cc) (mov '%al 1) (zex '%eax '%al))
+ ((%ebx cc) (mov '%bl 1) (zex '%ebx '%bl))
+ ((%ecx cc) (mov '%cl 1) (zex '%ecx '%bl))
+ ((%edx cc) (mov '%dl 1) (zex '%edx '%bl))
+ ((%ax cc) (mov '%al 1) (zex '%ax '%al))
+ ((%bx cc) (mov '%bl 1) (zex '%bx '%bl))
+ ((%cx cc) (mov '%cl 1) (zex '%cx '%bl))
+ ((%dx cc) (mov '%dl 1) (zex '%dx '%bl))
+
((rm* = reg*) (osize++lit 0 #o210) (modrm 0 1))
((reg* = rm*) (osize++lit 0 #o212) (modrm 1 0))
((reg8 imm) (byte+ '#o260 0) (byte 1))
@@ -956,10 +966,10 @@
(lambda (item)
(cond
((integer? item)
- (list-ref operands item))
+ (list-ref operands item))
((and (cons? item)
(eq? (car item) 'quote))
- (second item))
+ (second item))
(else
(raise 'huh? item))))
(cdr clause)))
|
|
From: <di...@us...> - 2002-08-31 14:29:25
|
Update of /cvsroot/wisp/wisp/tools
In directory usw-pr-cvs1:/tmp/cvs-serv4879/tools
Modified Files:
worth
Log Message:
Implemented the beginnings of Worth's delay-optimization.
Index: worth
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/worth,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- worth 26 Aug 2002 16:18:24 -0000 1.20
+++ worth 31 Aug 2002 14:29:22 -0000 1.21
@@ -15,7 +15,9 @@
(gimme syscalls)
-(define builtin-words '(if else then begin until))
+(define builtin-words
+ '(< <= <> = > >= begin else if then u< u<= u> u>= until))
+
(define macro-box (make-box '()))
(define def-box (make-box #f))
(define known-procedure-box (make-box '()))
@@ -152,30 +154,41 @@
(emit `(mov ,new ,old))
(set! (cdr (assq new regref#)) (cdr (assq old regref#)))
(set! (cdr (assq old regref#)) 0)
- (set! regstack
- (map (lambda (object)
- (if (eq? object old)
- new
- object))
- regstack)))
- ((free-register reg)
+ (let (loop (tree regstack))
+ (if (cons? tree)
+ (begin
+ (if (eq? (car tree) old)
+ (set! (car tree) new)
+ (loop (car tree)))
+ (if (eq? (cdr tree) old)
+ (set! (cdr tree) new)
+ (loop (cdr tree)))))))
+ ((get-regref reg)
(my c (assq reg regref#)
(if (not c)
(raise 'cpu-register? reg))
- (if (zero? (cdr c))
- reg
- (and (pick-register) -> subst
- (begin
- (reassign subst reg)
- reg)))))
+ c))
+ ((free-register reg) ; reg specifies the register to be freed
+ ; Returns the register or #f in case of failure
+ (if (zero? (cdr (get-regref reg)))
+ reg
+ (and (pick-register) -> subst
+ (begin
+ (reassign subst reg)
+ reg))))
((pick-register (reg #f))
+ ; reg may be either #f (meaning 'any register will
+ ; do'), a register, or a list of registers.
+ ; Returns the chosen register or #f in case of failure
(cond
((not reg)
(and (rassv 0 regref#) -> c
(begin
(incr! (cdr c))
(car c))))
- ((assq reg regref#)
+ ((cons? reg)
+ (any pick-register reg))
+ ((get-regref reg)
=> (lambda (c)
(if (zero? (cdr c))
(begin
@@ -184,15 +197,19 @@
(and (free-register reg)
(begin
(incr! (cdr c))
- reg)))))
- (else
- (raise 'cpu-register? reg))))
+ reg)))))))
+ ; In |use--| and |use++|, we intentionally ignore
+ ; those items that aren't registers.
((use-- reg)
- (and (assq reg regref#) -> c
- (decr! (cdr c))))
+ (if (cons? reg)
+ (for-each use-- reg)
+ (and (assq reg regref#) -> c
+ (decr! (cdr c)))))
((use++ reg)
- (and (assq reg regref#) -> c
- (incr! (cdr c))))
+ (if (cons? reg)
+ (for-each use++ reg)
+ (and (assq reg regref#) -> c
+ (incr! (cdr c)))))
((enstack) ; error if regstack is empty
(my rrs (reverse regstack)
(my item (car rrs)
@@ -206,7 +223,7 @@
(emit `(push ,item))
(use-- item))
(reverse regstack))
- (set! regstack '()))
+ (set! regstack '()))
((stack>=! c)
(while (< (length regstack) c)
(my r (pick-register)
@@ -222,16 +239,48 @@
(stack<=! c)
(stack>=! c))
((->register i (reg #f))
- (if reg (type cpu-register reg))
- (stack>=! i)
+ ; reg may be either #f (meaning 'any register will
+ ; do'), a register, or a list of registers.
+ ; Returns the chosen register or #f in case of failure
(stack>=! (+ i 1))
(let (loop)
(my object (list-ref regstack i)
+ (if (cons? object) ; need reducing?
+ (my sl (length regstack) ; for checking
+ (case (car object) operator
+ ((= <> < <= > >= u< u<= u> u>=)
+ (my word (cdr (assq operator
+ '((= . \=?v)
+ (<> . \<>?v)
+ (< . \<?v)
+ (<= . \<=?v)
+ (> . \>?v)
+ (>= . \>=?v)
+ (u< . \u<?v)
+ (u<= . \u<=?v)
+ (u> . \u>?v)
+ (u>= . \u>=?v))))
+ (my (a b) (cdr object)
+ (cons! regstack a)
+ (use++ a)
+ (cons! regstack b)
+ (use++ b)
+ (process-word word #t)
+ (if (/= (length regstack) (+ sl 1))
+ (raise 'improper word))
+ (use-- object)
+ (set! object (car regstack))
+ (cdr! regstack)
+ (set! (list-ref regstack i) object)
+ (if (cons? object)
+ (raise 'improper word))))))))
(cond
; has the desired situation been achieved already?
((and (cpu-register? object)
(or (not reg)
- (eq? object reg))))
+ (if (cons? reg)
+ (memq object reg)
+ (eq? object reg)))))
; can we just allocate a suitable register?
((pick-register reg)
=> (lambda (r)
@@ -244,6 +293,10 @@
(reassign r reg)
(loop)))
((> (length regstack (+ i 1)))
+ (if (cons? (last regstack))
+ ; We've run out of registers and the bottom
+ ; register is an expression. This is bad.
+ (raise 'deadlock regstack))
(enstack) ; push one item to the machine stack
(loop)) ; and try again
(else
@@ -287,6 +340,14 @@
(add-string name word)
(cons! regstack name)
(cons! regstack (string-length word))))
+ ((= <> < <= > >= u< u<= u> u>=)
+ ; make an expression
+ (stack>=! 2)
+ (my b (car regstack)
+ (cdr! regstack)
+ (my a (car regstack)
+ (cdr! regstack)
+ (cons! regstack (list word a b)))))
((if) (stack=! 1)
(->register 0)
(my l (gen-label)
@@ -352,20 +413,19 @@
((flush) (if (not (null? (cdr word)))
(raise 'worth-word? word))
(flush))
- ((register) (cond
- ((or (null? (cdr word))
- (null? (cddr word)))
- (let (loop)
- (my r (pick-register
- (and (cons? (cdr word))
- (cadr word)))
- (if r
- (cons! regstack r)
- (begin
- (enstack)
- (loop))))))
- (else
- (raise 'worth-word? word))))
+ ((register) (let (loop)
+ (my r (pick-register
+ (and (cons? (cdr word))
+ (cdr word)))
+ (if r
+ (cons! regstack r)
+ (begin
+ (if (cons? (last regstack))
+ ; We've run out of registers and the bottom
+ ; register is an expression. This is bad.
+ (raise 'deadlock regstack))
+ (enstack)
+ (loop))))))
((copy) (if (not (and (cons? (cdr word))
(null? (cddr word))))
(raise 'worth-word? word))
@@ -375,9 +435,10 @@
(raise 'worth-word? word))
(delete (second word)))
((->reg) (case (length word)
+ ((1) (raise 'worth-word? word))
((2) (->register (second word)))
((3) (->register (second word)
- (third word)))
+ (cddr word)))
(else (raise 'worth-word? word))))
((->ureg) (if (not (and (cons? (cdr word))
(null? (cddr word))))
|
|
From: <di...@us...> - 2002-08-31 14:29:25
|
Update of /cvsroot/wisp/wisp/src/native In directory usw-pr-cvs1:/tmp/cvs-serv4879/src/native Modified Files: boxes.s cons.s Log Message: Implemented the beginnings of Worth's delay-optimization. Index: boxes.s =================================================================== RCS file: /cvsroot/wisp/wisp/src/native/boxes.s,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- boxes.s 26 Aug 2002 16:18:24 -0000 1.3 +++ boxes.s 31 Aug 2002 14:29:22 -0000 1.4 @@ -1,7 +1,7 @@ .section .text .align 16 N_box_empty_huh: -.byte 144,131,249,1,15,148,192,246,216,15,190,192,137,195,131,251,0,15,148,192,246,216,15,190,192,81,133,192,15,132,8,0,0,0,88,137,193,233 +.byte 144,131,249,1,15,148,192,15,182,192,247,216,137,195,131,251,0,15,148,192,15,182,192,247,216,81,133,192,15,132,8,0,0,0,88,137,193,233 .long N_signal_argcount - (.+4) .byte 88,88,104 .long N_box_empty_huh.L1 @@ -9,7 +9,7 @@ .long RT_box .byte 187,1,0,0,0,233 .long slot_accessor_body - (.+4) -.byte 137,195,131,251,35,15,148,192,246,216,15,190,192,133,192,15,132,7,0,0,0,106,11,233,2,0,0,0,106,19,88,195 +.byte 137,195,131,251,35,15,148,192,15,182,192,247,216,133,192,15,132,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 .equiv NN_box_empty_huh, N_box_empty_huh + 1 .equiv .L0, N_box_empty_huh + 42 @@ -19,7 +19,7 @@ .section .text .align 16 N_box_empty: -.byte 144,131,249,1,15,148,192,246,216,15,190,192,137,195,131,251,0,15,148,192,246,216,15,190,192,81,133,192,15,132,8,0,0,0,88,137,193,233 +.byte 144,131,249,1,15,148,192,15,182,192,247,216,137,195,131,251,0,15,148,192,15,182,192,247,216,81,133,192,15,132,8,0,0,0,88,137,193,233 .long N_signal_argcount - (.+4) .byte 88,106,35,185,254,255,255,255,233 .long N_box_ref - (.+4) @@ -29,7 +29,7 @@ .section .text .align 16 N_box_ref: -.byte 144,131,249,1,15,148,192,246,216,15,190,192,81,133,192,15,132,10,0,0,0,88,91,83,104 +.byte 144,131,249,1,15,148,192,15,182,192,247,216,81,133,192,15,132,10,0,0,0,88,91,83,104 .long box_ref.final .byte 83,80,88,137,193,186 .long RT_box @@ -41,7 +41,7 @@ .section .text .align 16 box_ref.final: -.byte 137,195,131,251,35,15,148,192,246,216,15,190,192,83,133,192,15,132,13,0,0,0,88,88,104 +.byte 137,195,131,251,35,15,148,192,15,182,192,247,216,83,133,192,15,132,13,0,0,0,88,88,104 .long WB_undefined .byte 80,233 .long raise$2 - (.+4) @@ -51,7 +51,7 @@ .section .text .align 16 N_make_box: -.byte 144,131,249,0,15,148,192,246,216,15,190,192,81,133,192,15,132,5,0,0,0,88,64,106,35,80,88,137,193,186 +.byte 144,131,249,0,15,148,192,15,182,192,247,216,81,133,192,15,132,5,0,0,0,88,64,106,35,80,88,137,193,186 .long RT_box .byte 233 .long record_constructor_body - (.+4) Index: cons.s =================================================================== RCS file: /cvsroot/wisp/wisp/src/native/cons.s,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- cons.s 26 Aug 2002 15:59:43 -0000 1.1 +++ cons.s 31 Aug 2002 14:29:22 -0000 1.2 @@ -1,9 +1,9 @@ .section .text .align 16 N_cons_huh: -.byte 144,131,249,1,15,148,192,246,216,15,190,192,137,195,131,251,0,15,148,192,246,216,15,190,192,81,133,192,15,132,8,0,0,0,88,137,193,233 +.byte 144,131,249,1,15,148,192,15,182,192,247,216,137,195,131,251,0,15,148,192,15,182,192,247,216,81,133,192,15,132,8,0,0,0,88,137,193,233 .long N_signal_argcount - (.+4) -.byte 88,88,53,2,0,0,0,37,7,0,0,0,137,195,131,251,0,15,148,192,246,216,15,190,192,133,192,15,132,7,0,0,0,106,11,233,2,0,0,0,106,19,88,195 +.byte 88,88,53,2,0,0,0,37,7,0,0,0,137,195,131,251,0,15,148,192,15,182,192,247,216,133,192,15,132,7,0,0,0,106,11,233,2,0,0,0,106,19,88,195 .global N_cons_huh,NN_cons_huh .equiv NN_cons_huh, N_cons_huh + 1 .equiv .L0, N_cons_huh + 42 @@ -12,7 +12,7 @@ .section .text .align 16 N_cons: -.byte 144,131,249,2,15,148,192,246,216,15,190,192,137,195,131,251,0,15,148,192,246,216,15,190,192,81,133,192,15,132,8,0,0,0,88,137,193,233 +.byte 144,131,249,2,15,148,192,15,182,192,247,216,137,195,131,251,0,15,148,192,15,182,192,247,216,81,133,192,15,132,8,0,0,0,88,137,193,233 .long N_signal_argcount - (.+4) .byte 88,106,8,232 .long GC_malloc - (.+4) |
|
From: <di...@us...> - 2002-08-31 14:29:25
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv4879/modules
Modified Files:
universal.wrti
Log Message:
Implemented the beginnings of Worth's delay-optimization.
Index: universal.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/universal.wrti,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- universal.wrti 8 Aug 2002 17:12:36 -0000 1.10
+++ universal.wrti 31 Aug 2002 14:29:22 -0000 1.11
@@ -85,6 +85,210 @@
(stack<=! 1)
jump)
+ ;; Conditional branch hooks
+ ;; In the future, the translator may generate virtual references to
+ ;; these macros. The stack layout will be ( arg ... jump-target ).
+ ;; Note that this code *must not* change stack depth; in the
+ ;; future-futue, it might get checked.
+
+ (macro \=?j
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(jmp %?e ,0))
+
+ (macro \<>?j
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(jmp %?-e ,0))
+
+ (macro \<?j
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(jmp %?l ,0))
+
+ (macro \<=?j
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(jmp %?le ,0))
+
+ (macro \>?j
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(jmp %?g ,0))
+
+ (macro \>=?j
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(jmp %?ge ,0))
+
+ (macro \u<?j
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(jmp %?b ,0))
+
+ (macro \u<=?j
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(jmp %?be ,0))
+
+ (macro \u>?j
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(jmp %?a ,0))
+
+ (macro \u>=?j
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(jmp %?ae ,0))
+
+ ; The following ones are optional
+
+ (macro \0=?j
+ (->reg 1)
+ ,(test ,1 ,1)
+ ,(jmp %?z ,0))
+
+ (macro \0<>?j
+ (->reg 1)
+ ,(test ,1 ,1)
+ ,(jmp %?-z ,0))
+
+ (macro \0<?j
+ (->reg 1)
+ ,(test ,1 ,1)
+ ,(jmp %?l))
+
+ (macro \0<=?j
+ (->reg 1)
+ ,(test ,1 ,1)
+ ,(jmp %?le))
+
+ (macro \0>?j
+ (->reg 1)
+ ,(test ,1 ,1)
+ ,(jmp %?g))
+
+ (macro \0>=?j
+ (->reg 1)
+ ,(test ,1 ,1)
+ ,(jmp %?ge))
+
+ ;; Conditional value hooks. Stack: ( arg ... -- value ).
+
+ (macro \=?v
+ (register %eax %ebx %ecx %edx)
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(mov ,0 %?e) ,(neg ,0)
+ nip nip)
+
+ (macro \<>?v
+ (register %eax %ebx %ecx %edx)
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(mov ,0 %?-e) ,(neg ,0)
+ nip nip)
+
+ (macro \<?v
+ (register %eax %ebx %ecx %edx)
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(mov ,0 %?l) ,(neg ,0)
+ nip nip)
+
+ (macro \<=?v
+ (register %eax %ebx %ecx %edx)
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(mov ,0 %?le) ,(neg ,0)
+ nip nip)
+
+ (macro \>?v
+ (register %eax %ebx %ecx %edx)
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(mov ,0 %?g) ,(neg ,0)
+ nip nip)
+
+ (macro \>=?v
+ (register %eax %ebx %ecx %edx)
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(mov ,0 %?ge) ,(neg ,0)
+ nip nip)
+
+ (macro \u<?v
+ (register %eax %ebx %ecx %edx)
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(mov ,0 %?b) ,(neg ,0)
+ nip nip)
+
+ (macro \u<=?v
+ (register %eax %ebx %ecx %edx)
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(mov ,0 %?be) ,(neg ,0)
+ nip nip)
+
+ (macro \u>?v
+ (register %eax %ebx %ecx %edx)
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(mov ,0 %?a) ,(neg ,0)
+ nip nip)
+
+ (macro \u>=?v
+ (register %eax %ebx %ecx %edx)
+ (->reg 2)
+ ,(cmp ,2 ,1)
+ ,(mov ,0 %?ae) ,(neg ,0)
+ nip nip)
+
+ ; The following ones are optional
+
+ (macro \0=?v
+ (register %eax %ebx %ecx %edx)
+ (->reg 1)
+ ,(test ,1 ,1)
+ ,(mov ,0 %?z) ,(neg ,0)
+ nip)
+
+ (macro \0<>?v
+ (register %eax %ebx %ecx %edx)
+ (->reg 1)
+ ,(test ,1 ,1)
+ ,(mov ,0 %?-z) ,(neg ,0)
+ nip)
+
+ (macro \0<?v
+ (register %eax %ebx %ecx %edx)
+ (->reg 1)
+ ,(test ,1 ,1)
+ ,(mov ,0 %?l) ,(neg ,0)
+ nip)
+
+ (macro \0<=?v
+ (register %eax %ebx %ecx %edx)
+ (->reg 1)
+ ,(test ,1 ,1)
+ ,(mov ,0 %?le) ,(neg ,0)
+ nip)
+
+ (macro \0>?v
+ (register %eax %ebx %ecx %edx)
+ (->reg 1)
+ ,(test ,1 ,1)
+ ,(mov ,0 %?a) ,(neg ,0)
+ nip)
+
+ (macro \0>=?v
+ (register %eax %ebx %ecx %edx)
+ (->reg 1)
+ ,(test ,1 ,1)
+ ,(mov ,0 %?ae) ,(neg ,0)
+ nip)
+
;; Arithmetics
(macro +
(binary +
@@ -252,76 +456,6 @@
,(bsr ,0 ,0))
;; Comparison
- (macro =
- (->reg 1)
- (register %eax)
- ,(cmp ,2 ,1)
- ,(mov %al %?e) ,(neg %al) ,(sex %eax %al)
- -rot drop drop)
-
- (macro <>
- (->reg 1)
- (register %eax)
- ,(cmp ,2 ,1)
- ,(mov %al %?-e) ,(neg %al) ,(sex %eax %al)
- -rot drop drop)
-
- (macro <
- (->reg 1)
- (register %eax)
- ,(cmp ,2 ,1)
- ,(mov %al %?l) ,(neg %al) ,(sex %eax %al)
- -rot drop drop)
-
- (macro >
- (->reg 1)
- (register %eax)
- ,(cmp ,2 ,1)
- ,(mov %al %?g) ,(neg %al) ,(sex %eax %al)
- -rot drop drop)
-
- (macro <=
- (->reg 1)
- (register %eax)
- ,(cmp ,2 ,1)
- ,(mov %al %?le) ,(neg %al) ,(sex %eax %al)
- -rot drop drop)
-
- (macro >=
- (->reg 1)
- (register %eax)
- ,(cmp ,2 ,1)
- ,(mov %al %?ge) ,(neg %al) ,(sex %eax %al)
- -rot drop drop)
-
- (macro u<
- (->reg 1)
- (register %eax)
- ,(cmp ,2 ,1)
- ,(mov %al %?b) ,(neg %al) ,(sex %eax %al)
- -rot drop drop)
-
- (macro u>
- (->reg 1)
- (register %eax)
- ,(cmp ,2 ,1)
- ,(mov %al %?a) ,(neg %al) ,(sex %eax %al)
- -rot drop drop)
-
- (macro u<=
- (->reg 1)
- (register %eax)
- ,(cmp ,2 ,1)
- ,(mov %al %?be) ,(neg %al) ,(sex %eax %al)
- -rot drop drop)
-
- (macro u>=
- (->reg 1)
- (register %eax)
- ,(cmp ,2 ,1)
- ,(mov %al %?ae) ,(neg %al) ,(sex %eax %al)
- -rot drop drop)
-
(macro within
-rot over <= -rot > and)
|
|
From: <di...@us...> - 2002-08-31 14:29:24
|
Update of /cvsroot/wisp/wisp/doc/examples In directory usw-pr-cvs1:/tmp/cvs-serv4879/doc/examples Modified Files: angry.wth banana.wth false.wth Log Message: Implemented the beginnings of Worth's delay-optimization. Index: angry.wth =================================================================== RCS file: /cvsroot/wisp/wisp/doc/examples/angry.wth,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- angry.wth 22 Jul 2002 14:53:06 -0000 1.3 +++ angry.wth 31 Aug 2002 14:29:22 -0000 1.4 @@ -9,13 +9,13 @@ (include io) (include linux) -(: _start - #\0 - begin - dup emit - 1 + - dup #\9 > until - cr - 0 sys:exit) +(defun _start + #\0 + begin + dup emit + 1 + + dup #\9 > until + cr + 0 sys.exit) -; vim: ft=wisp +; vim: ft=worth Index: banana.wth =================================================================== RCS file: /cvsroot/wisp/wisp/doc/examples/banana.wth,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- banana.wth 22 Jul 2002 14:53:06 -0000 1.3 +++ banana.wth 31 Aug 2002 14:29:22 -0000 1.4 @@ -9,10 +9,10 @@ (include io) (include linux) -(: _start - "ba" type - 3 begin "na" type 1- dup 0 = until - cr - 0 sys:exit) +(defun _start + "ba" type + 3 begin "na" type 1- dup 0 = until + cr + 0 sys.exit) -; vim: ft=wisp +; vim: ft=worth Index: false.wth =================================================================== RCS file: /cvsroot/wisp/wisp/doc/examples/false.wth,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- false.wth 22 Jul 2002 14:53:06 -0000 1.3 +++ false.wth 31 Aug 2002 14:29:22 -0000 1.4 @@ -8,6 +8,7 @@ (include linux) -(: _start 1 sys:exit) +(defun _start + 1 sys.exit) -; vim:ft=wisp +; vim: ft=worth |
|
From: <di...@us...> - 2002-08-31 14:29:24
|
Update of /cvsroot/wisp/wisp/doc In directory usw-pr-cvs1:/tmp/cvs-serv4879/doc Modified Files: worth.vim Log Message: Implemented the beginnings of Worth's delay-optimization. Index: worth.vim =================================================================== RCS file: /cvsroot/wisp/wisp/doc/worth.vim,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- worth.vim 8 Aug 2002 17:16:29 -0000 1.4 +++ worth.vim 31 Aug 2002 14:29:21 -0000 1.5 @@ -38,8 +38,9 @@ syn keyword worthRegister %dh %di %dl %ds %dx %eax %ebp %ebx %ecx %edi syn keyword worthRegister %edx %es %esi %esp %fs %gs %si %sp %ss -syn keyword worthFlag %?-a %?-b %?-c %?-e %?-g %?-l %?-z %?a %?b %?c -syn keyword worthFlag %?e %?g %?l %?z +syn keyword worthFlag %?-a %?-ae %?-b %?-be %?-c %?-e %?-g %?-ge %?-l +syn keyword worthFlag %?-le %?-z %?a %?ae %?b %?be %?c %?e %?g %?ge %?l +syn keyword worthFlag %?le %?z hi link worthPreproc Preproc hi link worthRegister Constant |
|
From: <di...@us...> - 2002-08-31 14:29:14
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv4857/modules
Modified Files:
wisptyp.wrti
Log Message:
Defined the NC_* Worth macros in wisptyp.wrti .
Index: wisptyp.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/wisptyp.wrti,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- wisptyp.wrti 26 Aug 2002 16:18:19 -0000 1.6
+++ wisptyp.wrti 31 Aug 2002 14:29:11 -0000 1.7
@@ -74,6 +74,17 @@
(macro untag-fixnum
3 arshift)
+ ;; Type tags
+
+ (macro NC_INTEGER 0)
+ (macro NC_RATIONAL 1)
+ (macro NC_EVMFUNC 3)
+ (macro NC_DICT 5)
+ (macro NC_SYMBOL 6)
+ (macro NC_VECTOR 8)
+ (macro NC_C8STRING 9)
+ (macro NC_INSTANCE 10)
+
;; Booleans
(macro ->wisp-bool
|
|
From: <di...@us...> - 2002-08-31 14:29:08
|
Update of /cvsroot/wisp/wisp/src/native
In directory usw-pr-cvs1:/tmp/cvs-serv4805/src/native
Modified Files:
strings.nasm
Log Message:
Made |c8string-length| not work in setter context.
Index: strings.nasm
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/strings.nasm,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -d -r1.49 -r1.50
--- strings.nasm 26 Aug 2002 16:18:24 -0000 1.49
+++ strings.nasm 31 Aug 2002 14:29:05 -0000 1.50
@@ -196,40 +196,11 @@
; }}}
; {{{ |c8string-length|
-native c8string_length, any
- cmp ecx, byte -2
- jz c8string_length$s2
- cmp ecx, 1
- jnz near N_signal_argcount
-global c8string_length$1
-c8string_length$1:
+native c8string_length, 1
pop eax
req_c8string eax
mov eax, c8string#length(eax)
encui eax
- ret
-global c8string_length$2
-c8string_length$s2:
- mov eax, [esp]
- decui eax
- mov [esp], eax
- mov ecx, eax
- mov eax, [esp + 4]
- req_c8string eax
- push dword c8string#length(eax)
- ; stack: string new-length old-length
- gcall realloc$2, c8string#body(eax), ecx
- pop ebx ; old-length
- pop ecx ; new-length
- pop edx ; string
- mov c8string#body(edx), eax
- mov c8string#length(edx), ecx
- sub ecx, ebx
- if nc ; new-length > old-length ?
- add eax, ebx
- gcall memset$3, eax, CHAR(0), ecx
- endif
- mov eax, VOID
ret
; }}}
|
|
From: <di...@us...> - 2002-08-31 14:29:08
|
Update of /cvsroot/wisp/wisp/modules In directory usw-pr-cvs1:/tmp/cvs-serv4805/modules Modified Files: builtin.wid Log Message: Made |c8string-length| not work in setter context. Index: builtin.wid =================================================================== RCS file: /cvsroot/wisp/wisp/modules/builtin.wid,v retrieving revision 1.168 retrieving revision 1.169 diff -u -d -r1.168 -r1.169 --- builtin.wid 26 Aug 2002 16:18:17 -0000 1.168 +++ builtin.wid 31 Aug 2002 14:29:05 -0000 1.169 @@ -2710,11 +2710,9 @@ string-length - (|string-length| /string/) <=> /cardinal/ + (|string-length| /string/) => /cardinal/ - Accesses the length of /string/. If length of /string/ is changed, adds - or deletes some characters from its right end. The added characters are - unspecified. + Returns the length of /string/. string-null? |
|
From: <di...@us...> - 2002-08-31 14:28:58
|
Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv4543/modules
Modified Files:
Makefile.am files.wim xml.wim
Removed Files:
strings-as-stacks.wim
Log Message:
Dropped the strings-as-stacks module and |cut-place| special form.
Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/Makefile.am,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -d -r1.54 -r1.55
--- Makefile.am 26 Aug 2002 15:54:16 -0000 1.54
+++ Makefile.am 31 Aug 2002 14:28:26 -0000 1.55
@@ -24,9 +24,8 @@
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-as-stacks.wim \
- strings.wim tester.wim time.wim unicode.wim unix.wim url.wim \
- xml.wim wispdoc.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: files.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/files.wim,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -d -r1.39 -r1.40
--- files.wim 26 Aug 2002 16:18:18 -0000 1.39
+++ files.wim 31 Aug 2002 14:28:26 -0000 1.40
@@ -8,7 +8,7 @@
(module files)
-(use strings strings-as-stacks)
+(use strings)
; {{{ exports
(export
Index: xml.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/xml.wim,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- xml.wim 26 Aug 2002 16:18:19 -0000 1.33
+++ xml.wim 31 Aug 2002 14:28:26 -0000 1.34
@@ -10,7 +10,7 @@
(module xml)
-(use strings-as-stacks)
+(use strings)
(export
for-all-xml-children output-xml-message parse-xml-message)
@@ -20,7 +20,9 @@
;; FIXME: check what happens in case of unexpected EOF's.
(define (eat-up-whitespace port)
- (while (char-whitespace? (peek-char port))
+ (while (my c (peek-char port)
+ (and (not (eof-object? c))
+ (char-whitespace? c)))
(read-char port)))
(define (char-xml-symbolic? ch)
@@ -145,38 +147,36 @@
(collect
(lambda (emit)
(for-each emit items)
- (let ((s (string))
+ (let ((s '()) ; reversed
(done? #f))
(while (not done?)
(case (peek-char port) c
((#\&)
(read-char port)
- (string-push! s (parse-xml-amp port)))
+ (cons! s (parse-xml-amp port)))
((#\<)
- (my l (string-length s)
- (while (and (not (zero? l))
- (char-whitespace? s[-1]))
- (string-pop! s)
- (decr! l)))
+ (while (and (not (null? s))
+ (char-whitespace? (car s)))
+ (cdr! s))
(my t (parse-xml-tag port)
(if (symbol? t)
(if (eq? t head)
(set! done? #t)
(raise 'invalid-xml:mismatch port))
(begin
- (if (not (zero? (string-length s)))
+ (if (not (null? s))
(begin
- (emit s)
- (set! s (string))))
+ (emit (list->string (reverse s)))
+ (set! s '())))
(emit (parse-xml-element port t)))))
(eat-up-whitespace port))
((#\return)
(read-char port)) ; ignore
(else
(read-char port)
- (string-push! s c))))
- (if (not (string-null? s))
- (emit s))))))))))
+ (cons! s c))))
+ (if (not (null? s))
+ (emit (list->string (reverse s))))))))))))
(define (parse-xml-message (port *stdin*))
(parse-xml-element port))
--- strings-as-stacks.wim DELETED ---
|
