"

 COPYRIGHT (c) 1992 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

StandardSystemView subclass:#MemoryUsageView

	instanceVariableNames:'rawInfo info list sortBlock'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools'

!

!MemoryUsageView class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1992 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    this view shows an overview over the memory usage of the system.

    usage:

	MemoryUsageView new open

    Since scanning all memory takes some time, this is not done

    automatically, but upon request. See the middlebuttonmenu-'update'

    function.

"

! !

!MemoryUsageView methodsFor:'initialization'!

initialize

    |l helpView headLine|

    super initialize.

    self label:'Memory usage'.

    headLine := ' class                           # of insts  avg sz   max sz    bytes   %mem '.

    l := Label in:self.

    l origin:(0.0 @ 0.0) corner:(1.0 @ l height).

    l borderWidth:0.

    l label:headLine.

    l adjust:#left.

    self extent:((font widthOf:headLine) + (device horizontalPixelPerMillimeter * 15) rounded) @ self height.

    helpView := ScrollableView for:SelectionInListView in:self.

    helpView origin:(0.0 @ l height) corner:1.0 @ 1.0.

    list := helpView scrolledView.

    l origin:(list originRelativeTo:self) x @ 0.0.

    list font:(self font).

    l font:(self font).

    list menuHolder:self; menuPerformer:self; menuMessage:#usageMenu.

    "

     MemoryUsageView open

    "

! !

!MemoryUsageView methodsFor:'menu actions'!

inspectInstances

    |class|

    list selection notNil ifTrue:[

    ]

!

inspectOwners

    |class inspector|

    list selection notNil ifTrue:[

"/                            dict at:owner put:set

    ]

!

sortByAverageSize

    self label:'Memory usage; by average size'.

    sortBlock := [:a :b | ((a at:3)/(a at:2)) > ((b at:3)/(b at:2))].

    self updateDisplay

!

sortByClass

    self label:'Memory usage; by class'.

    sortBlock := [:a :b | (a at:1) displayString "name" < (b at:1) displayString "name"].

    self updateDisplay

    "Modified: 28.6.1996 / 14:32:38 / cg"

!

sortByInstCount

    self label:'Memory usage; by instance count'.

    sortBlock := [:a :b | (a at:2) > (b at:2) ].

    self updateDisplay

!

sortByMemoryUsage

    self label:'Memory usage; by memory usage'.

    sortBlock := [:a :b | (a at:3) > (b at:3)].

    self updateDisplay

!

update

    self updateInfo.

    self updateDisplay

!

usageMenu

    ^ PopUpMenu

	 labels:(resources array:#(

		     'sort by class'

		     'sort by inst count'

		     'sort by memory usage'

		     'sort by average size'

		     '-'

		     'inspect instances'

		     'owners'

		     '-'

		     'update'

		 ))

	 selectors:#(sortByClass

		     sortByInstCount

		     sortByMemoryUsage

		     sortByAverageSize

		     nil

		     inspectInstances

		     inspectOwners

		     nil

		     update

		    ).

! !

!MemoryUsageView methodsFor:'private'!

updateDisplay

    "update the displayed list"

    windowGroup withCursor:Cursor wait do:[

        |classNames counts sumSizes maxSizes percents avgSizes 

         l line allMemory 

         overAllCount overAllAvgSize overAllMaxSize|

        info := rawInfo asSortedCollection:sortBlock.

        classNames := info collect:[:infoArray | 

            |cls|

            cls := infoArray at:1.

                '<all classes>'

            ] ifFalse:[

                    '<all metaclasses>'

                ] ifFalse:[

                    ] ifFalse:[

                    ]

                ] 

            ] 

        ].

        counts := info collect:[:infoArray | (infoArray at:2) ].

        sumSizes := info collect:[:infoArray | (infoArray at:3) ].

        maxSizes := info collect:[:infoArray | (infoArray at:4) ].

        allMemory := sumSizes inject:0 into:[:sum :this | sum + this].

        "/ allMemory := ObjectMemory bytesUsed.

        percents := sumSizes collect:[:sz | (sz asFloat / allMemory * 1000) rounded / 10.0].

        avgSizes := (1 to:sumSizes size) collect:[:i | (((sumSizes at:i) / (counts at:i)) * 10) rounded / 10.0].

        l := OrderedCollection new.

        1 to:classNames size do:[:i |

            |line avgSz maxSz|

            avgSz := avgSizes at:i.

            maxSz := maxSizes at:i.

            avgSz = maxSz ifTrue:[

                avgSz := avgSz asInteger printString , '  '.

            ].

            line := (classNames at:i) printStringPaddedTo:33 with:Character space.

            line := line , ((counts at:i) printStringLeftPaddedTo:7).

            line := line , (avgSz printStringLeftPaddedTo:10).

            line := line , (maxSz printStringLeftPaddedTo:8).

            line := line , ((sumSizes at:i) printStringLeftPaddedTo:10).

            line := line , ((percents at:i) printStringLeftPaddedTo:7).

            l add:line

        ].

        "add summary line"

        overAllCount := counts inject:0 into:[:sum :this | sum + this].

        overAllAvgSize := ((allMemory / overAllCount) * 10) rounded / 10.0.

        overAllMaxSize := maxSizes max.

        l add:''.

        line := 'all objects' printStringPaddedTo:33 with:Character space.

        line := line , (overAllCount printStringLeftPaddedTo:7).

        line := line , (overAllAvgSize printStringLeftPaddedTo:10).

        line := line , (overAllMaxSize printStringLeftPaddedTo:8).

        line := line , (allMemory printStringLeftPaddedTo:10).

        line := line , (100.0 printStringLeftPaddedTo:7).

        l add:line.

        list list:l.

    ]

    "Created: 19.9.1995 / 15:30:47 / claus"

!

updateInfo

    "scan all memory and collect the information"

    windowGroup withCursor:Cursor questionMark do:[

        |myProcess myPriority|

        "find all objects, collect stuff in info"

        "

         this is a time consuming operation; therefore lower my priority ...

        "

        myProcess := Processor activeProcess.

        myPriority := myProcess priority.

        myProcess priority:(Processor userBackgroundPriority).

        rawInfo := IdentityDictionary new:600.

        [   |behaviorFlag|

            behaviorFlag := Behavior flagBehavior.

            ObjectMemory allObjectsDo:[:o |

                |infoArray class bytes|

"/              o isBehavior ifTrue:[

                class := o class.

                (class flags bitAnd:behaviorFlag) ~~ 0 ifTrue:[

                        o isMeta ifTrue:[

                            o isPrivate ifTrue:[

                            ] ifFalse:[

                            ]

                        ] ifFalse:[

                        ]

                    ]

                ].

                bytes := ObjectMemory sizeOf:o.

                infoArray := rawInfo at:class ifAbsent:[].

                infoArray isNil ifTrue:[

                    infoArray := Array 

                            with:class 

                            with:1 

                            with:bytes

                            with:bytes.

                    rawInfo at:class put:infoArray.

                ] ifFalse:[

                    infoArray at:2 put:((infoArray at:2) + 1).

                    infoArray at:3 put:((infoArray at:3) + bytes).

                    infoArray at:4 put:((infoArray at:4) max: bytes).

                ]

            ].

        ] valueNowOrOnUnwindDo:[

            myProcess priority:myPriority.

        ].

    ]

    "Modified: 19.9.1995 / 15:29:10 / claus"

! !

!MemoryUsageView methodsFor:'realization'!

realize

    super realize.

    self updateInfo.

    self sortByClass.

! !

!MemoryUsageView class methodsFor:'documentation'!

version

! !