1#! /usr/bin/env python
2
3"""
4"PYSTONE" Benchmark Program
5
6Version:        Python/1.1 (corresponds to C/1.1 plus 2 Pystone fixes)
7
8Author:         Reinhold P. Weicker,  CACM Vol 27, No 10, 10/84 pg. 1013.
9
10                Translated from ADA to C by Rick Richardson.
11                Every method to preserve ADA-likeness has been used,
12                at the expense of C-ness.
13
14                Translated from C to Python by Guido van Rossum.
15
16Version History:
17
18                Version 1.1 corrects two bugs in version 1.0:
19
20                First, it leaked memory: in Proc1(), NextRecord ends
21                up having a pointer to itself.  I have corrected this
22                by zapping NextRecord.PtrComp at the end of Proc1().
23
24                Second, Proc3() used the operator != to compare a
25                record to None.  This is rather inefficient and not
26                true to the intention of the original benchmark (where
27                a pointer comparison to None is intended; the !=
28                operator attempts to find a method __cmp__ to do value
29                comparison of the record).  Version 1.1 runs 5-10
30                percent faster than version 1.0, so benchmark figures
31                of different versions can't be compared directly.
32
33"""
34
35LOOPS = 50000
36
37from time import clock
38
39__version__ = "1.1"
40
41[Ident1, Ident2, Ident3, Ident4, Ident5] = range(1, 6)
42
43class Record:
44
45    def __init__(self, PtrComp = None, Discr = 0, EnumComp = 0,
46                       IntComp = 0, StringComp = 0):
47        self.PtrComp = PtrComp
48        self.Discr = Discr
49        self.EnumComp = EnumComp
50        self.IntComp = IntComp
51        self.StringComp = StringComp
52
53    def copy(self):
54        return Record(self.PtrComp, self.Discr, self.EnumComp,
55                      self.IntComp, self.StringComp)
56
57TRUE = 1
58FALSE = 0
59
60def main(loops=LOOPS):
61    benchtime, stones = pystones(loops)
62    print "Pystone(%s) time for %d passes = %g" % \
63          (__version__, loops, benchtime)
64    print "This machine benchmarks at %g pystones/second" % stones
65
66
67def pystones(loops=LOOPS):
68    return Proc0(loops)
69
70IntGlob = 0
71BoolGlob = FALSE
72Char1Glob = '\0'
73Char2Glob = '\0'
74Array1Glob = [0]*51
75Array2Glob = map(lambda x: x[:], [Array1Glob]*51)
76PtrGlb = None
77PtrGlbNext = None
78
79def Proc0(loops=LOOPS):
80    global IntGlob
81    global BoolGlob
82    global Char1Glob
83    global Char2Glob
84    global Array1Glob
85    global Array2Glob
86    global PtrGlb
87    global PtrGlbNext
88
89    starttime = clock()
90    for i in range(loops):
91        pass
92    nulltime = clock() - starttime
93
94    PtrGlbNext = Record()
95    PtrGlb = Record()
96    PtrGlb.PtrComp = PtrGlbNext
97    PtrGlb.Discr = Ident1
98    PtrGlb.EnumComp = Ident3
99    PtrGlb.IntComp = 40
100    PtrGlb.StringComp = "DHRYSTONE PROGRAM, SOME STRING"
101    String1Loc = "DHRYSTONE PROGRAM, 1'ST STRING"
102    Array2Glob[8][7] = 10
103
104    starttime = clock()
105
106    for i in range(loops):
107        Proc5()
108        Proc4()
109        IntLoc1 = 2
110        IntLoc2 = 3
111        String2Loc = "DHRYSTONE PROGRAM, 2'ND STRING"
112        EnumLoc = Ident2
113        BoolGlob = not Func2(String1Loc, String2Loc)
114        while IntLoc1 < IntLoc2:
115            IntLoc3 = 5 * IntLoc1 - IntLoc2
116            IntLoc3 = Proc7(IntLoc1, IntLoc2)
117            IntLoc1 = IntLoc1 + 1
118        Proc8(Array1Glob, Array2Glob, IntLoc1, IntLoc3)
119        PtrGlb = Proc1(PtrGlb)
120        CharIndex = 'A'
121        while CharIndex <= Char2Glob:
122            if EnumLoc == Func1(CharIndex, 'C'):
123                EnumLoc = Proc6(Ident1)
124            CharIndex = chr(ord(CharIndex)+1)
125        IntLoc3 = IntLoc2 * IntLoc1
126        IntLoc2 = IntLoc3 / IntLoc1
127        IntLoc2 = 7 * (IntLoc3 - IntLoc2) - IntLoc1
128        IntLoc1 = Proc2(IntLoc1)
129
130    benchtime = clock() - starttime - nulltime
131    if benchtime == 0.0:
132        loopsPerBenchtime = 0.0
133    else:
134        loopsPerBenchtime = (loops / benchtime)
135    return benchtime, loopsPerBenchtime
136
137def Proc1(PtrParIn):
138    PtrParIn.PtrComp = NextRecord = PtrGlb.copy()
139    PtrParIn.IntComp = 5
140    NextRecord.IntComp = PtrParIn.IntComp
141    NextRecord.PtrComp = PtrParIn.PtrComp
142    NextRecord.PtrComp = Proc3(NextRecord.PtrComp)
143    if NextRecord.Discr == Ident1:
144        NextRecord.IntComp = 6
145        NextRecord.EnumComp = Proc6(PtrParIn.EnumComp)
146        NextRecord.PtrComp = PtrGlb.PtrComp
147        NextRecord.IntComp = Proc7(NextRecord.IntComp, 10)
148    else:
149        PtrParIn = NextRecord.copy()
150    NextRecord.PtrComp = None
151    return PtrParIn
152
153def Proc2(IntParIO):
154    IntLoc = IntParIO + 10
155    while 1:
156        if Char1Glob == 'A':
157            IntLoc = IntLoc - 1
158            IntParIO = IntLoc - IntGlob
159            EnumLoc = Ident1
160        if EnumLoc == Ident1:
161            break
162    return IntParIO
163
164def Proc3(PtrParOut):
165    global IntGlob
166
167    if PtrGlb is not None:
168        PtrParOut = PtrGlb.PtrComp
169    else:
170        IntGlob = 100
171    PtrGlb.IntComp = Proc7(10, IntGlob)
172    return PtrParOut
173
174def Proc4():
175    global Char2Glob
176
177    BoolLoc = Char1Glob == 'A'
178    BoolLoc = BoolLoc or BoolGlob
179    Char2Glob = 'B'
180
181def Proc5():
182    global Char1Glob
183    global BoolGlob
184
185    Char1Glob = 'A'
186    BoolGlob = FALSE
187
188def Proc6(EnumParIn):
189    EnumParOut = EnumParIn
190    if not Func3(EnumParIn):
191        EnumParOut = Ident4
192    if EnumParIn == Ident1:
193        EnumParOut = Ident1
194    elif EnumParIn == Ident2:
195        if IntGlob > 100:
196            EnumParOut = Ident1
197        else:
198            EnumParOut = Ident4
199    elif EnumParIn == Ident3:
200        EnumParOut = Ident2
201    elif EnumParIn == Ident4:
202        pass
203    elif EnumParIn == Ident5:
204        EnumParOut = Ident3
205    return EnumParOut
206
207def Proc7(IntParI1, IntParI2):
208    IntLoc = IntParI1 + 2
209    IntParOut = IntParI2 + IntLoc
210    return IntParOut
211
212def Proc8(Array1Par, Array2Par, IntParI1, IntParI2):
213    global IntGlob
214
215    IntLoc = IntParI1 + 5
216    Array1Par[IntLoc] = IntParI2
217    Array1Par[IntLoc+1] = Array1Par[IntLoc]
218    Array1Par[IntLoc+30] = IntLoc
219    for IntIndex in range(IntLoc, IntLoc+2):
220        Array2Par[IntLoc][IntIndex] = IntLoc
221    Array2Par[IntLoc][IntLoc-1] = Array2Par[IntLoc][IntLoc-1] + 1
222    Array2Par[IntLoc+20][IntLoc] = Array1Par[IntLoc]
223    IntGlob = 5
224
225def Func1(CharPar1, CharPar2):
226    CharLoc1 = CharPar1
227    CharLoc2 = CharLoc1
228    if CharLoc2 != CharPar2:
229        return Ident1
230    else:
231        return Ident2
232
233def Func2(StrParI1, StrParI2):
234    IntLoc = 1
235    while IntLoc <= 1:
236        if Func1(StrParI1[IntLoc], StrParI2[IntLoc+1]) == Ident1:
237            CharLoc = 'A'
238            IntLoc = IntLoc + 1
239    if CharLoc >= 'W' and CharLoc <= 'Z':
240        IntLoc = 7
241    if CharLoc == 'X':
242        return TRUE
243    else:
244        if StrParI1 > StrParI2:
245            IntLoc = IntLoc + 7
246            return TRUE
247        else:
248            return FALSE
249
250def Func3(EnumParIn):
251    EnumLoc = EnumParIn
252    if EnumLoc == Ident3: return TRUE
253    return FALSE
254
255if __name__ == '__main__':
256    import sys
257    def error(msg):
258        print >>sys.stderr, msg,
259        print >>sys.stderr, "usage: %s [number_of_loops]" % sys.argv[0]
260        sys.exit(100)
261    nargs = len(sys.argv) - 1
262    if nargs > 1:
263        error("%d arguments are too many;" % nargs)
264    elif nargs == 1:
265        try: loops = int(sys.argv[1])
266        except ValueError:
267            error("Invalid argument %r;" % sys.argv[1])
268    else:
269        loops = LOOPS
270    main(loops)
271