Web: Fixed filtering by tags in "Results" page
"Results" page not allow for filtering by tags.
* If both, configuration and tags are specified, only reports
for specified configurations AND with at least one of the
specified tags are shown.
* If only tags are specified, then all reports on all configurations
having at keast one of specified tags are shown.
Kudos to Jan Kurs for forcing me to fix this :-)
"{ Package: 'jv:calipel/s' }"
"{ NameSpace: Smalltalk }"
Object subclass:#BenchmarkPlatform
instanceVariableNames:'instruments'
classVariableNames:'Current'
poolDictionaries:''
category:'CalipeL-S-Core'
!
!BenchmarkPlatform class methodsFor:'documentation'!
documentation
"
Replace 'Object', 'NewClass1' and
the empty string arguments by true values.
Install (or change) the class by 'accepting',
either via the menu or the keyboard (usually CMD-A).
You can also change the category simply by editing
the categoryString and accepting.
To be nice to others (and yourself later), do not forget to
add some documentation; preferably under the classes documentation
protocol.
(see the `create documentation stubs' item in the methodList menu;
switch from instance to class to find this menu item.)
Notice, that ST/X uses the convention to document the class using
comment-only class methods (however, ST80 comments are supported and
can be changed via the class-documentation menu).
"
! !
!BenchmarkPlatform class methodsFor:'instance creation'!
new
"return an initialized instance"
^ self basicNew initialize.
! !
!BenchmarkPlatform class methodsFor:'accessing'!
current
^Current
"Created: / 06-06-2013 / 08:54:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!BenchmarkPlatform class methodsFor:'class initialization'!
setCurrent: aBenchmarkPlatform
Current := aBenchmarkPlatform
"Created: / 30-09-2015 / 06:16:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!BenchmarkPlatform methodsFor:'accessing-instruments'!
instruments
"Return a list of non-intrusive instruments available on this
platform."
"`instruments` variable is initialized in #initialize"
^ instruments
"Created: / 27-11-2014 / 12:37:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified (comment): / 27-11-2014 / 13:41:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!BenchmarkPlatform methodsFor:'accessing-performance counters'!
millisecondTime
"raise an error: must be redefined in concrete subclass(es)"
^ self subclassResponsibility
! !
!BenchmarkPlatform methodsFor:'acessing-streams'!
stderr
"raise an error: must be redefined in concrete subclass(es)"
^ self subclassResponsibility
!
stdout
"raise an error: must be redefined in concrete subclass(es)"
^ self subclassResponsibility
! !
!BenchmarkPlatform methodsFor:'configuration'!
configurationStringMachineId
self subclassResponsibility
"Created: / 13-07-2013 / 22:45:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
configurationStringOS
"Return the operating system on which the system is running such as
'Linux' or 'Windows XP'"
^ self subclassResponsibility
"Created: / 22-06-2013 / 22:55:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 21-09-2015 / 15:36:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
configurationStringRuntime
"Return the runtime identification string, for example
'Smalltalk/X 6.2.5 642bit' or 'Pharo 5.0 32bit'."
^ self subclassResponsibility
"Created: / 22-06-2013 / 22:55:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 21-09-2015 / 15:38:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!BenchmarkPlatform methodsFor:'exit'!
exit:arg
"raise an error: must be redefined in concrete subclass(es)"
^ self subclassResponsibility
! !
!BenchmarkPlatform methodsFor:'initialization'!
initialize
"Invoked when a new instance is created."
super initialize.
instruments := Array
with: BenchmarkExecutionTimeInstrument new
"Modified (format): / 27-11-2014 / 13:42:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!BenchmarkPlatform methodsFor:'queries'!
isHeadless
"raise an error: must be redefined in concrete subclass(es)"
^ self subclassResponsibility
!
isPharo
^false
"Modified: / 06-06-2013 / 09:40:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
isSmalltalkX
^false
"Modified: / 06-06-2013 / 09:40:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!BenchmarkPlatform methodsFor:'running'!
warmUpPost
"Called after benchmark's warmup"
"Created: / 07-06-2013 / 02:09:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
warmUpPre
"Called before benchmark's warmup"
"Created: / 07-06-2013 / 02:09:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!BenchmarkPlatform class methodsFor:'documentation'!
version_HG
^ '$Changeset: <not expanded> $'
! !