#include "..\script_component.hpp"
/*
 * Author: PabstMirror
 * Dumps debug info to clipboard.
 *
 * Arguments:
 * None
 *
 * Return Value:
 * None
 *
 * Example:
 * [] call ACE_optionsmenu_fnc_debugDumpToClipboard
 *
 * Public: No
 */

#define MIN_ARRAY_SIZE 100

private _outputText = {
    diag_log text (_this select 0);
    "ace" callExtension ["clipboard:append", [(_this select 0) + endl]];
};

private _text = format ["~~~~~~~~~ACE Debug~~~~~~~~~
%1
------Performance------
diag_fps = %2
count cba_common_waitAndExecArray = %3
count cba_common_waitUntilAndExecArray = %4
count cba_common_perFrameHandlerArray = %5 (max %6)
count diag_activeSQFScripts = %7
count diag_activeSQSScripts = %8
count diag_activeMissionFSMs = %9",
format ["[Time: %1] [CBA_missionTime: %2] [tickTime: %3]", time toFixed 1, CBA_missionTime toFixed 1, diag_tickTime toFixed 1],
diag_fps,
count cba_common_waitAndExecArray,
count cba_common_waitUntilAndExecArray,
count cba_common_perFrameHandlerArray, count cba_common_PFHhandles,
count diag_activeSQFScripts,
count diag_activeSQSScripts,
count diag_activeMissionFSMs];
[_text] call _outputText;


_text = format ["
------Player------
typeOf = %1
animationState = %2",
if (isNull ace_player) then {"null"} else {typeOf ace_player},
if (isNull ace_player) then {"null"} else {animationState ace_player}];
[_text] call _outputText;


private _aceSettings = cba_settings_allSettings select {((_x select [0,4]) == "ace_") || {(_x select [0,5]) == "acex_"}};
_aceSettings sort true;
_text = format ["
------ACE's CBA Settings [%1 Total] [Only Non-Defaults]------", count _aceSettings];
[_text] call _outputText;

{
    private _currentValue = missionNamespace getVariable [_x, "$"];
    private _defaultValue = (cba_settings_default getVariable [_x, []]) param [0, "#"];
    if (_currentValue isEqualTo _defaultValue) then {
        // [format ["%1 - %2 - DEFAULT", _x, _currentValue]] call _outputText;
    } else {
        [format ["%1 - %2", _x, _currentValue]] call _outputText;
    };
} forEach _aceSettings;


_text = format ["
------Array Info (count >= %1)------", MIN_ARRAY_SIZE];
[_text] call _outputText;


{
    _var = missionNamespace getVariable [_x, nil];
    if(!isnil "_var" && {_var isEqualType []} && {(count _var) > MIN_ARRAY_SIZE}) then {
        _text = format ["%1 - ARRAY SIZE: %2", _x, (count _var)];
        [_text] call _outputText;
    };
} forEach (allVariables missionNamespace);

{
    private _unit = _x;
    {
        private _var = _unit getVariable [_x, nil];
        if(!isnil "_var" && {_var isEqualType []} && {(count _var) > MIN_ARRAY_SIZE}) then {
            _text = format ["%1 on [%2] - ARRAY SIZE: %3", _x, _unit, (count _var)];
            [_text] call _outputText;
        };
    } forEach (allVariables _unit);
} forEach allUnits;

"ace" callExtension ["clipboard:complete", []];