Memory #261

Parent #68Owner #361Flags readSource hellcore/hellcore.db

Aliases: Memory

2 verbs · 35 properties · 0 children

Verbs

VerbSpecFlagsDefinerLines
@memnone none nonerxd#26112
major_statsthis none thisrxd#2613

Properties

PropertyDefinerFlagsOwnerValue
names#261rc#361
list of 38{"AST pool", "AST", "program", "pval", "network", "string", "verbdef", "list", "prep", "propdef", "object table", "object", "float", "stream", "names", "env", "task", "pattern", "bytecodes", "fork vectors", "lit_list", "prototype", "code_gen", "disassemble", "decompile", "rt_stack", "rt_env", "bi_func_data", "vm", "ref_entry", "ref_table", "vc_entry", "vc_table", "string_ptrs", "inter_pointer", "intern_entry", "intern_hunk", "hash"}
warehouse#68r#29<clear>
help_msg#68rc#361<clear>
feature_verbs#68r#29{}
feature_ok#68r#29<clear>
handed#5rc#361<clear>
wield_msg#5rc#361<clear>
unwield_msg#5rc#361<clear>
size#5rc#361<clear>
look_place_msg#5rc#361<clear>
value#5rc#361<clear>
get_msg#5rc#361<clear>
drop_msg#5rc#361<clear>
get_fail_msg#5rc#361<clear>
junk_ok#5rc#361<clear>
floats#5rc#361<clear>
long_name_msg#5rc#361<clear>
article#5rc#361<clear>
setup_list#5rc#361<clear>
health#5rc#361<clear>
health_max#5rc#361<clear>
min_skill#5rc#361<clear>
skill#5rc#361<clear>
recipe_for#5rc#361<clear>
carried_msg#5rc#361<clear>
aliases#1rc#361{"Memory"}
description#1rc#361<clear>
object_size#1r#29{2668, 1298434442}
hidden_verbs#1rc#361<clear>
phelp_msg#1rc#361<clear>
weight#1rc#361<clear>
owner_verbs#1rc#361<clear>
plural_name#1rc#361<clear>
client_image#1rc#361<clear>
listening#1rc#361<clear>

Ancestry

Ancestors (nearest first): #68 Generic Feature Object#5 generic thing#1 root

Children: none

Call graph

calls n261_0 #261:@mem n20_1 #20:left n261_0->n20_1 n20_2 #20:right n261_0->n20_2 n1_11 #1:tell_lines n261_0->n1_11 n20_4 #20:columnize n261_0->n20_4

Source

@mem

Spec none none noneFlags rxdOwner #361Definer #261

Referenced by

none

Source

1{total, @cats} = memory_usage();
2for i in [1..length(cats)]
3name = tostr($ansi.red, $ansi.bold_on, this.names[i], ":", $ansi.reset);
4if (cats[i] > 0)
5pct = floatstr((100.0 * tofloat(cats[i])) / tofloat(total), 2) + "%";
6cats[i] = (($su:left(name, 14) + $su:right(tostr($ansi.yellow, cats[i]), 8)) + $su:right(tostr($ansi.bold_on, pct), 7)) + $ansi.reset;
7else
8cats[i] = $su:left(name, 14) + $su:right(tostr($ansi.yellow, "-"), 8);
9endif
10endfor
11cats = {@cats, ($su:left(tostr($ansi.white, "total allocations:"), 21) + $su:right($ansi.bold_on + tostr(total), 8)) + $ansi.reset};
12player:tell_lines($su:columnize(cats, 2));

major_stats

Spec this none thisFlags rxdOwner #361Definer #261

Referenced by

Source

1"major_stats() => counts of items in memory as {propvals, strings, verbs, lists, objects}.";
2mem = memory_usage();
3return {mem[5], mem[7], mem[8], mem[9], mem[13], mem[$]};