cds_atts.c cds3.h cds_private.h stdarg.h cds_private.h stdlib.h limits.h sys/types.h string.h cds3.h time.h cds_atts.c messenger.h stdio.h int int _cds_change_att_value (CDSAtt *att, CDSDataType type, size_t length, void *value) _cds_change_att_value CDSAtt * att CDSDataType type size_t length void * value PRIVATE: Change the type and value of a CDS Attribute. att - pointer to the attribute type - attribute data type length - attribute length value - pointer to the attribute value 1 if successful0 if a memory allocation error occurred CDSAtt * CDSAtt* _cds_create_att (void *parent, const char *name, CDSDataType type, size_t length, void *value) _cds_create_att void * parent const char * name CDSDataType type size_t length void * value PRIVATE: Create a CDS Attribute. Private function used to create an attribute. parent - pointer to the parent CDSGroup or CDSVar name - attribute name type - attribute data type length - attribute length value - pointer to the attribute value pointer to the new attributeNULL if a memory allocation error occurred CDSAtt * CDSAtt* _cds_define_att (void *parent, const char *name, CDSDataType type, size_t length, void *value) _cds_define_att void * parent const char * name CDSDataType type size_t length void * value Private: Define a CDS Attribute. Error messages from this function are sent to the message handler (see msngr_init_log() and msngr_init_mail()). parent - pointer to the parent CDSGroup or CDSVar name - attribute name type - attribute data type length - attribute length value - pointer to the attribute value pointer to the attributeNULL if: the parent object is not a group or variablethe parent group or variable is lockeda memory allocation error occurred void void _cds_destroy_att (CDSAtt *att) _cds_destroy_att CDSAtt * att PRIVATE: Destroy a CDS Attribute. Private function used to destroy an attribute. att - pointer to the attribute int int _cds_set_att_value (CDSAtt *att, CDSDataType type, size_t length, void *value) _cds_set_att_value CDSAtt * att CDSDataType type size_t length void * value PRIVATE: Set the value of a CDS attribute. This function will set the value of an attribute by casting the specified value into the data type of the attribute. The functions cds_string_to_array() and cds_array_to_string() are used to convert between text (CDS_CHAR) and numeric data types.Error messages from this function are sent to the message handler (see msngr_init_log() and msngr_init_mail()). att - pointer to the attribute type - data type of the specified value length - length of the specified value value - pointer to the attribute value 1 if successful0 if a memory allocation error occurred int int _cds_set_att_va_list (CDSAtt *att, const char *format, va_list args) _cds_set_att_va_list CDSAtt * att const char * format va_list args Set the value of a CDS attribute. The cds_string_to_array() function will be used to set the attribute value if the data type of the attribute is not CDS_CHAR.Error messages from this function are sent to the message handler (see msngr_init_log() and msngr_init_mail()). att - pointer to the attribute format - format string (see printf) args - arguments for the format string 1 if successful0 if a memory allocation error occurred CDSAtt * CDSAtt* cds_change_att (void *parent, int overwrite, const char *name, CDSDataType type, size_t length, void *value) cds_change_att void * parent int overwrite const char * name CDSDataType type size_t length void * value Change an attribute of a CDS group or variable. This function will define the specified attribute if it does not exist. If the attribute does exist and the overwrite flag is set, the data type and value will be changed.Error messages from this function are sent to the message handler (see msngr_init_log() and msngr_init_mail()). parent - pointer to the parent CDSGroup or CDSVar overwrite - overwrite flag (1 = TRUE, 0 = FALSE) name - attribute name type - attribute data type length - attribute length value - pointer to the attribute value pointer to the attributeNULL if: the parent object is not a group or variablethe parent group or variable is locked, or the attribute is lockeda memory allocation error occurred int int cds_change_att_value (CDSAtt *att, CDSDataType type, size_t length, void *value) cds_change_att_value CDSAtt * att CDSDataType type size_t length void * value Change the type and value of a CDS Attribute. Error messages from this function are sent to the message handler (see msngr_init_log() and msngr_init_mail()). att - pointer to the attribute type - new attribute data type length - new attribute length value - pointer to the new attribute value 1 if successful0 if: the attribute is lockeda memory allocation error occurred int int cds_change_att_text (CDSAtt *att, const char *format,...) cds_change_att_text CDSAtt * att const char * format ... Change the type and value of a CDS Attribute. This function will change the data type of an attribute to CDS_CHAR and set the new value.Error messages from this function are sent to the message handler (see msngr_init_log() and msngr_init_mail()). att - pointer to the attribute format - format string (see printf) ... - arguments for the format string 1 if the attribute value was changed0 if: the attribute is lockeda memory allocation error occurred int int cds_change_att_va_list (CDSAtt *att, const char *format, va_list args) cds_change_att_va_list CDSAtt * att const char * format va_list args Change the type and value of a CDS Attribute. This function will change the data type of an attribute to CDS_CHAR and set the new value.Error messages from this function are sent to the message handler (see msngr_init_log() and msngr_init_mail()). att - pointer to the attribute format - format string (see printf) args - arguments for the format string 1 if the attribute value was changed0 if: the attribute is lockeda memory allocation error occurred int int cds_create_missing_value_att (CDSVar *var, int flags) cds_create_missing_value_att CDSVar * var int flags Create a missing value attribute if it does not already exist. This function will check if the variable already has either a missing_value or _FillValue attibute defined. If it does not one will be created.The missing value used will be determined by first checking for non-standard missing value attributes defined at either the field or global level (see cds_is_missing_value_att_name()). If no known missing value attributes are found the default value for the variables data type will be used. var - pointer to the variable flags - reserved for control flags 1 if the missing value attribute already existed or was created. 0 if a fatal error occurred CDSAtt * CDSAtt* cds_define_att (void *parent, const char *name, CDSDataType type, size_t length, void *value) cds_define_att void * parent const char * name CDSDataType type size_t length void * value Define a CDS Attribute. This function will first check if an attribute with the same definition already exists in the specified group or variable. If it does, the existing attribute will be returned.Error messages from this function are sent to the message handler (see msngr_init_log() and msngr_init_mail()). parent - pointer to the parent CDSGroup or CDSVar name - attribute name type - attribute data type length - attribute length value - pointer to the attribute value pointer to the attributeNULL if: the parent object is not a group or variablethe parent group or variable is lockeda memory allocation error occurredan attribute with the same name but different definition has already been defined CDSAtt * CDSAtt* cds_define_att_text (void *parent, const char *name, const char *format,...) cds_define_att_text void * parent const char * name const char * format ... Define a CDS Text Attribute. See cds_define_att() for details.Error messages from this function are sent to the message handler (see msngr_init_log() and msngr_init_mail()). parent - pointer to the parent CDSGroup or CDSVar name - attribute name format - format string (see printf) ... - arguments for the format string pointer to the new attributeNULL if: the parent object is not a group or variablethe parent group or variable is lockeda memory allocation error occurredan attribute with the same name but a differnt value has already been defined CDSAtt * CDSAtt* cds_define_att_va_list (void *parent, const char *name, const char *format, va_list args) cds_define_att_va_list void * parent const char * name const char * format va_list args Define a CDS Text Attribute. See cds_define_att() for details.Error messages from this function are sent to the message handler (see msngr_init_log() and msngr_init_mail()). parent - pointer to the parent CDSGroup or CDSVar name - attribute name format - format string (see printf) args - arguments for the format string pointer to the new attributeNULL if: the parent object is not a group or variablethe parent group or variable is lockeda memory allocation error occurredan attribute with the same name but a differnt value has already been defined int int cds_delete_att (CDSAtt *att) cds_delete_att CDSAtt * att Delete a CDS Attribute. Error messages from this function are sent to the message handler (see msngr_init_log() and msngr_init_mail()). att - pointer to the attribute 1 if the attribute was deleted0 if: the attribute is lockedthe parent group or variable is locked CDSAtt * CDSAtt* cds_get_att (void *parent, const char *name) cds_get_att void * parent const char * name Get a CDS Attribute. This function will search the specified parent group or variable for an attribute with the specified name. parent - pointer to the parent group or variable name - name of the attribute pointer to the attributeNULL if not found void * void* cds_get_att_value (CDSAtt *att, CDSDataType type, size_t *length, void *value) cds_get_att_value CDSAtt * att CDSDataType type size_t * length void * value Get a copy of a CDS attribute value. This function will get a copy of an attribute value casted into the specified data type. The functions cds_string_to_array() and cds_array_to_string() are used to convert between text (CDS_CHAR) and numeric data types.Memory will be allocated for the returned array if the output array is NULL. In this case the calling process is responsible for freeing the allocated memory.Error messages from this function are sent to the message handler (see msngr_init_log() and msngr_init_mail()). att - pointer to the attribute type - data type of the output array length - pointer to the length of the output array input: length of the output arrayignored if the output array is NULL output: number of values written to the output array0 if the attribute value has zero length(size_t)-1 if a memory allocation error occurs value - pointer to the output array or NULL to dynamically allocate the memory needed. pointer to the output arrayNULL if: the attribute value has zero length (length == 0)a memory allocation error occurs (length == (size_t)-1) char * char* cds_get_att_text (CDSAtt *att, size_t *length, char *value) cds_get_att_text CDSAtt * att size_t * length char * value Get a copy of a CDS attribute value. This function will get a copy of an attribute value converted to a text string. If the data type of the attribute is not CDS_CHAR the cds_array_to_string() function is used to create the output string.Memory will be allocated for the returned string if the output string is NULL. In this case the calling process is responsible for freeing the allocated memory.Error messages from this function are sent to the message handler (see msngr_init_log() and msngr_init_mail()). att - pointer to the attribute length - pointer to the length of the output string input: length of the output stringignored if the output string is NULL output: number of characters written to the output string0 if the attribute value has zero length(size_t)-1 if a memory allocation error occurs value - pointer to the output string or NULL to dynamically allocate the memory needed. pointer to the output stringNULL if: the attribute value has zero length (length == 0)a memory allocation error occurs (length == (size_t)-1) int int cds_rename_att (CDSAtt *att, const char *name) cds_rename_att CDSAtt * att const char * name Rename a CDS Attribute. Error messages from this function are sent to the message handler (see msngr_init_log() and msngr_init_mail()). att - pointer to the attribute name - pointer to the new attribute name 1 if the attribute was deleted0 if: an attribute with the new name already existsthe attribute is lockedthe parent group or variable is lockeda memory allocation error occured CDSAtt * CDSAtt* cds_set_att (void *parent, int overwrite, const char *name, CDSDataType type, size_t length, void *value) cds_set_att void * parent int overwrite const char * name CDSDataType type size_t length void * value Set an attribute of a CDS group or variable. This function will define the specified attribute if it does not exist. If the attribute does exist and the overwrite flag is set, the value will be set by casting the specified value into the data type of the attribute. The functions cds_string_to_array() and cds_array_to_string() are used to convert between text (CDS_CHAR) and numeric data types.Error messages from this function are sent to the message handler (see msngr_init_log() and msngr_init_mail()). parent - pointer to the parent CDSGroup or CDSVar overwrite - overwrite flag (1 = TRUE, 0 = FALSE) name - attribute name type - attribute data type length - attribute length value - pointer to the attribute value pointer to the attributeNULL if: the parent object is not a group or variablethe parent group or variable is locked, or the attribute is lockeda memory allocation error occurred int int cds_set_att_value (CDSAtt *att, CDSDataType type, size_t length, void *value) cds_set_att_value CDSAtt * att CDSDataType type size_t length void * value Set the value of a CDS attribute. This function will set the value of an attribute by casting the specified value into the data type of the attribute. The functions cds_string_to_array() and cds_array_to_string() are used to convert between text (CDS_CHAR) and numeric data types.Error messages from this function are sent to the message handler (see msngr_init_log() and msngr_init_mail()). att - pointer to the attribute type - data type of the specified value length - length of the specified value value - pointer to the attribute value 1 if successful0 if: the attribute is lockeda memory allocation error occurred int int cds_set_att_text (CDSAtt *att, const char *format,...) cds_set_att_text CDSAtt * att const char * format ... Set the value of a CDS attribute. The cds_string_to_array() function will be used to set the attribute value if the data type of the attribute is not CDS_CHAR.Error messages from this function are sent to the message handler (see msngr_init_log() and msngr_init_mail()). att - pointer to the attribute format - format string (see printf) ... - arguments for the format string 1 if successful0 if: the attribute is lockeda memory allocation error occurred int int cds_set_att_va_list (CDSAtt *att, const char *format, va_list args) cds_set_att_va_list CDSAtt * att const char * format va_list args Set the value of a CDS attribute. The cds_string_to_array() function will be used to set the attribute value if the data type of the attribute is not CDS_CHAR.Error messages from this function are sent to the message handler (see msngr_init_log() and msngr_init_mail()). att - pointer to the attribute format - format string (see printf) args - arguments for the format string 1 if successful0 if: the attribute is lockeda memory allocation error occurred CDS Attributes. /******************************************************************************* * *COPYRIGHT(C)2010BattelleMemorialInstitute.AllRightsReserved. * ******************************************************************************** * *Author: *name:BrianErmold *phone:(509)375-2277 *email:brian.ermold@pnl.gov * ******************************************************************************** * *REPOSITORYINFORMATION: *$Revision:60386$ *$Author:ermold$ *$Date:2015-02-1920:43:41+0000(Thu,19Feb2015)$ * ******************************************************************************** * *NOTE:DOXYGENisusedtogeneratedocumentationforthisfile. * *******************************************************************************/ /**@filecds_atts.c *CDSAttributes. */ #include"cds3.h" #include"cds_private.h" /******************************************************************************* *PrivateFunctions */ /**@privatesection*/ /** *PRIVATE:ChangethetypeandvalueofaCDSAttribute. * *@paramatt-pointertotheattribute *@paramtype-attributedatatype *@paramlength-attributelength *@paramvalue-pointertotheattributevalue * *@return *-1ifsuccessful *-0ifamemoryallocationerroroccurred */ int_cds_change_att_value( CDSAtt*att, CDSDataTypetype, size_tlength, void*value) { void*new_value=(void*)NULL; size_ttype_size; /*Createtheattributevalue*/ if(length){ type_size=cds_data_type_size(type); /*Add1totheallocatedlength.Themainreasonforthisisto *ensurecharacterstringsarederminatedbyatrailing\0... */ new_value=calloc(length+1,type_size); if(!new_value){ return(0); } if(value){ memcpy(new_value,value,length*type_size); } } /*Setthevalueintheattributestructure*/ if(att->value.vp){ free(att->value.vp); } att->type=type; att->length=length; att->value.vp=new_value; return(1); } /** *PRIVATE:CreateaCDSAttribute. * *Privatefunctionusedtocreateanattribute. * *@paramparent-pointertotheparentCDSGrouporCDSVar *@paramname-attributename *@paramtype-attributedatatype *@paramlength-attributelength *@paramvalue-pointertotheattributevalue * *@return *-pointertothenewattribute *-NULLifamemoryallocationerroroccurred */ CDSAtt*_cds_create_att( void*parent, constchar*name, CDSDataTypetype, size_tlength, void*value) { CDSAtt*att; att=(CDSAtt*)calloc(1,sizeof(CDSAtt)); if(!att){ return((CDSAtt*)NULL); } if(!_cds_init_object_members(att,CDS_ATT,parent,name)){ free(att); return((CDSAtt*)NULL); } if(!_cds_change_att_value(att,type,length,value)){ _cds_free_object_members(att); free(att); return((CDSAtt*)NULL); } return(att); } /** *Private:DefineaCDSAttribute. * *Errormessagesfromthisfunctionaresenttothemessage *handler(seemsngr_init_log()andmsngr_init_mail()). * *@paramparent-pointertotheparentCDSGrouporCDSVar *@paramname-attributename *@paramtype-attributedatatype *@paramlength-attributelength *@paramvalue-pointertotheattributevalue * *@return *-pointertotheattribute *-NULLif: *-theparentobjectisnotagrouporvariable *-theparentgrouporvariableislocked *-amemoryallocationerroroccurred */ CDSAtt*_cds_define_att( void*parent, constchar*name, CDSDataTypetype, size_tlength, void*value) { CDSObject*parent_object=(CDSObject*)parent; CDSGroup*group; CDSVar*var; CDSAtt**atts; CDSAtt***attsp; int*nattsp; /*Makesuretheparentisagrouporvariable*/ if(parent_object->obj_type==CDS_GROUP){ group=(CDSGroup*)parent; nattsp=&(group->natts); attsp=&(group->atts); /*Checkifthegroupislocked*/ if(group->def_lock){ ERROR(CDS_LIB_NAME, "Couldnotdefineattribute:%s/_atts_/%s\n" "->thegroupdefinitionlockissetto:%d\n", cds_get_object_path(parent),name,group->def_lock); return((CDSAtt*)NULL); } } elseif(parent_object->obj_type==CDS_VAR){ var=(CDSVar*)parent_object; nattsp=&(var->natts); attsp=&(var->atts); /*Checkifthevariableislocked*/ if(var->def_lock){ ERROR(CDS_LIB_NAME, "Couldnotdefineattribute:%s/_atts_/%s\n" "->thevariabledefinitionlockissetto:%d\n", cds_get_object_path(parent),name,var->def_lock); return((CDSAtt*)NULL); } } else{ ERROR(CDS_LIB_NAME, "Couldnotdefineattribute:%s/_atts_/%s\n" "->parentobjectmustbeagrouporvariable\n", cds_get_object_path(parent),name); return((CDSAtt*)NULL); } /*Allocatespaceforanewattribute*/ atts=(CDSAtt**)realloc( *attsp,(*nattsp+2)*sizeof(CDSAtt*)); if(!atts){ ERROR(CDS_LIB_NAME, "Couldnotdefineattribute:%s/_atts_/%s\n" "->memoryallocationerror\n", cds_get_object_path(parent),name); return((CDSAtt*)NULL); } *attsp=atts; /*Createtheattribute*/ atts[*nattsp]=_cds_create_att( parent,name,type,length,value); if(!atts[*nattsp]){ ERROR(CDS_LIB_NAME, "Couldnotdefineattribute:%s/_atts_/%s\n" "->memoryallocationerror\n", cds_get_object_path(parent),name); return((CDSAtt*)NULL); } (*nattsp)++; atts[*nattsp]=(CDSAtt*)NULL; return(atts[*nattsp-1]); } /** *PRIVATE:DestroyaCDSAttribute. * *Privatefunctionusedtodestroyanattribute. * *@paramatt-pointertotheattribute */ void_cds_destroy_att(CDSAtt*att) { if(att){ if(att->value.vp)free(att->value.vp); _cds_free_object_members(att); free(att); } } /** *PRIVATE:SetthevalueofaCDSattribute. * *Thisfunctionwillsetthevalueofanattributebycastingthe *specifiedvalueintothedatatypeoftheattribute.Thefunctions *cds_string_to_array()andcds_array_to_string()areusedtoconvert *betweentext(CDS_CHAR)andnumericdatatypes. * *Errormessagesfromthisfunctionaresenttothemessagehandler *(seemsngr_init_log()andmsngr_init_mail()). * *@paramatt-pointertotheattribute *@paramtype-datatypeofthespecifiedvalue *@paramlength-lengthofthespecifiedvalue *@paramvalue-pointertotheattributevalue * *@return *-1ifsuccessful *-0ifamemoryallocationerroroccurred */ int_cds_set_att_value( CDSAtt*att, CDSDataTypetype, size_tlength, void*value) { void*new_value=(void*)NULL; size_ttype_size; /*Createthenewattributevalue*/ if((type==CDS_CHAR)&& (length==0)&& (value!=NULL)){ length=strlen(value)+1; } if(value&&length){ if(type==CDS_CHAR){ if(att->type==CDS_CHAR){ new_value=calloc(length+1,sizeof(char)); if(!new_value){ length=(size_t)-1; } else{ memcpy(new_value,value,length*sizeof(char)); } } else{ new_value=cds_string_to_array( (constchar*)value,att->type,&length,NULL); } } elseif(att->type==CDS_CHAR){ new_value=cds_array_to_string(type,length,value,&length,NULL); if(new_value){ length=strlen(new_value)+1; } } else{ new_value=cds_copy_array( type,length,value,att->type,NULL, 0,NULL,NULL,NULL,NULL,NULL,NULL); if(!new_value){ length=(size_t)-1; } } } elseif(length){ type_size=cds_data_type_size(att->type); new_value=calloc(length+1,type_size); } else{ new_value=(void*)NULL; length=0; } if(length==(size_t)-1){ ERROR(CDS_LIB_NAME, "Couldnotsetattributevaluefor:%s\n" "->memoryallocationerror\n",cds_get_object_path(att)); return(0); } /*Setthevalueintheattributestructure*/ if(att->value.vp){ free(att->value.vp); } att->length=length; att->value.vp=new_value; return(1); } /** *SetthevalueofaCDSattribute. * *Thecds_string_to_array()functionwillbeusedtosettheattribute *valueifthedatatypeoftheattributeisnotCDS_CHAR. * *Errormessagesfromthisfunctionaresenttothemessage *handler(seemsngr_init_log()andmsngr_init_mail()). * *@paramatt-pointertotheattribute *@paramformat-formatstring(seeprintf) *@paramargs-argumentsfortheformatstring * *@return *-1ifsuccessful *-0ifamemoryallocationerroroccurred */ int_cds_set_att_va_list( CDSAtt*att, constchar*format, va_listargs) { char*string; size_tlength; intretval; string=msngr_format_va_list(format,args); if(!string){ ERROR(CDS_LIB_NAME, "Couldnotsetattributevaluefor:%s\n" "->memoryallocationerror\n",cds_get_object_path(att)); return(0); } length=strlen(string)+1; retval=_cds_set_att_value(att,CDS_CHAR,length,string); free(string); return(retval); } /******************************************************************************* *PublicFunctions */ /**@publicsection*/ /** *ChangeanattributeofaCDSgrouporvariable. * *Thisfunctionwilldefinethespecifiedattributeifitdoesnotexist. *Iftheattributedoesexistandtheoverwriteflagisset,thedatatype *andvaluewillbechanged. * *Errormessagesfromthisfunctionaresenttothemessagehandler *(seemsngr_init_log()andmsngr_init_mail()). * *@paramparent-pointertotheparentCDSGrouporCDSVar *@paramoverwrite-overwriteflag(1=TRUE,0=FALSE) *@paramname-attributename *@paramtype-attributedatatype *@paramlength-attributelength *@paramvalue-pointertotheattributevalue * *@return *-pointertotheattribute *-NULLif: *-theparentobjectisnotagrouporvariable *-theparentgrouporvariableislocked,ortheattributeislocked *-amemoryallocationerroroccurred */ CDSAtt*cds_change_att( void*parent, intoverwrite, constchar*name, CDSDataTypetype, size_tlength, void*value) { CDSAtt*att; att=cds_get_att(parent,name); if(!att){ att=_cds_define_att(parent,name,type,length,value); if(!att){ return((CDSAtt*)NULL); } } elseif(!att->length||!att->value.vp||overwrite){ if(!cds_change_att_value(att,type,length,value)){ return((CDSAtt*)NULL); } } return(att); } /** *ChangethetypeandvalueofaCDSAttribute. * *Errormessagesfromthisfunctionaresenttothemessage *handler(seemsngr_init_log()andmsngr_init_mail()). * *@paramatt-pointertotheattribute *@paramtype-newattributedatatype *@paramlength-newattributelength *@paramvalue-pointertothenewattributevalue * *@return *-1ifsuccessful *-0if: *-theattributeislocked *-amemoryallocationerroroccurred */ intcds_change_att_value( CDSAtt*att, CDSDataTypetype, size_tlength, void*value) { /*Checkiftheattributeislocked*/ if(att->def_lock){ ERROR(CDS_LIB_NAME, "Couldnotchangeattributevaluefor:%s\n" "->theattributedefinitionlockissetto:%d\n", cds_get_object_path(att),att->def_lock); return(0); } /*Changetheattributevalue*/ if(!_cds_change_att_value(att,type,length,value)){ ERROR(CDS_LIB_NAME, "Couldnotchangeattributevaluefor:%s\n" "->memoryallocationerror\n",cds_get_object_path(att)); return(0); } return(1); } /** *ChangethetypeandvalueofaCDSAttribute. * *ThisfunctionwillchangethedatatypeofanattributetoCDS_CHAR *andsetthenewvalue. * *Errormessagesfromthisfunctionaresenttothemessage *handler(seemsngr_init_log()andmsngr_init_mail()). * *@paramatt-pointertotheattribute *@paramformat-formatstring(seeprintf) *@param...-argumentsfortheformatstring * *@return *-1iftheattributevaluewaschanged *-0if: *-theattributeislocked *-amemoryallocationerroroccurred */ intcds_change_att_text( CDSAtt*att, constchar*format,...) { va_listargs; intretval; /*Checkifaformatstringwasspecified*/ if(!format){ if(att->value.vp)free(att->value.vp); att->type=CDS_CHAR; att->length=0; att->value.vp=(void*)NULL; return(1); } /*Changetheattributevalue*/ va_start(args,format); retval=cds_change_att_va_list(att,format,args); va_end(args); return(retval); } /** *ChangethetypeandvalueofaCDSAttribute. * *ThisfunctionwillchangethedatatypeofanattributetoCDS_CHAR *andsetthenewvalue. * *Errormessagesfromthisfunctionaresenttothemessage *handler(seemsngr_init_log()andmsngr_init_mail()). * *@paramatt-pointertotheattribute *@paramformat-formatstring(seeprintf) *@paramargs-argumentsfortheformatstring * *@return *-1iftheattributevaluewaschanged *-0if: *-theattributeislocked *-amemoryallocationerroroccurred */ intcds_change_att_va_list( CDSAtt*att, constchar*format, va_listargs) { char*att_text; /*Checkiftheattributeislocked*/ if(att->def_lock){ ERROR(CDS_LIB_NAME, "Couldnotchangeattributevaluefor:%s\n" "->theattributedefinitionlockissetto:%d\n", cds_get_object_path(att),att->def_lock); return(0); } /*Checkifaformatstringwasspecified*/ if(!format){ if(att->value.vp)free(att->value.vp); att->type=CDS_CHAR; att->length=0; att->value.vp=(void*)NULL; return(1); } /*Createtextstringfromformatstringandargumentlist*/ att_text=msngr_format_va_list(format,args); if(!att_text){ ERROR(CDS_LIB_NAME, "Couldnotchangeattributevaluefor:%s\n" "->memoryallocationerror\n",cds_get_object_path(att)); return(0); } /*Changetheattributevalue*/ if(att->value.vp)free(att->value.vp); att->type=CDS_CHAR; att->length=strlen(att_text)+1; att->value.cp=att_text; return(1); } /** *Createamissingvalueattributeifitdoesnotalreadyexist. * *Thisfunctionwillcheckifthevariablealreadyhaseithera *missing_valueor_FillValueattibutedefined.Ifitdoesnot *onewillbecreated. * *Themissingvalueusedwillbedeterminedbyfirstcheckingfor *non-standardmissingvalueattributesdefinedateitherthefield *orgloballevel(seecds_is_missing_value_att_name()).Ifno *knownmissingvalueattributesarefoundthedefaultvaluefor *thevariablesdatatypewillbeused. * *@paramvar-pointertothevariable *@paramflags-reservedforcontrolflags * *@retval1ifthemissingvalueattributealreadyexistedorwascreated. *@retval0ifafatalerroroccurred */ intcds_create_missing_value_att(CDSVar*var,intflags) { intnmissings; void*missings; intfree_missings; flags=flags; free_missings=0; if(cds_get_att(var,"missing_value")|| cds_get_att(var,"_FillValue")){ /*Thevariablealreadyhasastandard *missingvalueattributedefined*/ return(1); } nmissings=cds_get_var_missing_values(var,&missings); if(nmissings<0)return(0); if(nmissings==0){ /*Usethedefaultfillvalueforthevariabledatatype*/ nmissings=1; missings=_cds_default_fill_value(var->type); } else{ free_missings=1; /*Removethedefaultfillvaluefromthemissingvalues *arrayifmorethan1missingvaluewasfound.*/ if(var->default_fill&&nmissings>1){ nmissings-=1; } } if(!cds_define_att( var,"missing_value",var->type,nmissings,missings)){ if(free_missings)free(missings); return(0); } if(free_missings)free(missings); return(1); } /** *DefineaCDSAttribute. * *Thisfunctionwillfirstcheckifanattributewiththesame *definitionalreadyexistsinthespecifiedgrouporvariable. *Ifitdoes,theexistingattributewillbereturned. * *Errormessagesfromthisfunctionaresenttothemessage *handler(seemsngr_init_log()andmsngr_init_mail()). * *@paramparent-pointertotheparentCDSGrouporCDSVar *@paramname-attributename *@paramtype-attributedatatype *@paramlength-attributelength *@paramvalue-pointertotheattributevalue * *@return *-pointertotheattribute *-NULLif: *-theparentobjectisnotagrouporvariable *-theparentgrouporvariableislocked *-amemoryallocationerroroccurred *-anattributewiththesamenamebutdifferentdefinition *hasalreadybeendefined */ CDSAtt*cds_define_att( void*parent, constchar*name, CDSDataTypetype, size_tlength, void*value) { CDSAtt*att; size_ttype_size; /*Checkifanattributewiththisnamealreadyexists*/ att=cds_get_att(parent,name); if(att){ if(type==att->type&& length==att->length){ if(value==(void*)NULL||att->value.vp==(void*)NULL){ if(value==(void*)NULL&&att->value.vp==(void*)NULL){ return(att); } } else{ type_size=cds_data_type_size(type); if(memcmp(value,att->value.vp,length*type_size)==0){ return(att); } } } ERROR(CDS_LIB_NAME, "Couldnotdefineattribute:%s\n" "->attributeexists\n",cds_get_object_path(att)); return((CDSAtt*)NULL); } return(_cds_define_att(parent,name,type,length,value)); } /** *DefineaCDSTextAttribute. * *Seecds_define_att()fordetails. * *Errormessagesfromthisfunctionaresenttothemessage *handler(seemsngr_init_log()andmsngr_init_mail()). * *@paramparent-pointertotheparentCDSGrouporCDSVar *@paramname-attributename *@paramformat-formatstring(seeprintf) *@param...-argumentsfortheformatstring * *@return *-pointertothenewattribute *-NULLif: *-theparentobjectisnotagrouporvariable *-theparentgrouporvariableislocked *-amemoryallocationerroroccurred *-anattributewiththesamenamebutadifferntvalue *hasalreadybeendefined */ CDSAtt*cds_define_att_text( void*parent, constchar*name, constchar*format,...) { va_listargs; CDSAtt*att; va_start(args,format); att=cds_define_att_va_list(parent,name,format,args); va_end(args); return(att); } /** *DefineaCDSTextAttribute. * *Seecds_define_att()fordetails. * *Errormessagesfromthisfunctionaresenttothemessage *handler(seemsngr_init_log()andmsngr_init_mail()). * *@paramparent-pointertotheparentCDSGrouporCDSVar *@paramname-attributename *@paramformat-formatstring(seeprintf) *@paramargs-argumentsfortheformatstring * *@return *-pointertothenewattribute *-NULLif: *-theparentobjectisnotagrouporvariable *-theparentgrouporvariableislocked *-amemoryallocationerroroccurred *-anattributewiththesamenamebutadifferntvalue *hasalreadybeendefined */ CDSAtt*cds_define_att_va_list( void*parent, constchar*name, constchar*format, va_listargs) { char*att_text; size_tatt_length; CDSAtt*att; /*Createtextstringfromformatstringandargumentlist*/ att_text=msngr_format_va_list(format,args); if(!att_text){ ERROR(CDS_LIB_NAME, "Couldnotdefineattribute:%s/_atts_/%s\n" "->memoryallocationerror\n", cds_get_object_path(parent),name); free(att_text); return((CDSAtt*)NULL); } att_length=strlen(att_text)+1; att=cds_define_att(parent,name,CDS_CHAR,att_length,att_text); free(att_text); return(att); } /** *DeleteaCDSAttribute. * *Errormessagesfromthisfunctionaresenttothemessage *handler(seemsngr_init_log()andmsngr_init_mail()). * *@paramatt-pointertotheattribute * *@return *-1iftheattributewasdeleted *-0if: *-theattributeislocked *-theparentgrouporvariableislocked */ intcds_delete_att(CDSAtt*att) { CDSObject*parent=att->parent; CDSGroup*group; CDSVar*var; /*Checkiftheattributeislocked*/ if(att->def_lock){ ERROR(CDS_LIB_NAME, "Couldnotdeleteattribute:%s\n" "->theattributedefinitionlockissetto:%d\n", cds_get_object_path(att),att->def_lock); return(0); } /*Checkiftheparentisagrouporvariable*/ if(parent->obj_type==CDS_GROUP){ group=(CDSGroup*)att->parent; /*Checkifthegroupislocked*/ if(group->def_lock){ ERROR(CDS_LIB_NAME, "Couldnotdeleteattribute:%s\n" "->thegroupdefinitionlockissetto:%d\n", cds_get_object_path(att),group->def_lock); return(0); } /*Removethisattributefromtheparentobject*/ _cds_remove_object((void**)group->atts,&(group->natts),att); } elseif(parent->obj_type==CDS_VAR){ var=(CDSVar*)att->parent; /*Checkifthevariableislocked*/ if(var->def_lock){ ERROR(CDS_LIB_NAME, "Couldnotdeleteattribute:%s\n" "->thevariabledefinitionlockissetto:%d\n", cds_get_object_path(att),var->def_lock); return(0); } /*Removethisattributefromtheparentobject*/ _cds_remove_object((void**)var->atts,&(var->natts),att); } else{ ERROR(CDS_LIB_NAME, "Couldnotdeleteattribute:%s\n" "->parentobjectmustbeagrouporvariable\n", cds_get_object_path(att)); return(0); } /*Destroytheattribute*/ _cds_destroy_att(att); return(1); } /** *GetaCDSAttribute. * *Thisfunctionwillsearchthespecifiedparentgroup *orvariableforanattributewiththespecifiedname. * *@paramparent-pointertotheparentgrouporvariable *@paramname-nameoftheattribute * *@return *-pointertotheattribute *-NULLifnotfound */ CDSAtt*cds_get_att(void*parent,constchar*name) { CDSObject*parent_object=(CDSObject*)parent; CDSAtt*att=(CDSAtt*)NULL; CDSGroup*group; CDSVar*var; if(parent_object->obj_type==CDS_GROUP){ group=(CDSGroup*)parent; att=_cds_get_object((void**)group->atts,group->natts,name); } elseif(parent_object->obj_type==CDS_VAR){ var=(CDSVar*)parent; att=_cds_get_object((void**)var->atts,var->natts,name); } return(att); } /** *GetacopyofaCDSattributevalue. * *Thisfunctionwillgetacopyofanattributevaluecastedinto *thespecifieddatatype.Thefunctionscds_string_to_array()and *cds_array_to_string()areusedtoconvertbetweentext(CDS_CHAR) *andnumericdatatypes. * *Memorywillbeallocatedforthereturnedarrayiftheoutputarray *isNULL.Inthiscasethecallingprocessisresponsibleforfreeing *theallocatedmemory. * *Errormessagesfromthisfunctionaresenttothemessagehandler *(seemsngr_init_log()andmsngr_init_mail()). * *@paramatt-pointertotheattribute *@paramtype-datatypeoftheoutputarray *@paramlength-pointertothelengthoftheoutputarray *-input: *-lengthoftheoutputarray *-ignorediftheoutputarrayisNULL *-output: *-numberofvalueswrittentotheoutputarray *-0iftheattributevaluehaszerolength *-(size_t)-1ifamemoryallocationerroroccurs *@paramvalue-pointertotheoutputarray *orNULLtodynamicallyallocatethememoryneeded. * *@return *-pointertotheoutputarray *-NULLif: *-theattributevaluehaszerolength(length==0) *-amemoryallocationerroroccurs(length==(size_t)-1) */ void*cds_get_att_value( CDSAtt*att, CDSDataTypetype, size_t*length, void*value) { size_tout_length; void*out_min; void*out_max; void*out_fill; /*Checkiftheattributehasavaluedefined*/ if(!att->length||!att->value.vp){ if(length)*length=0; return((void*)NULL); } /*Getattributevaluecastedtotherequesteddatatype*/ out_length=att->length; if(value&&length&&*length>0){ if(out_length>*length){ out_length=*length; } } if(type==CDS_CHAR){ if(att->type==CDS_CHAR){ if(!value){ value=calloc(out_length+1,sizeof(char)); if(!value){ out_length=(size_t)-1; } } if(value){ memcpy(value,att->value.vp,out_length*sizeof(char)); } } else{ value=(void*)cds_array_to_string( att->type,att->length,att->value.vp,&out_length,value); } } elseif(att->type==CDS_CHAR){ if(cds_is_missing_value_att_name(att->name)){ value=cds_string_to_array_use_fill( att->value.cp,type,&out_length,value); } else{ value=cds_string_to_array( att->value.cp,type,&out_length,value); } } else{ if(type<att->type){ out_fill=_cds_default_fill_value(type); out_min=_cds_data_type_min(type); out_max=_cds_data_type_max(type); if(cds_is_missing_value_att_name(att->name)){ value=cds_copy_array( att->type,out_length,att->value.vp,type,value, 0,NULL,NULL,out_min,out_fill,out_max,out_fill); } else{ value=cds_copy_array( att->type,out_length,att->value.vp,type,value, 0,NULL,NULL,out_min,out_min,out_max,out_max); } } else{ value=cds_copy_array( att->type,out_length,att->value.vp,type,value, 0,NULL,NULL,NULL,NULL,NULL,NULL); } if(!value){ out_length=(size_t)-1; } } if(length)*length=out_length; if(out_length==(size_t)-1){ ERROR(CDS_LIB_NAME, "Couldnotgetattributevaluefor:%s\n" "->memoryallocationerror\n",cds_get_object_path(att)); return((void*)NULL); } return(value); } /** *GetacopyofaCDSattributevalue. * *Thisfunctionwillgetacopyofanattributevalueconverted *toatextstring.Ifthedatatypeoftheattributeisnot *CDS_CHARthecds_array_to_string()functionisusedtocreate *theoutputstring. * *Memorywillbeallocatedforthereturnedstringiftheoutputstring *isNULL.Inthiscasethecallingprocessisresponsibleforfreeing *theallocatedmemory. * *Errormessagesfromthisfunctionaresenttothemessagehandler *(seemsngr_init_log()andmsngr_init_mail()). * *@paramatt-pointertotheattribute *@paramlength-pointertothelengthoftheoutputstring *-input: *-lengthoftheoutputstring *-ignorediftheoutputstringisNULL *-output: *-numberofcharacterswrittentotheoutputstring *-0iftheattributevaluehaszerolength *-(size_t)-1ifamemoryallocationerroroccurs *@paramvalue-pointertotheoutputstring *orNULLtodynamicallyallocatethememoryneeded. * *@return *-pointertotheoutputstring *-NULLif: *-theattributevaluehaszerolength(length==0) *-amemoryallocationerroroccurs(length==(size_t)-1) */ char*cds_get_att_text( CDSAtt*att, size_t*length, char*value) { return((char*)cds_get_att_value(att,CDS_CHAR,length,value)); } /** *RenameaCDSAttribute. * *Errormessagesfromthisfunctionaresenttothemessage *handler(seemsngr_init_log()andmsngr_init_mail()). * *@paramatt-pointertotheattribute *@paramname-pointertothenewattributename * *@return *-1iftheattributewasdeleted *-0if: *-anattributewiththenewnamealreadyexists *-theattributeislocked *-theparentgrouporvariableislocked *-amemoryallocationerroroccured */ intcds_rename_att(CDSAtt*att,constchar*name) { CDSObject*parent=att->parent; CDSGroup*group; CDSVar*var; char*new_name; /*Checkifanattributewiththenewnamealreadyexists*/ if(cds_get_att(parent,name)){ ERROR(CDS_LIB_NAME, "Couldnotrenameattribute:%sto%s\n" "->attributeexists\n", cds_get_object_path(att),name); return(0); } /*Checkiftheattributeislocked*/ if(att->def_lock){ ERROR(CDS_LIB_NAME, "Couldnotrenameattribute:%sto%s\n" "->theattributedefinitionlockissetto:%d\n", cds_get_object_path(att),name,att->def_lock); return(0); } /*Checkiftheparentisagrouporvariable*/ if(parent->obj_type==CDS_GROUP){ group=(CDSGroup*)att->parent; /*Checkifthegroupislocked*/ if(group->def_lock){ ERROR(CDS_LIB_NAME, "Couldnotrenameattribute:%sto%s\n" "->thegroupdefinitionlockissetto:%d\n", cds_get_object_path(att),name,group->def_lock); return(0); } } elseif(parent->obj_type==CDS_VAR){ var=(CDSVar*)att->parent; /*Checkifthevariableislocked*/ if(var->def_lock){ ERROR(CDS_LIB_NAME, "Couldnotrenameattribute:%sto%s\n" "->thevariabledefinitionlockissetto:%d\n", cds_get_object_path(att),name,var->def_lock); return(0); } } else{ ERROR(CDS_LIB_NAME, "Couldnotrenameattribute:%sto%s\n" "->parentobjectmustbeagrouporvariable\n", cds_get_object_path(att),name); return(0); } /*Renametheattribute*/ new_name=strdup(name); if(!new_name){ ERROR(CDS_LIB_NAME, "Couldnotrenameattribute:%s\n" "->memoryallocationerror\n", cds_get_object_path(att)); return(0); } free(att->name); att->name=new_name; return(1); } /** *SetanattributeofaCDSgrouporvariable. * *Thisfunctionwilldefinethespecifiedattributeifitdoesnotexist. *Iftheattributedoesexistandtheoverwriteflagisset,thevaluewill *besetbycastingthespecifiedvalueintothedatatypeoftheattribute. *Thefunctionscds_string_to_array()andcds_array_to_string()areusedto *convertbetweentext(CDS_CHAR)andnumericdatatypes. * *Errormessagesfromthisfunctionaresenttothemessagehandler *(seemsngr_init_log()andmsngr_init_mail()). * *@paramparent-pointertotheparentCDSGrouporCDSVar *@paramoverwrite-overwriteflag(1=TRUE,0=FALSE) *@paramname-attributename *@paramtype-attributedatatype *@paramlength-attributelength *@paramvalue-pointertotheattributevalue * *@return *-pointertotheattribute *-NULLif: *-theparentobjectisnotagrouporvariable *-theparentgrouporvariableislocked,ortheattributeislocked *-amemoryallocationerroroccurred */ CDSAtt*cds_set_att( void*parent, intoverwrite, constchar*name, CDSDataTypetype, size_tlength, void*value) { CDSAtt*att; att=cds_get_att(parent,name); if(!att){ att=_cds_define_att(parent,name,type,length,value); if(!att){ return((CDSAtt*)NULL); } } elseif(!att->length||!att->value.vp||overwrite){ if(!cds_set_att_value(att,type,length,value)){ return((CDSAtt*)NULL); } } return(att); } /** *SetthevalueofaCDSattribute. * *Thisfunctionwillsetthevalueofanattributebycastingthe *specifiedvalueintothedatatypeoftheattribute.Thefunctions *cds_string_to_array()andcds_array_to_string()areusedtoconvert *betweentext(CDS_CHAR)andnumericdatatypes. * *Errormessagesfromthisfunctionaresenttothemessage *handler(seemsngr_init_log()andmsngr_init_mail()). * *@paramatt-pointertotheattribute *@paramtype-datatypeofthespecifiedvalue *@paramlength-lengthofthespecifiedvalue *@paramvalue-pointertotheattributevalue * *@return *-1ifsuccessful *-0if: *-theattributeislocked *-amemoryallocationerroroccurred */ intcds_set_att_value( CDSAtt*att, CDSDataTypetype, size_tlength, void*value) { if(att->def_lock){ ERROR(CDS_LIB_NAME, "Couldnotsetattributevaluefor:%s\n" "->theattributedefinitionlockissetto:%d\n", cds_get_object_path(att),att->def_lock); return(0); } return(_cds_set_att_value(att,type,length,value)); } /** *SetthevalueofaCDSattribute. * *Thecds_string_to_array()functionwillbeusedtosettheattribute *valueifthedatatypeoftheattributeisnotCDS_CHAR. * *Errormessagesfromthisfunctionaresenttothemessage *handler(seemsngr_init_log()andmsngr_init_mail()). * *@paramatt-pointertotheattribute *@paramformat-formatstring(seeprintf) *@param...-argumentsfortheformatstring * *@return *-1ifsuccessful *-0if: *-theattributeislocked *-amemoryallocationerroroccurred */ intcds_set_att_text( CDSAtt*att, constchar*format,...) { va_listargs; intretval; /*Checkiftheattributeislocked*/ if(att->def_lock){ ERROR(CDS_LIB_NAME, "Couldnotchangeattributevaluefor:%s\n" "->theattributedefinitionlockissetto:%d\n", cds_get_object_path(att),att->def_lock); return(0); } /*Checkifaformatstringwasspecified*/ if(!format){ if(att->value.vp){ free(att->value.vp); } att->length=0; att->value.vp=(void*)NULL; return(1); } va_start(args,format); retval=_cds_set_att_va_list(att,format,args); va_end(args); return(retval); } /** *SetthevalueofaCDSattribute. * *Thecds_string_to_array()functionwillbeusedtosettheattribute *valueifthedatatypeoftheattributeisnotCDS_CHAR. * *Errormessagesfromthisfunctionaresenttothemessage *handler(seemsngr_init_log()andmsngr_init_mail()). * *@paramatt-pointertotheattribute *@paramformat-formatstring(seeprintf) *@paramargs-argumentsfortheformatstring * *@return *-1ifsuccessful *-0if: *-theattributeislocked *-amemoryallocationerroroccurred */ intcds_set_att_va_list( CDSAtt*att, constchar*format, va_listargs) { /*Checkiftheattributeislocked*/ if(att->def_lock){ ERROR(CDS_LIB_NAME, "Couldnotchangeattributevaluefor:%s\n" "->theattributedefinitionlockissetto:%d\n", cds_get_object_path(att),att->def_lock); return(0); } /*Checkifaformatstringwasspecified*/ if(!format){ if(att->value.vp){ free(att->value.vp); } att->length=0; att->value.vp=(void*)NULL; return(1); } return(_cds_set_att_va_list(att,format,args)); }