+++ /dev/null
-
-// huffware script: inventory exchanger, by fred huffhines.
-//
-// manages inventory between a root prim and its children. this script should be placed in
-// all prims that need to exchange contents. the root prim drives the exchange process based
-// on a registered set of assets that it is told to synchronize in each child. all the child
-// prims that have this script will ensure they are up to date with respect to those assets.
-//
-// this script is licensed by the GPL v3 which is documented at: http://www.gnu.org/licenses/gpl.html
-// do not use it in objects without fully realizing you are implicitly accepting that license.
-//
-
-// inventory exchanger link message API...
-//////////////
-// do not redefine these constants.
-integer INVENTORY_EXCHANGER_HUFFWARE_ID = 10021;
- // the unique id within the huffware system for the jaunt script to
- // accept commands on. this is used in llMessageLinked as the num parameter.
-string HUFFWARE_PARM_SEPARATOR = "{~~~}";
- // this pattern is an uncommon thing to see in text, so we use it to separate
- // our commands in link messages.
-//string HUFFWARE_ITEM_SEPARATOR = "{|||}";
- // used to separate lists of items from each other when stored inside a parameter.
- // this allows lists to be passed as single string parameters if needed.
-integer REPLY_DISTANCE = 100008; // offset added to service's huffware id in reply IDs.
-// commands available via the library:
-string REGISTER_ASSETS_COMMAND = "#regis#";
- // makes the root prim's inventory exchanger track a set of items which each participating
- // child prim should have. this command is only available to the root prim; child prims
- // cannot register any assets but instead can get updates on the assets. the parameter
- // required is a list of asset definitions, wrapped by the huffware parm separator. each
- // asset definition is in turn a two part list wrapped with the asset field separator.
-string ASSET_FIELD_SEPARATOR = "&&"; // separates the type from the name in our list.
-string WILDCARD_INVENTORY_NAME = "ALL";
- // this keyword can be used to register all of the inventory items available of the
- // specified type. this should be passed as the inventory item name in the second half of
- // an asset definition list.
-string WHACK_INVENTORY_SIGNAL = "DEL*";
- // ensures that the child prim doesn't maintain *any* of the inventory of the type specified.
-string AVAILABLE_ASSETS_EVENT = "#gotz#";
- // the root prim publishes this event to list out what items it has available. the child
- // prims need to ask for anything that they're currently missing. the included parameters
- // are in the same format as the register assets command, but no wildcards will be present;
- // all asset names will be fully expanded.
-string REQUEST_UPDATES = "#nupd#";
- // used by the child prim to request an updated version of an asset or assets. the parameters
- // should follow the register assets command.
-string FINISHED_UPDATING = "#donq#";
- // a signal sent from the root prim to the child prim when the root has finished updating
- // the assets requested. this lets the child know that it can clean out any outdated versions
- // of items which got an update. there are no parameters to this, because the child prim
- // should have at most one update outstanding at a time.
-//////////////
-
-// constants...
-
-integer TIMER_PERIOD = 600; // the rate at which the root sends out updates (in seconds).
-
-integer INVEXCH_SCRIPT_PIN = -343781294; // used to slam scripts into the target prim.
-
-// global variables...
-
-list assets_available;
- // the set of items that we will provide on demand. this list has items wrapped with the
- // asset separator, where the unwrapped entries each provide the type (integer) and the
- // name of the item.
-
-// gives out items that are asked for in "requested_assets". these go from the
-// root prim into the kids.
-populate_child_prim(integer link_num, list requested_assets)
-{
- key asking_child = llGetLinkKey(link_num); // the kid that needs the update.
- // look at the assets one by one and pass them over.
- integer undy;
- for (undy = 0; undy < llGetListLength(requested_assets); undy++) {
- // unwrap the next asset definition from the requests.
- list asset_def = llParseString2List(llList2String(requested_assets, undy),
- [ASSET_FIELD_SEPARATOR], []);
- integer type = llList2Integer(asset_def, 0);
- string name = llList2String(asset_def, 1);
-//log_it("root is giving link " + (string)link_num + " item " + name);
- // fork over the item itself.
- if (type != INVENTORY_SCRIPT) {
- llGiveInventory(asking_child, name);
- } else {
- llRemoteLoadScriptPin(asking_child, name, INVEXCH_SCRIPT_PIN, TRUE, 0);
- }
- }
-
- // we send this event when done updating the kid.
- llMessageLinked(link_num, INVENTORY_EXCHANGER_HUFFWARE_ID, FINISHED_UPDATING, NULL_KEY);
-}
-
-// changes the run state of all the scripts besides this one.
-knock_around_other_scripts(integer running_state)
-{
- // we won't start anything if we're running inside the updater object.
- if (find_substring(llGetObjectName(), "huffotronic") >= 0) return;
-
- integer indy;
- string self_script = llGetScriptName();
- // we set all other scripts to the running state requested.
- for (indy = 0; indy < llGetInventoryNumber(INVENTORY_SCRIPT); indy++) {
- string curr_script = llGetInventoryName(INVENTORY_SCRIPT, indy);
- if (curr_script != self_script) {
- // this one seems ripe for being set to the state requested.
- llSetScriptState(curr_script, running_state);
- }
- }
-}
-
-// kicks forward the periodic activities of the exchange process.
-handle_timer()
-{
- if (llGetLinkNumber() != 1) {
- // child prim activities only.
-// knock_around_other_scripts(TRUE);
- return;
- } else {
- // the rest are root prim timer activities.
- if (llGetListLength(assets_available) == 0) return; // nothing to do here.
- // the root needs to send out link messages telling kids what good stuff its got.
- llMessageLinked(LINK_ALL_CHILDREN, INVENTORY_EXCHANGER_HUFFWARE_ID,
- AVAILABLE_ASSETS_EVENT, wrap_parameters(assets_available));
- }
-
-}
-
-// given a packed up list of items, this breaks out each asset definition and
-// begins using the set as our full list of available items.
-consume_asset_registration(string packed_assets)
-{
- assets_available = llParseString2List(packed_assets, [HUFFWARE_PARM_SEPARATOR], []);
-//hmmm: future enhancement might be to allow multiple clients of the root exchanger.
-// currently we only support one script inside the root prim listing assets for inv exch.
-// that's shown just above where we're just replacing the entire registered assets list.
-
- integer indy;
- for (indy = 0; indy < llGetListLength(assets_available); indy++) {
- list asset_def = llParseString2List(llList2String(assets_available, indy),
- [ASSET_FIELD_SEPARATOR], []);
- integer type = llList2Integer(asset_def, 0);
- string name = llList2String(asset_def, 1);
- if (name == WILDCARD_INVENTORY_NAME) {
- // argh, we need to patch up the list for a wildcard option.
- // first, whack the item with the wildcard in it.
- assets_available = llDeleteSubList(assets_available, indy, indy);
- // now revert the list index for the missing item.
- indy--;
- // and finally add all the items of that type. if one of them is named
- // after the wildcard character, well, we disallow that craziness.
- integer inv_pos;
- for (inv_pos = 0; inv_pos < llGetInventoryNumber(type); inv_pos++) {
- string inv_name = llGetInventoryName(type, inv_pos);
- if (inv_name != WILDCARD_INVENTORY_NAME) {
-//log_it("added wild: " + inv_name);
- assets_available += [ llDumpList2String([type, inv_name], ASSET_FIELD_SEPARATOR) ];
- }
- }
-
- }
- }
-
- // make sure we get this new set out to the interested parties.
- handle_timer();
-}
-
-// note that this new, lower memory version, depends on the inventory functions returning
-// items in alphabetical order.
-scrub_items_by_type(string this_guy, integer inventory_type)
-{
- list removal_list;
- integer outer;
- for (outer = 0; outer < llGetInventoryNumber(inventory_type); outer++) {
- string curr = llGetInventoryName(inventory_type, outer);
- list split = compute_basename_and_version(curr);
- // make sure there was a comparable version number in this name.
- if ( (curr != this_guy) && llGetListLength(split)) {
- string curr_base = llList2String(split, 0);
- float curr_ver = (float)llList2String(split, 1);
-//log_it("outer: " + curr_base + " / " + (string)curr_ver);
- integer inner;
- for (inner = outer + 1; inner < llGetInventoryNumber(inventory_type); inner++) {
- string next_guy = llGetInventoryName(inventory_type, inner);
- list comp_split = compute_basename_and_version(next_guy);
- if (llGetListLength(comp_split)) {
- string comp_base = llList2String(comp_split, 0);
- float comp_ver = (float)llList2String(comp_split, 1);
- // okay, now we can actually compare.
- if (curr_base != comp_base) {
- // break out of inner loop. we are past where the names can matter.
- inner = 2 * llGetInventoryNumber(inventory_type);
- } else {
-//log_it("inner: " + comp_base + " / " + (string)comp_ver);
- if (curr_ver <= comp_ver) {
- // the script at inner index is comparable or better than
- // the script at the outer index.
- removal_list += curr;
- } else {
- // this inner script must be inferior to the outer one,
- // somehow, which defies our expectation of alphabetical ordering.
- removal_list += next_guy;
- }
- }
- }
- }
- }
- }
-
- // now actually do the deletions.
- for (outer = 0; outer < llGetListLength(removal_list); outer++) {
- string to_whack = llList2String(removal_list, outer);
-log_it("removing older asset: " + to_whack);
- llRemoveInventory(to_whack);
- }
-}
-
-// ensures that only the latest version of any script or object is kept in our inventory.
-// has been called destroy_older_versions in other scripts.
-clean_outdated_items()
-{
- scrub_items_by_type(llGetScriptName(), INVENTORY_ALL);
- // after cleaning up, make sure everything's running.
- knock_around_other_scripts(TRUE);
-}
-
-// locates the index of a specified type of inventory item with a particular name,
-// or returns a negative number.
-integer find_inventory(integer type, string name)
-{
- integer indy;
- for (indy = 0; indy < llGetInventoryNumber(type); indy++) {
- if (name == llGetInventoryName(type, indy)) return indy;
- }
- return -1;
-}
-
-// called on child prims to make sure they have everything the root does.
-examine_inventory_freshness(string packed_assets)
-{
- list missing_goods; // fill this with the things we don't have in this prim.
- list provisions = llParseString2List(packed_assets, [HUFFWARE_PARM_SEPARATOR], []);
- integer indy;
- // scan through all the items that are available and make sure we have each of them.
- for (indy = 0; indy < llGetListLength(provisions); indy++) {
- string prov = llList2String(provisions, indy);
- list fields = llParseString2List(prov, [ASSET_FIELD_SEPARATOR], []);
-//log_it("checking: " + llList2String(fields, 1) + " type=" + (string)llList2Integer(fields, 0));
- // look for the type and name specified.
- integer type = llList2Integer(fields, 0);
- string name = llList2String(fields, 1);
- if (name == WHACK_INVENTORY_SIGNAL) {
- // we see our special signifier, so remove all items of the type specified.
- // yes, this is dangerous.
- integer delo;
- for (delo = llGetInventoryNumber(type) - 1; delo >= 0; delo--) {
- llRemoveInventory(llGetInventoryName(type, delo));
- }
- } else {
- integer found = find_inventory(type, name);
- if (found < 0) {
-//log_it("found " + llList2String(fields, 1) + " was missing!");
- // well, we are out of this one. tell the root we want it.
- missing_goods += [ prov ];
- }
- }
- }
- if (llGetListLength(missing_goods) > 0) {
- // well we found some things that we're supposed to have, but do not. we will
- // get the root prim to fix us up.
- llMessageLinked(LINK_ROOT, INVENTORY_EXCHANGER_HUFFWARE_ID,
- REQUEST_UPDATES, wrap_parameters(missing_goods));
- }
-}
-
-//hmmm: this is not such a good model? why do the root and
-// the child both need to be running this check on a timer?
-
-// processes inventory exchange commands in the root prim. this is where assets must
-// be present so they can be distributed to the child prims.
-process_root_msg(integer link_num, integer service, string cmd, key parms)
-{
- if (service != INVENTORY_EXCHANGER_HUFFWARE_ID) return; // not for us.
-//string name="root";
-//if (llGetLinkNumber() != 1) name="child";
-//log_it(name + " got request " + cmd);
- if (link_num == 1) {
- // this request is also from the root prim, where this script lives currently.
- if (cmd == REGISTER_ASSETS_COMMAND) {
- // root prim accepts a list of assets to provide to the kids.
- consume_asset_registration(parms);
- }
- } else {
- // a request is coming from a child prim.
- if (cmd == REQUEST_UPDATES) {
- // the root prim responds to update requests by handing out presents.
- populate_child_prim(link_num, llParseString2List(parms, [HUFFWARE_PARM_SEPARATOR], []));
- }
- }
-}
-
-// implements the child API, mainly to track missing assets and clean out outdated items.
-process_child_msg(integer link_num, integer service, string cmd, key parms)
-{
- if (service != INVENTORY_EXCHANGER_HUFFWARE_ID) return; // not for us.
- if (link_num != 1) return; // we don't listen to any chatter from other children.
- if (cmd == AVAILABLE_ASSETS_EVENT) {
- examine_inventory_freshness(parms);
- } else if (cmd == FINISHED_UPDATING) {
- clean_outdated_items();
- }
-}
-
-// main processing function for the link messge API.
-handle_link_message(integer link_num, integer service, string cmd, key parms)
-{
- if (llGetLinkNumber() == 1) process_root_msg(link_num, service, cmd, parms);
- else process_child_msg(link_num, service, cmd, parms);
-}
-
-//////////////
-// beginning of hufflets...
-//////////////
-
-// diagnostic hufflets...
-
-integer debug_num = 0;
-
-// a debugging output method. can be disabled entirely in one place.
-log_it(string to_say)
-{
- debug_num++;
- // tell this to the owner.
- llOwnerSay(llGetScriptName() + "[" + (string)debug_num + "] " + to_say);
- // say this on an unusual channel for chat if it's not intended for general public.
-// llSay(108, llGetScriptName() + "[" + (string)debug_num + "] " + to_say);
- // say this on open chat that anyone can hear. we take off the bling for this one.
-// llSay(0, to_say);
-}
-
-// joins a list of parameters using the parameter sentinel for the library.
-string wrap_parameters(list to_flatten)
-{ return llDumpList2String(to_flatten, HUFFWARE_PARM_SEPARATOR); }
-
-// joins a list of sub-items using the item sentinel for the library.
-//string wrap_item_list(list to_wrap)
-//{ return llDumpList2String(to_wrap, HUFFWARE_ITEM_SEPARATOR); }
-
-// returns the index of the first occurrence of "pattern" inside
-// the "full_string". if it is not found, then a negative number is returned.
-integer find_substring(string full_string, string pattern)
-{ return llSubStringIndex(llToLower(full_string), llToLower(pattern)); }
-
-// returns TRUE if the "prefix" string is the first part of "compare_with".
-integer is_prefix(string compare_with, string prefix)
-{ return find_substring(compare_with, prefix) == 0; }
-
-//////////////
-// huffware script: auto-retire, by fred huffhines, version 2.5.
-// distributed under BSD-like license.
-// !! keep in mind that this code must be *copied* into another
-// !! script that you wish to add auto-retirement capability to.
-// when a script has auto_retire in it, it can be dropped into an
-// object and the most recent version of the script will destroy
-// all older versions.
-//
-// the version numbers are embedded into the script names themselves.
-// the notation for versions uses a letter 'v', followed by two numbers
-// in the form "major.minor".
-// major and minor versions are implicitly considered as a floating point
-// number that increases with each newer version of the script. thus,
-// "hazmap v0.1" might be the first script in the "hazmap" script continuum,
-// and "hazmap v3.2" is a more recent version.
-//
-// example usage of the auto-retirement script:
-// default {
-// state_entry() {
-// auto_retire(); // make sure newest addition is only version of script.
-// }
-// }
-// this script is partly based on the self-upgrading scripts from markov brodsky
-// and jippen faddoul.
-//////////////
-auto_retire() {
- string self = llGetScriptName(); // the name of this script.
- list split = compute_basename_and_version(self);
- if (llGetListLength(split) != 2) return; // nothing to do for this script.
- string basename = llList2String(split, 0); // script name with no version attached.
- string version_string = llList2String(split, 1); // the version found.
- integer posn;
- // find any scripts that match the basename. they are variants of this script.
- for (posn = llGetInventoryNumber(INVENTORY_SCRIPT) - 1; posn >= 0; posn--) {
- string curr_script = llGetInventoryName(INVENTORY_SCRIPT, posn);
- if ( (curr_script != self) && (llSubStringIndex(curr_script, basename) == 0) ) {
- // found a basic match at least.
- list inv_split = compute_basename_and_version(curr_script);
- if (llGetListLength(inv_split) == 2) {
- // see if this script is more ancient.
- string inv_version_string = llList2String(inv_split, 1); // the version found.
- // must make sure that the retiring script is completely the identical basename;
- // just matching in the front doesn't make it a relative.
- if ( (llList2String(inv_split, 0) == basename)
- && ((float)inv_version_string < (float)version_string) ) {
- // remove script with same name from inventory that has inferior version.
- llRemoveInventory(curr_script);
- }
- }
- }
- }
-}
-//
-// separates the base script name and version number. used by auto_retire.
-list compute_basename_and_version(string to_chop_up)
-{
- // minimum script name is 2 characters plus a version.
- integer space_v_posn;
- // find the last useful space and 'v' combo.
- for (space_v_posn = llStringLength(to_chop_up) - 3;
- (space_v_posn >= 2) && (llGetSubString(to_chop_up, space_v_posn, space_v_posn + 1) != " v");
- space_v_posn--) {
- // look for space and v but do nothing else.
- }
- if (space_v_posn < 2) return []; // no space found.
- // now we zoom through the stuff after our beloved v character and find any evil
- // space characters, which are most likely from SL having found a duplicate item
- // name and not so helpfully renamed it for us.
- integer indy;
- for (indy = llStringLength(to_chop_up) - 1; indy > space_v_posn; indy--) {
- if (llGetSubString(to_chop_up, indy, indy) == " ") {
- // found one; zap it. since we're going backwards we don't need to
- // adjust the loop at all.
- to_chop_up = llDeleteSubString(to_chop_up, indy, indy);
- }
- }
- string full_suffix = llGetSubString(to_chop_up, space_v_posn, -1);
- // ditch the space character for our numerical check.
- string chop_suffix = llGetSubString(full_suffix, 1, llStringLength(full_suffix) - 1);
- // strip out a 'v' if there is one.
- if (llGetSubString(chop_suffix, 0, 0) == "v")
- chop_suffix = llGetSubString(chop_suffix, 1, llStringLength(chop_suffix) - 1);
- // if valid floating point number and greater than zero, that works for our version.
- string basename = to_chop_up; // script name with no version attached.
- if ((float)chop_suffix > 0.0) {
- // this is a big success right here.
- basename = llGetSubString(to_chop_up, 0, -llStringLength(full_suffix) - 1);
- return [ basename, chop_suffix ];
- }
- // seems like we found nothing useful.
- return [];
-}
-//
-// end hufflets
-//////////////
-
-default
-{
- state_entry() { if (llSubStringIndex(llGetObjectName(), "huffotronic") < 0) state real_default; }
- on_rez(integer parm) { state rerun; }
-}
-state rerun { state_entry() { state default; } }
-
-state real_default
-{
- state_entry()
- {
- auto_retire();
-///log_it("\n\n\n\n\n\n\n\n\n** starting now............................");
- // register child prims for script replacement.
- if (llGetLinkNumber() != 1) llSetRemoteScriptAccessPin(INVEXCH_SCRIPT_PIN);
- //new idea; only allow timers to run in root prim.
- if (llGetLinkNumber() == 1) llSetTimerEvent(TIMER_PERIOD);
- knock_around_other_scripts(TRUE);
- // first run happens right at startup.
- if (llGetLinkNumber() == 1) handle_timer();
- }
-
- timer() {
- llSetTimerEvent(0); // stop timer.
- handle_timer();
- llSetTimerEvent(TIMER_PERIOD); // start timer.
- }
-
- link_message(integer link_num, integer service, string cmd, key parms) {
- handle_link_message(link_num, service, cmd, parms);
- }
-}
-
-