From 0fceb64d25ff3d9586549bb43d971c5eef904330 Mon Sep 17 00:00:00 2001
From: Ralf Baechle <ralf@linux-mips.org>
Date: Mon, 7 Jun 1999 10:23:42 +0200
Subject: Import ax25-apps 0.0.1 from tarball

---
 call/dostime.c | 85 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 85 insertions(+)
 create mode 100644 call/dostime.c

(limited to 'call/dostime.c')

diff --git a/call/dostime.c b/call/dostime.c
new file mode 100644
index 0000000..f162010
--- /dev/null
+++ b/call/dostime.c
@@ -0,0 +1,85 @@
+#include <ctype.h>
+#include <string.h>
+#include <stdlib.h>
+#include <stdio.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 };
+		  /* JanFebMarApr May Jun Jul Aug Sep Oct Nov Dec */
+
+
+/* Convert a MS-DOS time/date pair to a UNIX date (seconds since 1 1 70). */
+
+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(int 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(int unix_date, char * buffer)
+{
+	unsigned short time,date;
+	date_unix2dos(unix_date,&time,&date);
+	sprintf(buffer,"%04X%04X",date,time);
+}
+
-- 
cgit v1.2.3