Diff for /rpl/src/date.c between versions 1.26 and 1.70

version 1.26, 2011/07/25 07:44:53 version 1.70, 2024/01/09 07:33:47
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.2    RPL/2 (R) version 4.1.35
   Copyright (C) 1989-2011 Dr. BERTRAND Joël    Copyright (C) 1989-2024 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 64  formateur_date(struct_processus *s_etat_ Line 64  formateur_date(struct_processus *s_etat_
      * Récupération de la structure tm       * Récupération de la structure tm
      */       */
   
     stm = localtime(&((*horodatage).tv_sec));      stm = localtime((const time_t *) &((*horodatage).tv_sec));
   
     if ((s_objet = allocation(s_etat_processus, LST)) == NULL)      if ((s_objet = allocation(s_etat_processus, LST)) == NULL)
     {      {
Line 438  formateur_date(struct_processus *s_etat_ Line 438  formateur_date(struct_processus *s_etat_
   
     jour_julien = 1721024 + (365 * y) + (30 * m) + d + ((integer8) (y / 4))      jour_julien = 1721024 + (365 * y) + (30 * m) + d + ((integer8) (y / 4))
             + 2 + ((integer8) (y / 400)) - ((integer8) (y / 100));              + 2 + ((integer8) (y / 400)) - ((integer8) (y / 100));
     heure_julienne = floor(((real8) 0.6001) * (m + 1)) +      heure_julienne = floor(((real8) 0.6001) * ((real8) m + 1)) +
             (((real8 ) heures) / 24) + (((real8) minutes) / 1440) +              (((real8) heures) / 24) + (((real8) minutes) / 1440) +
             (((real8) secondes + (((real8) (*horodatage).tv_usec) / 1000000))              (((real8) secondes + (((real8) (*horodatage).tv_usec) / 1000000)) /
             / 86400) + ((real8) 0.5);              86400) + ((real8) 0.5);
   
     offset_julien = floor(heure_julienne);      offset_julien = floor(heure_julienne);
   
     jour_julien += offset_julien;      jour_julien += (integer8) offset_julien;
     heure_julienne -= offset_julien;      heure_julienne -= offset_julien;
   
     (*((integer8 *) (*(*l_element_courant).donnee).objet)) = jour_julien;      (*((integer8 *) (*(*l_element_courant).donnee).objet)) = jour_julien;

Removed from v.1.26  
changed lines
  Added in v.1.70


CVSweb interface <joel.bertrand@systella.fr>