FunctionPackage: windowsToCDocOverviewCGDocRelNotesFAQIndexPermutedIndex
Allegro CL version 8.1
Unrevised from 8.0 to 8.1.
8.0 version

memory-status

Arguments: nil

Returns a property list whose keys are keyword symbols identifying information about status of memory (:percent-used, :total-physical, :available-physical, etc.) and whose values are the associated values.

This function simply links to the MS Windows function described here: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/memory/base/globalmemorystatus.asp, click on the MEMORYSTATUS structure (we cannot guarantee this link will remain valid). The Lisp function source is here:

(defun memory-status ()
  (declare (optimize (speed 3) (safety 1))) ; for dynamic extent
  (with-stack-fobject (struct 'memorystatus)
    (setf (fslot-value-typed 'memorystatus :foreign struct 'dwLength)
      (ff::sized-ftype-width
       (ff::iforeign-type-sftype
        (get-foreign-type 'memorystatus))))
    (GlobalMemoryStatus struct)
    (list
     :percent-used
     (- 100
        (/ (round
            (* 100 ;; this is to round to two decimal places
               (/ (* 100.0
                     (+ (fslot-value-typed 'memorystatus :foreign struct
                                           'dwAvailPhys)
                        (fslot-value-typed 'memorystatus
                                           :foreign struct 'dwAvailPageFile)))
                  (+ (fslot-value-typed 'memorystatus
                                        :foreign struct 'dwTotalPhys)
                     (fslot-value-typed 'memorystatus
                                        :foreign struct 'dwTotalPageFile)))))
           100.0))
     :total-physical (fslot-value-typed 'memorystatus :foreign struct
                                        'dwTotalPhys)
     :available-physical (fslot-value-typed 'memorystatus :foreign struct
                                            'dwAvailPhys)
     :total-paging (fslot-value-typed 'memorystatus :foreign struct
                                      'dwTotalPageFile)
     :available-paging
     (fslot-value-typed 'memorystatus :foreign struct 'dwAvailPageFile)
     :total-addressable
     (fslot-value-typed 'memorystatus :foreign struct 'dwTotalVirtual)
     :available-addressable
     (fslot-value-typed 'memorystatus :foreign struct 'dwAvailVirtual)
     :load (fslot-value-typed 'memorystatus :foreign struct 'dwMemoryLoad))))

This function is defined in the :winapi module. If that module is not loaded, evaluate (require :winapi). This function is available on Windows machines only. In releases prior to 7.0, the symbol naming this function was exported from the common-graphics package. Starting in release 7.0, it is exported only from the windows package. This function is available in images into which the :winapi module has been loaded but the Common Graphics and IDE modules have not.


Copyright (c) 1998-2009, Franz Inc. Oakland, CA., USA. All rights reserved.
Documentation for Allegro CL version 8.1. This page was not revised from the 8.0 page.
Created 2009.7.29.

ToCDocOverviewCGDocRelNotesFAQIndexPermutedIndex
Allegro CL version 8.1
Unrevised from 8.0 to 8.1.
8.0 version