harbour-core/harbour/tests/speedold.prg

/*
 * $Id$
 */

/*
 * Harbour Project source code:
 *    a small speed test program
 *
 * Copyright 2006 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
 * www - http://harbour-project.org
 *
 */

#define ARR_LEN 16
#define N_LOOPS 1000000

//#define NO_DBF_TEST
#define NO_KEYBOARD_TEST
#define NO_ASSOC_TEST

#define REAL_TIME

#ifdef __CLIP__
    #define ASSOC_ARRAY map()
    #undef REAL_TIME
#endif
#ifdef FlagShip
    #undef REAL_TIME
    #xtranslate seconds() => fs_seconds()
#endif
#ifdef __HARBOUR__
    #include "hbmemory.ch"
    #define ASSOC_ARRAY { => }
    #undef REAL_TIME
#endif

#ifdef REAL_TIME
    #xtranslate hb_secondsCPU([<x>]) => seconds()
#endif
#ifndef EOL
    #define EOL hb_OSNewLine()
#endif
#command ? => outstd(EOL)
#command ? <xx,...> => outstd(<xx>, EOL)

#ifdef NO_ASSOC_TEST
    #undef ASSOC_ARRAY
#endif

function main()
#ifndef NO_DBF_TEST
field F_C, F_N, F_D
#endif
memvar M_C, M_N, M_D
local L_C, L_N, L_D
local i, j, t, c, c2, n, d, o, bc, tn, total, totalr, aa,;
      a[ARR_LEN], a2[ARR_LEN], a3[ARR_LEN], aDb, cFi1, cFi2
#ifdef ASSOC_ARRAY
    local aAssoc := ASSOC_ARRAY
#endif
private M_C := dtos(date()),;
        M_N := 112345.67,;
        M_D := date()

#ifndef __CLIP__
//#ifdef __HARBOUR__
//  setcancel(.f.)
//  altd(0)
//#endif
#endif
#ifdef __CLIP__
  SET MACRO_IN_STRING OFF
  //CLEAR SCREEN
#endif
#ifdef FlagShip
    FS_SET( "zerobyte", .t. )
    FS_SET( "devel", .f. )
//    FS_SET( "break", 0 )
//    FS_SET( "debug", 0 )
#endif

for i:=1 to len(a)
    a[i]:=i
    a2[i]:=dtos(date())+chr(i%64+32)+chr(i%64+64)+str(i,10)
    a3[i]:=stuff(dtos(date()),7,0,".")
next

#ifdef __HARBOUR__
if MEMORY( HB_MEM_USEDMAX ) != 0
   ?
   ? "Warning !!! Memory statistic enabled."
endif
#endif
?
? "Startup loop to increase CPU clock..."
t:=seconds()+5; while t > seconds(); enddo

?
? date(), time(), VERSION()+build_mode()+", "+OS()
? "ARR_LEN =", ARR_LEN
? "N_LOOPS =", N_LOOPS

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
next
tn:=hb_secondsCPU()-t
? "empty loops overhead =", tn
#ifdef REAL_TIME
    ? "real time -> seconds()"
#else
    ? "CPU usage -> hb_secondsCPU()"
#endif
? ""

#ifndef NO_DBF_TEST

aDb:={ {"F_C", "C", 10, 0},;
       {"F_N", "N", 10, 2},;
       {"F_D", "D",  8, 0} }

cFi1:="tst_tmp.dbf"
if file(cFi1)
    ferase(cFi1)
endif
dbcreate(cFi1, aDb)
select(1)
use &cFi1 shared
dbappend()
replace F_C with dtos(date())
replace F_N with 112345.67
replace F_D with date()
dbcommit()
dbunlock()

cFi2:="tst_tmp2.dbf"
if file(cFi2)
    ferase(cFi2)
endif
dbcreate(cFi2, aDb)
select(2)
use &cFi2 exclusive
dbappend()
replace F_C with dtos(date())
replace F_N with 112345.67
replace F_D with date()
dbcommit()
dbunlock()

#endif

L_C := dtos(date())
L_N := 112345.67
L_D := date()


