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

BenchmarkMeasurementInstrument subclass:#BenchmarkCountingInstrument

	instanceVariableNames:'c0 c1'

	classVariableNames:''

	poolDictionaries:''

	category:'CalipeL-S-Core-Measurement'

!

!BenchmarkCountingInstrument class methodsFor:'queries'!

isAbstract

    "Return if this class is an abstract class.

     True is returned here for myself only; false for subclasses.

     Abstract subclasses must redefine again."

    ^ self == BenchmarkCountingInstrument.

! !

!BenchmarkCountingInstrument methodsFor:'accessing'!

measurementUnit

    "Return a string describing a unit of this instrument, i.e., msecs

     for time or '1' for plain counters"

    ^ '1'

    "Created: / 27-11-2014 / 12:39:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BenchmarkCountingInstrument methodsFor:'measurement'!

measurementStart:aBenchmarkInstance 

    "superclass BenchmarkMeasurementInstrument says that I am responsible to implement this method"

    ^ c0 := self getCounterValue

    "Created: / 27-11-2014 / 12:41:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (format): / 01-12-2014 / 02:44:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

measurementStop:aBenchmarkInstance 

    "superclass BenchmarkMeasurementInstrument says that I am responsible to implement this method"

    ^ c1 := self getCounterValue

    "Created: / 27-11-2014 / 12:41:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (format): / 01-12-2014 / 02:44:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

measurementValue

    "superclass BenchmarkMeasurementInstrument says that I am responsible to implement this method"

    ^ c1 - c0

    "Created: / 27-11-2014 / 12:40:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BenchmarkCountingInstrument methodsFor:'private'!

getCounterValue

    ^ self subclassResponsibility

    "Created: / 27-11-2014 / 12:42:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !