home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 25 / AACD 25.iso / AACD / Programming / yaec / examples / timing.e < prev    next >
Encoding:
Text File  |  2001-08-12  |  1.7 KB  |  72 lines
  1. OPT LARGE
  2.  
  3. MODULE 'dos/dos'
  4.  
  5. CONST TICKS_PER_MINUTE=TICKS_PER_SECOND*60, LOTS_OF_TIMES=500000
  6.  
  7. DEF x:PTR TO LONG, y, offset
  8.  
  9. PROC fred(n)
  10.   DEF i
  11.   i:=n+x
  12. ENDPROC
  13.  
  14. /* Repeat evaluation of an expression */
  15. PROC repeat(exp)
  16.   DEF i
  17.   FOR i:=0 TO LOTS_OF_TIMES
  18.     Eval(exp) /* Evaluate the expresssion */
  19.   ENDFOR
  20. ENDPROC
  21.  
  22. /* Time an expression, and set-up offset if not done already */
  23. PROC test(exp, message)
  24.   DEF t
  25.   IF offset=0 THEN offset:=time(`0)  /* Calculate offset */
  26.   t:=time(exp)
  27.   WriteF('\s:\t\d ticks\n', message, t-offset)  
  28. ENDPROC
  29.  
  30. /* Time the repeated calls, and calculate number of ticks */
  31. PROC time(x)
  32.   DEF ds1:datestamp, ds2:datestamp
  33.   Forbid()
  34.   DateStamp(ds1)
  35.   repeat(x)
  36.   DateStamp(ds2)
  37.   Permit()
  38.   IF CtrlC() THEN Raise(1)
  39. ENDPROC ((ds2.minute-ds1.minute)*TICKS_PER_MINUTE)+ds2.tick-ds1.tick
  40.  
  41. PROC main()
  42.   x:=9999
  43.   y:=1717
  44.  
  45.   test(`x+y,     'Addition')
  46.   test(`y-x,     'Subtraction')
  47.   test(`x*y,     'Multiplication')
  48.   test(`x/y,     'Division')
  49.   test(`x OR y,  'Bitwise OR')
  50.   test(`x AND y, 'Bitwise AND')
  51.   test(`x=y,     'Equality')
  52.   test(`x<y,     'Less than')
  53.   test(`x<=y,    'Less than or equal')
  54.   test(`y:=1,    'Assignment of 1')
  55.   test(`y:=x,    'Assignment of x')
  56.   test(`y++,     'Increment')
  57.   test(`IF FALSE THEN y ELSE x, 'IF FALSE')
  58.   test(`IF TRUE THEN y ELSE x,  'IF TRUE')
  59.   test(`IF x THEN y ELSE x,     'IF x')
  60.   test(`fred(2),  'fred(2)')
  61.  
  62.   /* some more tests.. */
  63.   ->test(`Mul(10,20), 'Mul(10,20)')
  64.   ->test(`Div(10,20), 'Div(10,20)')
  65.   ->test(`Char({x}),  'Char({x})')
  66.   ->test(`x!+100.0-y!*100,  'x!+100.0-y!*100')
  67.   ->test(`(x := FastNew(100)) BUT FastDispose(x, 100) BUT NIL,  'x:=FastNew(100) BUT FastDispose(x, 100)')
  68.  
  69.   ->test(`NIL,     'blabla')
  70.  
  71. ENDPROC
  72.