MEDfileCommentWr.c
Aller à la documentation de ce fichier.00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019 #include <med.h>
00020 #include <med_config.h>
00021 #include <med_outils.h>
00022
00023 #include <string.h>
00024
00033 med_err
00034 MEDfileCommentWr(const med_idt fid,
00035 const char* const comment)
00036 {
00037 med_idt _rootId=0;
00038 med_err _ret=-1;
00039
00040 _MEDmodeErreurVerrouiller();
00041 if (_MEDcheckVersion30(fid) < 0) goto ERROR;
00042
00043
00044 if ((_rootId = _MEDdatagroupOuvrir(fid,"/")) < 0) {
00045 MED_ERR_(_ret,MED_ERR_OPEN,MED_ERR_DATAGROUP," : '/'");
00046 goto ERROR;
00047 }
00048
00049
00050 if (_MEDattributeStringWr(_rootId,MED_COMMENT_NAME,MED_COMMENT_SIZE,(char*)comment) < 0) {
00051 MED_ERR_(_ret,MED_ERR_WRITE,MED_ERR_ATTRIBUTE,MED_COMMENT_NAME);
00052 SSCRUTE(comment);
00053 goto ERROR;
00054 }
00055
00056 _ret = 0;
00057 ERROR:
00058
00059
00060 if (_rootId > 0)
00061 if (_MEDdatagroupFermer(_rootId) < 0) {
00062 MED_ERR_(_ret,MED_ERR_CLOSE,MED_ERR_DATAGROUP," : '/'");
00063 }
00064 return _ret;
00065 }