wisp-cvs

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

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

Modified Files:
	essence.c wordlist.txt 
Log Message:
Implemented |<u8vector>|.

Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.221
retrieving revision 1.222
diff -u -d -r1.221 -r1.222
--- essence.c	18 Sep 2002 21:13:27 -0000	1.221
+++ essence.c	18 Sep 2002 21:15:13 -0000	1.222
@@ -408,6 +408,7 @@
     NN_third,
     NN_truncate,
     NN_type_of,
+    NN_u8vector_huh,
     NN_unix_time,
     NN_unsigned_get_bit,
     NN_utf_8_first_byte2length,
@@ -419,6 +420,7 @@
     RT_box,
     RT_c16string,
     RT_record_type,
[...1113 lines suppressed...]
 
 struct cons conses [] = {
@@ -2076,13 +2079,13 @@
 [326]{car:CH('C'),cdr:BC 325},
 [327]{car:CH('A'),cdr:BC 326},
 [328]{car:CH('e'),cdr:BC 327},
-[329]{car:B 685,cdr:Q},
-[330]{car:B 684,cdr:BC 329},
-[331]{car:B 686,cdr:Q},
+[329]{car:B 686,cdr:Q},
+[330]{car:B 685,cdr:BC 329},
+[331]{car:B 687,cdr:Q},
 };
 
 /* The root node of the compiled builtin library */
 struct node *
-builtin_root = B 688;
+builtin_root = B 689;
 
 /* essence.c ends here */

Index: wordlist.txt
===================================================================
RCS file: /cvsroot/wisp/wisp/src/wordlist.txt,v
retrieving revision 1.583
retrieving revision 1.584
diff -u -d -r1.583 -r1.584
--- wordlist.txt	18 Sep 2002 21:13:37 -0000	1.583
+++ wordlist.txt	18 Sep 2002 21:15:21 -0000	1.584
@@ -9,52 +9,52 @@
 ! $ $? %fd->port %get-module %read-char * *arglist* *asm-lock* *ctx
 *source-dictionary* *system-path* *user-dictionary* + - -> -A ... .l /
 /= := :=? < <...> << <= <> <box> <c16string> <class> <file> <fluid>
-<macro> <port> <record-type> <vector> = => > >= >> ? B0 B1000000 B110
-B115200 B1152000 B1200 B134 B150 B1500000 B1800 B19200 B200 B2000000
-B230400 B2400 B2500000 B300 B3000000 B3500000 B38400 B4000000 B460800
-B4800 B50 B500000 B57600 B576000 B600 B75 B921600 B9600 BRKINT BS0 BS1
-CALL CBAUDEX CLOCAL CR0 CR1 CR2 CR3 CREAD CS5 CS6 CS7 CS8 CSTOPB DEFINE
-E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EADV EAFNOSUPPORT EAGAIN EALREADY
-EBADE EBADF EBADFD EBADMSG EBADR EBADRQC EBADSLT EBFONT EBUSY ECHILD
-ECHO ECHOCTL ECHOE ECHOK ECHOKE ECHONL ECHOPRT ECHRNG ECOMM
-ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDOTDOT
-EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EIDRM EILSEQ
-EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR EISNAM EL2HLT EL2NSYNC
-EL3HLT EL3RST ELIBACC ELIBBAD ELIBEXEC ELIBMAX ELIBSCN ELNRNG ELOOP
-EMEDIUMTYPE EMFILE EMLINK EMSGSIZE EMULTIHOP ENAMETOOLONG ENAVAIL
-ENETDOWN ENETRESET ENETUNREACH ENFILE ENOANO ENOBUFS ENOCSI ENODATA
-ENODEV ENOENT ENOEXEC ENOLCK ENOLINK ENOMEDIUM ENOMEM ENOMSG ENONET
-ENOPKG ENOPROTOOPT ENOSPC ENOSR ENOSTR ENOSYS ENOTBLK ENOTCONN ENOTDIR
-ENOTEMPTY ENOTNAM ENOTSOCK ENOTTY ENOTUNIQ ENXIO EOF-INSIDE-LIST
-EOF-INSIDE-STRING EOPNOTSUPP EOVERFLOW EPERM EPFNOSUPPORT EPIPE EPROTO
-EPROTONOSUPPORT EPROTOTYPE ERANGE EREMCHG EREMOTE EREMOTEIO ERESTART
-EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESRMNT ESTALE ESTRPIPE
-ETIME ETIMEDOUT ETOOMANYREFS ETXTBSY EUCLEAN EUNATCH EUSERS EXDEV
-EXFULL FD_CLOEXEC FF0 FF1 FLUSHO F_DUPFD F_GETFD F_GETFL F_GETLK
-F_GETLK64 F_GETOWN F_GETSIG F_RDLCK F_SETFD F_SETFL F_SETLK F_SETLK64
-F_SETLKW F_SETLKW64 F_SETOWN F_SETSIG F_UNLCK F_WRLCK GLOBAL HUPCL
-ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR IMAXBEL INLCR INPCK ISIG ISTRIP
-IUCLC IXANY IXOFF IXON LOCK_EX LOCK_MAND LOCK_NB LOCK_READ LOCK_RW
-LOCK_SH LOCK_UN LOCK_WRITE Linux NCCS NL0 NL1 NOFLSH OCRNL OFDEL OFILL
-OLCUC ONLCR ONLRET ONOCR OPOST OR O_APPEND O_ASYNC O_CREAT O_DIRECT
-O_DIRECTORY O_EXCL O_FSYNC O_NDELAY O_NOCTTY O_NOFOLLOW O_NONBLOCK
-O_RDONLY O_RDWR O_SYNC O_TRUNC O_WRONLY PARENB PARMRK PARODD PARSED
-PENDIN SEEK_CUR SEEK_END SEEK_SET T TAB0 TAB1 TAB2 TAB3 TOSTOP
-UNTERMINATED-CHAR-CODE UNTERMINATED-STRING VCALL VDISCARD VEOF VEOL
-VEOL2 VERASE VINTR VKILL VLNEXT VMIN VQUIT VREPRINT VSTART VSTOP VSUSP
-VSWTC VT0 VT1 VTIME VWERASE WITHIN XCASE \16 \8 \c16 \c16string \c8
-\c8string \char16 \char8 abs absolute acons! addat address-of
-alist->dict alist-copy analyse and append append-reverse apply argcount
-args asm assemble assert assert-object-type assertion-failed assoc assq
-assume-constant-globals assv atime atom? b backspace bad-stacked-var
-bar begin bell big-integer big-integer? binary-equal?
-binary-logical-xor binary-vector-contents-equal? binc bind binnc binzc
-bit? blksize blockdev blocks boolean boolean? box-empty! box-empty?
-box-ref box? broketed? buffer builtin-modules bury c c16 c16string
-c16string? c8 c8string c8string? caaaar caaadr caaar caadar caaddr
-caadr caar cadaar cadadr cadar caddar cadddr caddr cadr
-call-with-in/out-files call-with-input-file call-with-output-file car
-car! car* cardinal? case catch cc cdaaar cdaadr cdaar cdadar cdaddr
+<macro> <port> <record-type> <u8vector> <vector> = => > >= >> ? B0
+B1000000 B110 B115200 B1152000 B1200 B134 B150 B1500000 B1800 B19200
+B200 B2000000 B230400 B2400 B2500000 B300 B3000000 B3500000 B38400
+B4000000 B460800 B4800 B50 B500000 B57600 B576000 B600 B75 B921600
+B9600 BRKINT BS0 BS1 CALL CBAUDEX CLOCAL CR0 CR1 CR2 CR3 CREAD CS5 CS6
+CS7 CS8 CSTOPB DEFINE E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EADV
+EAFNOSUPPORT EAGAIN EALREADY EBADE EBADF EBADFD EBADMSG EBADR EBADRQC
+EBADSLT EBFONT EBUSY ECHILD ECHO ECHOCTL ECHOE ECHOK ECHOKE ECHONL
+ECHOPRT ECHRNG ECOMM ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK
+EDESTADDRREQ EDOM EDOTDOT EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN
+EHOSTUNREACH EIDRM EILSEQ EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR
+EISNAM EL2HLT EL2NSYNC EL3HLT EL3RST ELIBACC ELIBBAD ELIBEXEC ELIBMAX
+ELIBSCN ELNRNG ELOOP EMEDIUMTYPE EMFILE EMLINK EMSGSIZE EMULTIHOP
+ENAMETOOLONG ENAVAIL ENETDOWN ENETRESET ENETUNREACH ENFILE ENOANO
+ENOBUFS ENOCSI ENODATA ENODEV ENOENT ENOEXEC ENOLCK ENOLINK ENOMEDIUM
+ENOMEM ENOMSG ENONET ENOPKG ENOPROTOOPT ENOSPC ENOSR ENOSTR ENOSYS
+ENOTBLK ENOTCONN ENOTDIR ENOTEMPTY ENOTNAM ENOTSOCK ENOTTY ENOTUNIQ
+ENXIO EOF-INSIDE-LIST EOF-INSIDE-STRING EOPNOTSUPP EOVERFLOW EPERM
+EPFNOSUPPORT EPIPE EPROTO EPROTONOSUPPORT EPROTOTYPE ERANGE EREMCHG
+EREMOTE EREMOTEIO ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH
+ESRMNT ESTALE ESTRPIPE ETIME ETIMEDOUT ETOOMANYREFS ETXTBSY EUCLEAN
+EUNATCH EUSERS EXDEV EXFULL FD_CLOEXEC FF0 FF1 FLUSHO F_DUPFD F_GETFD
+F_GETFL F_GETLK F_GETLK64 F_GETOWN F_GETSIG F_RDLCK F_SETFD F_SETFL
+F_SETLK F_SETLK64 F_SETLKW F_SETLKW64 F_SETOWN F_SETSIG F_UNLCK F_WRLCK
+GLOBAL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR IMAXBEL INLCR
+INPCK ISIG ISTRIP IUCLC IXANY IXOFF IXON LOCK_EX LOCK_MAND LOCK_NB
+LOCK_READ LOCK_RW LOCK_SH LOCK_UN LOCK_WRITE Linux NCCS NL0 NL1 NOFLSH
+OCRNL OFDEL OFILL OLCUC ONLCR ONLRET ONOCR OPOST OR O_APPEND O_ASYNC
+O_CREAT O_DIRECT O_DIRECTORY O_EXCL O_FSYNC O_NDELAY O_NOCTTY
+O_NOFOLLOW O_NONBLOCK O_RDONLY O_RDWR O_SYNC O_TRUNC O_WRONLY PARENB
+PARMRK PARODD PARSED PENDIN SEEK_CUR SEEK_END SEEK_SET T TAB0 TAB1 TAB2
+TAB3 TOSTOP UNTERMINATED-CHAR-CODE UNTERMINATED-STRING VCALL VDISCARD
+VEOF VEOL VEOL2 VERASE VINTR VKILL VLNEXT VMIN VQUIT VREPRINT VSTART
+VSTOP VSUSP VSWTC VT0 VT1 VTIME VWERASE WITHIN XCASE \16 \8 \c16
+\c16string \c8 \c8string \char16 \char8 abs absolute acons! addat
+address-of alist->dict alist-copy analyse and append append-reverse
+apply argcount args asm assemble assert assert-object-type
+assertion-failed assoc assq assume-constant-globals assv atime atom? b
+backspace bad-stacked-var bar begin bell big-integer big-integer?
+binary-equal? binary-logical-xor binary-vector-contents-equal? binc
+bind binnc binzc bit? blksize blockdev blocks boolean boolean?
+box-empty! box-empty? box-ref box? broketed? buffer builtin-modules
+bury c c16 c16string c16string? c8 c8string c8string? caaaar caaadr
+caaar caadar caaddr caadr caar cadaar cadadr cadar caddar cadddr caddr
+cadr call-with-in/out-files call-with-input-file call-with-output-file
+car car! car* cardinal? case catch cc cdaaar cdaadr cdaar cdadar cdaddr
 cdadr cdar cddaar cddadr cddar cdddar cddddr cdddr cddr cdr cdr! cdr*
 ceiling cflag cfmakeraw char char->control-char char->integer char-and
 char-bit-clear char-bit-set char-bit-toggle char-bit? char-decimal?
@@ -167,8 +167,8 @@
 system-constants system-path system-type t t* tab takervec target tc
 tcchangeattr tcgetattr tcgetattr-raw tcsetattr-raw tenth termios th
 third tn too-long-character topocopy toposplit translate tree-copy true
-truncate truncate-not try tty? type type-of ubyte? uid undefined
-unix-time unknown unknown-context unknown-local
+truncate truncate-not try tty? type type-of u u8 u8vector? ubyte? uid
+undefined unix-time unknown unknown-context unknown-local
 unknown-open-input-file-flag unknown-open-output-file-flag
 unpack-be-integer unpack-le-integer unquote unquote-splicing unreadable
 unreadable-port unseekable-port unsure-collect unwritable-port use