Object subclass: #PyStoneRecord instanceVariableNames: 'ptrComp discr enumComp intComp stringComp' package: 'Pystone'! !PyStoneRecord commentStamp! Record class used in Pystone benchmark.! !PyStoneRecord methodsFor: 'accessing'! discr ^discr ! discr: p discr := p ! enumComp ^enumComp ! enumComp: p enumComp := p ! intComp ^intComp ! intComp: p intComp := p ! ptrComp ^ptrComp ! ptrComp: p ptrComp := p ! stringComp ^stringComp ! stringComp: p stringComp := p ! ! !PyStoneRecord methodsFor: 'copying'! copy ^PyStoneRecord ptrComp: ptrComp discr: discr enumComp: enumComp intComp: intComp stringComp: stringComp ! ! !PyStoneRecord methodsFor: 'initialize-release'! ptrComp: p discr: d enumComp: e intComp: i stringComp: s ptrComp := p. discr := d. enumComp := e. intComp := i. stringComp := s ! ! !PyStoneRecord class methodsFor: 'instance-creation'! new ^self ptrComp: nil discr: 0 enumComp: 0 intComp: 0 stringComp: 0 ! ptrComp: p discr: d enumComp: e intComp: i stringComp: s ^super new ptrComp: p discr: d enumComp: e intComp: i stringComp: s ! ! Object subclass: #Pystone instanceVariableNames: 'nulltime ptrGlbNext ptrGlb ident1 ident3 ident2 ident4 ident5 ident6 intGlob boolGlob char1Glob char2Glob array1Glob array2Glob func3 func2 func1' category: 'Pystone'! !Pystone commentStamp! This is a straight translation of pystone 1.1 from Python to Squeak. Procedures have been mapped to instance side methods, functions have been mapped to blocks. Open a transcript and run: Pystone run! !Pystone methodsFor: 'as yet unclassified'! defineFunctions "Functions have been mapped to blocks, since that would be natural." func1 := [:charPar1 :charPar2 | | charLoc1 charLoc2 | charLoc1 := charPar1. charLoc2 := charLoc1. (charLoc2 = charPar2) ifTrue: [ident2] ifFalse: [ident1]]. func2 := [:strParI1 :strParI2 | | intLoc charLoc | intLoc := 1. [intLoc <= 1] whileTrue: [ ((func1 value: (strParI1 at: intLoc) value: (strParI1 at: intLoc + 1)) = ident1) ifTrue: [ charLoc := 'A'. intLoc := intLoc + 1]]. (charLoc >= 'W' and: [charLoc <= 'Z']) ifTrue: [ intLoc := 7]. (charLoc = 'X') ifTrue: [true] ifFalse: [ (strParI1 > strParI2) ifTrue: [ intLoc := intLoc + 7. true] ifFalse: [ false]]]. func3 := [:enumParIn | | enumLoc | enumLoc := enumParIn. enumLoc = ident3] ! main: loops "Adaption of pystone.py version 1.9 from Python." ident1 := 1. ident2 := 2. ident3 := 3. ident4 := 4. ident5 := 5. ident6 := 6. intGlob := 0. boolGlob := false. char1Glob := String value: 0. char2Glob := String value: 0. array1Glob := Array new. 51 timesRepeat: [ array1Glob add: 0]. array2Glob := ((1 to: 51) collect: [:i | array1Glob copy]) asArray. self defineFunctions. self pystones: loops block: [:benchtime :stones | self log: 'Pystone(1.1) time for ', loops asString, ' passes = ', benchtime asString. self log: 'This machine benchmarks at ', ((stones / 0.1) rounded * 0.1) asString, ' pystones/second'] ! log: aString (smalltalk at: #Transcript) ifNotNil: [ Transcript show: aString;cr] ifNil: [ console log: aString] ! proc0: loops block: aBlock | string1Loc starttime intLoc1 intLoc2 string2Loc enumLoc intLoc3 charIndex benchtime | loops timesRepeat: []. benchtime := Date millisecondsToRun: [ ptrGlbNext := PyStoneRecord new. ptrGlb := PyStoneRecord new. ptrGlb ptrComp: ptrGlbNext. ptrGlb discr: ident1. ptrGlb enumComp: ident3. ptrGlb intComp: 40. ptrGlb stringComp: 'DHRYSTONE PROGRAM, SOME STRING'. string1Loc := 'DHRYSTONE PROGRAM, 1''ST STRING'. (array2Glob at: 8) at: 7 put: 10. "1 to: loops - 1 do: [:i | Changed this to use timesRepeat: since i is not used at all in the loop" loops timesRepeat: [ self proc5; proc4. intLoc1 := 2. intLoc2 := 3. string2Loc := 'DHRYSTONE PROGRAM, 2''ND STRING'. enumLoc := ident2. boolGlob := (func2 value: string1Loc value: string2Loc) not. [intLoc1 < intLoc2] whileTrue: [ intLoc3 := 5 * intLoc1 - intLoc2. intLoc3 := self proc7: intLoc1 with: intLoc2. intLoc1 := intLoc1 + 1]. self proc8:array1Glob with: array2Glob with: intLoc1 with: intLoc3. ptrGlb := self proc1: ptrGlb. charIndex := 'A'. [charIndex <= char2Glob] whileTrue: [ (enumLoc = (func1 value: charIndex value: 'C')) ifTrue: [enumLoc := self proc6: ident1]. charIndex := String value: (charIndex asciiValue + 1)]. intLoc3 := intLoc2 * intLoc1. intLoc2 := intLoc3 / intLoc1. intLoc2 := 7 * (intLoc3 - intLoc2) - intLoc1. intLoc1 := self proc2: intLoc1]]. ^ aBlock value: (benchtime / 1000) value: (loops / benchtime) * 1000 ! proc1: ptrParIn | nextRecord tmp | tmp := ptrParIn. nextRecord := ptrGlb copy. ptrParIn ptrComp: nextRecord. ptrParIn intComp: 5. nextRecord intComp: ptrParIn intComp. nextRecord ptrComp: ptrParIn ptrComp. nextRecord ptrComp: (self proc3: nextRecord ptrComp). (nextRecord discr = ident1) ifTrue: [ nextRecord intComp: 6. nextRecord enumComp: (self proc6: ptrParIn enumComp). nextRecord ptrComp: ptrGlb ptrComp. nextRecord intComp: (self proc7: nextRecord intComp with: 10) ] ifFalse: [ tmp := nextRecord copy]. nextRecord ptrComp: nil. ^tmp ! proc2: intParIO | tmp intLoc enumLoc | tmp := intParIO. intLoc := intParIO + 10. [true] whileTrue: [ (char1Glob = 'A') ifTrue: [ intLoc := intLoc - 1. tmp := intLoc - intGlob. enumLoc := ident1]. (enumLoc = ident1) ifTrue: [ ^ tmp]] ! proc3: ptrParOut | tmp | tmp := ptrParOut. ptrGlb ifNotNil: [ tmp := ptrGlb ptrComp] ifNil: [ intGlob := 100]. ptrGlb intComp: (self proc7: 10 with: intGlob). ^tmp ! proc4 | boolLoc | boolLoc := char1Glob = 'A'. boolLoc := boolLoc | boolGlob. char2Glob := 'B' ! proc5 char1Glob := 'A'. boolGlob := false ! proc6: enumParIn | enumParOut | enumParOut := enumParIn. (func3 value: enumParIn) ifFalse: [ enumParOut := ident4]. (enumParIn = ident1) ifTrue: [ enumParOut := ident1] ifFalse: [ (enumParIn = ident2) ifTrue: [ intGlob > 100 ifTrue: [ enumParOut := ident1] ifFalse: [ enumParOut := ident4]] ifFalse: [ (enumParIn = ident3) ifTrue: [ enumParOut := ident2] ifFalse: [ (enumParIn = ident4) ifTrue: [] ifFalse: [ (enumParIn = ident5) ifTrue: [ enumParOut := ident3]]]]]. ^enumParOut ! proc7: intParI1 with: intParI2 | intLoc intParOut | intLoc := intParI1 + 2. intParOut := intParI2 + intLoc. ^ intParOut ! proc8: array1Par with: array2Par with: intParI1 with: intParI2 | intLoc | intLoc := intParI1 + 5. array1Par at: intLoc put: intParI2. array1Par at: intLoc + 1 put: (array1Par at: intLoc). array1Par at: intLoc + 30 put: intLoc. intLoc to: intLoc + 1 do: [:intIndex | (array2Par at: intLoc) at: intIndex put: intLoc. (array2Par at: intLoc) at: intLoc - 1 put: ((array2Par at: intLoc) at: intLoc - 1) + 1. (array2Par at: intLoc + 20) at: intLoc put: (array1Par at: intLoc)]. intGlob := 5 ! pystones: loops block: aBlock ^self proc0: loops block: aBlock ! ! Pystone class instanceVariableNames: 'nulltime'! !Pystone class methodsFor: 'as yet unclassified'! main "self main" self run: 50000 ! run: loops "self run: 50000" self new main: loops ! !