… | |
… | |
2857 | } |
2857 | } |
2858 | else |
2858 | else |
2859 | item = item->env; |
2859 | item = item->env; |
2860 | } |
2860 | } |
2861 | |
2861 | |
|
|
2862 | // return a suitable string describing an objetc in enough detail to find it |
|
|
2863 | const char * |
|
|
2864 | object::debug_desc (char *info) const |
|
|
2865 | { |
|
|
2866 | char info2[256 * 3]; |
|
|
2867 | char *p = info; |
|
|
2868 | |
|
|
2869 | p += snprintf (p, 256, "%d=\"%s%s%s\"", |
|
|
2870 | count, |
|
|
2871 | &name, |
|
|
2872 | title ? " " : "", |
|
|
2873 | title ? (const char *)title : ""); |
|
|
2874 | |
|
|
2875 | if (env) |
|
|
2876 | p += snprintf (p, 256, "(in %s)", env->debug_desc (info2)); |
|
|
2877 | |
|
|
2878 | if (map) |
|
|
2879 | p += snprintf (p, 256, "(on %s@%d+%d)", map->path, x, y); |
|
|
2880 | |
|
|
2881 | return info; |
|
|
2882 | } |
|
|
2883 | |
|
|
2884 | const char * |
|
|
2885 | object::debug_desc () const |
|
|
2886 | { |
|
|
2887 | static char info[256 * 3]; |
|
|
2888 | return debug_desc (info); |
|
|
2889 | } |
|
|
2890 | |