upvar

parameter in and out

 

% proc aa { href } { \
upvar $href localhref;
set localhref 1;
\
}
% aa test
1
% puts $test
1