wisp-cvs

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

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

Modified Files:
	essence.c wordlist.txt 
Log Message:
Introduced the new, more polymorphic port mechanism.

Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.222
retrieving revision 1.223
diff -u -d -r1.222 -r1.223
--- essence.c	18 Sep 2002 21:15:13 -0000	1.222
+++ essence.c	18 Sep 2002 21:16:38 -0000	1.223
@@ -331,11 +331,14 @@
     NN_pr_get_argument_list,
     NN_pr_get_environment,
     NN_pr_make_record_type,
+    NN_pr_record_type_close_port_slot,
     NN_pr_record_type_length_slot,
     NN_pr_record_type_new_slot,
     NN_pr_record_type_read_char_slot,
+    NN_pr_record_type_read_string_slot,
     NN_pr_record_type_ref_slot,
     NN_pr_record_type_write_char_slot,
+    NN_pr_record_type_write_string_slot,
[...2221 lines suppressed...]
+[321]{car:BC 316,cdr:BC 320},
+[322]{car:BC 315,cdr:BC 321},
+[323]{car:W(LTDOTDOTDOTGT),cdr:Q},
+[324]{car:W(LTGT),cdr:BC 323},
+[325]{car:CH('i'),cdr:Q},
+[326]{car:CH('c'),cdr:BC 325},
+[327]{car:CH('C'),cdr:BC 326},
+[328]{car:CH('A'),cdr:BC 327},
+[329]{car:CH('e'),cdr:BC 328},
+[330]{car:B 700,cdr:Q},
+[331]{car:B 699,cdr:BC 330},
+[332]{car:B 701,cdr:Q},
 };
 
 /* The root node of the compiled builtin library */
 struct node *
-builtin_root = B 689;
+builtin_root = B 703;
 
 /* essence.c ends here */

Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.584
retrieving revision 1.585
diff -u -d -r1.584 -r1.585
--- wordlist.txt	18 Sep 2002 21:15:21 -0000	1.584
+++ wordlist.txt	18 Sep 2002 21:16:49 -0000	1.585
@@ -6,43 +6,44 @@
 #
 #### @(#) $Id$
 
-! $ $? %fd->port %get-module %read-char * *arglist* *asm-lock* *ctx
+! $ $? %close-input-port %close-output-port %close-port %fd->port
+%file-descriptor %get-module %read-char * *arglist* *asm-lock* *ctx
 *source-dictionary* *system-path* *user-dictionary* + - -> -A ... .l /
 /= := :=? < <...> << <= <> <box> <c16string> <class> <file> <fluid>
