OSSL Script Library/JsonStore

string sStoreName = "JsonStoreTest";
key kGlobalStore = (key)NULL_KEY;
 
integer iCounter = 0;
key kStoreID;
 
default
{
    state_entry()
    {
        llOwnerSay("running...");
    }
 
    touch_start(integer i)
    {
        state running;
    }
}
 
state running
{
    state_entry()
    {
        // Create a JsonStore initialized with an empty array associated with the key 'Event'
        kStoreID = JsonCreateStore("{'Event' : []}");
 
        // Save the store that was just created in the global store, this makes it easier for
        // other scripts to find; an alternative is to say the store id in a private channel
        JsonSetValue(kGlobalStore,sStoreName,(string)kStoreID);
 
        // Start a timer that will generate counters periodically
        llSetTimerEvent(1.0);
    }
 
    timer()
    {
        // Generate a new counter and add it to the end of the Event array
        iCounter += 1;
        JsonSetValue(kStoreID,"Event[+]",(string)iCounter);
    }
 
    touch_start(integer i)
    {
        // When the test is done, remove the identity of the store and destroy it
        JsonRemoveValue(kGlobalStore,sStoreName);
        JsonDestroyStore(kStoreID);
 
        llResetScript();
    }
}

string sStoreName = "JsonStoreTest";
key kGlobalStore = (key)NULL_KEY;
 
key kStoreID;
key kReqID;
 
default
{
    state_entry()
    {
        // Set up a request for the identity of the generator's store
        // This posts a request, when the value is available a link message event will be fired
        kReqID = JsonReadValue(kGlobalStore,sStoreName);
    }
 
    link_message(integer sender, integer result, string msg, key id)
    {
        if (sender != -1)
            return;
 
        llOwnerSay("shared store id: " + msg);
        kStoreID = (key)msg;
 
        state running;
    }
}
 
state running
{
    state_entry()
    {
        // Set up a request that will take a value (remove it from the store) when it is available
        // A link_message will be fired when the value is available
        kReqID = JsonTakeValue(kStoreID,"Event[0]");
    }
 
    link_message(integer sender, integer result, string msg, key id)
    {
        if (sender != -1)
            return;
 
        llOwnerSay("read " + msg);
        kReqID = JsonTakeValue(kStoreID,"Event[0]");
    }
 
    touch_start(integer i)
    {
        llResetScript();
    }
}