[bknr-cvs] hans changed trunk/thirdparty/chunga/

[BKNR Commits]

Revision: 4229
Author: hans
URL: http://bknr.net/trac/changeset/4229

revert 4228
U   trunk/thirdparty/chunga/doc/index.html
U   trunk/thirdparty/chunga/packages.lisp

Modified: trunk/thirdparty/chunga/doc/index.html
===================================================================
--- trunk/thirdparty/chunga/doc/index.html	2009-02-10 13:46:48 UTC (rev 4228)
+++ trunk/thirdparty/chunga/doc/index.html	2009-02-10 14:25:30 UTC (rev 4229)
@@ -89,7 +89,9 @@
           <li><a href="#read-name-value-pair"><code>read-name-value-pair</code></a>
           <li><a href="#read-name-value-pairs"><code>read-name-value-pairs</code></a>
           <li><a href="#assert-char"><code>assert-char</code></a>
+          <li><a href="#skip-whitespace"><code>skip-whitespace</code></a>
           <li><a href="#read-char*"><code>read-char*</code></a>
+          <li><a href="#trim-whitespace"><code>trim-whitespace</code></a>
           <li><a href="#*current-error-message*"><code>*current-error-message*</code></a>
           <li><a href="#*accept-bogus-eols*"><code>*accept-bogus-eols*</code></a>
           <li><a href="#*treat-semicolon-as-continuation*"><code>*treat-semicolon-as-continuation*</code></a>
@@ -605,6 +607,25 @@
 <!-- End of entry for ASSERT-CHAR -->
 
 
+<!-- Entry for SKIP-WHITESPACE -->
+
+<p><br>[Function]<br><a class=none name='skip-whitespace'><b>skip-whitespace</b> <i>stream</i> => <i>char-or-nil</i></a>
+<blockquote><br>
+
+Consume characters from the binary stream <code><i>stream</i></code> until an <a
+href="http://www.lispworks.com/documentation/HyperSpec/Body/e_end_of.htm"><code>END-OF-FILE</code></a> is
+encountered or a non-whitespace (according to <a href="http://www.rfc.net/rfc2616.html">RFC 2616</a>)
+characters is seen.  This character is returned (or <code>NIL</code> in case
+of <a
+href="http://www.lispworks.com/documentation/HyperSpec/Body/e_end_of.htm"><code>END-OF-FILE</code></a>).
+<p>
+See <a href="#with-character-stream-semantics"><code>WITH-CHARACTER-STREAM-SEMANTICS</code></a>.
+
+</blockquote>
+
+<!-- End of entry for SKIP-WHITESPACE -->
+
+
 <!-- Entry for READ-CHAR* -->
 
 <p><br>[Function]<br><a class=none name='read-char*'><b>read-char*</b> <i>stream</i> => <i>char</i></a>
@@ -619,6 +640,19 @@
 <!-- End of entry for READ-CHAR* -->
 
 
+<!-- Entry for TRIM-WHITESPACE -->
+
+<p><br>[Function]<br><a class=none name='trim-whitespace'><b>trim-whitespace</b> <i>string</i> => <i>string'</i></a>
+<blockquote><br>
+
+Returns a version of the string <code><i>string</i></code> where spaces and tab
+characters are trimmed from the start and the end.
+
+</blockquote>
+
+<!-- End of entry for TRIM-WHITESPACE -->
+
+
 <!-- Entry for *CURRENT-ERROR-MESSAGE* -->
 
 <p><br>[Special variable]<br><a class=none name='*current-error-message*'><b>*current-error-message*</b></a>

Modified: trunk/thirdparty/chunga/packages.lisp
===================================================================
--- trunk/thirdparty/chunga/packages.lisp	2009-02-10 13:46:48 UTC (rev 4228)
+++ trunk/thirdparty/chunga/packages.lisp	2009-02-10 14:25:30 UTC (rev 4229)
@@ -59,6 +59,8 @@
            :read-name-value-pair
            :read-name-value-pairs
            :read-token
+           :skip-whitespace
            :syntax-error
+           :trim-whitespace
            :with-character-stream-semantics))