37 lines
698 B
Plaintext
37 lines
698 B
Plaintext
|
///getInstObjName(i)
|
||
|
|
/**
|
||
|
|
* getInstObjName :: Any -> String
|
||
|
|
*
|
||
|
|
* Returns the given instance/object/keyword as a string.
|
||
|
|
*/
|
||
|
|
|
||
|
|
if (!is_real(argument0))
|
||
|
|
return "[NaN "+string(argument0)+"]";
|
||
|
|
|
||
|
|
if (argument0 >= 0) {
|
||
|
|
if (object_exists(argument0))
|
||
|
|
return "<"+object_get_name(argument0)+">";
|
||
|
|
if (instance_exists(argument0))
|
||
|
|
return "<"+object_get_name(argument0.object_index)+"@"+string(argument0)+">";
|
||
|
|
|
||
|
|
return "[unknown "+string(argument0)+"]";
|
||
|
|
}
|
||
|
|
|
||
|
|
switch (argument0) {
|
||
|
|
case global:
|
||
|
|
return "global";
|
||
|
|
case -7:
|
||
|
|
return "local";
|
||
|
|
case self:
|
||
|
|
return "self";
|
||
|
|
case other:
|
||
|
|
return "other";
|
||
|
|
case noone:
|
||
|
|
return "noone";
|
||
|
|
case all:
|
||
|
|
return "all";
|
||
|
|
}
|
||
|
|
|
||
|
|
return "[unknown "+string(argument0)+"]";
|
||
|
|
|