/*	tab.c - process crontabs and create in-core crontab data
 *							Author: Kees J. Bot
 *								7 Dec 1996
 * Changes:
 * 17 Jul 2000 by Philip Homburg
 *	- Tab_reschedule() rewritten (and fixed).
 */
#define nil ((void*)0)
#include <sys/types.h>
#include <assert.h>
#include <stdio.h>
#include <unistd.h>
#include <fcntl.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <limits.h>
#include <time.h>
#include <dirent.h>
#include <sys/stat.h>
#include "misc.h"
#include "tab.h"

static int nextbit(bitmap_t map, int bit)
/* Return the next bit set in 'map' from 'bit' onwards, cyclic. */
{
	for (;;) {
		bit= (bit+1) & 63;
		if (bit_isset(map, bit)) break;
	}
	return bit;
}

void tab_reschedule(cronjob_t *job)
/* Reschedule one job.  Compute the next time to run the job in job->rtime.
 */
{
	struct tm prevtm, nexttm, tmptm;
	time_t nodst_rtime, dst_rtime;

	/* AT jobs are only run once. */
	if (job->atjob) { job->rtime= NEVER; return; }

	/* Was the job scheduled late last time? */
	if (job->late) job->rtime= now;

	prevtm= *localtime(&job->rtime);
	prevtm.tm_sec= 0;

	nexttm= prevtm;
	nexttm.tm_min++;	/* Minimal increment */

	for (;;)
	{
		if (nexttm.tm_min > 59)
		{
			nexttm.tm_min= 0;
			nexttm.tm_hour++;
		}
		if (nexttm.tm_hour > 23)
		{
			nexttm.tm_min= 0;
			nexttm.tm_hour= 0;
			nexttm.tm_mday++;
		}
		if (nexttm.tm_mday > 31)
		{
			nexttm.tm_hour= nexttm.tm_min= 0;
			nexttm.tm_mday= 1;
			nexttm.tm_mon++;
		}
		if (nexttm.tm_mon >= 12)
		{
			nexttm.tm_hour= nexttm.tm_min= 0;
			nexttm.tm_mday= 1;
			nexttm.tm_mon= 0;
			nexttm.tm_year++;
		}

		/* Verify tm_year. A crontab entry cannot restrict tm_year
		 * directly. However, certain dates (such as Feb, 29th) do
		 * not occur every year. We limit the difference between
		 * nexttm.tm_year and prevtm.tm_year to detect impossible dates
		 * (e.g, Feb, 31st). In theory every date occurs within a
		 * period of 4 years. However, some years at the end of a 
		 * century are not leap years (e.g, the year 2100). An extra
		 * factor of 2 should be enough.
		 */
		if (nexttm.tm_year-prevtm.tm_year > 2*4)
		{
			job->rtime= NEVER;
			return;			/* Impossible combination */
		}

		if (!job->do_wday)
		{
			/* Verify the mon and mday fields. If do_wday and
			 * do_mday are both true we have to merge both
			 * schedules. This is done after the call to mktime.
			 */
			if (!bit_isset(job->mon, nexttm.tm_mon))
			{
				/* Clear other fields */
				nexttm.tm_mday= 1;
				nexttm.tm_hour= nexttm.tm_min= 0;

				nexttm.tm_mon++;
				continue;
			}

			/* Verify mday */
			if (!bit_isset(job->mday, nexttm.tm_mday))
			{
				/* Clear other fields */
				nexttm.tm_hour= nexttm.tm_min= 0;

				nexttm.tm_mday++;
				continue;
			}
		}

		/* Verify hour */
		if (!bit_isset(job->hour, nexttm.tm_hour))
		{
			/* Clear tm_min field */
			nexttm.tm_min= 0;

			nexttm.tm_hour++;
			continue;
		}

		/* Verify min */
		if (!bit_isset(job->min, nexttm.tm_min))
		{
			nexttm.tm_min++;
			continue;
		}

		/* Verify that we don't have any problem with DST. Try
		 * tm_isdst=0 first. */
		tmptm= nexttm;
		tmptm.tm_isdst= 0;
#if 0
		fprintf(stderr, 
	"tab_reschedule: trying %04d-%02d-%02d %02d:%02d:%02d isdst=0\n",
				1900+nexttm.tm_year, nexttm.tm_mon+1,
				nexttm.tm_mday, nexttm.tm_hour,
				nexttm.tm_min, nexttm.tm_sec);
#endif
		nodst_rtime= job->rtime= mktime(&tmptm);
		if (job->rtime == -1) {
			/* This should not happen. */
			log(LOG_ERR,
			"mktime failed for %04d-%02d-%02d %02d:%02d:%02d",
				1900+nexttm.tm_year, nexttm.tm_mon+1,
				nexttm.tm_mday, nexttm.tm_hour,
				nexttm.tm_min, nexttm.tm_sec);
			job->rtime= NEVER;
			return;	
		}
		tmptm= *localtime(&job->rtime);
		if (tmptm.tm_hour != nexttm.tm_hour ||
			tmptm.tm_min != nexttm.tm_min)
		{
			assert(tmptm.tm_isdst);
			tmptm= nexttm;
			tmptm.tm_isdst= 1;
#if 0
			fprintf(stderr, 
	"tab_reschedule: trying %04d-%02d-%02d %02d:%02d:%02d isdst=1\n",
				1900+nexttm.tm_year, nexttm.tm_mon+1,
				nexttm.tm_mday, nexttm.tm_hour,
				nexttm.tm_min, nexttm.tm_sec);
#endif
			dst_rtime= job->rtime= mktime(&tmptm);
			if (job->rtime == -1) {
				/* This should not happen. */
				log(LOG_ERR,
			"mktime failed for %04d-%02d-%02d %02d:%02d:%02d\n",
					1900+nexttm.tm_year, nexttm.tm_mon+1,
					nexttm.tm_mday, nexttm.tm_hour,
					nexttm.tm_min, nexttm.tm_sec);
				job->rtime= NEVER;
				return;	
			}
			tmptm= *localtime(&job->rtime);
			if (tmptm.tm_hour != nexttm.tm_hour ||
				tmptm.tm_min != nexttm.tm_min)
			{
				assert(!tmptm.tm_isdst);
				/* We have a problem. This time neither
				 * exists with DST nor without DST.
				 * Use the latest time, which should be
				 * nodst_rtime.
				 */
				assert(nodst_rtime > dst_rtime);
				job->rtime= nodst_rtime;
#if 0
				fprintf(stderr,
			"During DST trans. %04d-%02d-%02d %02d:%02d:%02d\n",
					1900+nexttm.tm_year, nexttm.tm_mon+1,
					nexttm.tm_mday, nexttm.tm_hour,
					nexttm.tm_min, nexttm.tm_sec);
#endif
			}
		}

		/* Verify this the combination (tm_year, tm_mon, tm_mday). */
		if (tmptm.tm_mday != nexttm.tm_mday ||
			tmptm.tm_mon != nexttm.tm_mon ||
			tmptm.tm_year != nexttm.tm_year)
		{
			/* Wrong day */
#if 0
			fprintf(stderr, "Wrong day\n");
#endif
			nexttm.tm_hour= nexttm.tm_min= 0;
			nexttm.tm_mday++;
			continue;
		}

		/* Check tm_wday */
		if (job->do_wday && bit_isset(job->wday, tmptm.tm_wday))
		{
			/* OK, wday matched */
			break;
		}

		/* Check tm_mday */
		if (job->do_mday && bit_isset(job->mon, tmptm.tm_mon) &&
			bit_isset(job->mday, tmptm.tm_mday))
		{
			/* OK, mon and mday matched */
			break;
		}

		if (!job->do_wday && !job->do_mday)
		{
			/* No need to match wday and mday */
			break;
		}

		/* Wrong day */
#if 0
		fprintf(stderr, "Wrong mon+mday or wday\n");
#endif
		nexttm.tm_hour= nexttm.tm_min= 0;
		nexttm.tm_mday++;
	}
#if 0
	fprintf(stderr, "Using %04d-%02d-%02d %02d:%02d:%02d \n",
		1900+nexttm.tm_year, nexttm.tm_mon+1, nexttm.tm_mday,
		nexttm.tm_hour, nexttm.tm_min, nexttm.tm_sec);
	tmptm= *localtime(&job->rtime);
	fprintf(stderr, "Act. %04d-%02d-%02d %02d:%02d:%02d isdst=%d\n",
		1900+tmptm.tm_year, tmptm.tm_mon+1, tmptm.tm_mday,
		tmptm.tm_hour, tmptm.tm_min, tmptm.tm_sec,
		tmptm.tm_isdst);
#endif


	/* Is job issuing lagging behind with the progress of time? */
	job->late= (job->rtime < now);

  	/* The result is in job->rtime. */
  	if (job->rtime < next) next= job->rtime;
}

#define isdigit(c)	((unsigned) ((c) - '0') < 10)

static char *get_token(char **ptr)
/* Return a pointer to the next token in a string.  Move *ptr to the end of
 * the token, and return a pointer to the start.  If *ptr == start of token
 * then we're stuck against a newline or end of string.
 */
{
	char *start, *p;

	p= *ptr;
	while (*p == ' ' || *p == '\t') p++;

	start= p;
	while (*p != ' ' && *p != '\t' && *p != '\n' && *p != 0) p++;
	*ptr= p;
	return start;
}

static int range_parse(char *file, char *data, bitmap_t map,
	int min, int max, int *wildcard)
/* Parse a comma separated series of 'n', 'n-m' or 'n:m' numbers.  'n'
 * includes number 'n' in the bit map, 'n-m' includes all numbers between
 * 'n' and 'm' inclusive, and 'n:m' includes 'n+k*m' for any k if in range.
 * Numbers must fall between 'min' and 'max'.  A '*' means all numbers.  A
 * '?' is allowed as a synonym for the current minute, which only makes sense
 * in the minute field, i.e. max must be 59.  Return true iff parsed ok.
 */
{
	char *p;
	int end;
	int n, m;

	/* Clear all bits. */
	for (n= 0; n < 8; n++) map[n]= 0;

	p= data;
	while (*p != ' ' && *p != '\t' && *p != '\n' && *p != 0) p++;
	end= *p;
	*p= 0;
	p= data;

	if (*p == 0) {
		log(LOG_ERR, "%s: not enough time fields\n", file);
		return 0;
	}

	/* Is it a '*'? */
	if (p[0] == '*' && p[1] == 0) {
		for (n= min; n <= max; n++) bit_set(map, n);
		p[1]= end;
		*wildcard= 1;
		return 1;
	}
	*wildcard= 0;

	/* Parse a comma separated series of numbers or ranges. */
	for (;;) {
		if (*p == '?' && max == 59 && p[1] != '-') {
			n= localtime(&now)->tm_min;
			p++;
		} else {
			if (!isdigit(*p)) goto syntax;
			n= 0;
			do {
				n= 10 * n + (*p++ - '0');
				if (n > max) goto range;
			} while (isdigit(*p));
		}
		if (n < min) goto range;

		if (*p == '-') {	/* A range of the form 'n-m'? */
			p++;
			if (!isdigit(*p)) goto syntax;
			m= 0;
			do {
				m= 10 * m + (*p++ - '0');
				if (m > max) goto range;
			} while (isdigit(*p));
			if (m < n) goto range;
			do {
				bit_set(map, n);
			} while (++n <= m);
		} else
		if (*p == ':') {	/* A repeat of the form 'n:m'? */
			p++;
			if (!isdigit(*p)) goto syntax;
			m= 0;
			do {
				m= 10 * m + (*p++ - '0');
				if (m > (max-min+1)) goto range;
			} while (isdigit(*p));
			if (m == 0) goto range;
			while (n >= min) n-= m;
			while ((n+= m) <= max) bit_set(map, n);
		} else {
					/* Simply a number */
			bit_set(map, n);
		}
		if (*p == 0) break;
		if (*p++ != ',') goto syntax;
	}
	*p= end;
	return 1;
  syntax:
	log(LOG_ERR, "%s: field '%s': bad syntax for a %d-%d time field\n",
		file, data, min, max);
	return 0;
  range:
	log(LOG_ERR, "%s: field '%s': values out of the %d-%d allowed range\n",
		file, data, min, max);
	return 0;
}

