Annotation of rpl/src/instructions_j1.c, revision 1.1
1.1 ! bertrand 1: /*
! 2: ================================================================================
! 3: RPL/2 (R) version 4.0.9
! 4: Copyright (C) 1989-2010 Dr. BERTRAND Joël
! 5:
! 6: This file is part of RPL/2.
! 7:
! 8: RPL/2 is free software; you can redistribute it and/or modify it
! 9: under the terms of the CeCILL V2 License as published by the french
! 10: CEA, CNRS and INRIA.
! 11:
! 12: RPL/2 is distributed in the hope that it will be useful, but WITHOUT
! 13: ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
! 14: FITNESS FOR A PARTICULAR PURPOSE. See the CeCILL V2 License
! 15: for more details.
! 16:
! 17: You should have received a copy of the CeCILL License
! 18: along with RPL/2. If not, write to info@cecill.info.
! 19: ================================================================================
! 20: */
! 21:
! 22:
! 23: #include "rpl.conv.h"
! 24:
! 25:
! 26: /*
! 27: ================================================================================
! 28: Fonction 'jdate'
! 29: ================================================================================
! 30: Entrées : pointeur sur une structure struct_processus
! 31: --------------------------------------------------------------------------------
! 32: Sorties :
! 33: --------------------------------------------------------------------------------
! 34: Effets de bord : néant
! 35: ================================================================================
! 36: */
! 37:
! 38: void
! 39: instruction_jdate(struct_processus *s_etat_processus)
! 40: {
! 41: integer8 a;
! 42: integer8 b;
! 43: integer8 c;
! 44: integer8 d;
! 45: integer8 e;
! 46: integer8 m;
! 47: integer8 jour_julien;
! 48:
! 49: long nombre_elements;
! 50:
! 51: real8 heure_julienne;
! 52:
! 53: struct_liste_chainee *l_element_courant;
! 54:
! 55: struct_objet *s_objet;
! 56: struct_objet *s_objet_argument;
! 57:
! 58: struct timeval horodatage;
! 59:
! 60: struct tm stm;
! 61:
! 62: (*s_etat_processus).erreur_execution = d_ex;
! 63:
! 64: if ((*s_etat_processus).affichage_arguments == 'Y')
! 65: {
! 66: printf("\n JDATE ");
! 67:
! 68: if ((*s_etat_processus).langue == 'F')
! 69: {
! 70: printf("(conversion d'un jour julien vers un calendrier grégorien"
! 71: " proleptique)\n\n");
! 72: }
! 73: else
! 74: {
! 75: printf("(conversion from julian day to proleptic gregorian"
! 76: " calendar)\n\n");
! 77: }
! 78:
! 79: printf(" 1: %s\n", d_LST);
! 80: printf("-> 1: %s\n\n", d_LST);
! 81:
! 82: if ((*s_etat_processus).langue == 'F')
! 83: {
! 84: printf(" Utilisation :\n\n");
! 85: printf(" { IP FP } JDATE avec IP > 0, 0 <= FP < 1\n\n");
! 86: printf(" Note :\n\n");
! 87: printf(" La conversion n'est assurée que si la date est "
! 88: "représentable en temps Unix.\n");
! 89: }
! 90: else
! 91: {
! 92: printf(" Usage:\n\n");
! 93: printf(" { IP FP } JDATE with IP > 0, 0 <= FP < 1\n\n");
! 94: printf(" Note :\n\n");
! 95: printf(" Conversion is only done if date can be computed in "
! 96: "Unix time.\n");
! 97: }
! 98:
! 99: return;
! 100: }
! 101: else if ((*s_etat_processus).test_instruction == 'Y')
! 102: {
! 103: (*s_etat_processus).nombre_arguments = 1;
! 104: return;
! 105: }
! 106:
! 107: if (test_cfsf(s_etat_processus, 31) == d_vrai)
! 108: {
! 109: if (empilement_pile_last(s_etat_processus, 1) == d_erreur)
! 110: {
! 111: return;
! 112: }
! 113: }
! 114:
! 115: if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
! 116: &s_objet_argument) == d_erreur)
! 117: {
! 118: (*s_etat_processus).erreur_execution = d_ex_manque_argument;
! 119: return;
! 120: }
! 121:
! 122: if ((*s_objet_argument).type == LST)
! 123: {
! 124: l_element_courant = (*s_objet_argument).objet;
! 125: nombre_elements = 0;
! 126:
! 127: while(l_element_courant != NULL)
! 128: {
! 129: nombre_elements++;
! 130: l_element_courant = (*l_element_courant).suivant;
! 131: }
! 132:
! 133: if (nombre_elements != 2)
! 134: {
! 135: (*s_etat_processus).erreur_execution = d_ex_argument_invalide;
! 136:
! 137: liberation(s_etat_processus, s_objet_argument);
! 138: return;
! 139: }
! 140:
! 141: l_element_courant = (*s_objet_argument).objet;
! 142:
! 143: if ((*(*l_element_courant).donnee).type == INT)
! 144: {
! 145: jour_julien = (*((integer8 *) (*(*l_element_courant)
! 146: .donnee).objet));
! 147:
! 148: if (jour_julien < 0)
! 149: {
! 150: (*s_etat_processus).erreur_execution = d_ex_argument_invalide;
! 151:
! 152: liberation(s_etat_processus, s_objet_argument);
! 153: return;
! 154: }
! 155: }
! 156: else
! 157: {
! 158: (*s_etat_processus).erreur_execution = d_ex_argument_invalide;
! 159:
! 160: liberation(s_etat_processus, s_objet_argument);
! 161: return;
! 162: }
! 163:
! 164: l_element_courant = (*l_element_courant).suivant;
! 165:
! 166: if ((*(*l_element_courant).donnee).type == INT)
! 167: {
! 168: heure_julienne = (*((integer8 *) (*(*l_element_courant)
! 169: .donnee).objet));
! 170: }
! 171: else if ((*(*l_element_courant).donnee).type == REL)
! 172: {
! 173: heure_julienne = (*((real8 *) (*(*l_element_courant)
! 174: .donnee).objet));
! 175: }
! 176: else
! 177: {
! 178: (*s_etat_processus).erreur_execution = d_ex_argument_invalide;
! 179:
! 180: liberation(s_etat_processus, s_objet_argument);
! 181: return;
! 182: }
! 183:
! 184: if ((heure_julienne < 0) || (heure_julienne >= 1))
! 185: {
! 186: (*s_etat_processus).erreur_execution = d_ex_argument_invalide;
! 187:
! 188: liberation(s_etat_processus, s_objet_argument);
! 189: return;
! 190: }
! 191:
! 192: a = jour_julien + 32045;
! 193: b = ((4 * (a + 36524)) / 146097) - 1;
! 194: c = a - ((146097 * b) / 4);
! 195: d = ((4 * (c + 365)) / 1461) - 1;
! 196: e = c - ((1461 * d) / 4);
! 197: m = ((5 * (e - 1)) + 2) / 153;
! 198:
! 199: stm.tm_mday = e - (((153 * m) + 2) / 5);
! 200: stm.tm_mon = m + 3 - ((12 * (m / 10)) + 1);
! 201: stm.tm_year = (100 * b) + (m / 10) + d - (4800 + 1900);
! 202:
! 203: heure_julienne *= 24;
! 204: stm.tm_hour = (int) floor(heure_julienne);
! 205: heure_julienne -= stm.tm_hour;
! 206: stm.tm_hour += 12;
! 207:
! 208: heure_julienne *= 60;
! 209: stm.tm_min = (int) floor(heure_julienne);
! 210: heure_julienne -= stm.tm_min;
! 211:
! 212: heure_julienne *= 60;
! 213: stm.tm_sec = (int) floor(heure_julienne);
! 214: heure_julienne -= stm.tm_sec;
! 215:
! 216: horodatage.tv_sec = mktime(&stm);
! 217: horodatage.tv_usec = heure_julienne * 1000000;
! 218:
! 219: if (horodatage.tv_sec == -1)
! 220: {
! 221: liberation(s_etat_processus, s_objet_argument);
! 222:
! 223: (*s_etat_processus).erreur_execution = d_ex_erreur_type_argument;
! 224: return;
! 225: }
! 226:
! 227: if ((s_objet = formateur_date(s_etat_processus, &horodatage)) == NULL)
! 228: {
! 229: liberation(s_etat_processus, s_objet_argument);
! 230: return;
! 231: }
! 232:
! 233: liberation(s_etat_processus, s_objet_argument);
! 234: }
! 235: else
! 236: {
! 237: liberation(s_etat_processus, s_objet_argument);
! 238:
! 239: (*s_etat_processus).erreur_execution = d_ex_erreur_type_argument;
! 240: return;
! 241: }
! 242:
! 243: if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
! 244: s_objet) == d_erreur)
! 245: {
! 246: return;
! 247: }
! 248:
! 249: return;
! 250: }
! 251:
! 252: // vim: ts=4
CVSweb interface <joel.bertrand@systella.fr>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to instructions_j1.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / src