mh5date.c

Go to the documentation of this file.

/*******************************************************************************
 * Copyright © 2014 The DTVKit Open Software Foundation Ltd (www.dtvkit.org)
 * Copyright © 2004 Ocean Blue Software Ltd
 * Copyright © 2000 Koninklijke Philips Electronics N.V
 *
 * This file is part of a DTVKit Software Component
 * You are permitted to copy, modify or distribute this file subject to the terms
 * of the DTVKit 1.0 Licence which can be found in licence.txt or at www.dtvkit.org
 * 
 * THIS CODE AND INFORMATION ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND,
 * EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
 * 
 * If you or your organisation is not a member of DTVKit then you have access
 * to this source code outside of the terms of the licence agreement
 * and you are expected to delete this and any associated files immediately.
 * Further information on DTVKit, membership and terms can be found at www.dtvkit.org
 *******************************************************************************/
/*---includes for this file--------------------------------------------------*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "mh5base.h"
#include "mh5date.h"
#include "mh5memory.h"
#include "mh5debug.h"
#include "mherrors.h"
#include "dvb_misc.h"

/*---constant definitions for this file--------------------------------------*/
#define DATE_BUFFER_SIZE (1024)


/*---local typedef structs for this file-------------------------------------*/

/*---local (static) variable declarations for this file----------------------*/

/*---local function definitions----------------------------------------------*/

/*---global function definitions---------------------------------------------*/

U32BIT JulianDate(S32BIT day, S32BIT month, S32BIT year);
static void CalendarDate(U32BIT jdate, S32BIT *day, S32BIT *month, S32BIT *year);

U32BIT JulianDate(S32BIT day, S32BIT month, S32BIT year)
{
   S32BIT m1 = (month - 14) / 12;
   S32BIT y1 = year + 4800;

   return 1461 * (y1 + m1) / 4 + 367 * (month - 2 - 12 * m1) / 12 - (3 * ((y1 + m1 + 100) / 100)) / 4 +
          day - 2432076;
}

static void CalendarDate(U32BIT jdate, S32BIT *day, S32BIT *month, S32BIT *year)
{
   S32BIT p, q, r, s, t, u, v;

   /* Check output variables. */
   if ((day == 0) || (month == 0) || (year == 0))
   {
      DEBUG_PRINT(("ERROR: CalendarDate invalid function parameters.\n"));
      return;                   /* RETURN */
   }

   p = jdate + 2468570;
   q = 4 * p / 146097;
   r = p - (146097 * q + 3) / 4;
   s = 4000 * (r + 1) / 1461001;
   t = r - 1461 * s / 4 + 31;
   u = 80 * t / 2447;
   v = u / 11;

   *year = 100 * (q - 49) + s + v;
   *month = u + 2 - 12 * v;
   *day = t - 2447 * u / 80;
}

void MHEG5getDate(S32BIT *day, S32BIT *sec)
{
   /* Local variables */
   S_DateTime t;
   E_MhegErr err;

   assert(day);
   assert(sec);

   /* Get current date and time. */
   err = DVB_MhegGetLocalTime(&t);
   if (err != MHERR_OK)
   {
      *day = 0;
      *sec = 0;
      DEBUG_PRINT(("ERROR: MHEG5getDate unable to get current time. GetLocalTime returned %d\n", err));
      return;                   /* RETURN */
   }

   /* Calculate seconds since midnight. */
   *sec = t.second + (t.minute * 60) + (t.hour * 3600);

   /* Calculate days since Nov 17, 1858. */
   *day = JulianDate(t.day, t.month, t.year);
}

MHEG5String MHEG5formatDate(MHEG5String format, S32BIT day, S32BIT sec)
{
   /* Local variables. */
   MHEG5String rc;
   S32BIT d, m, y, i = 0, h, min, s, h2;
   char buf[DATE_BUFFER_SIZE], buf2[100];

   /* Get calendar date format. */
   CalendarDate(day, &d, &m, &y);

   /* Calculate seconds, minutes and hours. */
   h2 = h = sec / 3600;
   min = (sec - (h * 3600)) / 60;
   s = sec - h * 3600 - min * 60;
   if (h2 > 12)
   {
      h2 -= 12;
   }

   /* Initialise string buffer. */
   buf[0] = '\0';

   /* Step through format string. */
   while (i < format.len)
   {
      /* Get first formatting instruction. */
      if ((format.data[i] == '%') && (i + 1 < format.len))
      {
         switch (format.data[i + 1])
         {
            case 'Y':   /* Use 4 digit year. */
               sprintf(buf2, "%04ld", (long)y);
               i += 2;
               break;
            case 'y':   /* Use 2 digit year. */
               sprintf(buf2, "%02ld", (long)(y % 100));
               i += 2;
               break;
            case 'X':   /* Month with padding. */
               sprintf(buf2, "%02ld", (long)m);
               i += 2;
               break;
            case 'x':   /* Month without padding. */
               sprintf(buf2, "%ld", (long)m);
               i += 2;
               break;
            case 'D':   /* Day with padding. */
               sprintf(buf2, "%02ld", (long)d);
               i += 2;
               break;
            case 'd':   /* Day without padding. */
               sprintf(buf2, "%ld", (long)d);
               i += 2;
               break;
            case 'H':   /* 24 hour with padding. */
               sprintf(buf2, "%02ld", (long)h);
               i += 2;
               break;
            case 'h':   /* 24 hour without padding. */
               sprintf(buf2, "%ld", (long)h);
               i += 2;
               break;
            case 'I':   /* 12 hour with padding. */
               sprintf(buf2, "%02ld", (long)h2);
               i += 2;
               break;
            case 'i':   /* 12 hour without padding. */
               sprintf(buf2, "%ld", (long)h2);
               i += 2;
               break;
            case 'M':   /* Minutes with padding. */
               sprintf(buf2, "%02ld", (long)min);
               i += 2;
               break;
            case 'm':   /* Minutes without padding. */
               sprintf(buf2, "%ld", (long)min);
               i += 2;
               break;
            case 'S':   /* Seconds with padding. */
               sprintf(buf2, "%02ld", (long)s);
               i += 2;
               break;
            case 's':   /* Seconfds without padding. */
               sprintf(buf2, "%ld", (long)s);
               i += 2;
               break;
            case 'A':   /* AM/PM style. */
               if (h < 12)
                  sprintf(buf2, "AM");
               else
                  sprintf(buf2, "PM");
               i += 2;
               break;
            case 'a':   /* am/pm style. */
               if (h < 12)
                  sprintf(buf2, "am");
               else
                  sprintf(buf2, "pm");
               i += 2;
               break;
            case '%':   /* Use % char. */
               buf2[0] = '%';
               buf2[1] = '\0';
               i += 2;
               break;
            default:    /* Copy char to output string. */
               buf2[0] = format.data[i];
               buf2[1] = format.data[i + 1];
               buf2[2] = '\0';
               i += 2;
         }
      }
      else
      {
         buf2[0] = format.data[i++];
         buf2[1] = '\0';
      }

      /* Check for buffer overflow */
      if (strlen(buf2) >= DATE_BUFFER_SIZE - strlen(buf))
      {
         /* End MHEG5formatdate function */
         break;
      }
      else
      {
         strcat(buf, buf2);
      }
   }

   rc = MHEG5stringCopyChr(buf);

   return rc;                       /* RETURN */
}

S32BIT MHEG5getDayOfWeek(S32BIT day)
{
   /* Calculate and return day of the week */
   return (day + 3) % 7;
}