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

"{ NameSpace: Smalltalk }"

Object subclass:#BenchmarkResultC

	instanceVariableNames:'timestamp outcomes runs'

	classVariableNames:''

	poolDictionaries:''

	category:'CalipeL-S-Core'

!

!BenchmarkResultC class methodsFor:'instance creation'!

new

    "return an initialized instance"

    ^ self basicNew initialize.

! !

!BenchmarkResultC methodsFor:'accessing'!

outcomes

    ^ outcomes

!

outcomesDo: aBlock

    "Iterate outcomes, perform given block.

     outcomes are sorted by benchmark instance name first,

     then by benchmark name"

    ^self outcomesDo: aBlock separatedBy: nil

    "Created: / 11-06-2013 / 23:11:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

outcomesDo: aBlock separatedBy: anotherBlock

    "Iterate outcomes, perform given block.

     outcomes are sorted by benchmark instance name first,

     then by benchmark name"

    | classes classesOutcomes |

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

    classesOutcomes := Dictionary new.

    outcomes do:[:each|

        (classes includes: each benchmark instance class) ifFalse:[

            classes add: each benchmark instance class.

        ].

        (classesOutcomes at: each benchmark instance class ifAbsentPut:[SortedCollection sortBlock:[:a :b|a benchmark selector < b benchmark selector]])

            add: each.

    ].

    classes 

        do:[:class|(classesOutcomes at: class) do: aBlock separatedBy: anotherBlock]

        separatedBy: anotherBlock

    "Created: / 11-06-2013 / 23:37:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

runs

    "Return how many times each benchmark is run." 

    ^ runs

    "Modified (format): / 04-06-2013 / 22:25:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

runs:anInteger

     "Sets how many times each benchmark is run." 

    runs := anInteger.

    "Modified (comment): / 04-06-2013 / 22:25:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

timestamp

    ^ timestamp

    "Created: / 23-06-2013 / 00:54:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BenchmarkResultC methodsFor:'adding & removing'!

addOutcome: outcome

    outcomes add: outcome

    "Created: / 25-07-2013 / 23:53:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BenchmarkResultC methodsFor:'initialization'!

initialize

    "Invoked when a new instance is created."

    outcomes := OrderedCollection new.

    runs := 1.

    "Modified: / 04-06-2013 / 22:23:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

initializeTimestamp

        ^self

    ].

        ^self

    ].

    self error: 'Unsupported platform'

    "Created: / 23-06-2013 / 00:39:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

initializeTimestampIfNotAlready

    timestamp isNil ifTrue:[

        self initializeTimestamp

    ]

    "Created: / 23-06-2013 / 00:39:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BenchmarkResultC methodsFor:'inspecting'!

inspector2TabJSON

    <inspector2Tab>

    ^ (self newInspector2Tab)

        label:'JSON report';

        priority:50;

        text: [ String streamContents: [:s | BenchmarkReport json write: self on: s ] ];

        yourself

    "Modified: / 25-11-2014 / 01:07:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

inspector2TabTEXT

    <inspector2Tab>

    ^ (self newInspector2Tab)

        label:'Text report';

        priority:51;

        text: [ String streamContents: [:s | BenchmarkReport text write: self on: s ] ];

        yourself

    "Created: / 25-11-2014 / 01:07:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BenchmarkResultC methodsFor:'printing & storing'!

printOn:aStream

    "append a printed representation if the receiver to the argument, aStream"

    aStream nextPutAll: 'Benchmark resut:'; cr.

    BenchmarkReport text write: self on: aStream

    "Modified: / 31-05-2013 / 10:38:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BenchmarkResultC 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'

! !