getdate.c File Reference

#include <time.h>
#include <locale.h>
#include <stdio.h>
#include "machine.h"
#include "sciprint.h"
#include <sys/time.h>

Include dependency graph for getdate.c:

Go to the source code of this file.

Defines
#define	ISO_WEEK_START_WDAY   1
#define	ISO_WEEK1_WDAY   4
#define	YDAY_MINIMUM   (-366)
#define	TM_YEAR_BASE   1900
#define	__isleap(year)   ((year) % 4 == 0 && ((year) % 100 != 0 || (year) % 400 == 0))
Functions
static int week_number	__PARAMS ((struct tm *tp))
void	C2F (scigetdate)
void C2F()	convertdate (time_t *dt, int w[10])
static int	week_days (int yday, int wday)
static int	week_number (struct tm *tp)

---

Define Documentation

#define __isleap

(

year

)

((year) % 4 == 0 && ((year) % 100 != 0 || (year) % 400 == 0))

Definition at line 30 of file getdate.c.

Referenced by week_number().

#define ISO_WEEK1_WDAY   4

Definition at line 24 of file getdate.c.

Referenced by week_days().

#define ISO_WEEK_START_WDAY   1

Definition at line 23 of file getdate.c.

Referenced by week_days().

#define TM_YEAR_BASE   1900

Definition at line 26 of file getdate.c.

Referenced by week_number().

#define YDAY_MINIMUM   (-366)

Definition at line 25 of file getdate.c.

Referenced by week_days().

---

Function Documentation

static int week_number __PARAMS

(

(struct tm *tp)

)

[static]

void C2F

(

scigetdate

)

Definition at line 42 of file getdate.c.

{
  *ierr=0;
  if (time(dt) == (time_t) - 1) 
  {
    *ierr=1;
  }
  ChronoFlag=1;
  
  #ifdef _MSC_VER
    _ftime64( &timebufferW );
  #else
        gettimeofday(&timebufferU,NULL);
  #endif
}

void C2F() convertdate	(	time_t *	dt,
		int	w[10]
	)

Definition at line 70 of file getdate.c.

References NULL, sciprint(), and week_number().

{
        #ifdef _MSC_VER
        if ( (*dt<0) || (*dt> _MAX__TIME64_T) )
        #else
        if (*dt<0)
        #endif
        {
                w[0] = 0;
                w[1] = 0;
                w[2] = 0;
                w[3] = 0;
                w[4] = 0;
                w[5] = 0;
                w[6] = 0;
                w[7] = 0;
                w[8] = 0;
                w[9] = 0;
                if (*dt<0)      sciprint("dt=getdate(x) x must be > 0.\n");
                #ifdef _MSC_VER
                else sciprint("dt=getdate(x) x must be < %d.\n",_MAX__TIME64_T);
                #endif
        }
        else
        {
                struct tm *nowstruct=NULL;
                nowstruct = localtime(dt);
                if (nowstruct)
                {
                        w[0] = 1900 + nowstruct->tm_year;
                        w[1] = 1    + nowstruct->tm_mon;
                        w[2] = week_number(nowstruct);
                        w[3] = 1    + nowstruct->tm_yday;
                        w[4] = 1    + nowstruct->tm_wday;
                        w[5] =        nowstruct->tm_mday;
                        w[6] =        nowstruct->tm_hour;
                        w[7] =        nowstruct->tm_min;
                        w[8] =        nowstruct->tm_sec;
            if (ChronoFlag)
                        {
       #ifdef _MSC_VER
                                w[9] = timebufferW.millitm;
                         #else
                                w[9] = timebufferU.tv_usec / 1000;  /* micro to ms */
                         #endif
                         ChronoFlag=0;
                        }
                        else
                        {
                                w[9] = 0;
                        }
                }
        }
}

Here is the call graph for this function:

static int week_days	(	int	yday,
		int	wday
	)			[static]

Definition at line 131 of file getdate.c.

References ISO_WEEK1_WDAY, ISO_WEEK_START_WDAY, and YDAY_MINIMUM.

Referenced by week_number().

{
  /* Add enough to the first operand of % to make it nonnegative.  */
  int big_enough_multiple_of_7 = (-YDAY_MINIMUM / 7 + 2) * 7;
  return (yday - (yday - wday + ISO_WEEK1_WDAY + big_enough_multiple_of_7) % 7 + ISO_WEEK1_WDAY - ISO_WEEK_START_WDAY);
}

Here is the caller graph for this function:

static int week_number

(

struct tm *

tp

)

[static]

Definition at line 147 of file getdate.c.

References __isleap, days, TM_YEAR_BASE, and week_days().

Referenced by convertdate().

{
  int year = tp->tm_year + TM_YEAR_BASE;
  int days = week_days (tp->tm_yday, tp->tm_wday);

  if (days < 0)
    {
      /* This ISO week belongs to the previous year.  */
      year--;
      days = week_days (tp->tm_yday + (365 + __isleap
                                           (year)),
                            tp->tm_wday);
    }
  else
    {
      int d = week_days (tp->tm_yday - (365 + __isleap
                                            (year)),
                             tp->tm_wday);
      if (0 <= d)
        {
          /* This ISO week belongs to the next year.  */
          year++;
          days = d;
        }
    }
  return ( (int)days / 7 + 1);
}

Here is the call graph for this function:

Here is the caller graph for this function:

---