Edit File: pystone.cpython-37.pyc
B �A�[ � @ s� d Z ddlmZ ddlmZ dZdZedd�\ZZ Z Z Z G dd � d e �ZdZdZefd d �Zefd d �Zdaeadadadgd add� tgd D �adadaefdd�Zdd� Z dd� Z dd� Z dd � Z d d � Z d d � Z!d!d"� Z"d#d$� Z#d%d&� Z$d'd(� Z%d)d*� Z&e'd+k�r�ddl(Z(d,d-� Z)e*e(j+�d Z,e,dk�rBe)d.e, � nLe,dk�r�ye-e(j+d �Z.W n( e/k �r� e)d/e(j+d � Y nX neZ.ee.� dS )0a� "PYSTONE" Benchmark Program Version: Python/1.1 (corresponds to C/1.1 plus 2 Pystone fixes) Author: Reinhold P. Weicker, CACM Vol 27, No 10, 10/84 pg. 1013. Translated from ADA to C by Rick Richardson. Every method to preserve ADA-likeness has been used, at the expense of C-ness. Translated from C to Python by Guido van Rossum. Version History: Version 1.1 corrects two bugs in version 1.0: First, it leaked memory: in Proc1(), NextRecord ends up having a pointer to itself. I have corrected this by zapping NextRecord.PtrComp at the end of Proc1(). Second, Proc3() used the operator != to compare a record to None. This is rather inefficient and not true to the intention of the original benchmark (where a pointer comparison to None is intended; the != operator attempts to find a method __cmp__ to do value comparison of the record). Version 1.1 runs 5-10 percent faster than version 1.0, so benchmark figures of different versions can't be compared directly. � )�print_function)�clockiP� z1.1� � c @ s e Zd Zddd�Zdd� ZdS )�RecordNr c C s" || _ || _|| _|| _|| _d S )N)�PtrComp�Discr�EnumComp�IntComp� StringComp)�selfr r r r r � r �N/opt/alt/python37/lib/python3.7/site-packages/future/backports/test/pystone.py�__init__/ s zRecord.__init__c C s t | j| j| j| j| j�S )N)r r r r r r )r r r r �copy7 s z Record.copy)Nr r r r )�__name__� __module__� __qualname__r r r r r r r - s r c C s. t | �\}}tdt| |f � td| � d S )Nz#Pystone(%s) time for %d passes = %gz-This machine benchmarks at %g pystones/second)�pystones�print� __version__)�loops� benchtimeZstonesr r r �main> s r c C s t | �S )N)�Proc0)r r r r r E s r � �3 c C s g | ]}|d d � �qS )Nr )�.0�xr r r � <listcomp>M s r Nc C sp t � }xt| �D ]}qW t � | }t� at� att_tt_tt_ dt_ dt_ d}dt d d< t � }x�t| �D ]�}t � t� d}d}d }t}t||� ax*||k r�d | | } t||�} |d }q�W ttt || � tt�ad } x6| tk�r|t| d �k�rtt�}tt| �d �} q�W || } | | }d| | | }t|�}qlW t � | | } | dk�r`d} n| | } | | fS )N�( z DHRYSTONE PROGRAM, SOME STRINGz DHRYSTONE PROGRAM, 1'ST STRING� � � � � z DHRYSTONE PROGRAM, 2'ND STRING� r �A�Cg ) r �ranger � PtrGlbNext�PtrGlbr �Ident1r �Ident3r r r � Array2Glob�Proc5�Proc4�Ident2�Func2�BoolGlob�Proc7�Proc8� Array1Glob�Proc1� Char2Glob�Func1�Proc6�chr�ord�Proc2) r Z starttime�iZnulltimeZ String1LocZIntLoc1ZIntLoc2Z String2Loc�EnumLocZIntLoc3Z CharIndexr ZloopsPerBenchtimer r r r Q sT r c C sv t �� | _}d| _| j|_| j|_t|j�|_|jtkrdd|_t| j�|_t j|_t |jd�|_n|�� } d |_| S )Nr& r r! ) r+ r r r �Proc3r r, r: r r4 )ZPtrParInZ NextRecordr r r r7 � s r7 c C s8 | d }x*t dkr&|d }|t } t}|tkr P q W | S )Nr! r' r )� Char1Glob�IntGlobr, )ZIntParIO�IntLocr? r r r r= � s r= c C s$ t d k rt j} ndatdt�t _| S )N�d r! )r+ r rB r4 r )Z PtrParOutr r r r@ � s r@ c C s t dk} | pt} dad S )Nr' �B)rA r3 r8 )ZBoolLocr r r r0 � s r0 c C s da tad S )Nr' )rA �FALSEr3 r r r r r/ � s r/ c C sb | }t | �st}| tkr t}n@| tkr:tdkr4t}q^t}n$| tkrHt}n| tkrRn | tkr^t}|S )NrD )�Func3�Ident4r, r1 rB r- �Ident5)� EnumParInZ EnumParOutr r r r: � s r: c C s | d }|| }|S )Nr$ r )�IntParI1�IntParI2rC Z IntParOutr r r r4 � s r4 c C s� |d }|| |< | | | |d < || |d < x"t ||d �D ]}||| |< q<W || |d d || |d < | | ||d |< dad S )Nr& r � r$ � )r) rB )Z Array1ParZ Array2ParrK rL rC ZIntIndexr r r r5 � s r5 c C s | }|}||krt S tS d S )N)r, r1 )ZCharPar1ZCharPar2ZCharLoc1ZCharLoc2r r r r9 � s r9 c C st d}x2|dkr6t | | ||d �tkrd}|d }qW |dkrL|dkrLd}|dkrXtS | |krl|d }tS tS d S )Nr r' �W�Zr# �X)r9 r, �TRUErF )ZStrParI1ZStrParI2rC ZCharLocr r r r2 � s r2 c C s | }|t krtS tS )N)r- rR rF )rJ r? r r r rG � s rG �__main__c C s6 t | dtjd� t dtjd tjd� t�d� d S )N� )�end�filezusage: %s [number_of_loops]r )rV rD )r �sys�stderr�argv�exit)�msgr r r �error s r\ z%d arguments are too many;zInvalid argument %r;)0�__doc__� __future__r �timer ZLOOPSr r) r, r1 r- rH rI �objectr rR rF r r rB r3 rA r8 r6 r. r+ r* r r7 r= r@ r0 r/ r: r4 r5 r9 r2 rG r rW r\ �lenrY �nargs�intr � ValueErrorr r r r �<module>! sV :