OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [exec/] [score/] [src/] [coretodtoseconds.c] - Blame information for rev 738

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 30 unneback
/*
2
 *  Time of Day (TOD) Handler
3
 *
4
 *
5
 *  COPYRIGHT (c) 1989-1999.
6
 *  On-Line Applications Research Corporation (OAR).
7
 *
8
 *  The license and distribution terms for this file may be
9
 *  found in the file LICENSE in this distribution or at
10
 *  http://www.OARcorp.com/rtems/license.html.
11
 *
12
 *  $Id: coretodtoseconds.c,v 1.2 2001-09-27 11:59:34 chris Exp $
13
 */
14
 
15
#include <rtems/system.h>
16
#include <rtems/score/object.h>
17
#include <rtems/score/thread.h>
18
#include <rtems/score/tod.h>
19
#include <rtems/score/watchdog.h>
20
 
21
/*PAGE
22
 *
23
 *  _TOD_To_seconds
24
 *
25
 *  This routine returns the seconds from the epoch until the
26
 *  current date and time.
27
 *
28
 *  Input parameters:
29
 *    the_tod - pointer to the time and date structure
30
 *
31
 *  Output parameters:
32
 *    returns    - seconds since epoch until the_tod
33
 */
34
 
35
unsigned32 _TOD_To_seconds(
36
  TOD_Control *the_tod
37
)
38
{
39
  unsigned32 time;
40
  unsigned32 year_mod_4;
41
 
42
  time = the_tod->day - 1;
43
  year_mod_4 = the_tod->year & 3;
44
 
45
  if ( year_mod_4 == 0 )
46
    time += _TOD_Days_to_date[ 1 ][ the_tod->month ];
47
  else
48
    time += _TOD_Days_to_date[ 0 ][ the_tod->month ];
49
 
50
  time += ( (the_tod->year - TOD_BASE_YEAR) / 4 ) *
51
            ( (TOD_DAYS_PER_YEAR * 4) + 1);
52
 
53
  time += _TOD_Days_since_last_leap_year[ year_mod_4 ];
54
 
55
  time *= TOD_SECONDS_PER_DAY;
56
 
57
  time += ((the_tod->hour * TOD_MINUTES_PER_HOUR) + the_tod->minute)
58
             * TOD_SECONDS_PER_MINUTE;
59
 
60
  time += the_tod->second;
61
 
62
  return( time );
63
}
64
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.