"{ Package: 'jv:calipel/s' }"

BenchmarkReport subclass:#BenchmarkReportText

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'CalipeL/S-Core-Reports'

!

!BenchmarkReportText methodsFor:'formatting'!

format: anObject width: width align: align

    | string |

    string := anObject printString. 

    align == #left ifTrue:[

        stream nextPutAll: string.

        stream next: ((width - string size) max: 0) put: Character space.

        ^self.

    ].

    align == #right ifTrue:[

        stream next: ((width - string size) max: 0) put: Character space.

        stream nextPutAll: string.

        ^self.

    ].

    align == #center ifTrue:[

        stream next: (((width - string size) max: 0) / 2 floor) put: Character space.

        stream nextPutAll: string.

        stream next: (((width - string size) max: 0) / 2 ceiling) put: Character space.

        ^self.

    ]

    "Created: / 31-05-2013 / 12:09:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BenchmarkReportText methodsFor:'writing'!

write

    | classes outcomes |

    classes := SortedCollection sortBlock:[:a :b|a name < b name].

    outcomes := Dictionary new.

    result outcomes do:[:each|

        (classes includes: each instance class) ifFalse:[

            classes add: each instance class.

        ].

            add: each.

    ].

    classes do:[:class|

        stream nextPutAll: '== '; nextPutAll:  class name; nextPutAll: ' =='; cr.

        (outcomes at: class) do:[:outcome|

            stream nextPutAll: ' : '.

            self format: outcome time width: 5 align: #right.

            stream nextPutAll: ' [ms]'.

            stream cr.

        ].

    ].

    stream cr.

    "Modified: / 31-05-2013 / 12:11:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BenchmarkReportText class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

!

version_MC

    ^ 'CalipeL_S-Core-JanVrany.7 5c300a20-c9d7-11e2-a959-606720e43e2c 2013-05-31T10:49:17 JanVrany'

! !