addons/Loki/tests/testcg.io

   1
   2 Directory setCurrentWorkingDirectory("Loki")
   3 doFile("Loki.io")
   4 Directory setCurrentWorkingDirectory("..")
   5
   6 IoVM Utils := Object clone
   7
   8 Loki Implementation linkToAs( Utils, "rdtsc_" ) with( _self state   numberWithDouble(double rdtsc asFloat64) )
   9
  10 Utils rdtsc := Utils getSlot("rdtsc_") clone
  11
  12 Loki Implementation linkToAs( Sequence, "getByteStringPointer" ) with(
  13         _self state numberWithDouble( (_self data.ptr castAs(ByteArray) bytes asFloat64 ) )
  14 )
  15
  16
  17
  18
  19 Chrono := Object clone do(
  20         newSlot("timer",0)
  21
  22 //      init := method( self timer := 0 )
  23
  24         measure := method(
  25                 c := Utils rdtsc
  26                 r := call evalArgAt(0)
  27         //      timer println
  28                 timer = timer + (Utils rdtsc-c)
  29         //      timer println
  30                 r
  31         )
  32         asString := method( "#{timer / (3* (10 **(9)))} sec" interpolate )
  33         reset := method( timer = 0 )
  34 )
  35
  36 /*
  37 chrono := method(
  38         c := Utils rdtsc
  39         call evalArgAt(0)
  40         c = Utils rdtsc-c
  41         "#{c / (3* (10 **(9)))} sec" interpolate
  42 )*/
  43
  44
  45 "Done."
  46
  47
  48
  49
  50
  51
  52
  53
  54
  55
  56
  57
  58
  59
  60
  61
  62
  63
  64
  65
  66
  67
  68
  69
  70
  71
  72
  73
  74
  75
  76
  77
  78
  79
  80
  81
  82
  83
  84
  85
  86
  87
  88
  89
  90
  91
  92
  93
  94
  95
  96
  97
  98
  99
 100
 101
 102
 103
 104
 105