[Wisp-cvs] wisp/src essence.c,1.223,1.224 wordlist.txt,1.585,1.586

[<di...@us...>]

Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv2384/src

Modified Files:
	essence.c wordlist.txt 
Log Message:
Created the beginnings of port wrapping.

Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.223
retrieving revision 1.224
diff -u -d -r1.223 -r1.224
--- essence.c	18 Sep 2002 21:16:38 -0000	1.223
+++ essence.c	18 Sep 2002 21:17:47 -0000	1.224
@@ -331,7 +331,9 @@
     NN_pr_get_argument_list,
     NN_pr_get_environment,
     NN_pr_make_record_type,
+    NN_pr_record_type_aux_slot,
     NN_pr_record_type_close_port_slot,
+    NN_pr_record_type_confess_slot,
     NN_pr_record_type_length_slot,
     NN_pr_record_type_new_slot,
     NN_pr_record_type_read_char_slot,
@@ -442,634 +444,654 @@
 void*Y0[]={binc,&branch_EVM_invargc,mca,subc,V 1,binzc,&branch_EVM_invargca,dig,V 0,q,mha,l,V 1,l,V 79,tc,V 1,c,jinf,V 16,qi,W(cons_huh),dig,V 1,q,mha,l,V 1,l,V 110,tc,V 2,c,ds,V 1,r,dig,V 0,ds,V 1,r};
[...1602 lines suppressed...]
 
 struct cons conses [] = {
@@ -2110,13 +2152,13 @@
 [327]{car:CH('C'),cdr:BC 326},
 [328]{car:CH('A'),cdr:BC 327},
 [329]{car:CH('e'),cdr:BC 328},
-[330]{car:B 700,cdr:Q},
-[331]{car:B 699,cdr:BC 330},
-[332]{car:B 701,cdr:Q},
+[330]{car:B 720,cdr:Q},
+[331]{car:B 719,cdr:BC 330},
+[332]{car:B 721,cdr:Q},
 };
 
 /* The root node of the compiled builtin library */
 struct node *
-builtin_root = B 703;
+builtin_root = B 723;
 
 /* essence.c ends here */

Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.585
retrieving revision 1.586
diff -u -d -r1.585 -r1.586
--- wordlist.txt	18 Sep 2002 21:16:49 -0000	1.585
+++ wordlist.txt	18 Sep 2002 21:18:04 -0000	1.586
@@ -6,56 +6,57 @@
 #
 #### @(#) $Id$
 