-<macro> <port> <record-type> <u8vector> <vector> = => > >= >> ? B0
-B1000000 B110 B115200 B1152000 B1200 B134 B150 B1500000 B1800 B19200
-B200 B2000000 B230400 B2400 B2500000 B300 B3000000 B3500000 B38400
-B4000000 B460800 B4800 B50 B500000 B57600 B576000 B600 B75 B921600
-B9600 BRKINT BS0 BS1 CALL CBAUDEX CLOCAL CR0 CR1 CR2 CR3 CREAD CS5 CS6
-CS7 CS8 CSTOPB DEFINE E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EADV
-EAFNOSUPPORT EAGAIN EALREADY EBADE EBADF EBADFD EBADMSG EBADR EBADRQC
-EBADSLT EBFONT EBUSY ECHILD ECHO ECHOCTL ECHOE ECHOK ECHOKE ECHONL
-ECHOPRT ECHRNG ECOMM ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK
-EDESTADDRREQ EDOM EDOTDOT EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN
-EHOSTUNREACH EIDRM EILSEQ EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR
-EISNAM EL2HLT EL2NSYNC EL3HLT EL3RST ELIBACC ELIBBAD ELIBEXEC ELIBMAX
-ELIBSCN ELNRNG ELOOP EMEDIUMTYPE EMFILE EMLINK EMSGSIZE EMULTIHOP
-ENAMETOOLONG ENAVAIL ENETDOWN ENETRESET ENETUNREACH ENFILE ENOANO
-ENOBUFS ENOCSI ENODATA ENODEV ENOENT ENOEXEC ENOLCK ENOLINK ENOMEDIUM
-ENOMEM ENOMSG ENONET ENOPKG ENOPROTOOPT ENOSPC ENOSR ENOSTR ENOSYS
-ENOTBLK ENOTCONN ENOTDIR ENOTEMPTY ENOTNAM ENOTSOCK ENOTTY ENOTUNIQ
-ENXIO EOF-INSIDE-LIST EOF-INSIDE-STRING EOPNOTSUPP EOVERFLOW EPERM
-EPFNOSUPPORT EPIPE EPROTO EPROTONOSUPPORT EPROTOTYPE ERANGE EREMCHG
-EREMOTE EREMOTEIO ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH
-ESRMNT ESTALE ESTRPIPE ETIME ETIMEDOUT ETOOMANYREFS ETXTBSY EUCLEAN
-EUNATCH EUSERS EXDEV EXFULL FD_CLOEXEC FF0 FF1 FLUSHO F_DUPFD F_GETFD
-F_GETFL F_GETLK F_GETLK64 F_GETOWN F_GETSIG F_RDLCK F_SETFD F_SETFL
-F_SETLK F_SETLK64 F_SETLKW F_SETLKW64 F_SETOWN F_SETSIG F_UNLCK F_WRLCK
-GLOBAL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR IMAXBEL INLCR
-INPCK ISIG ISTRIP IUCLC IXANY IXOFF IXON LOCK_EX LOCK_MAND LOCK_NB
-LOCK_READ LOCK_RW LOCK_SH LOCK_UN LOCK_WRITE Linux NCCS NL0 NL1 NOFLSH
-OCRNL OFDEL OFILL OLCUC ONLCR ONLRET ONOCR OPOST OR O_APPEND O_ASYNC
-O_CREAT O_DIRECT O_DIRECTORY O_EXCL O_FSYNC O_NDELAY O_NOCTTY
-O_NOFOLLOW O_NONBLOCK O_RDONLY O_RDWR O_SYNC O_TRUNC O_WRONLY PARENB
-PARMRK PARODD PARSED PENDIN SEEK_CUR SEEK_END SEEK_SET T TAB0 TAB1 TAB2
-TAB3 TOSTOP UNTERMINATED-CHAR-CODE UNTERMINATED-STRING VCALL VDISCARD
-VEOF VEOL VEOL2 VERASE VINTR VKILL VLNEXT VMIN VQUIT VREPRINT VSTART
-VSTOP VSUSP VSWTC VT0 VT1 VTIME VWERASE WITHIN XCASE \16 \8 \c16
+<macro> <old-file> <old-port> <port> <record-type> <u8vector> <vector>
+= => > >= >> ? B0 B1000000 B110 B115200 B1152000 B1200 B134 B150
+B1500000 B1800 B19200 B200 B2000000 B230400 B2400 B2500000 B300
+B3000000 B3500000 B38400 B4000000 B460800 B4800 B50 B500000 B57600
+B576000 B600 B75 B921600 B9600 BRKINT BS0 BS1 CALL CBAUDEX CLOCAL CR0
+CR1 CR2 CR3 CREAD CS5 CS6 CS7 CS8 CSTOPB DEFINE E2BIG EACCES EADDRINUSE
+EADDRNOTAVAIL EADV EAFNOSUPPORT EAGAIN EALREADY EBADE EBADF EBADFD
+EBADMSG EBADR EBADRQC EBADSLT EBFONT EBUSY ECHILD ECHO ECHOCTL ECHOE
+ECHOK ECHOKE ECHONL ECHOPRT ECHRNG ECOMM ECONNABORTED ECONNREFUSED
+ECONNRESET EDEADLK EDESTADDRREQ EDOM EDOTDOT EDQUOT EEXIST EFAULT EFBIG
+EHOSTDOWN EHOSTUNREACH EIDRM EILSEQ EINPROGRESS EINTR EINVAL EIO
+EISCONN EISDIR EISNAM EL2HLT EL2NSYNC EL3HLT EL3RST ELIBACC ELIBBAD
+ELIBEXEC ELIBMAX ELIBSCN ELNRNG ELOOP EMEDIUMTYPE EMFILE EMLINK
+EMSGSIZE EMULTIHOP ENAMETOOLONG ENAVAIL ENETDOWN ENETRESET ENETUNREACH
+ENFILE ENOANO ENOBUFS ENOCSI ENODATA ENODEV ENOENT ENOEXEC ENOLCK
+ENOLINK ENOMEDIUM ENOMEM ENOMSG ENONET ENOPKG ENOPROTOOPT ENOSPC ENOSR
+ENOSTR ENOSYS ENOTBLK ENOTCONN ENOTDIR ENOTEMPTY ENOTNAM ENOTSOCK
+ENOTTY ENOTUNIQ ENXIO EOF-INSIDE-LIST EOF-INSIDE-STRING EOPNOTSUPP
+EOVERFLOW EPERM EPFNOSUPPORT EPIPE EPROTO EPROTONOSUPPORT EPROTOTYPE
+ERANGE EREMCHG EREMOTE EREMOTEIO ERESTART EROFS ESHUTDOWN
+ESOCKTNOSUPPORT ESPIPE ESRCH ESRMNT ESTALE ESTRPIPE ETIME ETIMEDOUT
+ETOOMANYREFS ETXTBSY EUCLEAN EUNATCH EUSERS EXDEV EXFULL FD_CLOEXEC FF0
+FF1 FLUSHO F_DUPFD F_GETFD F_GETFL F_GETLK F_GETLK64 F_GETOWN F_GETSIG
+F_RDLCK F_SETFD F_SETFL F_SETLK F_SETLK64 F_SETLKW F_SETLKW64 F_SETOWN
+F_SETSIG F_UNLCK F_WRLCK GLOBAL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR
+IGNPAR IMAXBEL INLCR INPCK ISIG ISTRIP IUCLC IXANY IXOFF IXON LOCK_EX
+LOCK_MAND LOCK_NB LOCK_READ LOCK_RW LOCK_SH LOCK_UN LOCK_WRITE Linux
+NCCS NL0 NL1 NOFLSH OCRNL OFDEL OFILL OLCUC ONLCR ONLRET ONOCR OPOST OR
+O_APPEND O_ASYNC O_CREAT O_DIRECT O_DIRECTORY O_EXCL O_FSYNC O_NDELAY
+O_NOCTTY O_NOFOLLOW O_NONBLOCK O_RDONLY O_RDWR O_SYNC O_TRUNC O_WRONLY
+PARENB PARMRK PARODD PARSED PENDIN SEEK_CUR SEEK_END SEEK_SET T TAB0
+TAB1 TAB2 TAB3 TOSTOP UNTERMINATED-CHAR-CODE UNTERMINATED-STRING VCALL
+VDISCARD VEOF VEOL VEOL2 VERASE VINTR VKILL VLNEXT VMIN VQUIT VREPRINT
+VSTART VSTOP VSUSP VSWTC VT0 VT1 VTIME VWERASE WITHIN XCASE \16 \8 \c16
 \c16string \c8 \c8string \char16 \char8 abs absolute acons! addat
 address-of alist->dict alist-copy analyse and append append-reverse
 apply argcount args asm assemble assert assert-object-type
@@ -80,27 +81,29 @@
 dict->alist dict-bind! dict-copy dict-defined? dict-drop! dict-fetch
 dict-ref dict? dict_ref_2 dig directory dis discriminator
 division-by-zero do dot-tail drain drop drop-buffer drop-var ds dsc
-dummy-var duplicate-dict-item! duplicate-length-hook duplicate-new-hook
-duplicate-read-char-hook duplicate-ref-hook duplicate-slot-name
-duplicate-write-char-hook dwim-stringify eighth else end
-ensure-in-buffer ensure-line-in-buffer env-ref eof-object? eof? eq?
-equal? eqv? errno erroneous-binding erroneous-dot-binding eval even?
-evmfunc evmfunc? except exclusive exit export f false fatal-handler
-fcntl fd fdset-ref fifth file-close-hook file-ctime file-descriptor
-file-mtime file-ready? file-stat file-type file-types file? filter
-finally find find-tail first fit-for-symbol? fit-for-variable-name?
-fixnum fixnum? flag-specifier? flatten flock floor fluid-list fluid-my
-fluid? fluids flush follow-not for-all-env-vars for-dir-entries
-for-each form? fourth fraction fraction? frer frer->structure friend
-gid grammar-error hache hidden hide hide* hold home hop ia32 if iflag
-immediate-sublambdas imported-variables inc incr! infix init-input-file
-init-output-file init-port ino input-port? instance
-instance-of-wrong-class instance? instruction-list integer
-integer->char integer->flag-list integer->string integer? intermingle
-internal-trouble invalid invalid-argument-name invalid-assignment
-invalid-branch-target invalid-char invalid-cut invalid-definition
-invalid-dollar-construct invalid-export invalid-form invalid-frer
-invalid-frer-opcode invalid-intercode-instruction invalid-lambda-list
+dummy-var duplicate-close-port-hook duplicate-dict-item!
+duplicate-length-hook duplicate-new-hook duplicate-read-char-hook
+duplicate-read-string-hook duplicate-ref-hook duplicate-slot-name
+duplicate-write-char-hook duplicate-write-string-hook dwim-stringify
+eighth else end ensure-in-buffer ensure-line-in-buffer env-ref
+eof-object? eof? eq? equal? eqv? errno erroneous-binding
+erroneous-dot-binding eval even? evmfunc evmfunc? except exclusive exit
+export f false fatal-handler fcntl fd fdset-ref fifth file-close-hook
+file-ctime file-descriptor file-mtime file-ready? file-stat file-type
+file-types file? filter finally find find-tail first fit-for-symbol?
+fit-for-variable-name? fixnum fixnum? flag-specifier? flatten flock
+floor fluid-list fluid-my fluid? fluids flush follow-not
+for-all-env-vars for-dir-entries for-each form? fourth fraction
+fraction? frer frer->structure friend gid grammar-error hache hidden
+hide hide* hold home hop ia32 if iflag immediate-sublambdas
+imported-variables inc incr! infix init-input-file init-output-file
+init-port ino input-mode input-port? instance instance-of-wrong-class
+instance? instruction-list integer integer->char integer->flag-list
+integer->string integer? intermingle internal-trouble invalid
+invalid-argument-name invalid-assignment invalid-branch-target
+invalid-char invalid-cut invalid-definition invalid-dollar-construct
+invalid-export invalid-form invalid-frer invalid-frer-opcode
+invalid-intercode-instruction invalid-lambda-list
 invalid-lambda-pack-clause invalid-module-name invalid-my-target
 invalid-place invalid-reader-syntax invalid-slot-name
 invalid-system-constant-name-part invalid-try-clause
@@ -110,15 +113,16 @@
 list->semideque list->vector list-copy list-ref list? load local
 local-count logical-and logical-not logical-or logical-xor lookup-slot
 mac macro->procedure macro? make-box make-c16string make-c8string
-make-class make-counter make-dict make-fdset make-fluid make-instance
-make-record-type make-string make-vector map master-dictionary mat mca
-meaning measurable? member memq memv meta metacode mha mla mlt mode
-modify-bit module module-load module-loop module-ref module-was-run
-modules modulo mta mtime my my-port native? negative? negc new newline
-ninth nlink normalize-binding not not-enough-space notc now nul null
-null-list? null? number number->string number? numerator nybble? nyp? o
-odd? of oflag open open-input-file open-output-file opt optimize-source
-or order->dict origin out-of-memory output-port? overflow p
+make-class make-counter make-dict make-fdset make-file make-fluid
+make-instance make-record-type make-string make-vector map
+master-dictionary mat mca meaning measurable? member memq memv meta
+metacode mha mla mlt mode modify-bit module module-load module-loop
+module-ref module-was-run modules modulo mta mtime my my-port native?
+negative? negc new newline ninth nlink normalize-binding not
+not-enough-space notc now nul null null-list? null? number
+number->string number? numerator nybble? nyp? o odd? of oflag open
+open-input-file open-output-file opt optimize-source or order->dict
+origin out-of-memory output-mode output-port? overflow p
 pack-be-integer pack-le-integer page parse-character-body
 parse-lambda-list pc peek-char peek-string ph pick-dict-items pipe pl
 port-peek-string port-read-string port-ready? port-write-string port?
@@ -134,7 +138,7 @@
 raw-write-string rdev read read-all=> read-char read-char-sequence
 read-character-body read-directory read-external-string read-line
 read-only read-string read-until-dollar read-whole-file readable
-real-use real? rec record-constructor record-hook-name?
+readable? real-use real? rec record-constructor record-hook-name?
 record-type-discriminator record-type-referrer record-type?
 reduce-index ref reg regex regex-template regular regular-env relative
 remainder rename return reverse rolocal roslot round rubout
@@ -176,5 +180,5 @@
 valloc value vector vector->list vector-append vector-copy vector-fill!
 vector-move! vector? void void? vs vtab while wisp-build wisp-builder
 wisp-string-hash wisp-version with-errors-to with-fluid with-input-from
-with-output-to write write-char write-string writeln wrong-fluid x xors
-xri zero?
+with-output-to writable? write write-char write-string writeln
+wrong-fluid x xors xri zero?