From: <cli...@li...> - 2005-04-13 11:47:42
|
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 unix-ent.xml,1.69,1.70 (Sam Steingold) 2. clisp/src ChangeLog,1.4465,1.4466 (Sam Steingold) 3. clisp/modules/syscalls syscalls.xml,1.36,1.37 posix.lisp,1.30,1.31 configure.in,1.33,1.34 calls.c,1.104,1.105 (Sam Steingold) 4. clisp/modules/syscalls configure,1.31,1.32 config.h.in,1.30,1.31 (Sam Steingold) 5. clisp/modules/syscalls calls.c,1.105,1.106 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc unix-ent.xml,1.69,1.70 Date: Tue, 12 Apr 2005 22:34:08 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8192/doc Modified Files: unix-ent.xml Log Message: (POSIX:SYNC): implemented Index: unix-ent.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/unix-ent.xml,v retrieving revision 1.69 retrieving revision 1.70 diff -u -d -r1.69 -r1.70 --- unix-ent.xml 7 Apr 2005 21:14:42 -0000 1.69 +++ unix-ent.xml 12 Apr 2005 22:34:05 -0000 1.70 @@ -121,6 +121,9 @@ <!ENTITY setutxent "<ulink url='&unix-f;/setutxent.html'><function>setutxent</function></ulink>"> <!ENTITY mkstemp "<ulink url='&unix-f;/mkstemp.html'><function>mkstemp</function></ulink>"> <!ENTITY tempnam "<ulink url='&unix-f;/tempnam.html'><function>tempnam</function></ulink>"> +<!ENTITY fsync "<ulink url='&unix-f;/fsync.html'><function>fsync</function></ulink>"> +<!ENTITY sync "<ulink url='&unix-f;/sync.html'><function>sync</function></ulink>"> + <!-- header files --> <!ENTITY unix-b "&unix-top;/basedefs"> --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src ChangeLog,1.4465,1.4466 Date: Tue, 12 Apr 2005 22:34:07 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8192/src Modified Files: ChangeLog Log Message: (POSIX:SYNC): implemented Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4465 retrieving revision 1.4466 diff -u -d -r1.4465 -r1.4466 --- ChangeLog 10 Apr 2005 21:02:48 -0000 1.4465 +++ ChangeLog 12 Apr 2005 22:34:01 -0000 1.4466 @@ -1,3 +1,9 @@ +2005-04-12 Sam Steingold <sd...@gn...> + + * modules/syscalls/calls.c (POSIX:SYNC): implemented + * modules/syscalls/posix.lisp (SYNC): export + * modules/syscalls/configure.in (sync, fsync): check + 2005-04-10 Sam Steingold <sd...@gn...> * modules/berkeley-db/dbi.lisp (db-stat): added slot TYPE --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/syscalls syscalls.xml,1.36,1.37 posix.lisp,1.30,1.31 configure.in,1.33,1.34 calls.c,1.104,1.105 Date: Tue, 12 Apr 2005 22:34:07 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8192/modules/syscalls Modified Files: syscalls.xml posix.lisp configure.in calls.c Log Message: (POSIX:SYNC): implemented Index: calls.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/calls.c,v retrieving revision 1.104 retrieving revision 1.105 diff -u -d -r1.104 -r1.105 --- calls.c 8 Apr 2005 20:02:29 -0000 1.104 +++ calls.c 12 Apr 2005 22:34:05 -0000 1.105 @@ -469,6 +469,26 @@ } #endif +/* ============================= file sync ============================= */ +#if defined(WIN32_NATIVE) || defined(HAVE_SYNC) || defined(HAVE_FSYNC) +DEFUN(POSIX:SYNC, &optional file) { + if (missingp(STACK_0)) { /* sync() */ +# if defined(HAVE_SYNC) + begin_system_call(); sync(); end_system_call(); +# endif + } else { /* fsync() */ + Handle fd = stream_lend_handle(STACK_0,false,NULL); + begin_system_call(); +# if defined(HAVE_FSYNC) + if (-1 == fsync(fd)) OS_file_error(STACK_0); +# elif defined(WIN32_NATIVE) + if (!FlushFileBuffers(fd)) OS_file_error(STACK_0); +# endif + end_system_call(); + } + VALUES0; skipSTACK(1); +} +#endif /* ========================== process priority ========================== */ #if defined(WIN32_NATIVE) DEFCHECKER(check_priority_value,suffix=PRIORITY_CLASS,default=0, \ Index: posix.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/posix.lisp,v retrieving revision 1.30 retrieving revision 1.31 diff -u -d -r1.30 -r1.31 --- posix.lisp 8 Apr 2005 20:02:29 -0000 1.30 +++ posix.lisp 12 Apr 2005 22:34:05 -0000 1.31 @@ -12,7 +12,7 @@ #:hostent-addrtype #:file-owner #:physical-memory #+(or :win32 :cygwin) #:file-properties #:priority #:process-id #:openlog #:setlogmask #:syslog #:closelog - #:getpgid #:setpgrp #:getsid #:setsid #:setpgid #:kill + #:getpgid #:setpgrp #:getsid #:setsid #:setpgid #:kill #:sync #:erf #:erfc #:j0 #:j1 #:jn #:y0 #:y1 #:yn #:gamma #:lgamma)) (setf (package-lock "EXT") nil) Index: syscalls.xml =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/syscalls.xml,v retrieving revision 1.36 retrieving revision 1.37 diff -u -d -r1.36 -r1.37 --- syscalls.xml 8 Apr 2005 20:02:28 -0000 1.36 +++ syscalls.xml 12 Apr 2005 22:34:05 -0000 1.37 @@ -497,6 +497,11 @@ <simpara>When &mkstemp; is missing, use &tempnam;. On &win32; use <function>GetTempFileName</function>. </simpara></listitem></varlistentry> + <varlistentry id="sync"><term><code>(POSIX:SYNC &optional-amp; + &stream-r;)</code></term> + <listitem><simpara>calls &fsync; (<function>FlushFileBuffers</function> + on &win32;) on the &file-des; associated with &stream-r;, or &sync; + when &stream-r; is not supplied</simpara></listitem></varlistentry> </variablelist> </section> Index: configure.in =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/configure.in,v retrieving revision 1.33 retrieving revision 1.34 diff -u -d -r1.33 -r1.34 --- configure.in 7 Apr 2005 21:14:42 -0000 1.33 +++ configure.in 12 Apr 2005 22:34:05 -0000 1.34 @@ -42,7 +42,7 @@ openlog setlogmask syslog closelog dnl getpgid setpgrp getsid setpgid setsid kill dnl endutxent getutxent getutxid getutxline pututxline setutxent dnl -fchmod fchown fstat link stat symlink utime mknod chmod umask) +fchmod fchown fstat link stat symlink utime mknod chmod umask fsync sync) AC_FUNC_CHOWN AC_SEARCH_LIBS(erf, m) AC_CHECK_FUNCS(erf erfc lgamma fstatvfs statvfs getpriority setpriority) --__--__-- Message: 4 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/syscalls configure,1.31,1.32 config.h.in,1.30,1.31 Date: Tue, 12 Apr 2005 22:46:57 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13701/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.30 retrieving revision 1.31 diff -u -d -r1.30 -r1.31 --- config.h.in 7 Apr 2005 21:18:31 -0000 1.30 +++ config.h.in 12 Apr 2005 22:46:54 -0000 1.31 @@ -62,6 +62,9 @@ /* Define to 1 if you have the `fstatvfs' function. */ #undef HAVE_FSTATVFS +/* Define to 1 if you have the `fsync' function. */ +#undef HAVE_FSYNC + /* Define to 1 if you have the `gethostent' function. */ #undef HAVE_GETHOSTENT @@ -214,6 +217,9 @@ /* Define to 1 if you have the `symlink' function. */ #undef HAVE_SYMLINK +/* Define to 1 if you have the `sync' function. */ +#undef HAVE_SYNC + /* Define to 1 if you have the `sysconf' function. */ #undef HAVE_SYSCONF Index: configure =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/configure,v retrieving revision 1.31 retrieving revision 1.32 diff -u -d -r1.31 -r1.32 --- configure 7 Apr 2005 21:18:30 -0000 1.31 +++ configure 12 Apr 2005 22:46:54 -0000 1.32 @@ -4708,7 +4708,9 @@ -for ac_func in clock confstr fcntl gethostent sysconf uname mkstemp tempnam getlogin getpwent getpwnam getpwuid getuid openlog setlogmask syslog closelog getpgid setpgrp getsid setpgid setsid kill endutxent getutxent getutxid getutxline pututxline setutxent fchmod fchown fstat link stat symlink utime mknod chmod umask + + +for ac_func in clock confstr fcntl gethostent sysconf uname mkstemp tempnam getlogin getpwent getpwnam getpwuid getuid openlog setlogmask syslog closelog getpgid setpgrp getsid setpgid setsid kill endutxent getutxent getutxid getutxline pututxline setutxent 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: 5 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/syscalls calls.c,1.105,1.106 Date: Tue, 12 Apr 2005 22:50:08 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15631 Modified Files: calls.c Log Message: (SYNC): accept integer argument Index: calls.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/calls.c,v retrieving revision 1.105 retrieving revision 1.106 diff -u -d -r1.105 -r1.106 --- calls.c 12 Apr 2005 22:34:05 -0000 1.105 +++ calls.c 12 Apr 2005 22:50:06 -0000 1.106 @@ -476,6 +476,12 @@ # if defined(HAVE_SYNC) begin_system_call(); sync(); end_system_call(); # endif +# if defined(HAVE_FSYNC) + } else if (integerp(STACK_0)) { /* fsync() */ + begin_system_call(); + if (-1 == fsync(I_to_UL(STACK_0))) OS_error(); + end_system_call(); +# endif } else { /* fsync() */ Handle fd = stream_lend_handle(STACK_0,false,NULL); begin_system_call(); @@ -1175,7 +1181,7 @@ } else goto stat_pathname; } else if (integerp(file)) { begin_system_call(); - if (fstat(I_to_L(file),&buf) < 0) OS_error(); + if (fstat(I_to_UL(file),&buf) < 0) OS_error(); end_system_call(); } else { stat_pathname: file = physical_namestring(file); --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |