hg/stx-goodies-petitparser: comparison compiler/benchmarks/PPCBenchmark.st

equal deleted inserted replaced

-:4751c407bb40
+:f6d77fee9811
 "{ NameSpace: Smalltalk }"
 Object subclass:#PPCBenchmark
 	instanceVariableNames:'sources report contextClass compile parser context input
-		configuration'
+		configuration profile'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'PetitCompiler-Benchmarks-Core'
 !
 compile := value
 !
 measure: aParser on: anInput name: aString
 | time result p |
-context := self createContext.
+self halt: 'deprecated?'.
+context := self context.
 p := compile ifTrue: [
 aParser end compile
 ] ifFalse: [
 aParser end
 ((aContext rememberCount / input size) asFloat asString truncateTo: 6),
 '.'.
 "
 !
-reportInput: input time: time name: name
+reportInput: anInput time: time name: name
 | size |
-size := input inject: 0 into: [:r :e | r + e size  ].
+size := anInput inject: 0 into: [:r :e | r + e size  ].
 Transcript crShow: 'Size: ', size asString.
 Transcript crShow: name, ' time: ', time asString.
 Transcript crShow: 'Time per character: ', (time / size * 1000.0) asString, ' microseconds'.
+(context isKindOf: PPCProfilingContext) ifTrue: [
+context inspect.
+]
 ! !
 !PPCBenchmark methodsFor:'benchmarks'!
 benchmarkJavaSyntax
 input := sources javaSourcesBig.
 time := [ input do: [ :source | parser parse: source withContext: context ]] timeToRun asMilliSeconds.
 self reportInput: input time: time name: 'Java Syntax Compiled'.
-!
+! !
+!PPCBenchmark methodsFor:'benchmarks - expression grammar'!
+benchmarkExpressionGrammar
+| time |
+self setupExpressionGrammar.
+time := [ input do: [ :source | parser parse: source withContext: context ]] timeToRun asMilliSeconds.
+self reportInput: input time: time name: 'Expression Grammar'.
+!
+benchmarkExpressionGrammarCompiled
+| time |
+self setupExpressionGrammarCompiled.
+time := [ input do: [ :source | parser parse: source withContext: context ]] timeToRun asMilliSeconds.
+self reportInput: input time: time name: 'Compiled Expression Grammar'.
+!
+benchmarkExpressionGrammarTokenized
+| time |
+self setupExpressionGrammarTokenized.
+time := [ input do: [ :source | parser parse: source withContext: context ]] timeToRun asMilliSeconds.
+self reportInput: input time: time name: 'Tokenized Expression Grammar'.
+!
+benchmarkLL1ExpressionGrammar
+| time |
+self setupLL1ExpressionGrammar.
+time := [ input do: [ :source | parser parse: source withContext: context ]] timeToRun asMilliSeconds.
+self reportInput: input time: time name: 'LL1 Expression Grammar'.
+!
+benchmarkLL1ExpressionGrammarCompiled
+| time |
+self setupLL1ExpressionGrammarCompiled.
+time := [ input do: [ :source | parser parse: source withContext: context ]] timeToRun asMilliSeconds.
+self reportInput: input time: time name: 'Compiled LL1 Expression Grammar'.
+!
+benchmarkLL1ExpressionGrammarTokenized
+| time |
+self setupLL1ExpressionGrammarTokenized.
+time := [ input do: [ :source | parser parse: source withContext: context ]] timeToRun asMilliSeconds.
+self reportInput: input time: time name: 'Tokenized LL1 Expression Grammar'.
+! !
+!PPCBenchmark methodsFor:'benchmarks - micro'!
+benchmarkAnyStar
+"
+self measure: self anyStar on: sources petitParserPackage.
+"
+self measure: self anyStar on: (sources changesSized: 1000*1000) name: #anyStar.
+!
+benchmarkAnyStarBlock
+"
+self measure: self anyStar on: sources petitParserPackage.
+"
+self measure: self anyStarBlock on: (sources changesSized: 1000*1000) name: #anyStarBlock.
+!
+benchmarkToken
+"
+self measure: self anyStar on: sources petitParserPackage.
+"
+parser := (self tokenParser / #any asParser) star.
+self measure: parser on: (sources changesSized: 1000*1000) name: #token.
+! !
+!PPCBenchmark methodsFor:'benchmarks - smalltalk'!
 benchmarkOpalCompiler
 | parser time input |
 parser := OpalCompiler new.
 input := sources smalltalkSourcesBig.
 input := sources smalltalkSourcesBig.
 time := [ input do: [ :source | parser parse: source withContext: context ]] timeToRun asMilliSeconds.
 self reportInput: input time: time name: 'Smalltalk Parser Compiled'.
-! !
-!PPCBenchmark methodsFor:'benchmarks - expression grammar'!
-benchmarkExpressionGrammar
-| time |
-self setupExpressionGrammar.
-time := [ input do: [ :source | parser parse: source withContext: context ]] timeToRun asMilliSeconds.
-self reportInput: input time: time name: 'Expression Grammar'.
-!
-benchmarkExpressionGrammarCompiled
-| time |
-self setupExpressionGrammarCompiled.
-time := [ input do: [ :source | parser parse: source withContext: context ]] timeToRun asMilliSeconds.
-self reportInput: input time: time name: 'Compiled Expression Grammar'.
-!
-benchmarkExpressionGrammarTokenized
-| time |
-self setupExpressionGrammarTokenized.
-time := [ input do: [ :source | parser parse: source withContext: context ]] timeToRun asMilliSeconds.
-self reportInput: input time: time name: 'Tokenized Expression Grammar'.
-!
-benchmarkLL1ExpressionGrammar
-| time |
-self setupLL1ExpressionGrammar.
-time := [ input do: [ :source | parser parse: source withContext: context ]] timeToRun asMilliSeconds.
-self reportInput: input time: time name: 'LL1 Expression Grammar'.
-!
-benchmarkLL1ExpressionGrammarCompiled
-| time |
-self setupLL1ExpressionGrammarCompiled.
-time := [ input do: [ :source | parser parse: source withContext: context ]] timeToRun asMilliSeconds.
-self reportInput: input time: time name: 'Compiled LL1 Expression Grammar'.
-!
-benchmarkLL1ExpressionGrammarTokenized
-| time |
-self setupLL1ExpressionGrammarTokenized.
-time := [ input do: [ :source | parser parse: source withContext: context ]] timeToRun asMilliSeconds.
-self reportInput: input time: time name: 'Tokenized LL1 Expression Grammar'.
-! !
-!PPCBenchmark methodsFor:'benchmarks - micro'!
-benchmarkAnyStar
-"
-self measure: self anyStar on: sources petitParserPackage.
-"
-self measure: self anyStar on: (sources changesSized: 1000*1000) name: #anyStar.
-!
-benchmarkAnyStarBlock
-"
-self measure: self anyStar on: sources petitParserPackage.
-"
-self measure: self anyStarBlock on: (sources changesSized: 1000*1000) name: #anyStarBlock.
-!
-benchmarkToken
-"
-self measure: self anyStar on: sources petitParserPackage.
-"
-parser := (self tokenParser / #any asParser) star.
-self measure: parser on: (sources changesSized: 1000*1000) name: #token.
 ! !
 !PPCBenchmark methodsFor:'benchmarks-CalipeL'!
 benchmarkExpressionGrammarC
 ! !
 !PPCBenchmark methodsFor:'intitialization'!
-createContext
+context
 ^ contextClass new
 !
 initialize
 super initialize.
 sources := PPCResources current.
 contextClass := PPCContext.
 compile := false.
+profile := false.
 ! !
 !PPCBenchmark methodsFor:'meta'!
 getMetaInfo: key
 tokenParser
 ^ #letter asParser, (#letter asParser / #digit asParser) star trim
 ! !
+!PPCBenchmark methodsFor:'profiling'!
+profile
+contextClass := PPCProfilingContext.
+profile := true.
+! !
 !PPCBenchmark methodsFor:'setup & teardown'!
 setupExpressionGrammar
 parser := PPExpressionGrammar new.
-context := PPCContext new.
+context := self context.
 context initializeFor: parser.
 input := sources expressionSourcesMedium.
 !
 setupExpressionGrammarCompiled
 configuration := PPCConfiguration universal.
 configuration arguments name: #PPCompiledExpressionGrammar.
 parser := PPExpressionGrammar new compileWithConfiguration: configuration.
-context := PPCContext new.
+context := self context.
 context initializeFor: parser.
 input := sources expressionSourcesMedium.
 !
 setupExpressionGrammarTokenized
-configuration := PPCConfiguration LL1.
+configuration := PPCConfiguration tokenizing.
-configuration arguments name: #PPTokenizedLL1ExpressionGrammar.
+configuration arguments name: #PPTokenizedExpressionGrammar.
-parser := PPLL1ExpressionGrammar new compileWithConfiguration: configuration.
+parser := PPExpressionGrammar new compileWithConfiguration: configuration.
-context := PPCContext new.
+context := self context.
 context initializeFor: parser.
 input := sources expressionSourcesMedium.
 !
 setupJavaSyntax
 parser := PPJavaSyntax new.
-context := PPCContext new.
+context := self context.
 context initializeFor: parser.
 input := sources javaSourcesBig.
 !
 setupJavaSyntaxCompiled
 parser := PPJavaSyntax new compile.
-context := PPCContext new.
+context := self context.
 context initializeFor: parser.
 input := sources javaSourcesBig.
 "
 size := input inject: 0 into: [:r :e | r + e size  ].
 !
 setupLL1ExpressionGrammar
 parser := PPLL1ExpressionGrammar new.
-context := PPCContext new.
+context := self context.
 context initializeFor: parser.
 input := sources expressionSourcesBig.
 !
 setupLL1ExpressionGrammarCompiled
 configuration := PPCConfiguration universal.
 configuration arguments name: #PPCompiledLL1ExpressionGrammar.
 parser := PPLL1ExpressionGrammar new compileWithConfiguration: configuration.
-context := PPCContext new.
+context := self context.
 context initializeFor: parser.
 input := sources expressionSourcesBig.
 !
 setupLL1ExpressionGrammarTokenized
-configuration := PPCConfiguration universal.
+configuration := PPCConfiguration tokenizing.
 configuration arguments name: #PPTokenizedLL1ExpressionGrammar.
 parser := PPLL1ExpressionGrammar new compileWithConfiguration: configuration.
-context := PPCContext new.
+context := self context.
 context initializeFor: parser.
 input := sources expressionSourcesBig.
 !
 setupRBParser
 !
 setupSmalltalkGrammar
 parser := PPSmalltalkGrammar new.
-context := PPCContext new.
+context := self context.
 context initializeFor: parser.
 input := sources smalltalkSourcesBig.
 !
 setupSmalltalkGrammarCompiled
 configuration := PPCConfiguration universal.
 configuration arguments name: #PPCompiledSmalltalkGrammar.
+configuration arguments profile: profile.
 parser := PPSmalltalkGrammar new compileWithConfiguration: configuration.
-context := PPCContext new.
+context := self context.
 context initializeFor: parser.
-input := sources smalltalkSourcesBig.
+profile ifTrue: [
+input := sources smalltalkSourcesSmall.
+] ifFalse: [
+input := sources smalltalkSourcesBig.
+]
 !
 setupSmalltalkGrammarTokenized
-configuration := PPCConfiguration LL1.
+configuration := PPCConfiguration tokenizing.
 configuration arguments name: #PPTokenizedSmalltalkGrammar.
+configuration arguments profile: profile.
 parser := PPSmalltalkGrammar new compileWithConfiguration: configuration.
-context := PPCContext new.
+context := self context.
 context initializeFor: parser.
-input := sources smalltalkSourcesBig.
+profile ifTrue: [
+input := sources smalltalkSourcesSmall.
+] ifFalse: [
+input := sources smalltalkSourcesBig.
+]
 !
 setupSmalltalkParser
 parser := PPSmalltalkParser new.
-context := PPCContext new.
+context := self context.
 context initializeFor: parser.
 input := sources smalltalkSourcesBig.
 !
 setupSmalltalkParserCompiled
 configuration := PPCConfiguration universal.
 parser := PPSmalltalkParser new compileWithConfiguration: configuration.
-context := PPCContext new.
+context := self context.
 context initializeFor: parser.
 input := sources smalltalkSourcesBig.
 !
 setupSmalltalkParserTokenized
-configuration := PPCConfiguration LL1.
+configuration := PPCConfiguration tokenizing.
 parser := PPSmalltalkParser new compileWithConfiguration: configuration.
-context := PPCContext new.
+context := self context.
 context initializeFor: parser.
 input := sources smalltalkSourcesBig.
 !
 teardownExpressionGrammarTokenized

changeset 464	f6d77fee9811
parent 459	4751c407bb40
child 465	f729f6cd3c76
child 502	1e45d3c96ec5