/* * Author: esteldunedain and Jaynus * Returns the result of the function and caches it up to a given ACE_time or event * * Arguments: * 0: Parameters <ARRAY> * 1: Function <CODE> * 2: Namespace to store the cache on <NAMESPACE> * 3: Cache uid <STRING> * 4: Max duration of the cache <NUMBER> * 5: Event that clears the cache <STRING> (Optional) * * Return Value: * Result of the function <ANY> * * Public: No */ #include "script_component.hpp" PARAMS_5(_params,_function,_namespace,_uid,_duration); //IGNORE_PRIVATE_WARNING("_eventName"); if (((_namespace getVariable [_uid, [-99999]]) select 0) < ACE_diagTime) then { _namespace setVariable [_uid, [ACE_diagTime + _duration, _params call _function]]; // Does the cache needs to be cleared on an event? if (count _this > 5) then { private ["_event","_varName","_cacheList"]; _event = _this select 5; _varName = format [QGVAR(clearCache_%1),_event]; _cacheList = missionNamespace getVariable _varName; // If there was no EH to clear these caches, add one if (isNil {_cacheList}) then { _cacheList = []; missionNamespace setVariable [_varName, _cacheList]; [_event, { private ["_varName","_cacheList"]; // _eventName is defined on the function that calls the event #ifdef DEBUG_MODE_FULL ACE_LOGINFO_1("Clear cached variables on event: %1",_eventName); #endif // Get the list of caches to clear _varName = format [QGVAR(clearCache_%1),_eventName]; _cacheList = missionNamespace getVariable [_varName, []]; // Erase all the cached results { _x call FUNC(eraseCache); } forEach _cacheList; // Empty the list missionNamespace setVariable [_varName, []]; }] call FUNC(addEventhandler); }; // Add this cache to the list of the event _cacheList pushBack [_namespace, _uid]; }; #ifdef DEBUG_MODE_FULL ACE_LOGINFO_2("Calculated result: %1 %2",_namespace,_uid); } else { ACE_LOGINFO_2("Cached result: %1 %2",_namespace,_uid); #endif }; (_namespace getVariable _uid) select 1