/* -*- LPC -*- */ /* * $Locker: $ * $Id: wiz_object_comm.c,v 1.2 1998/04/13 14:26:20 pinkfish Exp $ * $Log: wiz_object_comm.c,v $ * Revision 1.2 1998/04/13 14:26:20 pinkfish * Added documentation and removed unnessessary bits. * * Revision 1.1 1998/01/06 04:54:05 ceres * Initial revision * */ #include <creator.h> /** * This file conatins all the object based creator commands. * @author Ember */ private nosave mapping obvar; void create() { obvar = ([ ]); } /* create() */ /** @ignore yes */ protected void wiz_commands() { } /* wiz_commands() */ /** @ignore yes */ int affirmative(string s) /* returns true if s is a 'yes' equiv response */ { s = lower_case(s); return (s == "y" || s == "yes" || s == "ok" || s == "please"); } /* affirmative() */ /* is there an error? print it */ /** @ignore yes */ void handle_error(string erm, string desc) { if (erm) { write(desc + " failed : " + erm); } } /* handle_error() */ /** * this method sets the given object variable to the given * value. * @param key the variable name * @param value the object variable name * @see del_obvar() * @see get_obvar() * @see get_obvars() */ void set_obvar(string key, object value) { obvar[key] = value; } /* set_obvar() */ /** * This method deletes the given object variable, * @param key the object variable to delet. * @see set_obvar() * @see get_obvar() * @see get_obvars() */ void del_obvar(string key) { map_delete(obvar, key); } /* del_obvar() */ /** * This method returns the object associated witht the object * variable. * @param key the object variablename * @return the object associated with the name * @see del_obvar() * @see set_obvar() * @see get_obvars() */ object get_obvar(string key) { return obvar[key]; } /* get_obvar() */ /** * This method returns the mapping of all the object variables * currently set on this creator. * @return all the object variables as a mapping * @see del_obvar() * @see set_obvar() * @see get_obvar() */ mapping get_obvars() { return obvar; } /* get_obvars() */ /** @ignore yes */ string desc_object(mixed o) { log_file("WIZ_PRESENT", sprintf("desc_object() called by %O.\n", previous_object())); return ""; } /* desc_object() */ /** @ignore yes */ string desc_f_object(mixed o) { log_file("WIZ_PRESENT", sprintf("desc_f_object() called by %O.\n", previous_object())); return ""; } /* desc_f_object() */ /** @ignore yes */ object *wiz_present(string str, object onobj, int nogoout) { log_file("WIZ_PRESENT", sprintf("wiz_present() called by %O.\n", previous_object())); return ({}); } /* wiz_present() */