1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
#include <ctype.h>
#include <string.h>
#include <stdlib.h>
#include <stdio.h>
#include "call.h"
/* MS-DOS time/date conversion routines derived from: */
/*
* linux/fs/msdos/misc.c
*
* Written 1992,1993 by Werner Almesberger
*/
/* Linear day numbers of the respective 1sts in non-leap years. */
static int day_n[] =
{ 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 0, 0, 0, 0 };
/* Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec */
/* Convert a MS-DOS time/date pair to a UNIX date (seconds since 1 1 70). */
static int date_dos2unix(unsigned short time, unsigned short date)
{
int month, year, secs;
month = ((date >> 5) & 15) - 1;
year = date >> 9;
secs =
(time & 31) * 2 + 60 * ((time >> 5) & 63) +
(time >> 11) * 3600 + 86400 * ((date & 31) - 1 + day_n[month] +
(year / 4) + year * 365 -
((year & 3) == 0
&& month < 2 ? 1 : 0) + 3653);
/* days since 1.1.70 plus 80's leap day */
return secs;
}
/* Convert linear UNIX date to a MS-DOS time/date pair. */
void date_unix2dos(time_t unix_date, unsigned short *time,
unsigned short *date)
{
int day, year, nl_day, month;
*time = (unix_date % 60) / 2 + (((unix_date / 60) % 60) << 5) +
(((unix_date / 3600) % 24) << 11);
day = unix_date / 86400 - 3652;
year = day / 365;
if ((year + 3) / 4 + 365 * year > day)
year--;
day -= (year + 3) / 4 + 365 * year;
if (day == 59 && !(year & 3)) {
nl_day = day;
month = 2;
} else {
nl_day = (year & 3) || day <= 59 ? day : day - 1;
for (month = 0; month < 12; month++)
if (day_n[month] > nl_day)
break;
}
*date = nl_day - day_n[month - 1] + 1 + (month << 5) + (year << 9);
}
/* Convert yapp format 8 hex characters into Unix time */
int yapp2unix(char *ytime)
{
int i;
unsigned short time, date;
if (strlen(ytime) != 8)
return 0;
for (i = 0; i < 8; i++)
if (!isxdigit(ytime[i]))
return 0;
time = strtoul(ytime + 4, (char **) NULL, 16);
ytime[4] = 0;
date = strtoul(ytime, (char **) NULL, 16);
return date_dos2unix(time, date);
}
/* Convert unix time to 8 character yapp hex format */
void unix2yapp(time_t unix_date, char *buffer)
{
unsigned short time, date;
date_unix2dos(unix_date, &time, &date);
sprintf(buffer, "%04X%04X", date, time);
}
|
