Thread object accesibility

[bwolfsohn]

In our xb2net application, i have a thread object.

i can refer to it in code

Code: Select all

x:=oThread:getvar("userid")

However, i can't figure out if it's possible to access this dynamically i.e.

Code: Select all

x:=[oThread:getvar("userid")]
? &x

is this possible ??

[skiman]

Hi Brian,

Maybe as follows?

Code: Select all

x:='{|o| o:getvar("userid")}'
bBlock := &(x)
? eval(bBlock,oThread)

[rdonnay]

The macro will work only if oThread is a private or public variable.

[bwolfsohn]

is it possible to only macro the var portion in some way ???

x:="userid"
? oThread:getvar(&x)

[skiman]

Brian,

Code: Select all

x:='userid'
bBlock := &('{|o| o:getvar("'+x+'")}')
? eval(bBlock,oThread)

[bwolfsohn]

Brian,

Code: Select all

x:='userid'
bBlock := &('{|o| o:getvar("'+x+'")}')
? eval(bBlock,oThread)

Chris,

this worked fine for oThread..

But, with no getvar for oSession:profile , i'm stuck again...

oSession and oSession:profile are both objects.. i ned to dynamically grab the value of a class var in profile...

[skiman]

Hi Brian,

Can you explain this? It should work without any problem.

Also the previous posted code can be optimized this way:

Code: Select all

bBlock := {|o,x| o:getvar(x)}
x:="userid"
? eval(bBlock,oThread,x)

For your oSession sample:

Code: Select all

bBlock := {|o,cVar,oProfile| oProfile:=o:profile, oProfile:getvar(cVar) }
x := 'userid'
cUserid := eval(bBlock,oSession,x)

[bwolfsohn]

Hi Brian,

Can you explain this? It should work without any problem.

Also the previous posted code can be optimized this way:

Code: Select all

bBlock := {|o,x| o:getvar(x)}
x:="userid"
? eval(bBlock,oThread,x)

For your oSession sample:

Code: Select all

bBlock := {|o,cVar,oProfile| oProfile:=o:profile, oProfile:getvar(cVar) }
x := 'userid'
cUserid := eval(bBlock,oSession,x)

Chris,
The oThread example works perfectly...
the oProfile example does not...
getvar is not a method in osession

it looks like i need to add an inline method getvar to my oSession class...

[Auge_Ohr]

The oThread example works perfectly...
the oProfile example does not...
getvar is not a method in osession

what about using oProfile:Cargo Slot ?

[skiman]

Hi Brian,

Just a wild guess:

Code: Select all

bBlock := {|o,cVar,oProfile| oProfile:=o:profile, oProfile:&(cVar) }
x := 'userid'
cUserid := eval(bBlock,oSession,x)