void tab_parse(char *file, char *user)
/* Parse a crontab file and add its data to the tables.  Handle errors by
 * yourself.  Table is owned by 'user' if non-null.
 */
{
	crontab_t **atab, *tab;
	cronjob_t **ajob, *job;
	int fd;
	struct stat st;
	char *p, *q;
	size_t n;
	ssize_t r;
	int ok, wc;

	for (atab= &crontabs; (tab= *atab) != nil; atab= &tab->next) {
		if (strcmp(file, tab->file) == 0) break;
	}

	/* Try to open the file. */
	if ((fd= open(file, O_RDONLY)) < 0 || fstat(fd, &st) < 0) {
		if (errno != ENOENT) {
			log(LOG_ERR, "%s: %s\n", file, strerror(errno));
		}
		if (fd != -1) close(fd);
		return;
	}

	/* Forget it if the file is awfully big. */
	if (st.st_size > TAB_MAX) {
		log(LOG_ERR, "%s: %lu bytes is bigger than my %lu limit\n",
			file,
			(unsigned long) st.st_size,
			(unsigned long) TAB_MAX);
		return;
	}

	/* If the file is the same as before then don't bother. */
	if (tab != nil && st.st_mtime == tab->mtime) {
		close(fd);
		tab->current= 1;
		return;
	}

	/* Create a new table structure. */
	tab= allocate(sizeof(*tab));
	tab->file= allocate((strlen(file) + 1) * sizeof(tab->file[0]));
	strcpy(tab->file, file);
	tab->user= nil;
	if (user != nil) {
		tab->user= allocate((strlen(user) + 1) * sizeof(tab->user[0]));
		strcpy(tab->user, user);
	}
	tab->data= allocate((st.st_size + 1) * sizeof(tab->data[0]));
	tab->jobs= nil;
	tab->mtime= st.st_mtime;
	tab->current= 0;
	tab->next= *atab;
	*atab= tab;

	/* Pull a new table in core. */
	n= 0;
	while (n < st.st_size) {
		if ((r = read(fd, tab->data + n, st.st_size - n)) < 0) {
			log(LOG_CRIT, "%s: %s", file, strerror(errno));
			close(fd);
			return;
		}
		if (r == 0) break;
		n+= r;
	}
	close(fd);
	tab->data[n]= 0;
	if (strlen(tab->data) < n) {
		log(LOG_ERR, "%s contains a null character\n", file);
		return;
	}

	/* Parse the file. */
	ajob= &tab->jobs;
	p= tab->data;
	ok= 1;
	while (ok && *p != 0) {
		q= get_token(&p);
		if (*q == '#' || q == p) {
			/* Comment or empty. */
			while (*p != 0 && *p++ != '\n') {}
			continue;
		}

		/* One new job coming up. */
		*ajob= job= allocate(sizeof(*job));
		*(ajob= &job->next)= nil;
		job->tab= tab;

		if (!range_parse(file, q, job->min, 0, 59, &wc)) {
			ok= 0;
			break;
		}

		q= get_token(&p);
		if (!range_parse(file, q, job->hour, 0, 23, &wc)) {
			ok= 0;
			break;
		}

		q= get_token(&p);
		if (!range_parse(file, q, job->mday, 1, 31, &wc)) {
			ok= 0;
			break;
		}
		job->do_mday= !wc;

		q= get_token(&p);
		if (!range_parse(file, q, job->mon, 1, 12, &wc)) {
			ok= 0;
			break;
		}
		job->do_mday |= !wc;

		q= get_token(&p);
		if (!range_parse(file, q, job->wday, 0, 7, &wc)) {
			ok= 0;
			break;
		}
		job->do_wday= !wc;

		/* 7 is Sunday, but 0 is a common mistake because it is in the
		 * tm_wday range.  We allow and even prefer it internally.
		 */
		if (bit_isset(job->wday, 7)) {
			bit_clr(job->wday, 7);
			bit_set(job->wday, 0);
		}

		/* The month range is 1-12, but tm_mon likes 0-11. */
		job->mon[0] >>= 1;
		if (bit_isset(job->mon, 8)) bit_set(job->mon, 7);
		job->mon[1] >>= 1;

		/* Scan for options. */
		job->user= nil;
		while (q= get_token(&p), *q == '-') {
			q++;
			if (q[0] == '-' && q+1 == p) {
				/* -- */
				q= get_token(&p);
				break;
			}
			while (q < p) switch (*q++) {
			case 'u':
				if (q == p) q= get_token(&p);
				if (q == p) goto usage;
				memmove(q-1, q, p-q);	/* gross... */
				p[-1]= 0;
				job->user= q-1;
				q= p;
				break;
			default:
			usage:
				log(LOG_ERR,
			"%s: bad option -%c, good options are: -u username\n",
					file, q[-1]);
				ok= 0;
				goto endtab;
			}
		}

		/* A crontab owned by a user can only do things as that user. */
		if (tab->user != nil) job->user= tab->user;

		/* Inspect the first character of the command. */
		job->cmd= q;
		if (q == p || *q == '#') {
			/* Rest of the line is empty, i.e. the commands are on
			 * the following lines indented by one tab.
			 */
			while (*p != 0 && *p++ != '\n') {}
			if (*p++ != '\t') {
				log(LOG_ERR, "%s: contains an empty command\n",
					file);
				ok= 0;
				goto endtab;
			}
			while (*p != 0) {
				if ((*q = *p++) == '\n') {
					if (*p != '\t') break;
					p++;
				}
				q++;
			}
		} else {
			/* The command is on this line.  Alas we must now be
			 * backwards compatible and change %'s to newlines.
			 */
			p= q;
			while (*p != 0) {
				if ((*q = *p++) == '\n') break;
				if (*q == '%') *q= '\n';
				q++;
			}
		}
		*q= 0;
		job->rtime= now;
		job->late= 0;		/* It is on time. */
		job->atjob= 0;		/* True cron job. */
		job->pid= IDLE_PID;	/* Not running yet. */
		tab_reschedule(job);	/* Compute next time to run. */
	}
  endtab:

	if (ok) tab->current= 1;
}

void tab_find_atjob(char *atdir)
/* Find the first to be executed AT job and kludge up an crontab job for it.
 * We set tab->file to "atdir/jobname", tab->data to "atdir/past/jobname",
 * and job->cmd to "jobname".
 */
{
	DIR *spool;
	struct dirent *entry;
	time_t t0, t1;
	struct tm tmnow, tmt1;
	static char template[] = "96.365.1546.00";
	char firstjob[sizeof(template)];
	int i;
	crontab_t *tab;
	cronjob_t *job;

	if ((spool= opendir(atdir)) == nil) return;

	tmnow= *localtime(&now);
	t0= NEVER;

	while ((entry= readdir(spool)) != nil) {
		/* Check if the name fits the template. */
		for (i= 0; template[i] != 0; i++) {
			if (template[i] == '.') {
				if (entry->d_name[i] != '.') break;
			} else {
				if (!isdigit(entry->d_name[i])) break;
			}
		}
		if (template[i] != 0 || entry->d_name[i] != 0) continue;

		/* Convert the name to a time.  Careful with the century. */
		memset(&tmt1, 0, sizeof(tmt1));
		tmt1.tm_year= atoi(entry->d_name+0);
		while (tmt1.tm_year < tmnow.tm_year-10) tmt1.tm_year+= 100;
		tmt1.tm_mday= 1+atoi(entry->d_name+3);
		tmt1.tm_min= atoi(entry->d_name+7);
		tmt1.tm_hour= tmt1.tm_min / 100;
		tmt1.tm_min%= 100;
		tmt1.tm_isdst= -1;
		if ((t1= mktime(&tmt1)) == -1) {
			/* Illegal time?  Try in winter time. */
			tmt1.tm_isdst= 0;
			if ((t1= mktime(&tmt1)) == -1) continue;
		}
		if (t1 < t0) {
			t0= t1;
			strcpy(firstjob, entry->d_name);
		}
	}
	closedir(spool);

	if (t0 == NEVER) return;	/* AT job spool is empty. */

	/* Create new table and job structures. */
	tab= allocate(sizeof(*tab));
	tab->file= allocate((strlen(atdir) + 1 + sizeof(template))
						* sizeof(tab->file[0]));
	strcpy(tab->file, atdir);
	strcat(tab->file, "/");
	strcat(tab->file, firstjob);
	tab->data= allocate((strlen(atdir) + 6 + sizeof(template))
						* sizeof(tab->data[0]));
	strcpy(tab->data, atdir);
	strcat(tab->data, "/past/");
	strcat(tab->data, firstjob);
	tab->user= nil;
	tab->mtime= 0;
	tab->current= 1;
	tab->next= crontabs;
	crontabs= tab;

	tab->jobs= job= allocate(sizeof(*job));
	job->next= nil;
	job->tab= tab;
	job->user= nil;
	job->cmd= tab->data + strlen(atdir) + 6;
	job->rtime= t0;
	job->late= 0;
	job->atjob= 1;		/* One AT job disguised as a cron job. */
	job->pid= IDLE_PID;

	if (job->rtime < next) next= job->rtime;
}

void tab_purge(void)
/* Remove table data that is no longer current.  E.g. a crontab got removed.
 */
{
	crontab_t **atab, *tab;
	cronjob_t *job;

	atab= &crontabs;
	while ((tab= *atab) != nil) {
		if (tab->current) {
			/* Table is fine. */
			tab->current= 0;
			atab= &tab->next;
		} else {
			/* Table is not, or no longer valid; delete. */
			*atab= tab->next;
			while ((job= tab->jobs) != nil) {
				tab->jobs= job->next;
				deallocate(job);
			}
			deallocate(tab->data);
			deallocate(tab->file);
			deallocate(tab->user);
			deallocate(tab);
		}
	}
}

static cronjob_t *reap_or_find(pid_t pid)
/* Find a finished job or search for the next one to run. */
{
	crontab_t *tab;
	cronjob_t *job;
	cronjob_t *nextjob;

	nextjob= nil;
	next= NEVER;
	for (tab= crontabs; tab != nil; tab= tab->next) {
		for (job= tab->jobs; job != nil; job= job->next) {
			if (job->pid == pid) {
				job->pid= IDLE_PID;
				tab_reschedule(job);
			}
			if (job->pid != IDLE_PID) continue;
			if (job->rtime < next) next= job->rtime;
			if (job->rtime <= now) nextjob= job;
		}
	}
	return nextjob;
}

