From: <cli...@li...> - 2004-08-14 03:19:05
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/doc mop.xml,2.1,2.2 (Sam Steingold) 2. clisp/doc impext.xml,1.246,1.247 (Sam Steingold) 3. clisp/doc common.xsl,1.5,1.6 (Sam Steingold) 4. clisp/doc impext.xml,1.247,1.248 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc mop.xml,2.1,2.2 Date: Fri, 13 Aug 2004 19:23:31 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27936 Modified Files: mop.xml Log Message: added missing IDs Index: mop.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/mop.xml,v retrieving revision 2.1 retrieving revision 2.2 diff -u -d -r2.1 -r2.2 --- mop.xml 12 Aug 2004 19:06:55 -0000 2.1 +++ mop.xml 13 Aug 2004 19:23:28 -0000 2.2 @@ -2486,7 +2486,7 @@ metaobject during initialization or reinitialization. (See also &setf-gf-name;.)</para></simplesect> -<simplesect><title>Methods</title> +<simplesect id="gf-name-methods"><title>Methods</title> <variablelist><title>The specified methods for the generic function metaobject reader generic functions.</title> @@ -3045,7 +3045,7 @@ (&standard-generic-function-t; &t-t;)</literal>. </simpara></listitem></varlistentry></variablelist> -<simplesect><title>Remarks</title> <!-- sds --> +<simplesect id="mop-cam-remarks"><title>Remarks</title> <!-- sds --> <para>See also the &ansi-cl; function &compute-applicable-methods;. </para></simplesect> </section><!-- compute-applicable-methods --> @@ -3120,7 +3120,7 @@ (&standard-generic-function-t; &t-t;) </literal>. </simpara></listitem></varlistentry></variablelist> -<simplesect><title>Remarks</title> +<simplesect id="mop-cam-UC-remarks"><title>Remarks</title> <para>This generic function exists to allow user extensions which alter method lookup rules, but which base the new rules only on the classes of the required arguments, to take advantage of the class-based method @@ -4301,8 +4301,9 @@ class of the &object-r; argument, which always immediately precedes the &object-r; argument.</para> -<table><title>The correspondence between slot access function and -underlying slot access generic function</title> +<table id="mop-sa-instance-stuct-table"> + <title>The correspondence between slot access function and + underlying slot access generic function</title> <tgroup cols="2" colsep="1" rowsep="1" align="center"> <thead><row><entry>Slot Access Function</entry><entry>Corresponding Slot Access Generic Function</entry></row></thead> --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc impext.xml,1.246,1.247 Date: Fri, 13 Aug 2004 19:24:22 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28061/doc Modified Files: impext.xml Log Message: added missing `para' elements Index: impext.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impext.xml,v retrieving revision 1.246 retrieving revision 1.247 diff -u -d -r1.246 -r1.247 --- impext.xml 13 Aug 2004 19:00:02 -0000 1.246 +++ impext.xml 13 Aug 2004 19:24:19 -0000 1.247 @@ -160,7 +160,7 @@ might look as follows.</para> <formalpara id="i18n-non-i"><title>prog.lisp</title> -<programlisting language="lisp"> +<para><programlisting language="lisp"> (setq n (parse-integer (first &args;))) (format t "~A~%" "'Your command, please?', asked the waiter.") @@ -168,7 +168,7 @@ (format t "~@?~%" (if (= n 1) "a piece of cake" "~D pieces of cake") n) -</programlisting></formalpara> +</programlisting></para></formalpara> <para>After being internationalized, all strings are wrapped in &gettext; calls, and &ngettext; is used for plurals. @@ -176,7 +176,7 @@ the current directory.</para> <formalpara id="i18n-i"><title>prog.lisp</title> -<programlisting language="lisp"> +<para><programlisting language="lisp"> (setf (textdomain) "prog") (setf (textdomaindir "prog") "./") @@ -188,13 +188,13 @@ (format t "~@?~%" (ngettext "a piece of cake" "~D pieces of cake" n) n) -</programlisting></formalpara> +</programlisting></para></formalpara> <para>For ease of reading, it is customary to define an abbreviation for the &gettext; function. An underscore is customary.</para> <formalpara id="i18n-i-abbrev"><title>prog.lisp</title> -<programlisting language="lisp"> +<para><programlisting language="lisp"> (setf (textdomaindir "prog") "./") (defun _ (msgid) (gettext msgid "prog")) @@ -206,7 +206,7 @@ (format t "~@?~%" (ngettext "a piece of cake" "~D pieces of cake" n "prog") n) -</programlisting></formalpara> +</programlisting></para></formalpara> <para>Now the program's maintainer creates a message catalog template through the command @@ -221,7 +221,7 @@ <para>The message catalog template looks roughly like this.</para> <formalpara id="i18n-pot"><title>prog.pot</title> -<programlisting language="pot"> +<para><programlisting language="pot"> msgid "'Your command, please?', asked the waiter." msgstr "" @@ -229,12 +229,12 @@ msgid_plural "%d pieces of cake" msgstr[0] "" msgstr[1] "" -</programlisting></formalpara> +</programlisting></para></formalpara> <para>Then a French translator creates a French message catalog</para> <formalpara id="i18n-fr-po"><title>prog.fr.po</title> -<programlisting language="po"> +<para><programlisting language="po"> msgid "" msgstr "" "Content-Type: text/plain; charset=ISO-8859-1\n" @@ -248,7 +248,7 @@ msgid_plural "%d pieces of cake" msgstr[0] "un morceau de gateau" msgstr[1] "%d morceaux de gateau" -</programlisting></formalpara> +</programlisting></para></formalpara> <para>and sends it to the program's maintainer.</para> --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc common.xsl,1.5,1.6 Date: Fri, 13 Aug 2004 19:25:22 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28210 Modified Files: common.xsl Log Message: (user.footer.content): output `bookinfo' (impnotes version/date) Index: common.xsl =================================================================== RCS file: /cvsroot/clisp/clisp/doc/common.xsl,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- common.xsl 17 Jun 2004 19:40:57 -0000 1.5 +++ common.xsl 13 Aug 2004 19:25:19 -0000 1.6 @@ -32,7 +32,7 @@ </xsl:template> <xsl:param name="generate.toc"> <!-- toc in refentry --> - refentry toc +refentry toc appendix toc,title article/appendix nop article toc,title @@ -80,6 +80,11 @@ <td align="center"><xsl:value-of select="refentryinfo/subtitle"/></td> <td align="right"><xsl:value-of select="refentryinfo/date"/></td></th> </table></div></xsl:if> + <xsl:if test="bookinfo"><div class="bookinfo"> + <hr width="100%"/><table width="100%"> + <th><td align="left"><xsl:value-of select="bookinfo/subtitle"/></td> + <td align="right"><xsl:value-of select="bookinfo/date"/></td></th> + </table></div></xsl:if> <div class="custom-footer"><hr width="100%"/><table width="100%"> <tr><td align="left"><a href="http://clisp.cons.org"> <img src="clisp.png" width="48" height="48" alt="[CLISP home]"/></a></td> --__--__-- Message: 4 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc impext.xml,1.247,1.248 Date: Fri, 13 Aug 2004 21:19:53 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14649 Modified Files: impext.xml Log Message: The &http; protocol also requires &dos-k; line terminators Index: impext.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impext.xml,v retrieving revision 1.247 retrieving revision 1.248 diff -u -d -r1.247 -r1.248 --- impext.xml 13 Aug 2004 19:24:19 -0000 1.247 +++ impext.xml 13 Aug 2004 21:19:51 -0000 1.248 @@ -782,6 +782,23 @@ sometimes they also accept &unix-k; line terminators or produce &mac-k; line terminators.</para> +<para>The &http; protocol also requires &dos-k; line terminators: +<programlisting language="lisp"> +(&with-open-stream; (s (&so-connect; 80 &host-r; &extfmt; &dos-k;)) + (&format; s "GET foo.jpeg HTTP/1.0~%") + (&sost-shut; s &output-k;) + (&loop; :with content-length :and marker = "Content-length: " + :for line = (&read-line; s nil nil) + :until (&zerop; (&length; line)) :do + (&when; (&string-eq; line "Content-length: " :end1 (&length; marker)) + (&setq; content-length (&parse-integer; line :start (&length; marker))) + :finally (&return; (&let; ((data (&make-array; content-length + :element-type '&unsigned-byte-8;))) + (&setf; (&stream-element-type; s) '&unsigned-byte-8;) + (&rd-by-seq; data s) + data))))) +</programlisting></para> + <para>The line terminator mode is relevant only for output (writing to a &file-pipe-socket-s;). During input, all three kinds of line terminators are recognized. See also <xref linkend="clhs-newline"/>.</para> --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |