From: <cli...@li...> - 2005-12-24 04:15:08
|
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/modules/syscalls syscalls.xml,1.64,1.65 (Sam Steingold) 2. clisp/src ChangeLog,1.5192,1.5193 (Sam Steingold) 3. clisp/modules/syscalls calls.c,1.163,1.164 (Sam Steingold) 4. clisp/src ChangeLog,1.5193,1.5194 (Jörg Höhle) 5. clisp/src ChangeLog,1.5194,1.5195 (Sam Steingold) 6. clisp/modules/syscalls syscalls.xml,1.65,1.66 calls.c,1.164,1.165 (Sam Steingold) 7. clisp/src io.d,1.292,1.293 (Sam Steingold) 8. clisp/src TODO,1.120,1.121 (Sam Steingold) 9. clisp/src spvw_debug.d,1.70,1.71 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/syscalls syscalls.xml,1.64,1.65 Date: Fri, 23 Dec 2005 14:52:31 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23383/modules/syscalls Modified Files: syscalls.xml Log Message: article Index: syscalls.xml =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/syscalls.xml,v retrieving revision 1.64 retrieving revision 1.65 diff -u -d -r1.64 -r1.65 --- syscalls.xml 18 Nov 2005 19:21:08 -0000 1.64 +++ syscalls.xml 23 Dec 2005 14:52:29 -0000 1.65 @@ -223,7 +223,7 @@ <varlistentry id="rlimit"><term><code>(&rlimit; &optional-amp; &what-r;)</code></term> <listitem><simpara>Return the current and the maximal limits as two - values when &what-r; is specified or a &alist; of all available + values when &what-r; is specified or the &alist; of all available limits (as an <type>RLIMIT</type> structure) when &what-r; is missing or &nil;, by calling <function role="unix">getrlimit</function>. </simpara></listitem></varlistentry> --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src ChangeLog,1.5192,1.5193 Date: Fri, 23 Dec 2005 14:55:27 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23889/src Modified Files: ChangeLog Log Message: (RLIMIT): never signal an error when what is missing an the alist is returned Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5192 retrieving revision 1.5193 diff -u -d -r1.5192 -r1.5193 --- ChangeLog 22 Dec 2005 15:25:21 -0000 1.5192 +++ ChangeLog 23 Dec 2005 14:55:24 -0000 1.5193 @@ -1,3 +1,8 @@ +2005-12-23 Sam Steingold <sd...@gn...> + + * modules/syscalls/calls.c (RLIMIT): never signal an error when + what is missing an the alist is returned + 2005-12-22 Sam Steingold <sd...@gn...> * lispbibl.d, socket.d, stream.d: "interface" is a win32 keyword --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/syscalls calls.c,1.163,1.164 Date: Fri, 23 Dec 2005 14:55:28 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23889/modules/syscalls Modified Files: calls.c Log Message: (RLIMIT): never signal an error when what is missing an the alist is returned Index: calls.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/calls.c,v retrieving revision 1.163 retrieving revision 1.164 diff -u -d -r1.163 -r1.164 --- calls.c 22 Dec 2005 16:51:58 -0000 1.163 +++ calls.c 23 Dec 2005 14:55:25 -0000 1.164 @@ -434,7 +434,8 @@ return asciz_to_string(path,GLO(pathname_encoding)); } #endif -DEFUN(POSIX:MKSTEMP, template &key DIRECTION BUFFERED EXTERNAL-FORMAT ELEMENT-TYPE) { +DEFUN(POSIX:MKSTEMP, template &key DIRECTION BUFFERED EXTERNAL-FORMAT \ + ELEMENT-TYPE) { #if defined(HAVE_MKSTEMP) /* http://www.opengroup.org/onlinepubs/009695399/functions/mkstemp.html */ object fname = physical_namestring(STACK_4); @@ -1067,28 +1068,31 @@ #if defined(HAVE_GETRLIMIT) DEFUN(POSIX::RLIMIT, &optional what) { /* getrlimit(3) */ -#define RLIM(what) \ - begin_system_call(); \ - if (getrlimit(what,&rl)) OS_error(); \ - end_system_call(); \ - pushSTACK(rlim_to_I(rl.rlim_cur)); pushSTACK(rlim_to_I(rl.rlim_max)) - struct rlimit rl; object what = popSTACK(); if (!missingp(what)) { int cmd = getrlimit_arg(what); - RLIM(cmd); - funcall(L(values),2); + begin_system_call(); + if (getrlimit(cmd,&rl)) OS_error(); + end_system_call(); + pushSTACK(rlim_to_I(rl.rlim_cur)); pushSTACK(rlim_to_I(rl.rlim_max)); + VALUES2(STACK_1,STACK_0); skipSTACK(2); } else { unsigned int pos; for (pos = 0; pos < getrlimit_arg_map.size; pos++) { + int status; pushSTACK(*getrlimit_arg_map.table[pos].l_const); - RLIM(getrlimit_arg_map.table[pos].c_const); - funcall(`POSIX::MAKE-RLIMIT`,2); pushSTACK(value1); + begin_system_call(); + status = getrlimit(getrlimit_arg_map.table[pos].c_const,&rl); + end_system_call(); + if (status) pushSTACK(S(Kerror)); + else { + pushSTACK(rlim_to_I(rl.rlim_cur)); pushSTACK(rlim_to_I(rl.rlim_max)); + funcall(`POSIX::MAKE-RLIMIT`,2); pushSTACK(value1); + } } VALUES1(listof(2*getrlimit_arg_map.size)); } -#undef RLIM } #endif /* HAVE_GETRLIMIT */ #if defined(HAVE_SETRLIMIT) --__--__-- Message: 4 From: Jörg Höhle <ho...@us...> To: cli...@li... Subject: clisp/src ChangeLog,1.5193,1.5194 Date: Fri, 23 Dec 2005 16:34:36 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11727/src Modified Files: ChangeLog Log Message: typical buffer overflow vulnerability: must use syslog("%s",string) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5193 retrieving revision 1.5194 diff -u -d -r1.5193 -r1.5194 --- ChangeLog 23 Dec 2005 14:55:24 -0000 1.5193 +++ ChangeLog 23 Dec 2005 16:34:34 -0000 1.5194 @@ -7,6 +7,11 @@ * lispbibl.d, socket.d, stream.d: "interface" is a win32 keyword +2005-12-22 Jörg Höhle <ho...@us...> + + * modules/syscalls/calls.c (syslog): remove typical stack overflow + vulnerability. syslog() is varargs. Must use syslog("%s",string) + 2005-12-21 Jörg Höhle <ho...@us...> * clhs.lisp (http-proxy): downcase environment variable http_proxy --__--__-- Message: 5 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src ChangeLog,1.5194,1.5195 Date: Fri, 23 Dec 2005 19:17:42 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24242/src Modified Files: ChangeLog Log Message: revert Joerg's (syslog) patch, add doc and comment about %m Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5194 retrieving revision 1.5195 diff -u -d -r1.5194 -r1.5195 --- ChangeLog 23 Dec 2005 16:34:34 -0000 1.5194 +++ ChangeLog 23 Dec 2005 19:17:39 -0000 1.5195 @@ -1,17 +1,12 @@ 2005-12-23 Sam Steingold <sd...@gn...> * modules/syscalls/calls.c (RLIMIT): never signal an error when - what is missing an the alist is returned + "what" is missing and the alist is returned 2005-12-22 Sam Steingold <sd...@gn...> * lispbibl.d, socket.d, stream.d: "interface" is a win32 keyword -2005-12-22 Jörg Höhle <ho...@us...> - - * modules/syscalls/calls.c (syslog): remove typical stack overflow - vulnerability. syslog() is varargs. Must use syslog("%s",string) - 2005-12-21 Jörg Höhle <ho...@us...> * clhs.lisp (http-proxy): downcase environment variable http_proxy --__--__-- Message: 6 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/syscalls syscalls.xml,1.65,1.66 calls.c,1.164,1.165 Date: Fri, 23 Dec 2005 19:17:42 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24242/modules/syscalls Modified Files: syscalls.xml calls.c Log Message: revert Joerg's (syslog) patch, add doc and comment about %m Index: calls.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/calls.c,v retrieving revision 1.164 retrieving revision 1.165 diff -u -d -r1.164 -r1.165 --- calls.c 23 Dec 2005 14:55:25 -0000 1.164 +++ calls.c 23 Dec 2005 19:17:40 -0000 1.165 @@ -325,7 +325,9 @@ check_syslog_severity(STACK_2) | check_syslog_facility(STACK_1); with_string_0(STACK_0 = check_string(STACK_0),GLO(misc_encoding),mesg, { begin_system_call(); - syslog(priority,"%s",mesg); + /* NOTE: syslog(priority,"%s",mesg) is WRONG because it disables %m, see + http://www.opengroup.org/onlinepubs/009695399/functions/syslog.html */ + syslog(priority,mesg); end_system_call(); }); VALUES0; skipSTACK(3); Index: syscalls.xml =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/syscalls.xml,v retrieving revision 1.65 retrieving revision 1.66 diff -u -d -r1.65 -r1.66 --- syscalls.xml 23 Dec 2005 14:52:29 -0000 1.65 +++ syscalls.xml 23 Dec 2005 19:17:40 -0000 1.66 @@ -510,8 +510,13 @@ <varlistentry id="syslog"><term><code>(POSIX:SYSLOG severity facility &fmt-r; &rest-amp; &args-r;)</code></term> <listitem><simpara>calls <function role="unix">syslog</function> on - <code>(&apply; &format; &nil; &fmt-r; &args-r;)</code> - </simpara></listitem></varlistentry> + <code>(&apply; &format; &nil; &fmt-r; &args-r;)</code></simpara> + <warning><simpara>You can use the <literal role="data">%m</literal> + conversion specification which is converted to the + <varname role="unix">errno</varname> value, but you must quote all + other <literal>%</literal> characters: <code>(syslog :alert :user + "User Alert: errno=%m (~5f%% done)" progress)</code> + </simpara></warning></listitem></varlistentry> <varlistentry id="closelog"><term><code>(POSIX:CLOSELOG)</code></term> <listitem><simpara>calls <function role="unix">closelog</function> </simpara></listitem></varlistentry> --__--__-- Message: 7 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src io.d,1.292,1.293 Date: Fri, 23 Dec 2005 19:18:01 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24329/src Modified Files: io.d Log Message: indent Index: io.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/io.d,v retrieving revision 1.292 retrieving revision 1.293 diff -u -d -r1.292 -r1.293 --- io.d 14 Nov 2005 17:21:30 -0000 1.292 +++ io.d 23 Dec 2005 19:17:59 -0000 1.293 @@ -1658,7 +1658,7 @@ case a_minus: attrptr++; index++; # skip sign of the exponent default: - break; + break; } for (; index<len; index++) { /* next character in exponent: */ # from now on only digits are allowed: --__--__-- Message: 8 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src TODO,1.120,1.121 Date: Fri, 23 Dec 2005 19:19:59 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24508/src Modified Files: TODO Log Message: link to bug #1389060 Index: TODO =================================================================== RCS file: /cvsroot/clisp/clisp/src/TODO,v retrieving revision 1.120 retrieving revision 1.121 diff -u -d -r1.120 -r1.121 --- TODO 30 Nov 2005 22:10:56 -0000 1.120 +++ TODO 23 Dec 2005 19:19:57 -0000 1.121 @@ -130,6 +130,7 @@ (format nil "~G" 1d23) => "099999999999999990000000.0 " +http://sourceforge.net/tracker/index.php?func=detail&aid=1389060&group_id=1355&atid=101355 contagion warnings: engineering vs portability --__--__-- Message: 9 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src spvw_debug.d,1.70,1.71 Date: Fri, 23 Dec 2005 19:20:20 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24649/src Modified Files: spvw_debug.d Log Message: added TheDfloat Index: spvw_debug.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/spvw_debug.d,v retrieving revision 1.70 retrieving revision 1.71 diff -u -d -r1.70 -r1.71 --- spvw_debug.d 21 Dec 2005 18:36:01 -0000 1.70 +++ spvw_debug.d 23 Dec 2005 19:20:18 -0000 1.71 @@ -452,5 +452,6 @@ FUN(object,object,Cdr) FUN(object,Symbol,TheSymbol) FUN(object,Hashtable,TheHashtable) +FUN(object,Dfloat,TheDfloat) #undef FUN #endif --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |