From: <cli...@li...> - 2005-09-26 03:15:25
|
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 impent.xml,1.229,1.230 (Sam Steingold) 2. clisp/modules/syscalls configure.in,1.43,1.44 (Sam Steingold) 3. clisp/modules/syscalls configure,1.41,1.42 config.h.in,1.38,1.39 (Sam Steingold) 4. clisp/modules/syscalls syscalls.xml,1.54,1.55 (Sam Steingold) 5. clisp/modules/rawsock rawsock.c,1.43,1.44 (Sam Steingold) 6. clisp/src ChangeLog,1.4924,1.4925 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc impent.xml,1.229,1.230 Date: Sun, 25 Sep 2005 22:50:39 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6513/doc Modified Files: impent.xml Log Message: (uid-r, gid-r): added Index: impent.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impent.xml,v retrieving revision 1.229 retrieving revision 1.230 diff -u -d -r1.229 -r1.230 --- impent.xml 28 Aug 2005 20:11:12 -0000 1.229 +++ impent.xml 25 Sep 2005 22:50:37 -0000 1.230 @@ -588,6 +588,7 @@ <!ENTITY func-r "<replaceable>function</replaceable>"> <!ENTITY funcname-r "<replaceable>function-name</replaceable>"> <!ENTITY gf-r "<replaceable>generic-function</replaceable>"> +<!ENTITY gid-r "<replaceable>gid</replaceable>"> <!ENTITY hash-f "<replaceable>hash-function</replaceable>"> <!ENTITY host-r "<replaceable>host</replaceable>"> <!ENTITY hw "<replaceable>hardware</replaceable>"> @@ -676,6 +677,7 @@ <!ENTITY test-f "<replaceable>test-function</replaceable>"> <!ENTITY type-r "<replaceable>type</replaceable>"> <!ENTITY uc-r "<replaceable>uc</replaceable>"> +<!ENTITY uid-r "<replaceable>uid</replaceable>"> <!ENTITY v-r "<replaceable>v</replaceable>"> <!ENTITY val-type-r "<replaceable>value-type</replaceable>"> <!ENTITY value-r "<replaceable>value</replaceable>"> --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/syscalls configure.in,1.43,1.44 Date: Sun, 25 Sep 2005 23:05:31 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10243/modules/syscalls Modified Files: configure.in Log Message: whitespaces fixes Index: configure.in =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/configure.in,v retrieving revision 1.43 retrieving revision 1.44 diff -u -d -r1.43 -r1.44 --- configure.in 25 Sep 2005 22:46:28 -0000 1.43 +++ configure.in 25 Sep 2005 23:05:29 -0000 1.44 @@ -36,9 +36,9 @@ AC_DEFINE([HAVE_SCALAR_FSID], 1, [Define to 1 if the f_fsid member of 'struct statvfs' has a integral type.]) fi - AC_CHECK_SIZEOF(fsblkcnt_t ,,[#include <stdio.h> + AC_CHECK_SIZEOF(fsblkcnt_t,,[#include <stdio.h> #include <sys/statvfs.h>]) - AC_CHECK_SIZEOF(fsfilcnt_t ,,[#include <stdio.h> + AC_CHECK_SIZEOF(fsfilcnt_t,,[#include <stdio.h> #include <sys/statvfs.h>]) fi if test "$ac_cv_header_sys_stat_h" = "yes"; then @@ -58,8 +58,8 @@ AC_FUNC_CHOWN AC_SEARCH_LIBS(erf, m) AC_CHECK_FUNCS(erf erfc lgamma fstatvfs statvfs getpriority setpriority) -AC_CHECK_DECLS(lgamma_r, , , [#include <math.h>] ) -AC_CHECK_DECLS(signgam, , , [#include <math.h>] ) +AC_CHECK_DECLS(lgamma_r,,,[#include <math.h>]) +AC_CHECK_DECLS(signgam,,,[#include <math.h>]) AC_SEARCH_LIBS(crypt, crypt) AC_CHECK_FUNCS(crypt encrypt setkey GlobalMemoryStatusEx) CL_LSTAT @@ -72,7 +72,7 @@ #include <unistd.h> #endif #include <sys/types.h> -], [[pid_t pid = setpgrp();]])], +],[[pid_t pid = setpgrp();]])], ac_cv_func_setpgrp_posix=yes,ac_cv_func_setpgrp_posix=no)]) if test "$ac_cv_func_setpgrp_posix" = "yes"; then AC_DEFINE(HAVE_SETPGRP_POSIX,1, --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/syscalls configure,1.41,1.42 config.h.in,1.38,1.39 Date: Mon, 26 Sep 2005 01:07:23 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3956/modules/syscalls Modified Files: configure config.h.in Log Message: regenerated for whitespace fixes Index: config.h.in =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/config.h.in,v retrieving revision 1.38 retrieving revision 1.39 diff -u -d -r1.38 -r1.39 --- config.h.in 25 Sep 2005 22:48:17 -0000 1.38 +++ config.h.in 26 Sep 2005 01:07:21 -0000 1.39 @@ -337,11 +337,11 @@ /* declaration of setrlimit() needs const */ #undef SETRLIMIT_CONST -/* The size of a `fsblkcnt_t ', as computed by sizeof. */ -#undef SIZEOF_FSBLKCNT_T_ +/* The size of a `fsblkcnt_t', as computed by sizeof. */ +#undef SIZEOF_FSBLKCNT_T -/* The size of a `fsfilcnt_t ', as computed by sizeof. */ -#undef SIZEOF_FSFILCNT_T_ +/* The size of a `fsfilcnt_t', as computed by sizeof. */ +#undef SIZEOF_FSFILCNT_T /* The size of a `gid_t', as computed by sizeof. */ #undef SIZEOF_GID_T Index: configure =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/configure,v retrieving revision 1.41 retrieving revision 1.42 diff -u -d -r1.41 -r1.42 --- configure 25 Sep 2005 22:48:17 -0000 1.41 +++ configure 26 Sep 2005 01:07:21 -0000 1.42 @@ -4440,9 +4440,9 @@ _ACEOF fi - echo "$as_me:$LINENO: checking for fsblkcnt_t " >&5 -echo $ECHO_N "checking for fsblkcnt_t ... $ECHO_C" >&6 -if test "${ac_cv_type_fsblkcnt_t_+set}" = set; then + echo "$as_me:$LINENO: checking for fsblkcnt_t" >&5 +echo $ECHO_N "checking for fsblkcnt_t... $ECHO_C" >&6 +if test "${ac_cv_type_fsblkcnt_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF @@ -4457,9 +4457,9 @@ int main () { -if ((fsblkcnt_t *) 0) +if ((fsblkcnt_t *) 0) return 0; -if (sizeof (fsblkcnt_t )) +if (sizeof (fsblkcnt_t)) return 0; ; return 0; @@ -4487,24 +4487,24 @@ ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then - ac_cv_type_fsblkcnt_t_=yes + ac_cv_type_fsblkcnt_t=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 -ac_cv_type_fsblkcnt_t_=no +ac_cv_type_fsblkcnt_t=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext fi -echo "$as_me:$LINENO: result: $ac_cv_type_fsblkcnt_t_" >&5 -echo "${ECHO_T}$ac_cv_type_fsblkcnt_t_" >&6 +echo "$as_me:$LINENO: result: $ac_cv_type_fsblkcnt_t" >&5 +echo "${ECHO_T}$ac_cv_type_fsblkcnt_t" >&6 -echo "$as_me:$LINENO: checking size of fsblkcnt_t " >&5 -echo $ECHO_N "checking size of fsblkcnt_t ... $ECHO_C" >&6 -if test "${ac_cv_sizeof_fsblkcnt_t_+set}" = set; then +echo "$as_me:$LINENO: checking size of fsblkcnt_t" >&5 +echo $ECHO_N "checking size of fsblkcnt_t... $ECHO_C" >&6 +if test "${ac_cv_sizeof_fsblkcnt_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else - if test "$ac_cv_type_fsblkcnt_t_" = yes; then + if test "$ac_cv_type_fsblkcnt_t" = yes; then # The cast to unsigned long works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. @@ -4523,7 +4523,7 @@ int main () { -static int test_array [1 - 2 * !(((long) (sizeof (fsblkcnt_t ))) >= 0)]; +static int test_array [1 - 2 * !(((long) (sizeof (fsblkcnt_t))) >= 0)]; test_array [0] = 0 ; @@ -4566,7 +4566,7 @@ int main () { -static int test_array [1 - 2 * !(((long) (sizeof (fsblkcnt_t ))) <= $ac_mid)]; +static int test_array [1 - 2 * !(((long) (sizeof (fsblkcnt_t))) <= $ac_mid)]; test_array [0] = 0 ; @@ -4625,7 +4625,7 @@ int main () { -static int test_array [1 - 2 * !(((long) (sizeof (fsblkcnt_t ))) < 0)]; +static int test_array [1 - 2 * !(((long) (sizeof (fsblkcnt_t))) < 0)]; test_array [0] = 0 ; @@ -4668,7 +4668,7 @@ int main () { -static int test_array [1 - 2 * !(((long) (sizeof (fsblkcnt_t ))) >= $ac_mid)]; +static int test_array [1 - 2 * !(((long) (sizeof (fsblkcnt_t))) >= $ac_mid)]; test_array [0] = 0 ; @@ -4735,7 +4735,7 @@ int main () { -static int test_array [1 - 2 * !(((long) (sizeof (fsblkcnt_t ))) <= $ac_mid)]; +static int test_array [1 - 2 * !(((long) (sizeof (fsblkcnt_t))) <= $ac_mid)]; test_array [0] = 0 ; @@ -4774,10 +4774,10 @@ rm -f conftest.err conftest.$ac_objext conftest.$ac_ext done case $ac_lo in -?*) ac_cv_sizeof_fsblkcnt_t_=$ac_lo;; -'') { { echo "$as_me:$LINENO: error: cannot compute sizeof (fsblkcnt_t ), 77 +?*) ac_cv_sizeof_fsblkcnt_t=$ac_lo;; +'') { { echo "$as_me:$LINENO: error: cannot compute sizeof (fsblkcnt_t), 77 See \`config.log' for more details." >&5 -echo "$as_me: error: cannot compute sizeof (fsblkcnt_t ), 77 +echo "$as_me: error: cannot compute sizeof (fsblkcnt_t), 77 See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } ;; esac @@ -4798,8 +4798,8 @@ #include <stdio.h> #include <sys/statvfs.h> -long longval () { return (long) (sizeof (fsblkcnt_t )); } -unsigned long ulongval () { return (long) (sizeof (fsblkcnt_t )); } +long longval () { return (long) (sizeof (fsblkcnt_t)); } +unsigned long ulongval () { return (long) (sizeof (fsblkcnt_t)); } #include <stdio.h> #include <stdlib.h> int @@ -4809,17 +4809,17 @@ FILE *f = fopen ("conftest.val", "w"); if (! f) exit (1); - if (((long) (sizeof (fsblkcnt_t ))) < 0) + if (((long) (sizeof (fsblkcnt_t))) < 0) { long i = longval (); - if (i != ((long) (sizeof (fsblkcnt_t )))) + if (i != ((long) (sizeof (fsblkcnt_t)))) exit (1); fprintf (f, "%ld\n", i); } else { unsigned long i = ulongval (); - if (i != ((long) (sizeof (fsblkcnt_t )))) + if (i != ((long) (sizeof (fsblkcnt_t)))) exit (1); fprintf (f, "%lu\n", i); } @@ -4840,16 +4840,16 @@ ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then - ac_cv_sizeof_fsblkcnt_t_=`cat conftest.val` + ac_cv_sizeof_fsblkcnt_t=`cat conftest.val` else echo "$as_me: program exited with status $ac_status" >&5 echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ( exit $ac_status ) -{ { echo "$as_me:$LINENO: error: cannot compute sizeof (fsblkcnt_t ), 77 +{ { echo "$as_me:$LINENO: error: cannot compute sizeof (fsblkcnt_t), 77 See \`config.log' for more details." >&5 -echo "$as_me: error: cannot compute sizeof (fsblkcnt_t ), 77 +echo "$as_me: error: cannot compute sizeof (fsblkcnt_t), 77 See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi @@ -4858,19 +4858,19 @@ fi rm -f conftest.val else - ac_cv_sizeof_fsblkcnt_t_=0 + ac_cv_sizeof_fsblkcnt_t=0 fi fi -echo "$as_me:$LINENO: result: $ac_cv_sizeof_fsblkcnt_t_" >&5 -echo "${ECHO_T}$ac_cv_sizeof_fsblkcnt_t_" >&6 +echo "$as_me:$LINENO: result: $ac_cv_sizeof_fsblkcnt_t" >&5 +echo "${ECHO_T}$ac_cv_sizeof_fsblkcnt_t" >&6 cat >>confdefs.h <<_ACEOF -#define SIZEOF_FSBLKCNT_T_ $ac_cv_sizeof_fsblkcnt_t_ +#define SIZEOF_FSBLKCNT_T $ac_cv_sizeof_fsblkcnt_t _ACEOF - echo "$as_me:$LINENO: checking for fsfilcnt_t " >&5 -echo $ECHO_N "checking for fsfilcnt_t ... $ECHO_C" >&6 -if test "${ac_cv_type_fsfilcnt_t_+set}" = set; then + echo "$as_me:$LINENO: checking for fsfilcnt_t" >&5 +echo $ECHO_N "checking for fsfilcnt_t... $ECHO_C" >&6 +if test "${ac_cv_type_fsfilcnt_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF @@ -4885,9 +4885,9 @@ int main () { -if ((fsfilcnt_t *) 0) +if ((fsfilcnt_t *) 0) return 0; -if (sizeof (fsfilcnt_t )) +if (sizeof (fsfilcnt_t)) return 0; ; return 0; @@ -4915,24 +4915,24 @@ ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then - ac_cv_type_fsfilcnt_t_=yes + ac_cv_type_fsfilcnt_t=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 -ac_cv_type_fsfilcnt_t_=no +ac_cv_type_fsfilcnt_t=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext fi -echo "$as_me:$LINENO: result: $ac_cv_type_fsfilcnt_t_" >&5 -echo "${ECHO_T}$ac_cv_type_fsfilcnt_t_" >&6 +echo "$as_me:$LINENO: result: $ac_cv_type_fsfilcnt_t" >&5 +echo "${ECHO_T}$ac_cv_type_fsfilcnt_t" >&6 -echo "$as_me:$LINENO: checking size of fsfilcnt_t " >&5 -echo $ECHO_N "checking size of fsfilcnt_t ... $ECHO_C" >&6 -if test "${ac_cv_sizeof_fsfilcnt_t_+set}" = set; then +echo "$as_me:$LINENO: checking size of fsfilcnt_t" >&5 +echo $ECHO_N "checking size of fsfilcnt_t... $ECHO_C" >&6 +if test "${ac_cv_sizeof_fsfilcnt_t+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else - if test "$ac_cv_type_fsfilcnt_t_" = yes; then + if test "$ac_cv_type_fsfilcnt_t" = yes; then # The cast to unsigned long works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. @@ -4951,7 +4951,7 @@ int main () { -static int test_array [1 - 2 * !(((long) (sizeof (fsfilcnt_t ))) >= 0)]; +static int test_array [1 - 2 * !(((long) (sizeof (fsfilcnt_t))) >= 0)]; test_array [0] = 0 ; @@ -4994,7 +4994,7 @@ int main () { -static int test_array [1 - 2 * !(((long) (sizeof (fsfilcnt_t ))) <= $ac_mid)]; +static int test_array [1 - 2 * !(((long) (sizeof (fsfilcnt_t))) <= $ac_mid)]; test_array [0] = 0 ; @@ -5053,7 +5053,7 @@ int main () { -static int test_array [1 - 2 * !(((long) (sizeof (fsfilcnt_t ))) < 0)]; +static int test_array [1 - 2 * !(((long) (sizeof (fsfilcnt_t))) < 0)]; test_array [0] = 0 ; @@ -5096,7 +5096,7 @@ int main () { -static int test_array [1 - 2 * !(((long) (sizeof (fsfilcnt_t ))) >= $ac_mid)]; +static int test_array [1 - 2 * !(((long) (sizeof (fsfilcnt_t))) >= $ac_mid)]; test_array [0] = 0 ; @@ -5163,7 +5163,7 @@ int main () { -static int test_array [1 - 2 * !(((long) (sizeof (fsfilcnt_t ))) <= $ac_mid)]; +static int test_array [1 - 2 * !(((long) (sizeof (fsfilcnt_t))) <= $ac_mid)]; test_array [0] = 0 ; @@ -5202,10 +5202,10 @@ rm -f conftest.err conftest.$ac_objext conftest.$ac_ext done case $ac_lo in -?*) ac_cv_sizeof_fsfilcnt_t_=$ac_lo;; -'') { { echo "$as_me:$LINENO: error: cannot compute sizeof (fsfilcnt_t ), 77 +?*) ac_cv_sizeof_fsfilcnt_t=$ac_lo;; +'') { { echo "$as_me:$LINENO: error: cannot compute sizeof (fsfilcnt_t), 77 See \`config.log' for more details." >&5 -echo "$as_me: error: cannot compute sizeof (fsfilcnt_t ), 77 +echo "$as_me: error: cannot compute sizeof (fsfilcnt_t), 77 See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } ;; esac @@ -5226,8 +5226,8 @@ #include <stdio.h> #include <sys/statvfs.h> -long longval () { return (long) (sizeof (fsfilcnt_t )); } -unsigned long ulongval () { return (long) (sizeof (fsfilcnt_t )); } +long longval () { return (long) (sizeof (fsfilcnt_t)); } +unsigned long ulongval () { return (long) (sizeof (fsfilcnt_t)); } #include <stdio.h> #include <stdlib.h> int @@ -5237,17 +5237,17 @@ FILE *f = fopen ("conftest.val", "w"); if (! f) exit (1); - if (((long) (sizeof (fsfilcnt_t ))) < 0) + if (((long) (sizeof (fsfilcnt_t))) < 0) { long i = longval (); - if (i != ((long) (sizeof (fsfilcnt_t )))) + if (i != ((long) (sizeof (fsfilcnt_t)))) exit (1); fprintf (f, "%ld\n", i); } else { unsigned long i = ulongval (); - if (i != ((long) (sizeof (fsfilcnt_t )))) + if (i != ((long) (sizeof (fsfilcnt_t)))) exit (1); fprintf (f, "%lu\n", i); } @@ -5268,16 +5268,16 @@ ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then - ac_cv_sizeof_fsfilcnt_t_=`cat conftest.val` + ac_cv_sizeof_fsfilcnt_t=`cat conftest.val` else echo "$as_me: program exited with status $ac_status" >&5 echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ( exit $ac_status ) -{ { echo "$as_me:$LINENO: error: cannot compute sizeof (fsfilcnt_t ), 77 +{ { echo "$as_me:$LINENO: error: cannot compute sizeof (fsfilcnt_t), 77 See \`config.log' for more details." >&5 -echo "$as_me: error: cannot compute sizeof (fsfilcnt_t ), 77 +echo "$as_me: error: cannot compute sizeof (fsfilcnt_t), 77 See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi @@ -5286,13 +5286,13 @@ fi rm -f conftest.val else - ac_cv_sizeof_fsfilcnt_t_=0 + ac_cv_sizeof_fsfilcnt_t=0 fi fi -echo "$as_me:$LINENO: result: $ac_cv_sizeof_fsfilcnt_t_" >&5 -echo "${ECHO_T}$ac_cv_sizeof_fsfilcnt_t_" >&6 +echo "$as_me:$LINENO: result: $ac_cv_sizeof_fsfilcnt_t" >&5 +echo "${ECHO_T}$ac_cv_sizeof_fsfilcnt_t" >&6 cat >>confdefs.h <<_ACEOF -#define SIZEOF_FSFILCNT_T_ $ac_cv_sizeof_fsfilcnt_t_ +#define SIZEOF_FSFILCNT_T $ac_cv_sizeof_fsfilcnt_t _ACEOF --__--__-- Message: 4 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/syscalls syscalls.xml,1.54,1.55 Date: Mon, 26 Sep 2005 01:07:36 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3993/modules/syscalls Modified Files: syscalls.xml Log Message: typo: missing ";" Index: syscalls.xml =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/syscalls.xml,v retrieving revision 1.54 retrieving revision 1.55 diff -u -d -r1.54 -r1.55 --- syscalls.xml 25 Sep 2005 22:46:28 -0000 1.54 +++ syscalls.xml 26 Sep 2005 01:07:34 -0000 1.55 @@ -540,19 +540,19 @@ <listitem><simpara>calls <function role="unix">setutxent</function> </simpara></listitem></varlistentry> <varlistentry id="getuid"><term><code>(POSIX:GETUID)</code></term> - <term><code>(&setf (POSIX:GETUID) &uid-r;)</code></term> + <term><code>(&setf; (POSIX:GETUID) &uid-r;)</code></term> <listitem><simpara>Call <function role="unix">getuid</function> and <function role="unix">setuid</function>.</simpara></listitem></varlistentry> <varlistentry id="getgid"><term><code>(POSIX:GETGID)</code></term> - <term><code>(&setf (POSIX:GETGID) &gid-r;)</code></term> + <term><code>(&setf; (POSIX:GETGID) &gid-r;)</code></term> <listitem><simpara>Call <function role="unix">getgid</function> and <function role="unix">setgid</function>.</simpara></listitem></varlistentry> <varlistentry id="geteuid"><term><code>(POSIX:GETEUID)</code></term> - <term><code>(&setf (POSIX:GETEUID) &uid-r;)</code></term> + <term><code>(&setf; (POSIX:GETEUID) &uid-r;)</code></term> <listitem><simpara>Call <function role="unix">geteuid</function> and <function role="unix">seteuid</function>.</simpara></listitem></varlistentry> <varlistentry id="getegid"><term><code>(POSIX:GETEGID)</code></term> - <term><code>(&setf (POSIX:GETEGID) &gid-r;)</code></term> + <term><code>(&setf; (POSIX:GETEGID) &gid-r;)</code></term> <listitem><simpara>Call <function role="unix">getegid</function> and <function role="unix">setegid</function>.</simpara></listitem></varlistentry> <varlistentry id="mkstemp"><term><code>(POSIX:MKSTEMP &filename-r; --__--__-- Message: 5 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/rawsock rawsock.c,1.43,1.44 Date: Mon, 26 Sep 2005 01:09:34 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/rawsock In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5068/modules/rawsock Modified Files: rawsock.c Log Message: (RECV, RECVFROM, RECVMSG, SEND, SENDMSG, SENDTO): removed "MSG_" prefix from the &key arguments Index: rawsock.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/rawsock/rawsock.c,v retrieving revision 1.43 retrieving revision 1.44 diff -u -d -r1.43 -r1.44 --- rawsock.c 25 Sep 2005 16:40:16 -0000 1.43 +++ rawsock.c 26 Sep 2005 01:09:32 -0000 1.44 @@ -412,7 +412,7 @@ /* remove 3 objects from the STACK and return the RECV flag based on MSG_PEEK MSG_OOB MSG_WAITALL */ DEFFLAGSET(recv_flags,MSG_PEEK MSG_OOB MSG_WAITALL) -DEFUN(RAWSOCK:RECV,socket buffer &key MSG_PEEK MSG_OOB MSG_WAITALL) { +DEFUN(RAWSOCK:RECV,socket buffer &key PEEK OOB WAITALL) { int flags = recv_flags(); rawsock_t sock = I_to_uint(check_uint(STACK_1)); int retval; @@ -422,8 +422,7 @@ VALUES1(fixnum(retval)); skipSTACK(2); } -DEFUN(RAWSOCK:RECVFROM, socket buffer address \ - &key MSG_PEEK MSG_OOB MSG_WAITALL) { +DEFUN(RAWSOCK:RECVFROM, socket buffer address &key PEEK OOB WAITALL) { int flags = recv_flags(); rawsock_t sock = I_to_uint(check_uint(STACK_2)); int retval; @@ -442,7 +441,7 @@ } #if defined(HAVE_RECVMSG) /* not on win32 */ -DEFUN(RAWSOCK:RECVMSG,socket message &key MSG_PEEK MSG_OOB MSG_WAITALL) { +DEFUN(RAWSOCK:RECVMSG,socket message &key PEEK OOB WAITALL) { int flags = recv_flags(); rawsock_t sock = I_to_uint(check_uint(STACK_1)); int retval; @@ -468,7 +467,7 @@ /* remove 2 objects from the STACK and return the SEND flag based on MSG_OOB MSG_EOR */ DEFFLAGSET(send_flags, MSG_OOB MSG_EOR) -DEFUN(RAWSOCK:SEND,socket buffer &key MSG_OOB MSG_EOR) { +DEFUN(RAWSOCK:SEND,socket buffer &key OOB EOR) { int flags = send_flags(); rawsock_t sock = I_to_uint(check_uint(STACK_1)); int retval; @@ -479,7 +478,7 @@ } #if defined(HAVE_SENDMSG) /* not on win32 */ -DEFUN(RAWSOCK:SENDMSG,socket message &key MSG_OOB MSG_EOR) { +DEFUN(RAWSOCK:SENDMSG,socket message &key OOB EOR) { int flags = send_flags(); rawsock_t sock = I_to_uint(check_uint(STACK_1)); int retval; @@ -491,7 +490,7 @@ } #endif -DEFUN(RAWSOCK:SENDTO, socket buffer address &key MSG_OOB MSG_EOR) { +DEFUN(RAWSOCK:SENDTO, socket buffer address &key OOB EOR) { int flags = send_flags(); rawsock_t sock = I_to_uint(check_uint(STACK_2)); int retval; --__--__-- Message: 6 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src ChangeLog,1.4924,1.4925 Date: Mon, 26 Sep 2005 01:09:34 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5068/src Modified Files: ChangeLog Log Message: (RECV, RECVFROM, RECVMSG, SEND, SENDMSG, SENDTO): removed "MSG_" prefix from the &key arguments Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4924 retrieving revision 1.4925 diff -u -d -r1.4924 -r1.4925 --- ChangeLog 25 Sep 2005 22:46:24 -0000 1.4924 +++ ChangeLog 26 Sep 2005 01:09:31 -0000 1.4925 @@ -12,6 +12,8 @@ * modules/rawsock/sock.lisp (resize-buffer): export * modules/rawsock/rawsock.c (SENDTO): fixed STACK cleanup + (RECV, RECVFROM, RECVMSG, SEND, SENDMSG, SENDTO): removed "MSG_" + prefix from the &key arguments 2005-09-23 Sam Steingold <sd...@gn...> --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |