/*																				*/
/*																				*/
/*				File:		  	svar.c										*/
/*				Returns:	  	void											*/
/*				Parameters:	type int switch type						*/
/*								i int * - input/output value			*/
/*																				*/

#include <stdio.h>
#include <time.h>
#include <stdlib.h>
#include <string.h>

#include "advm.h"

#include "values.h"


void svar (type, i)
int type;
int *i;

	{
	struct tm *newtime;
	long ltime;

	switch (type)
		{
		case 4:
			time(&ltime);
			newtime = localtime(&ltime);
			*i = newtime->tm_hour;
			break;
		case 5:
			time(&ltime);
			newtime = localtime(&ltime);
			*i = newtime->tm_min;
			break;
		case 6:				/* return day of year */
			time(&ltime);
			newtime = localtime(&ltime);
			*i = newtime->tm_yday;
			break;
		case 7:				/* return year (0-99) */
			time(&ltime);
			newtime = localtime(&ltime);
			*i = newtime->tm_year;
			break;
		case 8:
			if (*i != 1)
				{
				*i = 0;
				break;
				}
			if (!stricmp(getenv("WIZARD"), "charlie"))
				*i = 1;
			else
				*i = 0;
			break;
		default:
			printf ("Glitch!  Bad SVAR type: %d on rec %d.%03d after loc %d\n",
					type,rec2,rec1,bp);
			*i = 0;
			break;
		}
	}