[Wisp-cvs] wisp/doc wisp.texi,1.25,1.26 worth.vim,1.15,1.16

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

Update of /cvsroot/wisp/wisp/doc
In directory usw-pr-cvs1:/tmp/cvs-serv25146/doc

Modified Files:
	wisp.texi worth.vim 
Log Message:
Dropped |sys:raw:ioctl|.

Index: wisp.texi
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/wisp.texi,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- wisp.texi	4 Sep 2002 14:27:48 -0000	1.25
+++ wisp.texi	18 Sep 2002 20:54:22 -0000	1.26
@@ -363,6 +363,7 @@
 * odd?::
 * open-input-file::
 * open-output-file::
+* or::
 * pack-be-integer::
 * pack-le-integer::
 * parse-lambda-list::
@@ -404,9 +405,7 @@
 * string-downcase!::
 * string-fill!::
 * string-join::
-* string-length::
 * string-null?::
-* string-ref::
 * string-upcase!::
 * string<=?::
 * string<?::
@@ -2798,16 +2797,12 @@
 @noindent
 @b{Note:} Any two given objects @funcarg{a} and @funcarg{b} are considered recursively equivalent if and only if neither of them is a circular data structure and at least one of the following holds:
 
-@c (bullet space (slash "a") space "and" space (slash "b") space "are" space "identical" space "(see" space (bar "eq?") ");" space bullet space (slash "a") space "and" space (slash "b") space "are" space "atomically" space "equvalent" space "(see" space (bar "eqv?") ");" space bullet space (slash "a") space "and" space (slash "b") space "are" space "conses" space "whose" space "car" space "and" space "cdr" space "parts" space "are" space 5 "recursively" space "equal;" space bullet space (slash "a") space "and" space (slash "b") space "are" space "strings" space "of" space "equal" space "length" space "whose" space "corresponding" space 5 "characters" space "are" space "equal" space "charactes" space "(see" space (bar "char=?") ");" space bullet space (slash "a") space "and" space (slash "b") space "are" space "vectors" space "of" space "equal" space "length" space "whose" space "corresponding" space 5 "elements" space "are" space "recursively" space "equal.")
-@bullet{} @funcarg{a} and @funcarg{b} are identical (see @func{eq?}); @bullet{} @funcarg{a} and @funcarg{b} are atomically equvalent (see @func{eqv?}); @bullet{} @funcarg{a} and @funcarg{b} are conses whose car and cdr parts are &@math{_{5}}recursively equal; @bullet{} @funcarg{a} and @funcarg{b} are strings of equal length whose corresponding &@math{_{5}}characters are equal charactes (see @func{char=?}); @bullet{} @funcarg{a} and @funcarg{b} are vectors of equal length whose corresponding &@math{_{5}}elements are recursively equal.
+@c (bullet space (slash "a") space "and" space (slash "b") space "are" space "identical" space "(see" space (bar "eq?") ");" space bullet space (slash "a") space "and" space (slash "b") space "are" space "atomically" space "equvalent" space "(see" space (bar "eqv?") ");" space bullet space (slash "a") space "and" space (slash "b") space "are" space "conses" space "whose" space "car" space "and" space "cdr" space "parts" space "are" space 5 "recursively" space "equal;" space bullet space (slash "a") space "and" space (slash "b") space "are" space "strings" space "of" space "equal" space "length" space "whose" space "corresponding" space 5 "characters" space "are" space "equal" space "characters" space "(see" space (bar "char=?") ");" space bullet space (slash "a") space "and" space (slash "b") space "are" space "vectors" space "of" space "equal" space "length" space "whose" space "corresponding" space 5 "elements" space "are" space "recursively" space "equal.")
+@bullet{} @funcarg{a} and @funcarg{b} are identical (see @func{eq?}); @bullet{} @funcarg{a} and @funcarg{b} are atomically equvalent (see @func{eqv?}); @bullet{} @funcarg{a} and @funcarg{b} are conses whose car and cdr parts are &@math{_{5}}recursively equal; @bullet{} @funcarg{a} and @funcarg{b} are strings of equal length whose corresponding &@math{_{5}}characters are equal characters (see @func{char=?}); @bullet{} @funcarg{a} and @funcarg{b} are vectors of equal length whose corresponding &@math{_{5}}elements are recursively equal.
 
 @c ("It" space "is" space "an" space "error" space "to" space "pass" space "a" space "circular" space "data" space "structure" space "to" space (bar "equal?") ".")
 It is an error to pass a circular data structure to @func{equal?}.
 
