Programmer Options #70

Parent #62Owner #29Flags readSource hellcore/hellcore.db

Aliases: Programmer Options

8 verbs · 23 properties · 0 children

Verbs

VerbSpecFlagsDefinerLines
actualthis none thisrxd#705
showthis none thisrxd#706
show_verb_argsthis none thisrxd#705
check_verb_argsthis none thisrxd#7017
parse_verb_argsthis none thisrxd#7015
show_@prop_flagsthis none thisrxd#706
check_@prop_flagsthis none thisrxd#700
parse_@prop_flagsthis none thisrxd#7011

Properties

PropertyDefinerFlagsOwnerValue
show_eval_time#70rc#29{"eval does not show ticks/seconds consumed.", "eval shows ticks/seconds consumed."}
show_list_all_parens#70rc#29{"@list shows only necessary parentheses by default", "@list shows all parentheses by default"}
show_list_no_numbers#70rc#29{"@list gives line numbers by default", "@list omits line numbers by default"}
show_copy_expert#70rc#29{"@copy prints warning message.", "@copy omits warning message."}
type_@prop_flags#70rc#29{2}
show_list_show_permissions#70rc#29{"@list does not display permissions in header", "@list displays permissions in header"}
show_look_extra#70rc#29{"look shows no extra info", "look shows extra prog info"}
show_room_info#70rc#29{"rooms do not show extra info", "rooms show a line of object/xyz info"}
show_fullex#70rc#29{"@scope hides properties that are the same as parents'", "@scope shows every property"}
names#62r#29
list of 10{"list_all_parens", "list_no_numbers", "eval_time", "copy_expert", "verb_args", "@prop_flags", "list_show_permissions", "room_info", "look_extra", "fullex"}
_namelist#62r#29"!list_all_parens!list_no_numbers!list_show_permissions!eval_time!copy_expert!list_numbers!verb_args!@prop_flags!fullex!"
extras#62r#29{"list_numbers"}
namewidth#62rc#2915
aliases#1rc#29{"Programmer Options"}
description#1rc#29{"Option package for $prog commands. See `help @prog-options'."}
object_size#1r#29{5618, 1298433815}
hidden_verbs#1rc#29<clear>
phelp_msg#1rc#29<clear>
weight#1rc#29<clear>
owner_verbs#1rc#29<clear>
plural_name#1rc#29<clear>
client_image#1rc#29<clear>
listening#1rc#29<clear>

Ancestry

Ancestors (nearest first): #62 Generic Option Package → #1 root

Children: none

Call graph

calls n70_1 #70:show n62_6 #62:show n70_1->n62_6 n70_2 #70:show_verb_args n62_0 #62:get n70_2->n62_0 n20_5 #20:from_list n70_2->n20_5 n70_3 #70:check_verb_args n51_17 #51:short_prep n70_3->n51_17 n70_4 #70:parse_verb_args n70_4->n20_5 n20_38 #20:explode n70_4->n20_38 n51_15 #51:parse_argspec n70_4->n51_15 n70_5 #70:show_@prop_flags n70_5->n62_0

Source

actual

Spec this none thisFlags rxdOwner #29Definer #70

Referenced by

none

Source

1if (i = args[1] in {"list_numbers"})
2return {{{"list_no_numbers"}[i], !args[2]}};
3else
4return {args};
5endif

show

Spec this none thisFlags rxdOwner #29Definer #70

Referenced by

none

Source

1if (o = (name = args[2]) in {"list_numbers"})
2args[2] = {"list_no_numbers"}[o];
3return {@pass(@args), tostr("(", name, " is a synonym for -", args[2], ")")};
4else
5return pass(@args);
6endif

show_verb_args

Spec this none thisFlags rxdOwner #29Definer #70

Referenced by

none

Source

1if (value = this:get(@args))
2return {value, {tostr("Default args for @verb:  ", $string_utils:from_list(value, " "))}};
3else
4return {0, {"Default args for @verb:  none none none"}};
5endif

check_verb_args

Spec this none thisFlags rxdOwner #29Definer #70

Referenced by

none

Source

1value = args[1];
2if (typeof(value) != LIST)
3return "List expected";
4elseif (length(value) != 3)
5return "List of length 3 expected";
6elseif (!(value[1] in {"this", "none", "any"}))
7return tostr("Invalid dobj specification:  ", value[1]);
8elseif (!((p = $code_utils:short_prep(value[2])) || (value[2] in {"none", "any"})))
9return tostr("Invalid preposition:  ", value[2]);
10elseif (!(value[3] in {"this", "none", "any"}))
11return tostr("Invalid iobj specification:  ", value[3]);
12else
13if (p)
14value[2] = p;
15endif
16return {value};
17endif

parse_verb_args

Spec this none thisFlags rxdOwner #29Definer #70

Referenced by

none

Source

1{oname, raw, data} = args;
2if (typeof(raw) == STR)
3raw = $string_utils:explode(raw, " ");
4elseif (typeof(raw) == INT)
5return raw ? {oname, {"this", "none", "this"}} | {oname, 0};
6endif
7value = $code_utils:parse_argspec(@raw);
8if (typeof(value) != LIST)
9return tostr(value);
10elseif (value[2])
11return tostr("I don't understand \"", $string_utils:from_list(value[2], " "), "\"");
12else
13value = {@value[1], "none", "none", "none"}[1..3];
14return {oname, (value == {"none", "none", "none"}) ? 0 | value};
15endif

show_@prop_flags

Spec this none thisFlags rxdOwner #29Definer #70

Referenced by

none

Source

1value = this:get(@args);
2if (value)
3return {value, {tostr("Default permissions for @property=`", value, "'.")}};
4else
5return {0, {"Default permissions for @property=`rc'."}};
6endif

check_@prop_flags

Spec this none thisFlags rxdOwner #361Definer #70

Referenced by

none

Source

No program (verb defined but unprogrammed).

parse_@prop_flags

Spec this none thisFlags rxdOwner #361Definer #70

Referenced by

none

Source

1{oname, raw, data} = args;
2if (typeof(raw) != STR)
3return "Must be a string composed of the characters `rwc'.";
4endif
5len = length(raw);
6for x in [1..len]
7if (!(raw[x] in {"r", "w", "c"}))
8return "Must be a string composed of the characters `rwc'.";
9endif
10endfor
11return {oname, raw};