"

jv:vdb - Visual / VM Debugger

Copyright (C) 2015-now Jan Vrany

This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License'

You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/

"

"{ Package: 'jv:vdb' }"

"{ NameSpace: Smalltalk }"

Object subclass:#VDBVirtualMemoryMap

	instanceVariableNames:'regions'

	classVariableNames:''

	poolDictionaries:''

	category:'VDB-Tools'

!

!VDBVirtualMemoryMap class methodsFor:'documentation'!

copyright

"

jv:vdb - Visual / VM Debugger

Copyright (C) 2015-now Jan Vrany

This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License'

You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/

"

! !

!VDBVirtualMemoryMap class methodsFor:'instance creation'!

fromSysInternalsVmmapDump: aStringOrFilenameOrStream

    | s |

    s := aStringOrFilenameOrStream readStream.

    ^ [

        self new initializeFromSysInternalsVmmapDump: s

    ] ensure:[ 

        s close.

    ].

    "Created: / 13-10-2017 / 12:11:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!VDBVirtualMemoryMap methodsFor:'reading'!

initializeFromSysInternalsVmmapDump: aStream

    "

    Initializes regions from SysInterna's vmmap.exe dump (.mmp)

    "

    | dump snapshot |

    dump := XML::XMLParser parse: aStream.

    snapshot := (dump / 'root' / 'Snapshots' / 'Snapshot') last.

    regions := (snapshot / 'MemoryRegions' / 'Region') 

                select:[ :node | 

                    (node @ 'Commit') ~= '0'.

                ]

                thenCollect:[ :node |

                    | region |

                    region := VDBVirtualMemoryRegion new

                                address:     (node @ 'Address') asInteger;

                                size:        (node @ 'Size') asInteger;

                                protection:  (node @ 'Protection') asInteger;

                                comment:     (node @ 'Details');

                                yourself.

                ] as: OrderedCollection.

    regions sort:[ :a :b | a address  < b address ].

    "Created: / 13-10-2017 / 12:06:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !