46ae9d2f68
* include/hbset.h
* include/set.ch
* source/pp/pptable.c
+ Added _SET_IDLEREPEAT = 101
* source/rtl/set.c
+ Added suport for SET( _SET_IDLEREPEAT ) - Default is .T.
* source/rtl/idle.c
- Removed HB_IDLE_RESET()
* Changed handling of Idle Process to default to REPEAT.
* tests/onidle.prg
- Removed call to HB_IDLE_RESET()
+ tests/testidle.prg
+ New test of Idle Blocks in default (REPEAT) mode and optional NON REPEAT mode.
63 lines
1.3 KiB
Plaintext
63 lines
1.3 KiB
Plaintext
//
|
|
// $Id$
|
|
//
|
|
|
|
#include "hbmemory.ch"
|
|
|
|
FUNCTION MAIN
|
|
LOCAL nH1, nH2, nH3, nH4
|
|
LOCAL n:=0
|
|
LOCAL aSign:={"|", "/", "-", "\" }
|
|
LOCAL nPrev:=SECONDS()
|
|
|
|
CLS
|
|
? " Time: Memory used: Miliseconds elapsed"
|
|
?
|
|
? "Can you see it ??? :) Press any key or wait 30 seconds"
|
|
?
|
|
?
|
|
@ 10,2 SAY "Memory before TEST() call" + STR( MEMORY(HB_MEM_USED) )
|
|
TEST()
|
|
@ 11,2 SAY "Memory after TEST() and before collecting" + STR( MEMORY(HB_MEM_USED) )
|
|
HB_GCALL()
|
|
@ 12,2 SAY "Memory after collecting" + STR( MEMORY(HB_MEM_USED) )
|
|
nH1 = HB_IDLEADD( {|| DEVPOS(0,01), DEVOUT( TIME() ) } )
|
|
nH2 = HB_IDLEADD( {|| DEVPOS(0,21), TEST(), DEVOUT( MEMORY(HB_MEM_USED) ) } )
|
|
nH3 = HB_IDLEADD( {|| DEVPOS(0,41), IIF(n=4,n:=1,n++),DEVOUT(aSign[n]) } )
|
|
nH4 = HB_IDLEADD( {|| DEVPOS(0,61), DEVOUT( 1000*(SECONDS()-nPrev) ), nPrev:=SECONDS() } )
|
|
|
|
INKEY( 30 )
|
|
HB_IDLEDEL( nH3 )
|
|
HB_IDLEDEL( nH2 )
|
|
HB_IDLEDEL( nH1 )
|
|
HB_IDLEDEL( nH4 )
|
|
|
|
@ 13,2 SAY "Memory after idle states" + STR( MEMORY(HB_MEM_USED) )
|
|
HB_GCALL()
|
|
@ 14,2 SAY "Memory after collecting" + STR( MEMORY(HB_MEM_USED) )
|
|
|
|
RETURN 1
|
|
|
|
PROC TEST()
|
|
LOCAL a, b, c
|
|
LOCAL cb
|
|
|
|
a := ARRAY( 3 )
|
|
b := ARRAY( 3 )
|
|
c := ARRAY( 3 )
|
|
a[1] :=a
|
|
a[2] :=b
|
|
a[3] :=c
|
|
b[1] :=a
|
|
b[2] :=b
|
|
b[3] :=c
|
|
c[1] :=a
|
|
c[2] :=b
|
|
c[3] :=c
|
|
|
|
cb := {|x| x:=cb}
|
|
EVAL( cb )
|
|
|
|
RETURN
|
|
|