58faf91453
* *
% remove brandings and homepage [1] from copyright header. Pass 1 - using script.
[1] nobody has access to it anymore AFAIK - and it's also just
a redirect since long
! update url in copyright header
; this should make the diff between 3.4 and 3.2 easier to manage
132 lines
2.7 KiB
Plaintext
132 lines
2.7 KiB
Plaintext
/*
|
|
* demonstration/test code for using memvar variables sharing and
|
|
* copping
|
|
*
|
|
* Copyright 2008 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
|
|
*
|
|
*/
|
|
|
|
#include "hbthread.ch"
|
|
|
|
memvar pub1, pub2
|
|
memvar prv1, prv2
|
|
|
|
proc main()
|
|
|
|
? Version()
|
|
? "Main start"
|
|
|
|
public pub1, pub2
|
|
private prv1, prv2
|
|
|
|
?
|
|
? "Do not inherit memvars."
|
|
initVars()
|
|
? "main thread:"
|
|
testAllVars()
|
|
hb_threadJoin( hb_threadStart( @thFunc() ) )
|
|
? "main thread:"
|
|
testAllVars()
|
|
wait
|
|
|
|
?
|
|
? "Inherit copy of publics."
|
|
initVars()
|
|
? "main thread:"
|
|
testAllVars()
|
|
hb_threadJoin( hb_threadStart( HB_BITOR( HB_THREAD_INHERIT_PUBLIC, ;
|
|
HB_THREAD_MEMVARS_COPY ), ;
|
|
@thFunc() ) )
|
|
? "main thread:"
|
|
testAllVars()
|
|
wait
|
|
|
|
?
|
|
? "Inherit copy of privates."
|
|
initVars()
|
|
? "main thread:"
|
|
testAllVars()
|
|
hb_threadJoin( hb_threadStart( HB_BITOR( HB_THREAD_INHERIT_PRIVATE, ;
|
|
HB_THREAD_MEMVARS_COPY ), ;
|
|
@thFunc() ) )
|
|
? "main thread:"
|
|
testAllVars()
|
|
wait
|
|
|
|
?
|
|
? "Inherit copy of publics and privates."
|
|
initVars()
|
|
? "main thread:"
|
|
testAllVars()
|
|
hb_threadJoin( hb_threadStart( HB_BITOR( HB_THREAD_INHERIT_MEMVARS, ;
|
|
HB_THREAD_MEMVARS_COPY ), ;
|
|
@thFunc() ) )
|
|
? "main thread:"
|
|
testAllVars()
|
|
wait
|
|
|
|
?
|
|
? "Share publics with child threads."
|
|
initVars()
|
|
? "main thread:"
|
|
testAllVars()
|
|
hb_threadJoin( hb_threadStart( HB_THREAD_INHERIT_PUBLIC, @thFunc() ) )
|
|
? "main thread:"
|
|
testAllVars()
|
|
wait
|
|
|
|
?
|
|
? "Share privates with child threads."
|
|
initVars()
|
|
? "main thread:"
|
|
testAllVars()
|
|
hb_threadJoin( hb_threadStart( HB_THREAD_INHERIT_PRIVATE, @thFunc() ) )
|
|
? "main thread:"
|
|
testAllVars()
|
|
wait
|
|
|
|
?
|
|
? "Share publics and privates with child threads."
|
|
initVars()
|
|
? "main thread:"
|
|
testAllVars()
|
|
hb_threadJoin( hb_threadStart( HB_THREAD_INHERIT_MEMVARS, @thFunc() ) )
|
|
? "main thread:"
|
|
testAllVars()
|
|
wait
|
|
|
|
return
|
|
|
|
static proc initVars()
|
|
pub1 := "main:public1"
|
|
pub2 := "main:public2"
|
|
prv1 := "main:private1"
|
|
prv2 := "main:private2"
|
|
return
|
|
|
|
static proc testAllVars()
|
|
test_var( "PUB1" )
|
|
test_var( "PUB2" )
|
|
test_var( "PRV1" )
|
|
test_var( "PRV2" )
|
|
return
|
|
|
|
static proc test_var( cVarName )
|
|
? " " + cVarName + ":", type( cVarName )
|
|
if ! type( cVarName ) == "U"
|
|
?? " ->", &cVarName
|
|
endif
|
|
return
|
|
|
|
static proc thFunc()
|
|
? "child thread:"
|
|
testAllVars()
|
|
? "assign..."
|
|
pub1 := "thread:public1"
|
|
pub2 := "thread:public2"
|
|
prv1 := "thread:private1"
|
|
prv2 := "thread:private2"
|
|
? "child thread:"
|
|
testAllVars()
|
|
return
|