Aller à la documentation de ce fichier.
31 # include <sys/timeb.h>
36 # include <sys/time.h>
42 #error "unistd.h required."
47 #if defined(HAVE_GETPWUID) && defined(HAVE_GETEUID)
48 # include <sys/types.h>
64 const char *
const meshname)
74 char _lpBuffer [UNLEN+1]=
"";
75 long _nSize = UNLEN+1;
78 struct passwd* mypasswd;
102 strcat(_path,meshname);
114 if ( GetUserName(_lpBuffer,&_nSize) == 0 )
goto ERROR_;
116 strncpy(_unvname,_lpBuffer,_nSize);
117 strcat(_unvname,
" ");
119 strcat(_unvname,ctime(&_time));
121 _nSize = strlen(_unvname)-1;
122 if ( sprintf(&_unvname[_nSize],
" %hu",_tp.millitm) < 0 )
goto ERROR_;
125 #if defined(HAVE_GETPWUID) && defined(HAVE_GETEUID)
126 mypasswd=getpwuid(geteuid());
127 if ( mypasswd == NULL ) {
128 MESSAGE(
"Impossible d'obtenir le nom de l'utilisateur effectif");
131 strcat(_unvname,mypasswd->pw_name);
132 #elif defined(HAVE_CUSERID)
133 if ( !cuserid(_unvname) ) {
138 #error "There is no ( getpwuid && geteuid) nor cuserid"
140 strcat(_unvname,
" ");
142 strcat(_unvname,ctime(&_time));
143 if ( gettimeofday(&_tp,NULL) < 0 ) {
147 if ( sprintf(&_unvname[strlen(_unvname)-1],
" %li",_tp.tv_usec) < 0 ) {
#define ISCRUTE_id(entier)
#define ISCRUTE_int(entier)
MEDC_EXPORT med_access_mode _MEDmodeAcces(med_idt oid)
#define MED_ERR_(rt, r1, r2, r3)
#define MED_ERR_ATTRIBUTE
med_err MEDmeshUniversalNameWr(const med_idt fid, const char *const meshname)
Cette routine permet l'écriture du nom universel d'un maillage.
#define MED_MESH_GRP_SIZE
MEDC_EXPORT med_err _MEDattributeStringWr(med_idt pid, const char *const attname, const med_size attsize, const char *const val)
#define MED_ERR_DATAGROUP
#define MED_ERR_ACCESSMODE
MEDC_EXPORT med_err _MEDcheckVersion30(med_idt fid)
#define MED_ERR_UNRECOGNIZED
MEDC_EXPORT med_idt _MEDdatagroupOuvrir(med_idt pid, const char *const nom)
MEDC_EXPORT void _MEDmodeErreurVerrouiller(void)
MEDC_EXPORT med_err _MEDdatagroupFermer(med_idt id)