#include "lsl_common.h"

/* function [StreaminfoArray] = lsl_resolve_byprop(LibHandle,Property,Value,Minimum,Timeout) */

void mexFunction( int nlhs, mxArray *plhs[], 
		  int nrhs, const mxArray*prhs[] ) 
{
    /* handle of the desired field */
    mxArray *field;
    /* temp pointer */
    uintptr_t *pTmp;
    /* mex inputs */
    char prop[16384], value[16384];
    int prop_len, value_len;
    int minimum;
    double timeout;
    /* function handle */
    lsl_resolve_byprop_t func;
    /* input/output variables */
    streaminfo buffer[2048];
    int result,k;    
    
    if (nrhs != 5)
        mexErrMsgTxt("5 input argument(s) required."); 
    if (nlhs != 1)
        mexErrMsgTxt("1 output argument(s) required.");
    
    /* get function handle */
    field = mxGetField(prhs[0],0,"lsl_resolve_byprop");
    if (!field)
        mexErrMsgTxt("The field does not seem to exist.");
    pTmp = (uintptr_t*)mxGetData(field);
    if (!pTmp)
        mexErrMsgTxt("The field seems to be empty.");
    func = (lsl_resolve_byprop_t*)*pTmp;
    
    /* get additional inputs */
    prop_len = mxGetNumberOfElements(prhs[1]);
    if (prop_len+1 > sizeof(prop)/sizeof(prop[0]))
        mexErrMsgTxt("The given property name is too long.");
    mxGetString(prhs[1], prop, prop_len+1);
    value_len = mxGetNumberOfElements(prhs[2]);
    if (value_len+1 > sizeof(value)/sizeof(value[0]))
        mexErrMsgTxt("The given value string is too long.");
    mxGetString(prhs[2], value, value_len+1);
    if (mxGetClassID(prhs[3]) != mxDOUBLE_CLASS)
        mexErrMsgTxt("The minimum argument must be passed as a double.");
    minimum = (int)(*(double*)mxGetData(prhs[3]));
    if (mxGetClassID(prhs[4]) != mxDOUBLE_CLASS)
        mexErrMsgTxt("The timeout argument must be passed as a double.");
    timeout = *(double*)mxGetData(prhs[4]);
    
    /* invoke & return */
    result = func(buffer,sizeof(buffer)/sizeof(buffer[0]),prop,value,minimum,timeout);
    plhs[0] = mxCreateNumericMatrix(1,result,PTR_CLASS,mxREAL);
    for (k=0;k<result;k++)
        *((uintptr_t*)mxGetData(plhs[0])+k) = (uintptr_t)buffer[k];
}