OpenEuphoria

Re: task function request

• Posted by ryanj Sep 09, 2009
• 1114 views

Would this do what you need?

constant 
tID = 1, 
tData = 2 
 
sequence taskvars = {{},{}} 
 
 
export function task_get_var(atom taskid) 
    atom idx 
    idx = find(taskid, taskvars[tID]) 
     
    if idx > 0 then 
        return taskvars[tData][idx] 
    else 
        return 0 
    end if    
end function 
 
export procedure task_set_var(atom taskid, object taskvar) 
    atom idx 
    idx = find(taskid, taskvars[tID]) 
     
    if idx > 0 then 
        taskvars[tData][idx] = taskvar 
    end if 
end procedure