53 lines
832 B
Plaintext
53 lines
832 B
Plaintext
'LIBRARY CALLS
|
|
'=============
|
|
|
|
extern lib "../../oxygen.dll"
|
|
|
|
declare o2_basic (string src)
|
|
declare o2_exec (optional sys p) as sys
|
|
declare o2_errno () as sys
|
|
declare o2_error () as string
|
|
|
|
extern lib "kernel32.dll"
|
|
|
|
declare QueryPerformanceFrequency(quad*freq)
|
|
declare QueryPerformanceCounter(quad*count)
|
|
|
|
end extern
|
|
|
|
'EMBEDDED SOURCE CODE
|
|
'====================
|
|
|
|
src=quote
|
|
|
|
===Source===
|
|
|
|
def Pling10 2*3*4*5*6*7*8*9*10
|
|
|
|
byte a[pling10] 'Pling10 is resolved to a number here at compile time
|
|
|
|
print pling10
|
|
|
|
===Source===
|
|
|
|
|
|
'TIMER
|
|
'=====
|
|
|
|
quad ts,tc,freq
|
|
QueryPerformanceFrequency freq
|
|
QueryPerformanceCounter ts
|
|
|
|
'COMPILE/EXECUTE
|
|
'===============
|
|
|
|
o2_basic src
|
|
|
|
if o2_errno then
|
|
print o2_error
|
|
else
|
|
QueryPerformanceCounter tc
|
|
print "Compile time: " str((tc-ts)*1000/freq, 1) " MilliSeconds"
|
|
o2_exec 'Run the program
|
|
end if
|