dam.c

#include <ctype.h>
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <locale.h>
#include "ncsa.h"
#include "query.h"

#define MYDEBUG 0

enum ERROR_TYPE {NO_ERROR, INVALID_DATE};
enum ERROR_TYPE error_type = NO_ERROR;

char *dow[7] = { "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday",
				"Friday", "Saturday" };

void	errorMessage(enum ERROR_TYPE);
int	isLeapYear(int);
int	daysBetween(struct tm *, struct tm *);
int	dayOfWeek(struct tm *);
int	dayOfYear(struct tm *);

char buffer[80];

int	main(int argc, char **argv) {

	struct tm *date1;
	struct tm *date2;
	
	char  query_string[2048];
	char  date1_str[255];
	char	 date2_str[255];
	char  miles1_str[255];
	char  miles2_str[255];
	char  year_str[255];
	char  bizmiles_str[255];
	char  rate_str[255];
	
	int	date1_exists = 0;
	int	date2_exists = 0;
	int	miles1_exists = 0;
	int	miles2_exists = 0;
	int	year_exists = 0;
	int	bizmiles_exists = 0;
	int	rate_exists = 0;

	int	miles1 = 0;
	int	miles2 = 0;
	int	year = 0;
	int	bizmiles = 0;
	double rate = 0.0;

	int	nod = 0;
	int	nom;
	int	mpy;
	double	mpd;

	setlocale(LC_NUMERIC, "");
	date1 = malloc(sizeof(struct tm));
	date2 = malloc(sizeof(struct tm));

	date1->tm_sec = 0;
	date1->tm_min = 0;
	date1->tm_hour = 0;
	date1->tm_mday = 0;
	date1->tm_mon = 0;
	date1->tm_year = 0;
	date1->tm_wday = 0;
	date1->tm_yday = 0;
	date1->tm_isdst = 0;
	date1->tm_zone = "UTC";
	date1->tm_gmtoff = 0l;

	date2->tm_sec = 0;
	date2->tm_min = 0;
	date2->tm_hour = 0;
	date2->tm_mday = 0;
	date2->tm_mon = 0;
	date2->tm_year = 0;
	date2->tm_wday = 0;
	date2->tm_yday = 0;
	date2->tm_isdst = 0;
	date2->tm_zone = "UTC";
	date2->tm_gmtoff = 0l;


	setvbuf( stdout, NULL, _IONBF, 0); /* stdout buffering off */
	if (strlen(getenv("QUERY_STRING"))>2047) exit (1);
	strcpy(query_string, getenv("QUERY_STRING"));
	unescape_url(query_string);
	get_var(date1_str, "date1", query_string);
	get_var(date2_str, "date2", query_string);
	get_var(miles1_str, "miles1", query_string);
	get_var(miles2_str, "miles2", query_string);
	get_var(year_str, "year", query_string);
	get_var(bizmiles_str, "bizmiles", query_string);
	get_var(rate_str, "rate", query_string);


	date1_exists = strlen(date1_str);
	date2_exists = strlen(date2_str);
	miles1_exists = strlen(miles1_str);
	miles2_exists = strlen(miles2_str);
	year_exists = strlen(year_str);
	bizmiles_exists = strlen(bizmiles_str);
	rate_exists = strlen(rate_str);

	printf(
		"\n<center><h1>Dates and Mileage</h1></center>"
		"\n<hr><div><textarea rows=\"25\" cols=\"80\">"
	);
	if (MYDEBUG) {
		printf("Query_string %s<br>", query_string);
		if (date1_exists) 
			printf("\nDate1: %s<br>", date1_str);
		if (date2_exists) 
			printf("\nDate2: %s<br>", date2_str);
		if (miles1_exists) 
			printf("\nMileage1: %s<br>", miles1_str);
		if (miles2_exists) 
			printf("\nMileage2: %s<br>", miles2_str);
		if (year_exists||1) 
			printf("\nYear: %s<br>", year_str);
		if (bizmiles_exists) 
			printf("\nBusiness mileage: %s<br>", bizmiles_str);
		if (rate_exists) 
			printf("\nDollars/mile: %s<br>", rate_str);
	}
	if (date1_exists) {
		if (strptime(date1_str, "%m/%d/%y", date1)!=NULL) date1_exists=1;
		printf(
		"\n%s was day %d of the year and fell on a %s.\n\n",
		date1_str, dayOfYear(date1), dow[dayOfWeek(date1)] 
		);
	}
	if (!date1_exists) date2_exists=0;
	if (date2_exists) {
		if (strptime(date2_str, "%m/%d/%y", date2)!=NULL) date2_exists=1;
		printf(
		"\n%s was day %d of the year and fell on a %s.\n\n",
		date2_str, dayOfYear(date2), dow[dayOfWeek(date2)]
		);
	}
	if (date2_exists) {
		nod = daysBetween(date1, date2);
	}
	if (year_exists) year = atoi(year_str);
	if (miles1_exists && miles2_exists && date2_exists && 
	year_exists && (nod>0)) {
		miles1 = atoi(miles1_str);
		miles2 = atoi(miles2_str);
		nom = miles2-miles1;
		nom = (nom>1)?nom:nom*-1;
		mpd = (double)nom/nod;
		mpy = (int)(mpd * (365+isLeapYear(year)) + 0.5);
		printf(
		"\nTaxpayer provided documentation showing mileage on the "
		"following dates:\n"
		);
		printf(
		"%s %'d miles;\n", date1_str, miles1
		);
		printf(
		"%s %'d miles.\n\n", date2_str, miles2
		);
		printf(
		"\nTaxpayer went %'d miles in %d days for an average of %.1lf"
		" miles/day.  Extrapolating gives us %'d miles in %s.\n\n", 
		nom, nod, mpd, mpy, year_str
		);
	} else if (date2_exists) {
		printf(
		"\nThere were %d days between %s and %s.\n\n",
		nod, date1_str, date2_str
		);
	} else if (year_exists) {
		printf(
		"\n%s %s a leap year.\n\n",
		year_str, isLeapYear(year)?"was":"was not"
		);
	}
	if (bizmiles_exists && rate_exists) {
		bizmiles = atoi(bizmiles_str);
		rate = atof(rate_str);
		printf(
		"\nTaxpayer went %'d business miles at $%'.3lf/mile for "
		"a maximum expense of about $%'.2lf.\n\n",
		bizmiles, rate, bizmiles * rate);
	}

	if (error_type)
		errorMessage(error_type);

	printf(
	"\n</textarea></div><hr>"
	"\n"
	);
	return 0;
} /* main */

void	errorMessage(enum ERROR_TYPE error_no) {
	switch (error_no) {
		case INVALID_DATE:
			printf("<h2>\n");
			printf("<br>\n");
			printf("You must provide Date 1 in m/d/yy format.<br>\n");
			printf("</h2>\n");
			break;
	};
} /* errorMessage */

int	isLeapYear(int year) {
	if ((year % 400) == 0) return 1;
	if ((year % 100) == 0) return 0;
	if ((year %   4) == 0) return 1;
	return 0;
} /* isLeapYear */

int daysBetween(struct tm *d1, struct tm *d2) {
	time_t jd1;
	time_t jd2;
	int diff;

	jd1 = mktime(d1);
	jd2 = mktime(d2);
	diff = (int)(floor(difftime(jd1, jd2)+0.5)/(24*60*60));
	diff = (diff>0)?diff:diff*-1;
	return diff;
} /* daysBetween */

int dayOfWeek(struct tm *dt) {
	mktime(dt);
	return (int)(dt->tm_wday);
} /* dayOfWeek */

int dayOfYear(struct tm *dt) {
	mktime(dt);
	return (int)(dt->tm_yday)+1;
} /* dayOfYear */
This source has been viewed 41 times.
Friday, 19 April 2024 Michael J. Chappell Contact me at: mcsuper5@freeshell.org