total:=hb_secondsCPU()
totalr:=seconds()
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    c:=L_C
next
dsp_time( "c:=L_C -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    n:=L_N
next
dsp_time( "n:=L_N -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    d:=L_D
next
dsp_time( "d:=L_D -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    c:=M_C
next
dsp_time( "c:=M_C -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    n:=M_N
next
dsp_time( "n:=M_N -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    d:=M_D
next
dsp_time( "d:=M_D -> ", t, tn)

#ifndef NO_DBF_TEST
select(1)
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    c:=F_C
next
dsp_time( "(sh) c:=F_C -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    n:=F_N
next
dsp_time( "(sh) n:=F_N -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    d:=F_D
next
dsp_time( "(sh) d:=F_D -> ", t, tn)

select(2)
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    c:=F_C
next
dsp_time( "(ex) c:=F_C -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    n:=F_N
next
dsp_time( "(ex) n:=F_N -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    d:=F_D
next
dsp_time( "(ex) d:=F_D -> ", t, tn)
#endif

o:=errorNew()
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    n:=o:GenCode
next
dsp_time( "n:=o:GenCode -> ", t, tn)

#ifdef __HARBOUR__
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    n:=o[8]
next
dsp_time( "n:=o[8] -> ", t, tn)
#endif

#ifdef ASSOC_ARRAY
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    aAssoc[a2[i%ARR_LEN+1]+ltrim(str(i%100))]:=i
next
dsp_time( "aAssoc[a2[i%ARR_LEN+1]+ltrim(str(i%100)]:=i -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    c:=aAssoc[a2[i%ARR_LEN+1]+ltrim(str(i%100))]
next
dsp_time( "c:=aAssoc[a2[i%ARR_LEN+1]+ltrim(str(i%100)] -> ", t, tn)
#endif

#ifndef NO_KEYBOARD_TEST
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    inkey()
next
dsp_time( "inkey() -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    nextkey()
next
dsp_time( "nextkey() -> ", t, tn)
#endif

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    round(i/1000,2)
next
dsp_time( "round(i/1000,2) -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    str(i/1000)
next
dsp_time( "str(i/1000) -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    val(a3[i%ARR_LEN+1])
next
dsp_time( "val(a3[i%ARR_LEN+1]) -> ", t, tn)

t:=hb_secondsCPU()
j:=date()
for i:=1 to N_LOOPS
    dtos(j+i%10000-5000)
next
dsp_time( "dtos(j+i%10000-5000) -> ", t, tn)

bc:={||i%ARR_LEN}
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    eval(bc)
next
dsp_time( "eval({||i%ARR_LEN}) -> ", t, tn)

bc:={|x|x%ARR_LEN}
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    eval(bc,i)
next
dsp_time( "eval({|x|x%ARR_LEN},i) -> ", t, tn)

bc:={|x|f1(x)}
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    eval(bc,i)
next
dsp_time( "eval({|x|f1(x)},i) -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    n:=&("f1("+str(i)+")")
next
dsp_time( "&('f1('+str(i)+')') -> ", t, tn)

bc:=&("{|x|f1(x)}")
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    eval(bc,i)
next
dsp_time( "eval([&('{|x|f1(x)}')]) -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    j:=valtype(a)+valtype(i)
next
dsp_time( "j := valtype(a)+valtype(i) -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    j := str(i%100,2) $ a2[i%ARR_LEN+1]
next
dsp_time( "j := str(i%100,2) $ a2[i%ARR_LEN+1] -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    j := val(a2[i%ARR_LEN+1])
next
dsp_time( "j := val(a2[i%ARR_LEN+1]) -> ", t, tn)

c:=dtos(date())
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    j := a2[i%ARR_LEN+1] == c
next
dsp_time( "j := a2[i%ARR_LEN+1] == s -> ", t, tn)

c:=dtos(date())
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    j := a2[i%ARR_LEN+1] = c
next
dsp_time( "j := a2[i%ARR_LEN+1] = s -> ", t, tn)

c:=dtos(date())
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    j := a2[i%ARR_LEN+1] >= c
next
dsp_time( "j := a2[i%ARR_LEN+1] >= s -> ", t, tn)

c:=dtos(date())
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    j := a2[i%ARR_LEN+1] < c
next
dsp_time( "j := a2[i%ARR_LEN+1] < s -> ", t, tn)

aa:={}
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    if i%1000 == 0
        aa:={}
    endif
    aadd(aa,{i,j,c,a,a2,t,bc})
next
dsp_time( "aadd(aa,{i,j,s,a,a2,t,bc}) -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    f0()
next
dsp_time( "f0() -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    f1(i)
next
dsp_time( "f1(i) -> ", t, tn)

c:=dtos(date())
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    f2(c)
next
dsp_time( "f2(c["+ltrim(str(len(c)))+"]) -> ", t, tn)

c:=replicate(c,5000)
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    f2(c)
next
dsp_time( "f2(c["+ltrim(str(len(c)))+"]) -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    f2(@c)
next
dsp_time( "f2(@c["+ltrim(str(len(c)))+"]) -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    f2(c)
    c2:=c
next
dsp_time( "f2(c["+ltrim(str(len(c)))+"]); c2:=c -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    f2(@c)
    c2:=c
next
dsp_time( "f2(@c["+ltrim(str(len(c)))+"]); c2:=c -> ", t, tn)

c:=dtos(date())
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    f3(a,a2,c,i,j,t,bc)
next
dsp_time( "f3(a,a2,c,i,j,t,bc) -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    f2(a2)
next
dsp_time( "f2(a2) -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    c:=f4()
next
dsp_time( "s:=f4() -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    c:=f5()
next
dsp_time( "s:=f5() -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    ascan(a,i%ARR_LEN)
next
dsp_time( "ascan(a,i%ARR_LEN) -> ", t, tn)

c:=dtos(date())
t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    ascan(a2,c+chr(i%64+64))
next
dsp_time( "ascan(a2,c+chr(i%64+64)) -> ", t, tn)

t:=hb_secondsCPU()
for i:=1 to N_LOOPS
    ascan(a,{|x|x==i%ARR_LEN})
next
dsp_time( "ascan(a,{|x|x==i%ARR_LEN}) -> ", t, tn)

? replicate("=",60)
dsp_time( "total application time:", total, 0)
? padr( "total real time:",50)+str(seconds()-totalr,8,2)
?

#ifndef NO_DBF_TEST

if file(cFi1)
    ferase(cFi1)
endif
if file(cFi2)
    ferase(cFi2)
endif

#endif

return nil

function dsp_time(s,t,tn)
? padr(s,50)+str(max(hb_secondsCPU()-t-tn,0),8,2)
return nil

function f0(x)
return nil

function f1(x)
return x+1

function f2(s)
return nil

function f3(a,b,c,d,e,f,g,h,i)
return nil

function f4()
return space(4000)

function f5()
return space(5)

function build_mode()
#ifdef __CLIP__
    return " (MT)"
#else
    #ifdef __XHARBOUR__
        return iif( HB_MULTITHREAD(), " (MT)", "" ) + ;
               iif( MEMORY( HB_MEM_USEDMAX ) != 0, " (FMSTAT)", "" )
    #else
        #ifdef __HARBOUR__
            return iif( HB_MTVM(), " (MT)", "" ) + ;
                   iif( MEMORY( HB_MEM_USEDMAX ) != 0, " (FMSTAT)", "" )
        #else
            #ifdef __XPP__
                return " (MT)"
            #endif
        #endif
    #endif
#endif
return ""

#ifdef FlagShip
    function fs_seconds()
    LOCAL_DOUBLE nret := 0
    #Cinline
    {
        #include <sys/time.h>
        struct timeval tv;
        struct timezone tz;
        if( !gettimeofday(&tv, NULL) )
            nret = (double) tv.tv_sec + (double) (tv.tv_usec) / 1000000;
/*
            nret = (double) (tv.tv_sec - tz.tz_minuteswest * 60 ) % 86400 +
                   (double) tv.tv_usec / 1000000;
*/
    }
    #endCinline
    return nret

    #ifndef FlagShip5
        FUNCTION cursesinit()
        CALL fgsIoctl2
        #Cinline
        {
            #include <fcntl.h>
            int arg;
            if ((arg = fcntl(0, F_GETFL, 0)) != -1)
                fcntl(0, F_SETFL, arg | O_NONBLOCK);
        }
        #endCinline
        return nil
    #endif
#endif

#if __HARBOUR__ < 0x010100
STATIC FUNCTION HB_MTVM()
   RETURN .F.
#endif

#ifndef __HARBOUR__
STATIC FUNCTION hb_OSNewLine()
#ifdef FlagShip
   RETURN Chr( 10 )
#elif __CLIP__
   RETURN Chr( 10 )
#else
   RETURN Chr( 13 ) + Chr( 10 )
#endif
#endif