/** Fetches the property requested and uses the appropriate op on the value.
@return boolean value
**/
static int compare_property_alt(OBJECT *obj, char *propname, FINDOP op, void *value){
complex *complex_target = NULL;
char *char_target = NULL;
int16 *int16_target = NULL;
int32 *int32_target = NULL;
int64 *int64_target = NULL;
PROPERTY *prop = object_get_property(obj, propname);
if(prop == NULL){
/* property not found in object ~ normal operation */
return 0;
}
switch(prop->ptype){
case PT_void:
return 0; /* no comparsion to be made */
case PT_double:
break;
case PT_complex:
complex_target = object_get_complex(obj, prop);
if(complex_target == NULL)
return 0; /* error value */
break;
case PT_enumeration:
case PT_set:
break; /* not 100% sure how to make these cooperate yet */
case PT_int16:
int16_target = (int16 *)object_get_int16(obj, prop);
if(int16_target == NULL)
return 0;
return compare_int16(*int16_target, op, *(int64 *)value);
case PT_int32:
int32_target = (int32 *)object_get_int32(obj, prop);
return compare_int32(*int32_target, op, *(int64 *)value);
break;
case PT_int64:
int64_target = (int64 *)object_get_int64(obj, prop);
return compare_int64(*int64_target, op, *(int64 *)value);
break;
case PT_char8:
case PT_char32:
case PT_char256:
case PT_char1024:
char_target = (char *)object_get_string(obj, prop);
if(char_target == NULL)
return 0;
return compare_string(char_target, op, value);
break;
case PT_object:
break;
case PT_bool:
break;
case PT_timestamp:
case PT_double_array:
case PT_complex_array:
break;
#ifdef USE_TRIPLETS
case PT_triple:
case PT_triplex:
break;
#endif
default:
output_error("comparison operators not supported for property type %s", class_get_property_typename(prop->ptype));
/* TROUBLESHOOT
This error is caused when an object find procedure uses a comparison operator
that isn't allowed on a that type of property. Make sure the property type
and the comparison operator are compatible and try again. If your GLM file
isn't the cause of the problem, try reducing the complexity of the GLM file
you are using to isolate which module is causing the error and file a report
with the GLM file attached.
*/
return 0;
}
}
/** Convert to a \e complex_array data type
Converts a string to a \e complex_array data type property.
@return 1 on success, 0 on failure, -1 if conversion was incomplete
**/
int convert_to_complex_array(const char *buffer, void *data, PROPERTY *prop)
{
complex_array *a=(complex_array*)data;
unsigned row=0, col=0;
const char *p = buffer;
/* new array */
/* parse input */
for ( p=buffer ; *p!='\0' ; )
{
char value[256];
char objectname[64], propertyname[64];
complex c;
while ( *p!='\0' && isspace(*p) ) p++; /* skip spaces */
if ( *p!='\0' && sscanf(p,"%s",value)==1 )
{
if ( *p==';' ) /* end row */
{
row++;
col=0;
p++;
continue;
}
else if ( strnicmp(p,"NAN",3)==0 ) /* NULL value */
{
a->grow_to(row,col);
a->clr_at(row,col);
col++;
}
else if ( convert_to_complex(value,(void*)&c,prop) ) /* probably real value */
{
a->grow_to(row,col);
a->set_at(row,col,c);
col++;
}
else if ( sscanf(value,"%[^.].%[^; \t]",objectname,propertyname)==2 ) /* object property */
{
OBJECT *obj = object_find_name(objectname);
PROPERTY *prop;
if ( obj==NULL )
{
output_error("convert_to_double_array(const char *buffer='%10s...',...): entry at row %d, col %d - object '%s' not found", buffer,row,col,objectname);
return 0;
}
prop = object_get_property(obj,propertyname,NULL);
if ( prop==NULL )
{
output_error("convert_to_double_array(const char *buffer='%10s...',...): entry at row %d, col %d - property '%s' not found in object '%s'", buffer,row,col,propertyname,objectname);
return 0;
}
a->grow_to(row,col);
a->set_at(row,col,object_get_complex(obj,prop));
if ( a->is_nan(row,col) )
{
output_error("convert_to_double_array(const char *buffer='%10s...',...): entry at row %d, col %d property '%s' in object '%s' is not accessible", buffer,row,col,propertyname,objectname);
return 0;
}
col++;
}
else if ( sscanf(value,"%[^; \t]",propertyname)==1 ) /* object property */
{
GLOBALVAR *var = global_find(propertyname);
if ( var==NULL )
{
output_error("convert_to_double_array(const char *buffer='%10s...',...): entry at row %d, col %d global '%s' not found", buffer,row,col,propertyname);
return 0;
}
a->grow_to(row,col);
a->set_at(row,col,(complex*)var->prop->addr);
if ( a->is_nan(row,col) )
{
output_error("convert_to_double_array(const char *buffer='%10s...',...): entry at row %d, col %d property '%s' in object '%s' is not accessible", buffer,row,col,propertyname,objectname);
return 0;
}
col++;
}
else /* not a valid entry */
{
output_error("convert_to_double_array(const char *buffer='%10s...',...): entry at row %d, col %d is not valid (value='%10s')", buffer,row,col,p);
return 0;
}
while ( *p!='\0' && !isspace(*p) && *p!=';' ) p++; /* skip characters just parsed */
}
}
return 1;
}
/** Convert to a \e double_array data type
Converts a string to a \e double_array data type property.
@return 1 on success, 0 on failure, -1 if conversion was incomplete
**/
int convert_to_double_array(const char *buffer, void *data, PROPERTY *prop)
{
double_array *a=(double_array*)data;
a->set_name(prop->name);
unsigned row=0, col=0;
const char *p = buffer;
/* new array */
/* parse input */
for ( p=buffer ; *p!='\0' ; )
{
char value[256];
char objectname[64], propertyname[64];
while ( *p!='\0' && isspace(*p) ) p++; /* skip spaces */
if ( *p!='\0' && sscanf(p,"%s",value)==1 )
{
if ( *p==';' ) /* end row */
{
row++;
col=0;
p++;
continue;
}
else if ( strnicmp(p,"NAN",3)==0 ) /* NULL value */
{
a->grow_to(row,col);
a->clr_at(row,col);
col++;
}
else if ( isdigit(*p) || *p=='.' || *p=='-' || *p=='+' ) /* probably real value */
{
a->grow_to(row+1,col+1);
a->set_at(row,col,atof(p));
col++;
}
else if ( sscanf(value,"%[^.].%[^; \t]",objectname,propertyname)==2 ) /* object property */
{
OBJECT *obj = load_get_current_object();
if ( obj!=NULL && strcmp(objectname,"parent")==0 )
obj = obj->parent;
else if ( strcmp(objectname,"this")!=0 )
obj = object_find_name(objectname);
if ( obj==NULL )
{
output_error("convert_to_double_array(const char *buffer='%10s...',...): entry at row %d, col %d - object property '%s' not found", buffer,row,col,objectname);
return 0;
}
PROPERTY *prop = object_get_property(obj,propertyname,NULL);
if ( prop==NULL )
{
output_error("convert_to_double_array(const char *buffer='%10s...',...): entry at row %d, col %d - property '%s' not found in object '%s'", buffer,row,col,propertyname,objectname);
return 0;
}
a->grow_to(row+1,col+1);
a->set_at(row,col,object_get_double(obj,prop));
if ( a->is_nan(row,col) )
{
output_error("convert_to_double_array(const char *buffer='%10s...',...): entry at row %d, col %d property '%s' in object '%s' is not accessible", buffer,row,col,propertyname,objectname);
return 0;
}
col++;
}
else if ( sscanf(value,"%[^; \t]",propertyname)==1 ) /* current object/global property */
{
OBJECT *obj;
PROPERTY *target = NULL;
obj = (OBJECT*)((char*)data - (char*)prop->addr)-1;
object_name(obj,objectname,sizeof(objectname));
target = object_get_property(obj,propertyname,NULL);
if ( target!=NULL )
{
if ( target->ptype!=PT_double && target->ptype!=PT_random && target->ptype!=PT_enduse && target->ptype!=PT_loadshape && target->ptype!=PT_enduse )
{
output_error("convert_to_double_array(const char *buffer='%10s...',...): entry at row %d, col %d property '%s' in object '%s' refers to property '%s', which is not an underlying double",
buffer,row,col,propertyname,objectname,target->name);
return 0;
}
a->grow_to(row+1,col+1);
a->set_at(row,col,object_get_double(obj,target));
if ( a->is_nan(row,col) )
{
output_error("convert_to_double_array(const char *buffer='%10s...',...): entry at row %d, col %d property '%s' in object '%s' is not accessible", buffer,row,col,propertyname,objectname);
return 0;
}
col++;
}
else
{
GLOBALVAR *var = global_find(propertyname);
if ( var==NULL )
{
output_error("convert_to_double_array(const char *buffer='%10s...',...): entry at row %d, col %d global '%s' not found", buffer,row,col,propertyname);
return 0;
}
if ( var->prop->ptype!=PT_double )
{
output_error("convert_to_double_array(const char *buffer='%10s...',...): entry at row %d, col %d property '%s' in object '%s' refers to a global '%s', which is not an underlying double", buffer,row,col,propertyname,objectname,propertyname);
return 0;
}
a->grow_to(row+1,col+1);
a->set_at(row,col,(double*)var->prop->addr);
if ( a->is_nan(row,col) )
{
output_error("convert_to_double_array(const char *buffer='%10s...',...): entry at row %d, col %d property '%s' in object '%s' is not accessible", buffer,row,col,propertyname,objectname);
return 0;
}
col++;
}
}
else /* not a valid entry */
{
output_error("convert_to_double_array(const char *buffer='%10s...',...): entry at row %d, col %d is not valid (value='%10s')", buffer,row,col,p);
return 0;
}
while ( *p!='\0' && !isspace(*p) && *p!=';' ) p++; /* skip characters just parsed */
}
}
return 1;
}
/** Set a value
\verbatim gl('set',id,property,value) \endverbatim
**/
void cmex_set(int nlhs, mxArray *plhs[], /**< () */
int nrhs, const mxArray *prhs[]) /**< (object_id,property_name,value) */
{
if (nlhs>0)
output_error("set does not return a value");
else if (nrhs==1 && mxIsStruct(prhs[0]))
set_object_data(prhs[0]);
else if (nrhs!=3)
output_error("set requires either a structure, or object id, property name and value");
else if (!mxIsChar(prhs[0]))
output_error("object id (arg 0) must be a string");
else if (mxIsChar(prhs[1]))
{
char value[1024];
PROPERTY* prop;
OBJECT *obj=NULL;
GLOBALVAR *var=NULL;
if (mxGetString(prhs[0],value,sizeof(value))!=0)
output_error("object name (arg 0) too long");
else if (strcmp(value,"global")==0)
{
if (!mxIsChar(prhs[1]))
output_error("global variable name is not a string");
else if (!mxIsChar(prhs[2]))
output_error("global value is not is not a string");
else
{
char name[32], value[1024];
mxGetString(prhs[1],name,sizeof(name));
mxGetString(prhs[2],value,sizeof(value));
if (global_setvar(name,value)!=SUCCESS)
output_error("unable to set global '%s' to '%s'", name,value);
}
}
else if (convert_to_object(value,&obj,NULL)==0)
output_error("object (arg 0) %s not found",value);
else if (mxGetString(prhs[1],value,sizeof(value))!=0)
output_error("property name (arg 1) too long");
else if ((prop=object_get_property(obj,value))==NULL)
output_error("property name (arg 1) %s not found in object %s:%d", value,obj->oclass->name, obj->id);
else if (mxIsChar(prhs[2]))
{
if (mxGetString(prhs[2],value,sizeof(value))!=0)
output_error("value (arg 2) is too long");
else if (object_set_value_by_name(obj,prop->name,value)==0)
output_error("unable to set %s:%d/%s to %s", obj->oclass->name, obj->id, prop->name, value);
else
return; /* ok */
}
else if (mxIsDouble(prhs[2]) && prop->ptype==PT_double)
{
double v = *mxGetPr(prhs[2]);
if (prop->ptype==PT_double && object_set_double_by_name(obj,prop->name,v)==0)
output_error("unable to set %s:%d/%s to %lg", obj->oclass->name, obj->id, prop->name, v);
}
else if (mxIsComplex(prhs[2]) || mxIsDouble(prhs[2]))
{
sprintf(value,"%lg%+lgi",*mxGetPr(prhs[2]),mxIsComplex(prhs[2])?*mxGetPi(prhs[2]):0);
if (object_set_value_by_name(obj,prop->name,value)==0)
output_error("unable to set %s:%d/%s to %s", obj->oclass->name, obj->id, prop->name, value);
}
else
output_error("value (arg 2) has an unsupported data type");
}
else
output_error("property or data (arg 1) type is not valid");
}