void tab_reap_job(pid_t pid)
/* A job has finished.  Try to find it among the crontab data and reschedule
 * it.  Recompute time next to run a job.
 */
{
	(void) reap_or_find(pid);
}

cronjob_t *tab_nextjob(void)
/* Find a job that should be run now.  If none are found return null.
 * Update 'next'.
 */
{
	return reap_or_find(NO_PID);
}

static void pr_map(FILE *fp, bitmap_t map)
{
	int last_bit= -1, bit;
	char *sep;

	sep= "";
	for (bit= 0; bit < 64; bit++) {
		if (bit_isset(map, bit)) {
			if (last_bit == -1) last_bit= bit;
		} else {
			if (last_bit != -1) {
				fprintf(fp, "%s%d", sep, last_bit);
				if (last_bit != bit-1) {
					fprintf(fp, "-%d", bit-1);
				}
				last_bit= -1;
				sep= ",";
			}
		}
	}
}

void tab_print(FILE *fp)
/* Print out a stored crontab file for debugging purposes. */
{
	crontab_t *tab;
	cronjob_t *job;
	char *p;
	struct tm tm;

	for (tab= crontabs; tab != nil; tab= tab->next) {
		fprintf(fp, "tab->file = \"%s\"\n", tab->file);
		fprintf(fp, "tab->user = \"%s\"\n",
				tab->user == nil ? "(root)" : tab->user);
		fprintf(fp, "tab->mtime = %s", ctime(&tab->mtime));

		for (job= tab->jobs; job != nil; job= job->next) {
			if (job->atjob) {
				fprintf(fp, "AT job");
			} else {
				pr_map(fp, job->min); fputc(' ', fp);
				pr_map(fp, job->hour); fputc(' ', fp);
				pr_map(fp, job->mday); fputc(' ', fp);
				pr_map(fp, job->mon); fputc(' ', fp);
				pr_map(fp, job->wday);
			}
			if (job->user != nil && job->user != tab->user) {
				fprintf(fp, " -u %s", job->user);
			}
			fprintf(fp, "\n\t");
			for (p= job->cmd; *p != 0; p++) {
				fputc(*p, fp);
				if (*p == '\n') fputc('\t', fp);
			}
			fputc('\n', fp);
			tm= *localtime(&job->rtime);
			fprintf(fp, "    rtime = %.24s%s\n", asctime(&tm),
				tm.tm_isdst ? " (DST)" : "");
			if (job->pid != IDLE_PID) {
				fprintf(fp, "    pid = %ld\n", (long) job->pid);
			}
		}
	}
}

/*
 * $PchId: tab.c,v 1.5 2000/07/25 22:07:51 philip Exp $
 */