-! $ $? %close-input-port %close-output-port %close-port %fd->port
-%file-descriptor %get-module %read-char * *arglist* *asm-lock* *ctx
-*source-dictionary* *system-path* *user-dictionary* + - -> -A ... .l /
-/= := :=? < <...> << <= <> <box> <c16string> <class> <file> <fluid>
-<macro> <old-file> <old-port> <port> <record-type> <u8vector> <vector>
-= => > >= >> ? B0 B1000000 B110 B115200 B1152000 B1200 B134 B150
-B1500000 B1800 B19200 B200 B2000000 B230400 B2400 B2500000 B300
-B3000000 B3500000 B38400 B4000000 B460800 B4800 B50 B500000 B57600
-B576000 B600 B75 B921600 B9600 BRKINT BS0 BS1 CALL CBAUDEX CLOCAL CR0
-CR1 CR2 CR3 CREAD CS5 CS6 CS7 CS8 CSTOPB DEFINE E2BIG EACCES EADDRINUSE
-EADDRNOTAVAIL EADV EAFNOSUPPORT EAGAIN EALREADY EBADE EBADF EBADFD
-EBADMSG EBADR EBADRQC EBADSLT EBFONT EBUSY ECHILD ECHO ECHOCTL ECHOE
-ECHOK ECHOKE ECHONL ECHOPRT ECHRNG ECOMM ECONNABORTED ECONNREFUSED
-ECONNRESET EDEADLK EDESTADDRREQ EDOM EDOTDOT EDQUOT EEXIST EFAULT EFBIG
-EHOSTDOWN EHOSTUNREACH EIDRM EILSEQ EINPROGRESS EINTR EINVAL EIO
-EISCONN EISDIR EISNAM EL2HLT EL2NSYNC EL3HLT EL3RST ELIBACC ELIBBAD
-ELIBEXEC ELIBMAX ELIBSCN ELNRNG ELOOP EMEDIUMTYPE EMFILE EMLINK
-EMSGSIZE EMULTIHOP ENAMETOOLONG ENAVAIL ENETDOWN ENETRESET ENETUNREACH
-ENFILE ENOANO ENOBUFS ENOCSI ENODATA ENODEV ENOENT ENOEXEC ENOLCK
-ENOLINK ENOMEDIUM ENOMEM ENOMSG ENONET ENOPKG ENOPROTOOPT ENOSPC ENOSR
-ENOSTR ENOSYS ENOTBLK ENOTCONN ENOTDIR ENOTEMPTY ENOTNAM ENOTSOCK
-ENOTTY ENOTUNIQ ENXIO EOF-INSIDE-LIST EOF-INSIDE-STRING EOPNOTSUPP
-EOVERFLOW EPERM EPFNOSUPPORT EPIPE EPROTO EPROTONOSUPPORT EPROTOTYPE
-ERANGE EREMCHG EREMOTE EREMOTEIO ERESTART EROFS ESHUTDOWN
-ESOCKTNOSUPPORT ESPIPE ESRCH ESRMNT ESTALE ESTRPIPE ETIME ETIMEDOUT
-ETOOMANYREFS ETXTBSY EUCLEAN EUNATCH EUSERS EXDEV EXFULL FD_CLOEXEC FF0
-FF1 FLUSHO F_DUPFD F_GETFD F_GETFL F_GETLK F_GETLK64 F_GETOWN F_GETSIG
-F_RDLCK F_SETFD F_SETFL F_SETLK F_SETLK64 F_SETLKW F_SETLKW64 F_SETOWN
-F_SETSIG F_UNLCK F_WRLCK GLOBAL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR
-IGNPAR IMAXBEL INLCR INPCK ISIG ISTRIP IUCLC IXANY IXOFF IXON LOCK_EX
-LOCK_MAND LOCK_NB LOCK_READ LOCK_RW LOCK_SH LOCK_UN LOCK_WRITE Linux
-NCCS NL0 NL1 NOFLSH OCRNL OFDEL OFILL OLCUC ONLCR ONLRET ONOCR OPOST OR
-O_APPEND O_ASYNC O_CREAT O_DIRECT O_DIRECTORY O_EXCL O_FSYNC O_NDELAY
-O_NOCTTY O_NOFOLLOW O_NONBLOCK O_RDONLY O_RDWR O_SYNC O_TRUNC O_WRONLY
-PARENB PARMRK PARODD PARSED PENDIN SEEK_CUR SEEK_END SEEK_SET T TAB0
-TAB1 TAB2 TAB3 TOSTOP UNTERMINATED-CHAR-CODE UNTERMINATED-STRING VCALL
-VDISCARD VEOF VEOL VEOL2 VERASE VINTR VKILL VLNEXT VMIN VQUIT VREPRINT
-VSTART VSTOP VSUSP VSWTC VT0 VT1 VTIME VWERASE WITHIN XCASE \16 \8 \c16
-\c16string \c8 \c8string \char16 \char8 abs absolute acons! addat
-address-of alist->dict alist-copy analyse and append append-reverse
-apply argcount args asm assemble assert assert-object-type
-assertion-failed assoc assq assume-constant-globals assv atime atom? b
-backspace bad-stacked-var bar begin bell big-integer big-integer?
-binary-equal? binary-logical-xor binary-vector-contents-equal? binc
-bind binnc binzc bit? blksize blockdev blocks boolean boolean?
-box-empty! box-empty? box-ref box? broketed? buffer builtin-modules
-bury c c16 c16string c16string? c8 c8string c8string? caaaar caaadr
-caaar caadar caaddr caadr caar cadaar cadadr cadar caddar cadddr caddr
-cadr call-with-in/out-files call-with-input-file call-with-output-file
-car car! car* cardinal? case catch cc cdaaar cdaadr cdaar cdadar cdaddr
+! $ $? %close-input-port %close-output-port %close-port %confess
+%fd->port %file-descriptor %get-module %port-host %read-char *
+*arglist* *asm-lock* *ctx *source-dictionary* *system-path*
+*user-dictionary* + - -> -A ... .l / /= := :=? < <...> << <= <> <box>
+<c16string> <class> <file> <fluid> <macro> <old-file> <old-port> <port>
+<record-type> <u8vector> <vector> = => > >= >> ? B0 B1000000 B110
+B115200 B1152000 B1200 B134 B150 B1500000 B1800 B19200 B200 B2000000
+B230400 B2400 B2500000 B300 B3000000 B3500000 B38400 B4000000 B460800
+B4800 B50 B500000 B57600 B576000 B600 B75 B921600 B9600 BRKINT BS0 BS1
+CALL CBAUDEX CLOCAL CR0 CR1 CR2 CR3 CREAD CS5 CS6 CS7 CS8 CSTOPB DEFINE
+E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EADV EAFNOSUPPORT EAGAIN EALREADY
+EBADE EBADF EBADFD EBADMSG EBADR EBADRQC EBADSLT EBFONT EBUSY ECHILD
+ECHO ECHOCTL ECHOE ECHOK ECHOKE ECHONL ECHOPRT ECHRNG ECOMM
+ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDOTDOT
+EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EIDRM EILSEQ
+EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR EISNAM EL2HLT EL2NSYNC
+EL3HLT EL3RST ELIBACC ELIBBAD ELIBEXEC ELIBMAX ELIBSCN ELNRNG ELOOP
+EMEDIUMTYPE EMFILE EMLINK EMSGSIZE EMULTIHOP ENAMETOOLONG ENAVAIL
+ENETDOWN ENETRESET ENETUNREACH ENFILE ENOANO ENOBUFS ENOCSI ENODATA
+ENODEV ENOENT ENOEXEC ENOLCK ENOLINK ENOMEDIUM ENOMEM ENOMSG ENONET
+ENOPKG ENOPROTOOPT ENOSPC ENOSR ENOSTR ENOSYS ENOTBLK ENOTCONN ENOTDIR
+ENOTEMPTY ENOTNAM ENOTSOCK ENOTTY ENOTUNIQ ENXIO EOF-INSIDE-LIST
+EOF-INSIDE-STRING EOPNOTSUPP EOVERFLOW EPERM EPFNOSUPPORT EPIPE EPROTO
+EPROTONOSUPPORT EPROTOTYPE ERANGE EREMCHG EREMOTE EREMOTEIO ERESTART
+EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESRMNT ESTALE ESTRPIPE
+ETIME ETIMEDOUT ETOOMANYREFS ETXTBSY EUCLEAN EUNATCH EUSERS EXDEV
+EXFULL FD_CLOEXEC FF0 FF1 FLUSHO F_DUPFD F_GETFD F_GETFL F_GETLK
+F_GETLK64 F_GETOWN F_GETSIG F_RDLCK F_SETFD F_SETFL F_SETLK F_SETLK64
+F_SETLKW F_SETLKW64 F_SETOWN F_SETSIG F_UNLCK F_WRLCK GLOBAL HUPCL
+ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR IMAXBEL INLCR INPCK ISIG ISTRIP
+IUCLC IXANY IXOFF IXON LOCK_EX LOCK_MAND LOCK_NB LOCK_READ LOCK_RW
+LOCK_SH LOCK_UN LOCK_WRITE Linux NCCS NL0 NL1 NOFLSH OCRNL OFDEL OFILL
+OLCUC ONLCR ONLRET ONOCR OPOST OR O_APPEND O_ASYNC O_CREAT O_DIRECT
+O_DIRECTORY O_EXCL O_FSYNC O_NDELAY O_NOCTTY O_NOFOLLOW O_NONBLOCK
+O_RDONLY O_RDWR O_SYNC O_TRUNC O_WRONLY PARENB PARMRK PARODD PARSED
+PENDIN SEEK_CUR SEEK_END SEEK_SET T TAB0 TAB1 TAB2 TAB3 TOSTOP
+UNTERMINATED-CHAR-CODE UNTERMINATED-STRING VCALL VDISCARD VEOF VEOL
+VEOL2 VERASE VINTR VKILL VLNEXT VMIN VQUIT VREPRINT VSTART VSTOP VSUSP
+VSWTC VT0 VT1 VTIME VWERASE WITHIN XCASE \16 \8 \c16 \c16string \c8
+\c8string \char16 \char8 abs absolute acons! addat address-of
+alist->dict alist-copy analyse and append append-reverse apply argcount
+args asm assemble assert assert-object-type assertion-failed assoc assq
+assume-constant-globals assv atime atom? aux b backspace
+bad-stacked-var bar begin bell big-integer big-integer? binary-equal?
+binary-logical-xor binary-vector-contents-equal? binc bind binnc binzc
+bit? blksize blockdev blocks boolean boolean? box-empty! box-empty?
+box-ref box? broketed? buffer builtin-modules bury c c16 c16string
+c16string? c8 c8string c8string? caaaar caaadr caaar caadar caaddr
+caadr caar cadaar cadadr cadar caddar cadddr caddr cadr
+call-with-in/out-files call-with-input-file call-with-output-file car
+car! car* cardinal? case catch cc cdaaar cdaadr cdaar cdadar cdaddr
 cdadr cdar cddaar cddadr cddar cdddar cddddr cdddr cddr cdr cdr! cdr*
 ceiling cflag cfmakeraw char char->control-char char->integer char-and
 char-bit-clear char-bit-set char-bit-toggle char-bit? char-decimal?
@@ -74,38 +75,38 @@
 class->vector class-discriminator class-of class-slots class? cleanup
 close close-hook close-input-port close-output-port close-port closure
 codegen collect collect-string compile compound? concatenate cond
-conflict cons cons! cons-copy cons? const construct-filename core
-creatable? create-not ct ctime current-errors-port current-globals
+confess conflict cons cons! cons-copy cons? const construct-filename
+core creatable? create-not ct ctime current-errors-port current-globals
 current-input-port current-output-port cut cute d dat dcc decr! define
 define-class defining-local defmacro denominator desv desv+r dev dict
 dict->alist dict-bind! dict-copy dict-defined? dict-drop! dict-fetch
 dict-ref dict? dict_ref_2 dig directory dis discriminator
 division-by-zero do dot-tail drain drop drop-buffer drop-var ds dsc
-dummy-var duplicate-close-port-hook duplicate-dict-item!
-duplicate-length-hook duplicate-new-hook duplicate-read-char-hook
-duplicate-read-string-hook duplicate-ref-hook duplicate-slot-name
-duplicate-write-char-hook duplicate-write-string-hook dwim-stringify
-eighth else end ensure-in-buffer ensure-line-in-buffer env-ref
-eof-object? eof? eq? equal? eqv? errno erroneous-binding
-erroneous-dot-binding eval even? evmfunc evmfunc? except exclusive exit
-export f false fatal-handler fcntl fd fdset-ref fifth file-close-hook
-file-ctime file-descriptor file-mtime file-ready? file-stat file-type
-file-types file? filter finally find find-tail first fit-for-symbol?
-fit-for-variable-name? fixnum fixnum? flag-specifier? flatten flock
-floor fluid-list fluid-my fluid? fluids flush follow-not
-for-all-env-vars for-dir-entries for-each form? fourth fraction
-fraction? frer frer->structure friend gid grammar-error hache hidden
-hide hide* hold home hop ia32 if iflag immediate-sublambdas
-imported-variables inc incr! infix init-input-file init-output-file
-init-port ino input-mode input-port? instance instance-of-wrong-class
-instance? instruction-list integer integer->char integer->flag-list
-integer->string integer? intermingle internal-trouble invalid
-invalid-argument-name invalid-assignment invalid-branch-target
-invalid-char invalid-cut invalid-definition invalid-dollar-construct
-invalid-export invalid-form invalid-frer invalid-frer-opcode
-invalid-intercode-instruction invalid-lambda-list
-invalid-lambda-pack-clause invalid-module-name invalid-my-target
-invalid-place invalid-reader-syntax invalid-slot-name
+dummy-var duplicat-hook duplicate-aux-hook duplicate-close-port-hook
+duplicate-confess-hook duplicate-dict-item! duplicate-length-hook
+duplicate-new-hook duplicate-read-char-hook duplicate-read-string-hook
+duplicate-ref-hook duplicate-slot-name duplicate-write-char-hook
+duplicate-write-string-hook dwim-stringify eighth else end
+ensure-in-buffer ensure-line-in-buffer env-ref eof-object? eof? eq?
+equal? eqv? errno erroneous-binding erroneous-dot-binding eval even?
+evmfunc evmfunc? except exclusive exit export f false fatal-handler
+fcntl fd fdset-ref fifth file-close-hook file-ctime file-descriptor
+file-mtime file-ready? file-stat file-type file-types file? filter
+finally find find-tail first fit-for-symbol? fit-for-variable-name?
+fixnum fixnum? flag-specifier? flatten flock floor fluid-list fluid-my
+fluid? fluids flush follow-not for-all-env-vars for-dir-entries
+for-each form? fourth fraction fraction? frer frer->structure friend
+gid grammar-error hache hidden hide hide* hold home hook-accessors hop
+host ia32 if iflag immediate-sublambdas imported-variables inc incr!
+infix init-input-file init-output-file init-port ino input-mode
+input-port? instance instance-of-wrong-class instance? instruction-list
+integer integer->char integer->flag-list integer->string integer?
+intermingle internal-trouble invalid invalid-argument-name
+invalid-assignment invalid-branch-target invalid-char invalid-cut
+invalid-definition invalid-dollar-construct invalid-export invalid-form
+invalid-frer invalid-frer-opcode invalid-intercode-instruction
+invalid-lambda-list invalid-lambda-pack-clause invalid-module-name
+invalid-my-target invalid-place invalid-reader-syntax invalid-slot-name
 invalid-system-constant-name-part invalid-try-clause
 invalid-utf-8-sequence invalid-whence invargc invargca j jif jige jilt
 jinc jinf jinnc jinz jiz jizc key keyword? l l0 lambda lambda-pack
@@ -122,12 +123,12 @@
 not-enough-space notc now nul null null-list? null? number
 number->string number? numerator nybble? nyp? o odd? of oflag open
 open-input-file open-output-file opt optimize-source or order->dict
-origin out-of-memory output-mode output-port? overflow p
-pack-be-integer pack-le-integer page parse-character-body
+origin out-of-memory output-buffered-port-aux? output-mode output-port?
+overflow p pack-be-integer pack-le-integer page parse-character-body
 parse-lambda-list pc peek-char peek-string ph pick-dict-items pipe pl
-port-peek-string port-read-string port-ready? port-write-string port?
-positive? post-codegen postpone-linking prefix premature-eof prep
-preprocess preprocessed-source? preprocessing-error
+port-host port-loop port-peek-string port-read-string port-ready?
+port-write-string port? positive? post-codegen postpone-linking prefix
+premature-eof prep preprocess preprocessed-source? preprocessing-error
 prevent-invalid-call print procedure->macro procedure-remark procedure?
 process-simple-quasiquote process-unquote-splicing processor-type
 prohibited pt q qh qi ql qn qt quasiquote quasiquote-cons quote