Add verb-editor support to $prog

Author: rdaum

src/player.moo

@@ -15,7 +15,7 @@ object PLAYER
 
   override description = "You see a player who should get around to describing themself.";
 
-  verb "l look" (any none none) owner: ARCH_WIZARD flags: "rxd"
+  verb "l*ook" (any none none) owner: ARCH_WIZARD flags: "rxd"
     "Look at an object. Collects the descriptive attributes and then emits them to the player.";
     "If we don't have a match, that's a 'I don't see that there...'";
     if (dobjstr == "")
@@ -70,7 +70,7 @@ object PLAYER
         transformed = event:transform_for(connection_obj, content_type);
       except e (ANY)
         transformed = "FAILED EVENT: " + toliteral(event) + "
-                            " + toliteral(e);
+                                                " + toliteral(e);
       endtry
       "Iterate the transformed values and have it turn into its output form. Strings output as strings, while HTML trees are transformed, etc.";
       output = {};

src/prog.moo

@@ -3,10 +3,15 @@ object PROG
   parent: BUILDER
   location: FIRST_ROOM
   owner: WIZ
+  wizard: true
+  programmer: true
   fertile: true
   readable: true
 
   verb eval (any any any) owner: ARCH_WIZARD flags: "rxd"
+    if (player != caller)
+      raise(E_PERMS);
+    endif
     set_task_perms(player);
     answer = eval("return " + argstr + ";");
     if (answer[1])
@@ -16,4 +21,75 @@ object PROG
     endif
     player:tell(result_event);
   endverb
+
+  verb "@edit" (any any any) owner: ARCH_WIZARD flags: "rxd"
+    "Edit a verb on an object using the presentation system.";
+    "Usage: @edit <object>:<verb> [info]";
+    "Examples: @edit #1:look_self, @edit player:tell, @edit $match:match_object info";
+    if (player != caller)
+      raise(E_PERMS);
+    endif
+    set_task_perms(player);
+    "Check for usage errors";
+    if (!argstr)
+      player:tell($event:mk_error(player, "Usage: " + verb + " <object>:<verb> [info]"));
+      return;
+    endif
+    "Parse arguments - check for 'info' mode";
+    args_list = argstr:split(" ");
+    verbref_string = args_list[1];
+    "Parse the verb reference";
+    parsed = verbref_string:parse_verbref();
+    if (!parsed)
+      player:tell($event:mk_error(player, "Invalid verb reference format. Use 'object:verb'"));
+      return;
+    endif
+    {object_str, verb_name} = parsed;
+    "Match the object";
+    target_obj = $match:match_object(object_str, player);
+    if (typeof(target_obj) == ERR)
+      if (target_obj == E_INVARG("No object found matching '" + object_str + "'"))
+        player:tell($event:mk_error(player, "I don't see '" + object_str + "' here."));
+      else
+        player:tell($event:mk_error(player, "Error matching object: " + tostr(target_obj)));
+      endif
+      return;
+    endif
+    "Find and retrieve the verb code";
+    try
+      "Find where the verb is actually defined";
+      verb_location = target_obj:find_verb_definer(verb_name);
+      if (verb_location == #-1)
+        player:tell($event:mk_error(player, "Verb '" + tostr(verb_name) + "' not found on " + target_obj.name + " or its ancestors."));
+        return;
+      endif
+      "Get verb information for editor";
+      verb_info_data = verb_info(verb_location, verb_name);
+      {verb_owner, verb_flags, verb_names} = verb_info_data;
+      "Open the editor";
+      player:present_editor(verb_location, verb_name);
+      player:tell($event:mk_info(player, "Opened verb editor for " + tostr(target_obj) + ":" + tostr(verb_name)));
+    except (E_VERBNF)
+      player:tell($event:mk_error(player, "Verb '" + tostr(verb_name) + "' not found on " + target_obj.name + "."));
+      return;
+    endtry
+  endverb
+
+  verb present_editor (this none this) owner: ARCH_WIZARD flags: "rxd"
+    if (caller != this)
+      raise(E_PERM);
+    endif
+    {verb_location, verb_name} = args;
+    editor_id = "edit-" + tostr(verb_location) + "-" + verb_name;
+    editor_title = "Edit " + verb_name + " on " + tostr(verb_location);
+    obj_str = tostr(verb_location);
+    if (obj_str[1] == "#")
+      object_curie = "oid:" + obj_str[2..$];
+    elseif (obj_str[1] == "$")
+      object_curie = "sysobj:" + obj_str[2..$];
+    else
+      object_curie = obj_str;
+    endif
+    present(player, editor_id, "text/plain", "verb-editor", "", {{"object", object_curie}, {"verb", verb_name}, {"title", editor_title}});
+  endverb
 endobject

src/root.moo

@@ -83,4 +83,28 @@ object ROOT
     !("all_verbs" in all_verbs) || (!("test_all_verbs" in all_verbs) && return E_ASSERT);
     return true;
   endverb
+
+  verb find_verb_definer (this none this) owner: HACKER flags: "rxd"
+    "Find verb on object or its ancestors, returning the object that actually defines the verb.";
+    "Uses ancestors() builtin and verb_info() to handle aliases, wildcards, and inheritance.";
+    "Usage: obj:find_verb_definer(verb_name)";
+    {verb_name} = args;
+    "Check this object first";
+    try
+      verb_info(this, verb_name);
+      return this;
+    except (E_VERBNF)
+    endtry
+    "Then check ancestors";
+    ancestor_list = ancestors(this);
+    for ancestor in (ancestor_list)
+      try
+        verb_info(ancestor, verb_name);
+        return ancestor;
+      except (E_VERBNF)
+        continue;
+      endtry
+    endfor
+    return #-1;
+  endverb
 endobject

src/str_proto.moo

@@ -471,7 +471,7 @@ object STR_PROTO
       endif
       object = tostr(object);
     endif
-    return {object, tosym(verbname)};
+    return {object, verbname};
   endverb
 
   verb test_parse_verbref (this none this) owner: HACKER flags: "rxd"
@@ -484,15 +484,15 @@ object STR_PROTO
       result != should && raise(E_ASSERT, ": should be " + toliteral(should) + " was: " + toliteral(result));
     end
     begin
-      let {result, should} = {"$string:look_self":parse_verbref(), {"$string", 'look_self}};
+      let {result, should} = {"$string:look_self":parse_verbref(), {"$string", "look_self"}};
       result != should && raise(E_ASSERT, "$string:look_self should be " + toliteral(should) + " was: " + toliteral(result));
     end
     begin
-      let {result, should} = {"#1:look_self":parse_verbref(), {"#1", 'look_self}};
+      let {result, should} = {"#1:look_self":parse_verbref(), {"#1", "look_self"}};
       result != should && raise(E_ASSERT, "#1:look_self should be " + toliteral(should) + " was: " + toliteral(result));
     end
     begin
-      let {result, should} = {"honk:look_self":parse_verbref(), {"honk", 'look_self}};
+      let {result, should} = {"honk:look_self":parse_verbref(), {"honk", "look_self"}};
       result != should && raise(E_ASSERT, "honk:look_self should be " + toliteral(should) + " was: " + toliteral(result));
     end
   endverb
@@ -677,7 +677,7 @@ object STR_PROTO
       endif
       object = tostr(object);
     endif
-    return {object, tosym(verbname)};
+    return {object, verbname};
   endverb
 
   verb test_split (this none this) owner: HACKER flags: "rxd"