-@c ((colon "Bugs:") space "the" space "current" space "implementation" space "of" space "wide-character" space "strings" space "is" space "unable" space "to" space "properly" space "compare" space "strings" space "of" space "different" space "character" space "width.")
-@noindent
-@b{Bugs:} the current implementation of wide-character strings is unable to properly compare strings of different character width.
-
 @c ((colon "Conforms to:") space RfiveRS ".")
 @noindent
 @b{Conforms to:} @RfiveRS{}.
@@ -3341,12 +3336,12 @@
 @node meaning,,,
 @section @t{meaning}
 @findex meaning
-@c ("(" (bar "meaning") space (slash "procedure") ")" space produces space (slash "symbol") space "|" space (slash "list"))
-(@func{meaning} @funcarg{procedure}) @produces{} @funcarg{symbol} | @funcarg{list}
+@c ("(" (bar "meaning") space (slash "object") ")" space produces space (slash "symbol") space "|" space (slash "list"))
+(@func{meaning} @funcarg{object}) @produces{} @funcarg{symbol} | @funcarg{list}
 
 
-@c ("Returns" space "a" space "copy" space "of" space "the" space "meaning" space "data" space "stored" space "in" space (slash "procedure") space "for" space "later" space "recognition" space "by" space "the" space "optimizer.")
-Returns a copy of the meaning data stored in @funcarg{procedure} for later recognition by the optimizer.
+@c ("Returns" space "a" space "copy" space "of" space "the" space "meaning" space "data" space "associated" space "with" space (slash "object") space "for" space "later" space "recognition" space "by" space "the" space "optimizer.")
+Returns a copy of the meaning data associated with @funcarg{object} for later recognition by the optimizer.
 
 @c ((colon "Conforms to:") space "Wisp" space "internal.")
 @noindent
@@ -3672,6 +3667,27 @@
 @noindent
 @b{See also:} @func{open-input-file}, @func{call-with-output-file}.
 
+@node or,,,
+@section @t{or}
+@findex or
+@c ("(" (bar "or") space (slash "expr") space dots ")" space produces space (slash "value"))
+(@func{or} @funcarg{expr} @dots{}) @produces{} @funcarg{value}
+
+@c ("(" (bar "or") ")" space produces space (tilde "#f"))
+(@func{or}) @produces{} @t{#f}
+
+
+@c ("Evaluates" space (slash "expr") ":s" space "from" space "left" space "to" space "right" space "and" space "returns" space "the" space "value" space "of" space "the" space "first" space "expression" space "that" space "returns" space "a" space "true" space "value." space "Any" space "remaining" space "expressions" space "are" space "not" space "evaluated." space "If" space "all" space "expressions" space "evaluate" space "to" space (tilde "#f") "," space "returns" space "the" space "value" space "of" space "the" space "last" space "expression.")
+Evaluates @funcarg{expr}:s from left to right and returns the value of the first expression that returns a true value. Any remaining expressions are not evaluated. If all expressions evaluate to @t{#f}, returns the value of the last expression.
+
+@c ((colon "Conforms to:") space RfiveRS ".")
+@noindent
+@b{Conforms to:} @RfiveRS{}.
+
+@c ((colon "See also:") space (bar "and") ".")
+@noindent
+@b{See also:} @func{and}.
+
 @node pack-be-integer,,,
 @section @t{pack-be-integer}
 @findex pack-be-integer
@@ -4108,9 +4124,9 @@
 @noindent
 @b{Conforms to:} Wisp extension.
 
-@c ((colon "See also:") space (bar "string-ref") "," space (bar "vector-ref") "," space (bar "box-ref") "," space (bar "make-record-type") ".")
+@c ((colon "See also:") space (bar "vector-ref") "," space (bar "box-ref") "," space (bar "make-record-type") ".")
 @noindent
-@b{See also:} @func{string-ref}, @func{vector-ref}, @func{box-ref}, @func{make-record-type}.
+@b{See also:} @func{vector-ref}, @func{box-ref}, @func{make-record-type}.
 
 @node reverse,,,
 @section @t{reverse}
@@ -4395,16 +4411,6 @@
 @noindent
 @b{Conforms to:} SRFI-13.
 
-@node string-length,,,
-@section @t{string-length}
-@findex string-length
-@c ("(" (bar "string-length") space (slash "string") ")" space produces space (slash "cardinal"))
-(@func{string-length} @funcarg{string}) @produces{} @funcarg{cardinal}
-
-
-@c ("Returns" space "the" space "length" space "of" space (slash "string") ".")
-Returns the length of @funcarg{string}.
-
 @node string-null?,,,
 @section @t{string-null?}
 @findex string-null?
@@ -4419,28 +4425,6 @@
 @noindent
 @b{Conforms to:} SRFI-13.
 
-@node string-ref,,,
-@section @t{string-ref}
-@findex string-ref
-@c ("(" (bar "string-ref") space (slash "string") space (slash "index") ")" space accesses space (slash "char"))
-(@func{string-ref} @funcarg{string} @funcarg{index}) @accesses{} @funcarg{char}
-
-
-@c ("Accesses" space "a" space "character" space "cell" space "of" space (slash "string") "." space (slash "index") space "must" space "satisfy" space 8 "-L" space "<=" space (slash "index") space "<" space "L" space "where" space "L" space "is" space "the" space "length" space "of" space (slash "string") space "(see" space (bar "string-length") ")." space "If" space (slash "index") space "is" space "negative," space "it" space "is" space "relative" space "to" space "the" space "end" space "of" space (slash "string") ".")
-Accesses a character cell of @funcarg{string}. @funcarg{index} must satisfy &@math{_{8}}-L <= @funcarg{index} < L where L is the length of @funcarg{string} (see @func{string-length}). If @funcarg{index} is negative, it is relative to the end of @funcarg{string}.
-
-@c ((colon "Conforms to:") space RfiveRS "," space "SRFI-13," space "SRFI-17.")
-@noindent
-@b{Conforms to:} @RfiveRS{}, SRFI-13, SRFI-17.
-
-@c ((colon "Obsoletes:") space (bar "string-set!") space "of" space RfiveRS ".")
-@noindent
-@b{Obsoletes:} @func{string-set!} of @RfiveRS{}.
-
-@c ((colon "See also:") space (bar "reduce-index") ".")
-@noindent
-@b{See also:} @func{reduce-index}.
-
 @node string-upcase!,,,
 @section @t{string-upcase!}
 @findex string-upcase!
@@ -4652,8 +4636,8 @@
 (@func{symbol-ref} @funcarg{symbol} @funcarg{index}) @produces{} @funcarg{char}
 
 
-@c ("Equivalent" space "to" space "(" (bar "string-ref") space "(" (bar "symbol->string") space (slash "symbol") ")" space (slash "index") ")" space "but" space "more" space "efficient.")
-Equivalent to (@func{string-ref} (@func{symbol->string} @funcarg{symbol}) @funcarg{index}) but more efficient.
+@c ("Equivalent" space "to" space "(" (bar "ref") space "(" (bar "symbol->string") space (slash "symbol") ")" space (slash "index") ")" space "but" space "more" space "efficient.")
+Equivalent to (@func{ref} (@func{symbol->string} @funcarg{symbol}) @funcarg{index}) but more efficient.
 
 @c ((colon "Conforms to:") space "Wisp" space "extension.")
 @noindent
@@ -4980,9 +4964,9 @@
 @noindent
 @b{Conforms to:} @RfiveRS{}.
 
-@c ((colon "See also:") space (bar "make-vector") "," space (bar "vector-ref") "," space (bar "vector-length") "," space (bar "list") ".")
+@c ((colon "See also:") space (bar "make-vector") "," space (bar "vector-ref") "," space (bar "list") ".")
 @noindent
-@b{See also:} @func{make-vector}, @func{vector-ref}, @func{vector-length}, @func{list}.
+@b{See also:} @func{make-vector}, @func{vector-ref}, @func{list}.
 
 @node vector-copy,,,
 @section @t{vector-copy}

Index: worth.vim
===================================================================
RCS file: /cvsroot/wisp/wisp/doc/worth.vim,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- worth.vim	13 Sep 2002 16:34:57 -0000	1.15
+++ worth.vim	18 Sep 2002 20:54:22 -0000	1.16
@@ -32,36 +32,39 @@
 syn keyword wispFunc d+ d- d>s dhexprint dig drop dup emit emit-digit
 syn keyword wispFunc encode-digit fill get-type go-access-slot hexprint
 syn keyword wispFunc lshift m+ max min mod move negate nip not octas or
-syn keyword wispFunc over rol ror rot rshift s>d sp! sp@ space square
-syn keyword wispFunc string-data swap sys.accept sys.access sys.alarm
-syn keyword wispFunc sys.bind sys.brk sys.chdir sys.chmod sys.chroot
-syn keyword wispFunc sys.close sys.connect sys.creat sys.dup sys.dup2
-syn keyword wispFunc sys.exit sys.fchdir sys.fchmod sys.fdatasync
-syn keyword wispFunc sys.flock sys.fork sys.fstat sys.fsync
-syn keyword wispFunc sys.ftruncate sys.getcwd sys.getegid sys.geteuid
-syn keyword wispFunc sys.getgid sys.getpeername sys.getpgid sys.getpgrp
-syn keyword wispFunc sys.getpid sys.getppid sys.getsid sys.getsockname
-syn keyword wispFunc sys.getuid sys.kill sys.link sys.listen sys.lseek
-syn keyword wispFunc sys.lstat sys.mkdir sys.mlock sys.mlockall
-syn keyword wispFunc sys.munlock sys.munlockall sys.nanosleep sys.nice
-syn keyword wispFunc sys.open sys.pause sys.pipe sys.read sys.rename
-syn keyword wispFunc sys.rmdir sys.setgid sys.setpgid sys.setregid
-syn keyword wispFunc sys.setreuid sys.setsid sys.setuid sys.shutdown
-syn keyword wispFunc sys.socket sys.stat sys.stime sys.swapoff
-syn keyword wispFunc sys.swapon sys.symlink sys.sync sys.time
-syn keyword wispFunc sys.truncate sys.umask sys.unlink sys.vhangup
-syn keyword wispFunc sys.waitpid sys.write sys.write-char tetra! tetra+
-syn keyword wispFunc tetra- tetra@ tetra@++ tetras tuck type u< u<= u>
-syn keyword wispFunc u>= wisp-bool-> wisp-epilogue wisp-prologue within
+syn keyword wispFunc over require-c8string rol ror rot rshift s>d sp!
+syn keyword wispFunc sp@ space square string-data string-length swap
+syn keyword wispFunc sys.accept sys.access sys.alarm sys.bind sys.brk
+syn keyword wispFunc sys.chdir sys.chmod sys.chroot sys.close
+syn keyword wispFunc sys.connect sys.creat sys.dup sys.dup2 sys.exit
+syn keyword wispFunc sys.fchdir sys.fchmod sys.fdatasync sys.flock
+syn keyword wispFunc sys.fork sys.fstat sys.fsync sys.ftruncate
+syn keyword wispFunc sys.getcwd sys.getegid sys.geteuid sys.getgid
+syn keyword wispFunc sys.getpeername sys.getpgid sys.getpgrp sys.getpid
+syn keyword wispFunc sys.getppid sys.getsid sys.getsockname sys.getuid
+syn keyword wispFunc sys.kill sys.link sys.listen sys.lseek sys.lstat
+syn keyword wispFunc sys.mkdir sys.mlock sys.mlockall sys.munlock
+syn keyword wispFunc sys.munlockall sys.nanosleep sys.nice sys.open
+syn keyword wispFunc sys.pause sys.pipe sys.read sys.rename sys.rmdir
+syn keyword wispFunc sys.setgid sys.setpgid sys.setregid sys.setreuid
+syn keyword wispFunc sys.setsid sys.setuid sys.shutdown sys.socket
+syn keyword wispFunc sys.stat sys.stime sys.swapoff sys.swapon
+syn keyword wispFunc sys.symlink sys.sync sys.time sys.truncate
+syn keyword wispFunc sys.umask sys.unlink sys.vhangup sys.waitpid
+syn keyword wispFunc sys.write sys.write-char tetra! tetra+ tetra-
+syn keyword wispFunc tetra@ tetra@++ tetras tuck type u< u<= u> u>=
+syn keyword wispFunc wisp-bool-> wisp-epilogue wisp-prologue within
 syn keyword wispFunc wyde! wyde+ wyde- wyde@ wyde@++ wydes xor
 
 " structure management
 
 syn keyword wispLibFunc sizeof.struct-stat sizeof.struct-stat.aligned
-syn keyword wispLibFunc stat.atime@ stat.blksize@ stat.blocks@
-syn keyword wispLibFunc stat.ctime@ stat.dev@ stat.gid@ stat.ino@
-syn keyword wispLibFunc stat.mode@ stat.mtime@ stat.nlink@ stat.rdev@
-syn keyword wispLibFunc stat.size@ stat.uid@
+syn keyword wispLibFunc sizeof.struct-termios
+syn keyword wispLibFunc sizeof.struct-termios.aligned stat.atime@
+syn keyword wispLibFunc stat.blksize@ stat.blocks@ stat.ctime@
+syn keyword wispLibFunc stat.dev@ stat.gid@ stat.ino@ stat.mode@
+syn keyword wispLibFunc stat.mtime@ stat.nlink@ stat.rdev@ stat.size@
+syn keyword wispLibFunc stat.uid@
 
 syn keyword worthConstant AF_APPLETALK AF_ASH AF_ATMPVC AF_ATMSVC
 syn keyword worthConstant AF_AX25 AF_BLUETOOTH AF_BRIDGE AF_DECnet
@@ -99,7 +102,10 @@
 syn keyword worthConstant PF_IRDA PF_KEY PF_LLC PF_NETBEUI PF_NETLINK
 syn keyword worthConstant PF_NETROM PF_PACKET PF_PPPOX PF_ROSE
 syn keyword worthConstant PF_SECURITY PF_SNA PF_UNIX PF_UNSPEC
-syn keyword worthConstant PF_WANPIPE PF_X25 WNOHANG WUNTRACED
+syn keyword worthConstant PF_WANPIPE PF_X25 TCGETS TCSETS TCSETSF
+syn keyword worthConstant TCSETSW VDISCARD VEOF VEOL VEOL2 VERASE VINTR
+syn keyword worthConstant VKILL VLNEXT VMIN VQUIT VREPRINT VSTART VSTOP
+syn keyword worthConstant VSUSP VSWTC VTIME VWERASE WNOHANG WUNTRACED
 
 syn keyword worthRegister %ah %al %ax %bh %bl %bp %bx %ch %cl %cs %cx
 syn keyword worthRegister %dh %di %dl %ds %dx %eax %ebp %ebx %ecx %edi