/*
 * $Header: /afs/sipb.mit.edu/project/sipb-athena/repository/src/update/upvers.c,v 1.2 1996/06/01 18:59:03 ghudson Exp $
 * $Source: /afs/sipb.mit.edu/project/sipb-athena/repository/src/update/upvers.c,v $
 * $Author: ghudson $
 */
 
#include	<sys/types.h>
#include 	<string.h>
#include	<dirent.h>
#include	<ctype.h>

struct	verfile {
	int	mjr;	/* Major Version Number */
	int	mnr; 	/* Minor Version Number */
	int	deg;	/* Version Designation Char */
} vf[1024];

#ifndef lint
char	rcsid[] = "$Header: /afs/sipb.mit.edu/project/sipb-athena/repository/src/update/upvers.c,v 1.2 1996/06/01 18:59:03 ghudson Exp $";
#endif

main(argc, argv)
int	argc;
char	*argv[];
{

	DIR	*dp;
	int	n = 0, i;
	int	oldmjr, oldmnr, newmjr, newmnr;
	int	olddeg, newdeg, start, end, vcmp();
	char	file[80];
	extern	int	errno;
	struct	dirent	*dirp;

	if (argc != 4) {
		fprintf("Usage: %s <old-vers> <new-vers> <libdir>\n", argv[0]);
		exit(2);
	}

	if (chdir(argv[3]) == -1) {
		perror(argv[3]);
		exit(1);
	}
 	oldmjr = atoi(strchr(argv[1], '.') - 1);
	oldmnr = atoi(strrchr(argv[1], '.') + 1);
	if (isalpha(argv[1][strlen(argv[1]) - 1]))
		olddeg = argv[1][strlen(argv[1]) - 1];

	newmjr = atoi(strchr(argv[2], '.') - 1);
	newmnr = atoi(strrchr(argv[2], '.') + 1);
	if (isalpha(argv[2][strlen(argv[2]) - 1]))
		newdeg = argv[2][strlen(argv[2]) - 1];

	if ((dp = opendir(".")) == NULL) {
		perror("Cannot open .");
		exit(2);
	}

	while (dirp = readdir(dp)) {
		if(isdigit(dirp->d_name[0])) {
			vf[n].mjr = atoi(strchr(dirp->d_name, '.') - 1);
			vf[n].mnr = atoi(strrchr(dirp->d_name, '.') + 1);
			if (isalpha(dirp->d_name[strlen(dirp->d_name) - 1]))
				vf[n].deg = dirp->d_name[strlen(dirp->d_name) - 1];
			n++;
		}
	}
	qsort(vf, n, sizeof(struct verfile), vcmp);
	start = n+1;			/* Default: assume no files */
	end = n-1;			/* Default = last one */
	for (i = 0; i < n; i++) {
	    if (vf[i].mjr > oldmjr ||
		(vf[i].mjr == oldmjr && vf[i].mnr > oldmnr) ||
		(vf[i].mjr == oldmjr && vf[i].mnr == oldmnr && vf[i].deg > olddeg))
		if (start > n) start = i;
	    if (vf[i].mjr > newmjr ||
		(vf[i].mjr == newmjr && vf[i].mnr > newmnr) ||
		(vf[i].mjr == newmjr && vf[i].mnr == newmnr && vf[i].deg > newdeg))
		if (end == n-1) end = i-1;
	}
	if (n == 0 || end < 0 || start > n) {
	    printf("No files need to be run.\n");
	    exit(0);
	}
	if (start > end) {
	    fprintf(stderr,
		    "Fatal error: starting version > ending version\n");
	    exit(1);
	}

	for(i = start; i <= end; i++) {
		sprintf(file, "%s/%d.%d%c", argv[3], vf[i].mjr, vf[i].mnr, vf[i].deg);
		printf("Running %s\n", file);
		system(file); 
	}
}

vcmp(v1, v2)
struct	verfile	*v1, *v2;
{
	if (v1->mjr == v2->mjr) {
		if (v1->mnr == v2->mnr) {
			if (v1->deg == v2->deg) {
				return 0;
			} else if (v1->deg > v2->deg) {
				return 1;
			} else return -1;
		} else if(v1->mnr > v2->mnr) {
			return 1;
		} else return -1;
	}
	else if(v1->mjr > v2->mjr)
		return 1;
	else return -1;
}