#include <origin.h>
#include <GetNBox.h>
#include <xfutils.h>


//put additional include files here

//put your own support static functions here

#define CHK_SET_DESC_STATS(_pp, _val) _pp = (_val == NULL) ? NULL : &_val;

static bool _check_error(TreeNode& trGetN,string& strErrMsg)
{
	MatrixObject im;
	okxf_resolve_string_get_origin_object(trGetN.im.strVal, &im);
	
	if(!im.IsValid())
	{
		strErrMsg = XFERR_INVALID_MATOBJ;
		return 1;
	}
	return 0;
}


void mmoments(const MatrixObject& im, double& mean, double& sd, double& se, int& n, double& sum, double& skewness, double& kurtosis, double& cv)
{
	
	int *pN;
	double *pMean, *pSD, *pSE, *pSum, *pSkew, *pKurt, *pCV;
	CHK_SET_DESC_STATS(pN, n);
	CHK_SET_DESC_STATS(pMean, mean);
	CHK_SET_DESC_STATS(pSD, sd);
	CHK_SET_DESC_STATS(pSE, se);
	CHK_SET_DESC_STATS(pSum, sum);
	CHK_SET_DESC_STATS(pSkew, skewness);
	CHK_SET_DESC_STATS(pKurt, kurtosis);
	CHK_SET_DESC_STATS(pCV, cv);
	
	matrixbase& mbData =  im.GetDataObject();
	matrix & mData = mbData;
	int nNumCols = mData.GetNumCols();
	int nNumRows = mData.GetNumRows();
	int nNumPoints = nNumCols * nNumRows;
	int nRet = ocmath_basic_summary_stats(nNumPoints, mData, pN, pMean, pSD, pSE, NULL, pSum, pSkew, pKurt, NULL, NULL, pCV);
	
	if (nRet != STATS_NO_ERROR)
	{
		XF_THROW_EX(CER_UNKNOWN_ERROR_EX, nRet);
	}
	
}

//nEventID < 0 on event, like GETNE_ON_INIT, GETNE_ON_OK etc, >0 on change from control
//return 0 to do nothing, return PEVENT_GETN_RET_TO_CLOSE to close dialog
//dwEnables = bOKEnable, bBTN1Enable, bBTN2Enable, bBTN3Enable, , can set to false to disable OK/Apply buttons
//lpcszNodeName = the trGetN TreeNode tag name that generates the event, or is  if GETNE_ON_OK etc
//strAux = optional string for XF Wizard Bar, like DLG_NEED_CHANGE_GRID etc, it will be invalid if from internal node value change event
//strErrMsg = allowing messages to be shown
int mmoments_event1(TreeNode& trGetN, int nRow, int nEventID, DWORD& dwEnables, LPCSTR lpcszNodeName, WndContainer& DynaCntrlContainer, string& strAux, string& strErrMsg)
{
	if( xf_is_extended_event(nEventID) )
		return mmoments_event1_ex(trGetN, nRow, nEventID, dwEnables, lpcszNodeName, DynaCntrlContainer, strAux, strErrMsg);
	DECLARE_BUTTON_ENABLES
	if(_check_error(trGetN, strErrMsg))
		bOKEnable = false;
	return false;

}

int mmoments_make_tree(TreeNode& tr, LPCSTR lpcszVarName)
{
	return false;
}
//nGetNDialog = 0,1,2, corresponding to the XF GetN dropdown, 0 = dialog is not used
//you can change nRet to be one of XFEVT_PROCEED (defualt), XFEVT_ABORT, XFEVT_PROCEED_NO_DLG or XFEVT_PROCEED_WITH_DLG(when nGetNDialog = 0)
//nGetNDialog = -1 when Ok on GetN dialog to allow handler to preocess <auto> etc variables
//dwCntrl is combination of bits
//LTXF_FROM_GUI_MENU, LTXF_FROM_GUI_PROMPT, LTXF_FROM_AUTO_UPDATE, LTXF_FROM_FUNCTION, LTXF_THEME_USED, LTXF_CHANGE_PARAM
void mmoments_before_execute(TreeNode& trGetN, int nGetNDialog, int& nRet, int dwCntrl)
{

}
//nEventID < 0 on event, like GETNE_ON_INIT, GETNE_ON_OK etc, >0 on change from control
//return 0 to do nothing, return PEVENT_GETN_RET_TO_CLOSE to close dialog
//dwEnables = bOKEnable, bBTN1Enable, bBTN2Enable, bBTN3Enable, , can set to false to disable OK/Apply buttons
//lpcszNodeName = the trGetN TreeNode tag name that generates the event, or is  if GETNE_ON_OK etc
//strAux = optional string for XF Wizard Bar, like DLG_NEED_CHANGE_GRID etc, it will be invalid if from internal node value change event
//strErrMsg = allowing messages to be shown
int mmoments_event1_ex(TreeNode& trGetN, int nRow, int nEventID, DWORD& dwEnables, LPCSTR lpcszNodeName, WndContainer& DynaCntrlContainer, string& strAux, string& strErrMsg)
{
	return false;
}
