From: <cli...@li...> - 2007-09-17 19:09:09
|
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 configure,1.52,1.53 config.h.in,1.45,1.46 (Sam Steingold) 2. clisp/modules/syscalls syscalls.xml,1.78,1.79 calls.c,1.175,1.176 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Mon, 17 Sep 2007 17:55:55 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/syscalls configure,1.52,1.53 config.h.in,1.45,1.46 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv6399/modules/syscalls Modified Files: configure config.h.in Log Message: regenerated Index: config.h.in =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/config.h.in,v retrieving revision 1.45 retrieving revision 1.46 diff -u -d -r1.45 -r1.46 --- config.h.in 23 Jun 2006 19:39:29 -0000 1.45 +++ config.h.in 17 Sep 2007 17:55:53 -0000 1.46 @@ -104,6 +104,9 @@ /* Define to 1 if you have the `gethostent' function. */ #undef HAVE_GETHOSTENT +/* Define to 1 if you have the `getloadavg' function. */ +#undef HAVE_GETLOADAVG + /* Define to 1 if you have the `getlogin' function. */ #undef HAVE_GETLOGIN Index: configure =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/configure,v retrieving revision 1.52 retrieving revision 1.53 diff -u -d -r1.52 -r1.53 --- configure 27 Jun 2006 14:17:05 -0000 1.52 +++ configure 17 Sep 2007 17:55:53 -0000 1.53 @@ -5438,7 +5438,8 @@ -for ac_func in clock confstr fcntl gethostent sysconf uname getlogin getpwent getpwnam getpwuid endpwent setpwent getservbyport getservbyname getservent setservent endservent openlog setlogmask syslog closelog strftime strptime mktime getpgid setpgrp getsid setpgid setsid kill pathconf fpathconf getgrgid getgrnam getgrent endgrent setgrent endutxent getutxent getutxid getutxline pututxline setutxent mkfifo mkdir creat mkstemp tempnam mkdtemp getegid geteuid getgid getuid setegid seteuid setgid setuid fchmod fchown fstat link stat symlink utime mknod chmod umask fsync sync + +for ac_func in clock getloadavg confstr fcntl gethostent sysconf uname getlogin getpwent getpwnam getpwuid endpwent setpwent getservbyport getservbyname getservent setservent endservent openlog setlogmask syslog closelog strftime strptime mktime getpgid setpgrp getsid setpgid setsid kill pathconf fpathconf getgrgid getgrnam getgrent endgrent setgrent endutxent getutxent getutxid getutxline pututxline setutxent mkfifo mkdir creat mkstemp tempnam mkdtemp getegid geteuid getgid getuid setegid seteuid setgid setuid fchmod fchown fstat link stat symlink utime mknod chmod umask fsync sync do as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` echo "$as_me:$LINENO: checking for $ac_func" >&5 ------------------------------ Message: 2 Date: Mon, 17 Sep 2007 19:06:01 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/syscalls syscalls.xml,1.78,1.79 calls.c,1.175,1.176 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv1966/modules/syscalls Modified Files: syscalls.xml calls.c Log Message: (loadavg): accept optional percentp to return integers (non-consing!) Index: calls.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/calls.c,v retrieving revision 1.175 retrieving revision 1.176 diff -u -d -r1.175 -r1.176 --- calls.c 17 Sep 2007 17:51:42 -0000 1.175 +++ calls.c 17 Sep 2007 19:05:59 -0000 1.176 @@ -803,7 +803,7 @@ #endif /* HAVE_CLOCK */ #if defined(HAVE_GETLOADAVG) -DEFUN(POSIX:LOADAVG,) { +DEFUN(POSIX:LOADAVG, &optional percentp) { double loadavg[3]; int ret; begin_system_call(); @@ -811,9 +811,16 @@ end_system_call(); if (ret != 3) OS_error(); mv_count=3; - N_D(loadavg[0],value1); - N_D(loadavg[1],value2); - N_D(loadavg[2],value3); + if (missingp(STACK_0)) { + N_D(loadavg[0],value1); + N_D(loadavg[1],value2); + N_D(loadavg[2],value3); + } else { /* return % as ints, to avoid consing */ + value1 = fixnum((int)(loadavg[0]*100)); + value2 = fixnum((int)(loadavg[1]*100)); + value3 = fixnum((int)(loadavg[2]*100)); + } + skipSTACK(1); } #endif /* HAVE_GETLOADAVG */ Index: syscalls.xml =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/syscalls.xml,v retrieving revision 1.78 retrieving revision 1.79 diff -u -d -r1.78 -r1.79 --- syscalls.xml 17 Sep 2007 17:51:39 -0000 1.78 +++ syscalls.xml 17 Sep 2007 19:05:59 -0000 1.79 @@ -283,10 +283,12 @@ <listitem><simpara>Compute the <ulink url="http://en.wikipedia.org/wiki/BogoMips">BogoMips</ulink> rating.</simpara></listitem></varlistentry> - <varlistentry id="loadavg"><term><code>(POSIX:LOADAVG)</code></term> + <varlistentry id="loadavg"><term><code>(POSIX:LOADAVG &optional-amp; + percentp)</code></term> <listitem><simpara>Return 1, 5, and 15 minute system load averages, retrieved by <function role="bsd">getloadavg</function>. - </simpara></listitem></varlistentry> + If the argument is specified and non-&nil;, the values are returned + as integer percentiles.</simpara></listitem></varlistentry> <varlistentry id="stream-lock"><term> <code>(<function>POSIX:STREAM-LOCK</function> &stream-r; <replaceable>lock-p</replaceable> &key-amp; ------------------------------ ------------------------------------------------------------------------- This SF.net email is sponsored by: Microsoft Defy all challenges. Microsoft(R) Visual Studio 2005. http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/ ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 17, Issue 5 **************************************** |