From: <cli...@li...> - 2010-12-15 01:06:53
|
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 configure,1.148,1.149 (Sam Steingold) 2. clisp/modules/rawsock rawsock.c,1.135,1.136 (Sam Steingold) 3. clisp/src ChangeLog,1.7574,1.7575 (Sam Steingold) 4. clisp/modules/syscalls syscalls.xml,1.138,1.139 (Sam Steingold) 5. clisp/modules/rawsock rawsock.xml,1.64,1.65 (Sam Steingold) 6. clisp/modules/rawsock rawsock.xml,1.65,1.66 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Mon, 08 Nov 2010 15:30:30 +0000 From: Sam Steingold <sd...@us...> Subject: clisp configure,1.148,1.149 To: cli...@li... Message-ID: <E1P...@sf...> Update of /cvsroot/clisp/clisp In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv16463 Modified Files: configure Log Message: SIGSEGV: libsigsegv 2.9 has been released Index: configure =================================================================== RCS file: /cvsroot/clisp/clisp/configure,v retrieving revision 1.148 retrieving revision 1.149 diff -u -d -r1.148 -r1.149 --- configure 14 Dec 2009 14:44:32 -0000 1.148 +++ configure 8 Nov 2010 15:30:27 -0000 1.149 @@ -683,7 +683,7 @@ if [ "$ac_cv_build" = "$ac_cv_host" ]; then host_arg=""; else host_arg=" --host=$ac_cv_host"; fi - SIGSEGV=libsigsegv-2.8 + SIGSEGV=libsigsegv-2.9 cat <<EOF 1>&2 $0: libsigsegv was not detected, thus some features, such as generational garbage collection and ------------------------------ Message: 2 Date: Mon, 08 Nov 2010 16:59:26 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/rawsock rawsock.c,1.135,1.136 To: cli...@li... Message-ID: <E1P...@sf...> Update of /cvsroot/clisp/clisp/modules/rawsock In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv32356/modules/rawsock Modified Files: rawsock.c Log Message: * modules/rawsock/rawsock.c (check_sockopt_name): add (get_sock_opt, set_sock_opt): use it instead of NOTREACHED Index: rawsock.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/rawsock/rawsock.c,v retrieving revision 1.135 retrieving revision 1.136 diff -u -d -r1.135 -r1.136 --- rawsock.c 28 Sep 2010 20:27:25 -0000 1.135 +++ rawsock.c 8 Nov 2010 16:59:23 -0000 1.136 @@ -1227,8 +1227,16 @@ if (status==0) return retform; \ else return (err_p ? OS_file_error(fixnum(sock)),NIL : S(Kerror)); \ } while(0) +static int check_sockopt_name (int name) { + pushSTACK(NIL); /* no PLACE */ + pushSTACK(fixnum(name)); + pushSTACK(TheSubr(subr_self)->name); + check_value(error_condition,GETTEXT("~S: invalid option ~S")); + return sockopt_name(value1); +} /* can trigger GC */ static object get_sock_opt (rawsock_t sock, int level, int name, int err_p) { + get_sock_opt_restart: switch (name) { # if defined(SO_DEBUG) case SO_DEBUG: @@ -1289,7 +1297,8 @@ case SO_SNDTIMEO: # endif GET_SOCK_OPT(struct timeval,sec_usec_number(val.tv_sec,val.tv_usec,0)); - default: NOTREACHED; + default: name = check_sockopt_name(name); + goto get_sock_opt_restart; } } #undef GET_SOCK_OPT @@ -1342,6 +1351,7 @@ } while(0) static void set_sock_opt (rawsock_t sock, int level, int name, object value) { if (eq(value,S(Kerror))) return; + set_sock_opt_restart: switch (name) { # if defined(SO_DEBUG) case SO_DEBUG: @@ -1405,7 +1415,8 @@ case SO_SNDTIMEO: # endif SET_SOCK_OPT(struct timeval,sec_usec(value,NIL,&val)); - default: NOTREACHED; + default: name = check_sockopt_name(name); + goto set_sock_opt_restart; } } #undef SET_SOCK_OPT ------------------------------ Message: 3 Date: Mon, 08 Nov 2010 16:59:27 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7574,1.7575 To: cli...@li... Message-ID: <E1P...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv32356/src Modified Files: ChangeLog Log Message: * modules/rawsock/rawsock.c (check_sockopt_name): add (get_sock_opt, set_sock_opt): use it instead of NOTREACHED Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7574 retrieving revision 1.7575 diff -u -d -r1.7574 -r1.7575 --- ChangeLog 30 Oct 2010 21:02:59 -0000 1.7574 +++ ChangeLog 8 Nov 2010 16:59:24 -0000 1.7575 @@ -1,3 +1,8 @@ +2010-11-08 Sam Steingold <sd...@gn...> + + * modules/rawsock/rawsock.c (check_sockopt_name): add + (get_sock_opt, set_sock_opt): use it instead of NOTREACHED + 2010-10-30 Vladimir Tzankov <vtz...@gm...> [MULTITHREAD]: add optional :TEST predicate to MT:EXEMPTION-WAIT ------------------------------ Message: 4 Date: Mon, 08 Nov 2010 17:05:52 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/syscalls syscalls.xml,1.138,1.139 To: cli...@li... Message-ID: <E1P...@sf...> Update of /cvsroot/clisp/clisp/modules/syscalls In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv1532 Modified Files: syscalls.xml Log Message: document that stream-options is setfable Index: syscalls.xml =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/syscalls.xml,v retrieving revision 1.138 retrieving revision 1.139 diff -u -d -r1.138 -r1.139 --- syscalls.xml 20 Oct 2010 18:41:12 -0000 1.138 +++ syscalls.xml 8 Nov 2010 17:05:50 -0000 1.139 @@ -296,7 +296,9 @@ &stream-r; &command-r; &optional-amp; &value-r;)</code></term> <listitem><simpara>Call <function role="unix">fcntl</function>, &command-r; can be <constant>:FD</constant> or <constant>:FL</constant>. - </simpara></listitem></varlistentry> + </simpara><simpara>When &value-r; is missing, the option is queried and + the value is returned; if &value-r; is supplied, the option is set and + no values are returned.</simpara></listitem></varlistentry> <varlistentry id="file-size"><term><code>(&file-size; &file-r;)</code></term> <term><code>(&setf; (&file-size; &file-r;) &size-r;)</code></term> <listitem><simpara>Extend &file-length; to operate on &path-des;s.</simpara> ------------------------------ Message: 5 Date: Mon, 08 Nov 2010 17:21:28 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/rawsock rawsock.xml,1.64,1.65 To: cli...@li... Message-ID: <E1P...@sf...> Update of /cvsroot/clisp/clisp/modules/rawsock In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv4406 Modified Files: rawsock.xml Log Message: make-sockaddr: data size is crucial Index: rawsock.xml =================================================================== RCS file: /cvsroot/clisp/clisp/modules/rawsock/rawsock.xml,v retrieving revision 1.64 retrieving revision 1.65 diff -u -d -r1.64 -r1.65 --- rawsock.xml 5 Dec 2009 23:03:57 -0000 1.64 +++ rawsock.xml 8 Nov 2010 17:21:25 -0000 1.65 @@ -130,7 +130,6 @@ <listitem><simpara>A &structure-object-t; <type>RAWSOCK:SOCKADDR</type> returned by <link linkend="make-sockaddr"><function>MAKE-SOCKADDR</function></link>. - You do not need to supply its length because Lisp can determine it itself. </simpara></listitem></varlistentry> <varlistentry><term><type>struct msghdr</type> &mesg-r;</term> <listitem><para>A &structure-object-t; <type>RAWSOCK:MESSAGE</type> @@ -282,8 +281,10 @@ <listitem><simpara>Create a <type>sockaddr</type> object. &data-r; should be a sequence of &ubyte-8; or an &integer-t; (meaning <code>(&make-list; &data-r; :initial-element 0)</code>). - When omitted, the standard platform-specific size is used. -</simpara></listitem></varlistentry> + When omitted, the standard platform-specific size is used.</simpara> + <note><simpara>It is critical to use &data-r; of the corrent size (usually + <code>sizeof(struct sockaddr)</code>, but may be something depending + on the protocol to be used).</simpara></note></listitem></varlistentry> <varlistentry><term><code>(RAWSOCK:SOCKADDR-FAMILY &addr-r;)</code></term> <listitem><simpara>Return the symbolic &family-r; of the <type>sockaddr</type> object.</simpara></listitem></varlistentry> ------------------------------ Message: 6 Date: Mon, 08 Nov 2010 17:24:20 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/rawsock rawsock.xml,1.65,1.66 To: cli...@li... Message-ID: <E1P...@sf...> Update of /cvsroot/clisp/clisp/modules/rawsock In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv4708 Modified Files: rawsock.xml Log Message: use &k-r; et al Index: rawsock.xml =================================================================== RCS file: /cvsroot/clisp/clisp/modules/rawsock/rawsock.xml,v retrieving revision 1.65 retrieving revision 1.66 diff -u -d -r1.65 -r1.66 --- rawsock.xml 8 Nov 2010 17:21:25 -0000 1.65 +++ rawsock.xml 8 Nov 2010 17:24:18 -0000 1.66 @@ -253,11 +253,10 @@ &key-amp; :FLAGS-OR :FLAGS-AND)</code></term> <listitem><simpara>Call <function role="bsd">getifaddrs</function> and return a &list-t; of <type>ifaddrs</type> objects, optionally - filtered using flags, e.g., <code>(ifaddrs :flags-or '(a b) - :flags-and '(c d))</code> will return a list of objects which have - flags <literal>c</literal> &and-e; <literal>d</literal> &and-e; at - least one of <literal>a</literal> &or-e; <literal>b</literal> set. -</simpara></listitem></varlistentry> + filtered using flags, e.g., <code>(ifaddrs :flags-or '(&k-r; &l-r;) + :flags-and '(&m-r; &n-r;))</code> will return a list of objects + which have &both-e; flags &m-r; &and-e; &n-r; &and-e; at least one of + &k-r; &or-e; &l-r; set.</simpara></listitem></varlistentry> <varlistentry id="rawsock-sockopt"><term><code>(RAWSOCK:SOCKET-OPTION &sock-r; &name-r; &key-amp; :LEVEL)</code></term> <term><code>(&setf; (RAWSOCK:SOCKET-OPTION &sock-r; &name-r; ------------------------------ ------------------------------------------------------------------------------ The Next 800 Companies to Lead America's Growth: New Video Whitepaper David G. Thomson, author of the best-selling book "Blueprint to a Billion" shares his insights and actions to help propel your business during the next growth cycle. Listen Now! http://p.sf.net/sfu/SAP-dev2dev ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 55, Issue 4 **************************************** |