From: <cli...@li...> - 2004-07-30 03:13:20
|
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/src clos-slotdef2.lisp,1.4,1.5 ChangeLog,1.3350,1.3351 (Bruno Haible) 2. clisp/src ChangeLog,1.3351,1.3352 (Sam Steingold) 3. clisp/modules/berkeley-db berkeley-db.xml,1.29,1.30 (Sam Steingold) 4. clisp/src ChangeLog,1.3352,1.3353 (Sam Steingold) 5. clisp/modules/syscalls posix.lisp,1.10,1.11 calls.c,1.37,1.38 (Sam Steingold) 6. clisp/src ChangeLog,1.3353,1.3354 (Sam Steingold) 7. clisp/modules/syscalls posix.lisp,1.11,1.12 calls.c,1.38,1.39 (Sam Steingold) --__--__-- Message: 1 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src clos-slotdef2.lisp,1.4,1.5 ChangeLog,1.3350,1.3351 Date: Thu, 29 Jul 2004 12:55:28 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30733 Modified Files: clos-slotdef2.lisp ChangeLog Log Message: Prefix all slot names with $. Index: clos-slotdef2.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/clos-slotdef2.lisp,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- clos-slotdef2.lisp 23 Jul 2004 10:56:09 -0000 1.4 +++ clos-slotdef2.lisp 29 Jul 2004 12:55:09 -0000 1.5 @@ -66,13 +66,13 @@ ;;; --------------------------------------------------------------------------- (defun structure-effective-slot-definition-initff (slotdef) - (slot-value slotdef 'initff)) + (slot-value slotdef '$initff)) (defun (setf structure-effective-slot-definition-initff) (new-value slotdef) - (setf (slot-value slotdef 'initff) new-value)) + (setf (slot-value slotdef '$initff) new-value)) (defun structure-effective-slot-definition-readonly (slotdef) - (slot-value slotdef 'readonly)) + (slot-value slotdef '$readonly)) (defun (setf structure-effective-slot-definition-readonly) (new-value slotdef) - (setf (slot-value slotdef 'readonly) new-value)) + (setf (slot-value slotdef '$readonly) new-value)) (defmethod initialize-instance ((slotdef structure-effective-slot-definition) &rest args) (apply #'initialize-instance-<structure-effective-slot-definition> slotdef args)) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3350 retrieving revision 1.3351 diff -u -d -r1.3350 -r1.3351 --- ChangeLog 29 Jul 2004 12:22:24 -0000 1.3350 +++ ChangeLog 29 Jul 2004 12:55:25 -0000 1.3351 @@ -8,6 +8,8 @@ * clos-class1.lisp (class, slotted-class, structure-class, standard-class): Likewise. * clos-method1.lisp (standard-method): Likewise. + * clos-slotdef2.lisp (structure-effective-slot-definition-initff, + structure-effective-slot-definition-readonly): Update. * clos-print.lisp (print-object@class): Update. 2004-06-05 Bruno Haible <br...@cl...> --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src ChangeLog,1.3351,1.3352 Date: Thu, 29 Jul 2004 13:08:37 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv833/src Modified Files: ChangeLog Log Message: formatting Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3351 retrieving revision 1.3352 diff -u -d -r1.3351 -r1.3352 --- ChangeLog 29 Jul 2004 12:55:25 -0000 1.3351 +++ ChangeLog 29 Jul 2004 13:08:34 -0000 1.3352 @@ -1,15 +1,15 @@ 2004-07-29 Bruno Haible <br...@cl...> - * clos-slotdef1.lisp (slot-definition, direct-slot-definition, - effective-slot-definition, structure-direct-slot-definition, - structure-effective-slot-definition): Prefix all slot names with $. + * clos-slotdef1.lisp (slot-definition, direct-slot-definition) + (effective-slot-definition, structure-direct-slot-definition) + (structure-effective-slot-definition): Prefix all slot names with $. * clos-stablehash1.lisp (standard-stablehash): Likewise. * clos-specializer1.lisp (specializer, eql-specializer): Likewise. - * clos-class1.lisp (class, slotted-class, structure-class, - standard-class): Likewise. + * clos-class1.lisp (class, slotted-class, structure-class) + (standard-class): Likewise. * clos-method1.lisp (standard-method): Likewise. - * clos-slotdef2.lisp (structure-effective-slot-definition-initff, - structure-effective-slot-definition-readonly): Update. + * clos-slotdef2.lisp (structure-effective-slot-definition-initff) + (structure-effective-slot-definition-readonly): Update. * clos-print.lisp (print-object@class): Update. 2004-06-05 Bruno Haible <br...@cl...> @@ -31,8 +31,8 @@ (initialize-instance-<standard-method>): Accept keyword clos::gf instead of :gf. * clos-method3.lisp (method-generic-function): New function. - * clos-genfun3.lisp (%call-next-method, std-add-method, - std-remove-method): Update. + * clos-genfun3.lisp (%call-next-method, std-add-method) + (std-remove-method): Update. * clos-genfun4.lisp (do-defgeneric): Update. * clos-genfun5.lisp (%no-next-method): Update. @@ -96,14 +96,14 @@ * clos-method3.lisp (method-specializers): New function. * clos-class3.lisp (install-class-direct-accessors): Pass :specializers argument, instead of :parameter-specializers argument. - * clos-class5.lisp (note-ai-change, note-ii-change, note-ri-change, - note-uirc-change, note-uidc-change, note-si-change): Update. - (valid-make-instance-keywords, - valid-update-instance-for-redefined-class-keywords, - valid-update-instance-for-different-class-keywords): Update. - (shared-initialize, reinitialize-instance, initialize-instance, - allocate-instance, make-instance): Pass :specializers argument, instead - of :parameter-specializers argument. + * clos-class5.lisp (note-ai-change, note-ii-change, note-ri-change) + (note-uirc-change, note-uidc-change, note-si-change): Update. + (valid-make-instance-keywords) + (valid-update-instance-for-redefined-class-keywords) + (valid-update-instance-for-different-class-keywords): Update. + (shared-initialize, reinitialize-instance, initialize-instance) + (allocate-instance, make-instance): Pass :specializers argument, + instead of :parameter-specializers argument. * clos-class6.lisp (class-name): Don't undefine temporarily. * clos-methcomb2.lisp (method-applicable-p, sort-applicable-methods): Update. @@ -207,8 +207,8 @@ * clos-method3.lisp (initialize-instance@standard-method): New method. (initialize-instance@standard-accessor-method): New method. (reinitialize-instance@method): New method. - * clos-class5.lisp (shared-initialize, reinitialize-instance, - initialize-instance, allocate-instance, make-instance): Use + * clos-class5.lisp (shared-initialize, reinitialize-instance) + (initialize-instance, allocate-instance, make-instance): Use make-instance-<standard-method> instead of make-standard-method. * clos-method4.lisp: New file. * clos-print.lisp (print-object): Update. --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/berkeley-db berkeley-db.xml,1.29,1.30 Date: Thu, 29 Jul 2004 13:31:27 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/berkeley-db In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5450 Modified Files: berkeley-db.xml Log Message: added a missing semicolon Index: berkeley-db.xml =================================================================== RCS file: /cvsroot/clisp/clisp/modules/berkeley-db/berkeley-db.xml,v retrieving revision 1.29 retrieving revision 1.30 diff -u -d -r1.29 -r1.30 --- berkeley-db.xml 27 Jul 2004 15:42:59 -0000 1.29 +++ berkeley-db.xml 29 Jul 2004 13:31:23 -0000 1.30 @@ -500,7 +500,7 @@ </simpara></listitem></varlistentry> <varlistentry><term><literal role="sexp">(BDB:LOCK-GET dbe object locker mode &key-amp; NOWAIT)</literal></term> - <listitem><simpara>Acquire a lock (&DBE_lock_get). + <listitem><simpara>Acquire a lock (&DBE_lock_get;). The <type>BDB:DBLOCK</type> object returned by this function will ¬-e; be released when the environment is closed. This permits long-lived locks.</simpara></listitem></varlistentry> --__--__-- Message: 4 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src ChangeLog,1.3352,1.3353 Date: Thu, 29 Jul 2004 22:37:18 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13061/src Modified Files: ChangeLog Log Message: return all 16 slots of struct rusage Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3352 retrieving revision 1.3353 diff -u -d -r1.3352 -r1.3353 --- ChangeLog 29 Jul 2004 13:08:34 -0000 1.3352 +++ ChangeLog 29 Jul 2004 22:37:14 -0000 1.3353 @@ -1,3 +1,10 @@ +2004-07-29 Sam Steingold <sd...@gn...> + + * modules/syscalls/calls.c (POSIX::USAGE): + return all 16 slots of struct rusage + * modules/syscalls/posix.lisp (POSIX::USAGE): slots SHARED-MEMORY, + DATA-MEMORY, and STACK-MEMORY replace slot INT-RSS + 2004-07-29 Bruno Haible <br...@cl...> * clos-slotdef1.lisp (slot-definition, direct-slot-definition) --__--__-- Message: 5 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/syscalls posix.lisp,1.10,1.11 calls.c,1.37,1.38 Date: Thu, 29 Jul 2004 22:37:19 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13061/modules/syscalls Modified Files: posix.lisp calls.c Log Message: return all 16 slots of struct rusage Index: calls.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/calls.c,v retrieving revision 1.37 retrieving revision 1.38 diff -u -d -r1.37 -r1.38 --- calls.c 19 Jul 2004 22:37:56 -0000 1.37 +++ calls.c 29 Jul 2004 22:37:16 -0000 1.38 @@ -522,7 +522,9 @@ tmp = ru.ru_stime.tv_sec + 0.000001 * ru.ru_stime.tv_usec; \ pushSTACK(c_double_to_DF((dfloatjanus*)&tmp)); \ pushSTACK(L_to_I(ru.ru_maxrss)); \ + pushSTACK(L_to_I(ru.ru_ixrss)); \ pushSTACK(L_to_I(ru.ru_idrss)); \ + pushSTACK(L_to_I(ru.ru_isrss)); \ pushSTACK(L_to_I(ru.ru_minflt)); \ pushSTACK(L_to_I(ru.ru_majflt)); \ pushSTACK(L_to_I(ru.ru_nswap)); \ @@ -539,9 +541,9 @@ pushSTACK(NIL); /* to save the children data */ GETRU(RUSAGE_SELF); GETRU(RUSAGE_CHILDREN); - funcall(`POSIX::MAKE-USAGE`,14); /* children */ + funcall(`POSIX::MAKE-USAGE`,16); /* children */ STACK_(14) = value1; - funcall(`POSIX::MAKE-USAGE`,14); /* self */ + funcall(`POSIX::MAKE-USAGE`,16); /* self */ value2 = popSTACK(); mv_count = 2; #undef GETRU Index: posix.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/posix.lisp,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- posix.lisp 5 May 2004 22:57:44 -0000 1.10 +++ posix.lisp 29 Jul 2004 22:37:16 -0000 1.11 @@ -181,7 +181,8 @@ '(rlimit rlimit-soft rlimit-hard limits limits-core limits-cpu limits-heap limits-file-size limits-num-files limits-stack limits-virt-mem limits-rss limits-memlock - usage usage-user-time usage-system-time usage-max-rss usage-int-rss + usage usage-user-time usage-system-time usage-max-rss + usage-shared-memory usage-data-memory usage-stack-memory usage-minor-page-faults usage-major-page-faults usage-num-swaps usage-blocks-input usage-blocks-output usage-messages-sent usage-messages-received usage-signals usage-context-switches-voluntary @@ -206,7 +207,8 @@ (memlock nil :type (or null rlimit) :read-only t)) (defstruct (usage (:constructor - make-usage (user-time system-time max-rss int-rss + make-usage (user-time system-time max-rss + shared-memory data-memory stack-memory minor-page-faults major-page-faults num-swaps blocks-input blocks-output messages-sent messages-received signals @@ -216,7 +218,9 @@ (user-time 0.0d0 :type double-float :read-only t) (system-time 0.0d0 :type double-float :read-only t) (max-rss 0 :type (signed-byte 32) :read-only t) - (int-rss 0 :type (signed-byte 32) :read-only t) + (shared-memory 0 :type (signed-byte 32) :read-only t) ; kB-sec + (data-memory 0 :type (signed-byte 32) :read-only t) ; kB-sec + (stack-memory 0 :type (signed-byte 32) :read-only t) ; kB-sec (minor-page-faults 0 :type (signed-byte 32) :read-only t) (major-page-faults 0 :type (signed-byte 32) :read-only t) (num-swaps 0 :type (signed-byte 32) :read-only t) --__--__-- Message: 6 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src ChangeLog,1.3353,1.3354 Date: Thu, 29 Jul 2004 23:06:38 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18006/src Modified Files: ChangeLog Log Message: (POSIX::LIMITS): return 11 slots Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3353 retrieving revision 1.3354 diff -u -d -r1.3353 -r1.3354 --- ChangeLog 29 Jul 2004 22:37:14 -0000 1.3353 +++ ChangeLog 29 Jul 2004 23:06:36 -0000 1.3354 @@ -2,8 +2,10 @@ * modules/syscalls/calls.c (POSIX::USAGE): return all 16 slots of struct rusage + (POSIX::LIMITS): return 11 slots * modules/syscalls/posix.lisp (POSIX::USAGE): slots SHARED-MEMORY, DATA-MEMORY, and STACK-MEMORY replace slot INT-RSS + (POSIX::LIMITS): fixed slots to comply with SUS 2004-07-29 Bruno Haible <br...@cl...> --__--__-- Message: 7 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/syscalls posix.lisp,1.11,1.12 calls.c,1.38,1.39 Date: Thu, 29 Jul 2004 23:06:39 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/syscalls In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18006/modules/syscalls Modified Files: posix.lisp calls.c Log Message: (POSIX::LIMITS): return 11 slots Index: calls.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/calls.c,v retrieving revision 1.38 retrieving revision 1.39 diff -u -d -r1.38 -r1.39 --- calls.c 29 Jul 2004 22:37:16 -0000 1.38 +++ calls.c 29 Jul 2004 23:06:37 -0000 1.39 @@ -562,28 +562,18 @@ struct rlimit rl; -# if defined(RLIMIT_CORE) - RLIM(RLIMIT_CORE); -# else - pushSTACK(NIL); -# endif # if defined(RLIMIT_CPU) RLIM(RLIMIT_CPU); # else pushSTACK(NIL); # endif -# if defined(RLIMIT_DATA) - RLIM(RLIMIT_DATA); -# else - pushSTACK(NIL); -# endif # if defined(RLIMIT_FSIZE) RLIM(RLIMIT_FSIZE); # else pushSTACK(NIL); # endif -# if defined(RLIMIT_NOFILE) - RLIM(RLIMIT_NOFILE); +# if defined(RLIMIT_DATA) + RLIM(RLIMIT_DATA); # else pushSTACK(NIL); # endif @@ -592,8 +582,8 @@ # else pushSTACK(NIL); # endif -# if defined(RLIMIT_VMEM) - RLIM(RLIMIT_VMEM); +# if defined(RLIMIT_CORE) + RLIM(RLIMIT_CORE); # else pushSTACK(NIL); # endif @@ -602,15 +592,35 @@ # else pushSTACK(NIL); # endif +# if defined(RLIMIT_NOFILE) + RLIM(RLIMIT_NOFILE); +# else + pushSTACK(NIL); +# endif +# if defined(RLIMIT_AS) + RLIM(RLIMIT_AS); +# else + pushSTACK(NIL); +# endif +# if defined(RLIMIT_NPROC) + RLIM(RLIMIT_NPROC); +# else + pushSTACK(NIL); +# endif # if defined(RLIMIT_MEMLOCK) RLIM(RLIMIT_MEMLOCK); # else pushSTACK(NIL); # endif +# if defined(RLIMIT_LOCKS) + RLIM(RLIMIT_LOCKS); +# else + pushSTACK(NIL); +# endif # undef RLIM - funcall(`POSIX::MAKE-LIMITS`,9); + funcall(`POSIX::MAKE-LIMITS`,11); } #endif /* HAVE_GETRLIMIT */ Index: posix.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/posix.lisp,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- posix.lisp 29 Jul 2004 22:37:16 -0000 1.11 +++ posix.lisp 29 Jul 2004 23:06:36 -0000 1.12 @@ -178,9 +178,10 @@ ;;; ============================================================ #+unix (progn (export - '(rlimit rlimit-soft rlimit-hard - limits limits-core limits-cpu limits-heap limits-file-size limits-num-files - limits-stack limits-virt-mem limits-rss limits-memlock + '(rlimit rlimit-cur rlimit-max + limits limits-cpu limits-file-size limits-data-size limits-stack limits-core + limits-rss limits-num-files limits-address-space limits-num-proc + limits-memlock limits-locks usage usage-user-time usage-system-time usage-max-rss usage-shared-memory usage-data-memory usage-stack-memory usage-minor-page-faults usage-major-page-faults usage-num-swaps @@ -188,23 +189,26 @@ usage-messages-received usage-signals usage-context-switches-voluntary usage-context-switches-involuntary)) -(defstruct (rlimit (:constructor make-rlimit (soft hard))) +(defstruct (rlimit (:constructor make-rlimit (cur max))) "see getrlimit(2) for details" - (soft nil :type (or null (unsigned-byte 32)) :read-only t) - (hard nil :type (or null (unsigned-byte 32)) :read-only t)) + (cur nil :type (or null (unsigned-byte 32)) :read-only t) + (max nil :type (or null (unsigned-byte 32)) :read-only t)) -(defstruct (limits (:constructor make-limits (core cpu heap file-size num-files - stack virt-mem rss memlock))) +(defstruct (limits (:constructor make-limits (cpu file-size data-size stack + core rss num-files address-space + num-proc memlock locks))) "see getrlimit(2) for details" - (core nil :type (or null rlimit) :read-only t) - (cpu nil :type (or null rlimit) :read-only t) - (heap nil :type (or null rlimit) :read-only t) + (cpu nil :type (or null rlimit) :read-only t) (file-size nil :type (or null rlimit) :read-only t) - (num-files nil :type (or null rlimit) :read-only t) + (data-size nil :type (or null rlimit) :read-only t) (stack nil :type (or null rlimit) :read-only t) - (virt-mem nil :type (or null rlimit) :read-only t) + (core nil :type (or null rlimit) :read-only t) (rss nil :type (or null rlimit) :read-only t) - (memlock nil :type (or null rlimit) :read-only t)) + (num-files nil :type (or null rlimit) :read-only t) + (address-space nil :type (or null rlimit) :read-only t) + (num-proc nil :type (or null rlimit) :read-only t) + (memlock nil :type (or null rlimit) :read-only t) + (locks nil :type (or null rlimit) :read-only t)) (defstruct (usage (:constructor make-usage (user-time system-time max-rss @@ -231,9 +235,7 @@ (signals 0 :type (signed-byte 32) :read-only t) (context-switches-voluntary 0 :type (signed-byte 32) :read-only t) (context-switches-involuntary 0 :type (signed-byte 32) :read-only t)) - ) - ;;; ============================================================ #+(or win32 cygwin) (progn (export '(file-info file-info-attributes --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |