src/tool/Dependance_Machine/dmdate.c

   1 /* __________________________________________________________________________ */
   2 /*                                                                            */
   3 /*                              H O M A R D                                   */
   4 /*                                                                            */
   5 /*   Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D   */
   6 /*                                                                            */
   7 /* Version originale enregistrée le 18 juin 1996 sous le numéro 96036 auprès  */
   8 /* des huissiers de justice Simart et Lavoir à Clamart                        */
   9 /* Version 11.2 enregistrée le 13 février 2015 sous le numéro 2015/014 auprès */
  10 /* des huissiers de justice Lavoir, Silinski & Cherqui-Abrahmi à Clamart      */
  11 /*                                                                            */
  12 /*   HOMARD est une marque déposée d'Electricite de France                    */
  13 /*                                                                            */
  14 /* Copyright EDF 1997                                                         */
  15 /* Copyright EDF 1998                                                         */
  16 /* Copyright EDF 1999                                                         */
  17 /* Copyright EDF 2021                                                         */
  18 /* __________________________________________________________________________ */
  19
  20 #include "dminfc.h"
  21 #include "dmport.h"
  22 #include "FC.h"
  23 #include <string.h>
  24 #include <time.h>
  25
  26 /* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
  27 #ifdef _POSIX
  28 void dmdate_( char *ladate, LNSTRF bidon )
  29 #else
  30 #ifdef extern_stdcall
  31 extern void __stdcall DMDATE( char *ladate, LNSTRF bidon )
  32 #else
  33 void FortranCInterface_GLOBAL(dmdate, DMDATE)(char *ladate, LNSTRF bidon)
  34 #endif
  35 #endif
  36 /* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
  37
  38 /* time renvoie le nombre de secondes écoulées depuis le 1er janvier 1970 à 0h */
  39 /* ctime convertit ce nombre en une chaine de 26 caractères */
  40 /* sous la forme 'day mon dd hh:mm:ss yyyy\n\0' */
  41 /*                123456789012345678901234 5 6 */
  42 /*          ex : 'Thu Jul 19  9:42:23 1994' */
  43 /* On renvoie alors les 24 premiers caractères utiles. */
  44 {
  45
  46   char *c ;
  47   time_t t ;
  48
  49   t = time( (time_t *)0 ) ;
  50   c = ctime(&t) ;
  51   strncpy(ladate, c, (size_t)24 ) ;
  52
  53 }
  54