Object myObj
myObj%a:	=[ABC]
myObj%arr:	m=[from myObj] n=[PPP] q=[KKK]
myObj%larr:	m=[from myObj] n=[PPP] q=[KKK]
myObj%karr:	q=[KKK] r=[RRR]
myObj%brand:	n=[brand new]

Object value
value%a:	=[ABC]
value%arr:	m=[from myObj] n=[PPP] q=[KKK]
value%larr:	m=[from myObj] n=[PPP] q=[KKK]
value%karr:	q=[KKK] r=[RRR]
value%brand:	n=[brand new]

display "After assigning 'xyz' to x \n";
var x = "xyz";
display "x = {x} \n";
display "a = {a} \n";

display "After assigning 'ABC' to a \n";
var a = "ABC";
display "x = {x} \n";
display "a = {a} \n";

display "After clearing x \n";
clear x;
display "x = {x} \n";
display "a = {a} \n";

display "Array linking \n";
var arr = "(array)m=>'M and M',n=>'N for No'";
var larr =& arr;
display "arr=[{arr|list}] \n";
display "larr=[{larr|list}] \n";

display "After assigning 'PPP' to larr:n \n";
var larr:n = "PPP";
display "arr=[{arr|list}] \n";
display "larr=[{larr|list}] \n";

display "After assigning 'QQQ' to larr:q \n";
var larr:q = "QQQ";
display "arr=[{arr|list}] \n";
display "larr=[{larr|list}] \n";

display "After linking larr:q to karr:q \n";
var karr:q =& larr:q;
display "arr=[{arr|list}] \n";
display "larr=[{larr|list}] \n";
display "karr=[{karr|list}] \n";

display "After assigning 'KKK' to karr:q \n";
var karr:q = "KKK";
display "arr=[{arr|list}] \n";
display "larr=[{larr|list}] \n";
display "karr=[{karr|list}] \n";

display "After assigning 'RRR' to karr:r \n";
var karr:r = "RRR";
display "arr=[{arr|list}] \n";
display "larr=[{larr|list}] \n";
display "karr=[{karr|list}] \n";

display "Class linking \n";
var myObj% =& value%;
var myObj%arr:m = "from myObj";
var myObj%brand:n = "brand new";
myObj%dumpObj;
value%dumpObj;

function dumpObj
{
	var thisName = "{arg%this}";
	var varlist = "{class%list:this}";
	display "<table border=1>\n";
	display "<tr><td colspan=2>Object {thisName}</td></tr>\n";
	foreach ("(array){varlist}") display "<tr><td valign=top>{thisName}%{foreach}:</td><td>{this%{foreach}|list:(@key=[@value]) \n()}</td></tr>\n";
	display "</table>\n";
}

</script>

Back home

Link