/* tddd2vort.c - convert TTDDD file to Vort input file
 *             - written by Glenn M. Lewis - 10/11/91
 */

static char rcs_id[] = "$Id: tddd2vort.c,v 1.6 1993/02/14 17:44:16 glewis Exp $";

#include <stdio.h>
#include "t3dlib.h"
#ifdef __STDC__
#include <stdlib.h>
#include <strings.h>
#include "tddd2vort_protos.h"
#endif

main(argc, argv)
int argc;
char *argv[];
{
	char filename[256], rootname[256], *c1, *c2;
	int i;
	WORLD *world;
	FILE *inp, *out;

	rootname[0] = filename[0] = '\0';
/*	strcpy(rootname, "model");	** The default for reading stdin */
	for (i=1; i<argc; i++) {
		if (argv[i][0] == '-') {
			switch(argv[i][1]) {
				case 'h':
				default:
					fprintf(stderr, "Usage: %s [infile] [outfile]\n", argv[0]);
					exit(-1);
			}
		} else if (filename[0]) {
			strcpy(rootname, argv[i]);
		} else {
			strcpy(filename, argv[i]);	/* Make root of filename the default */
			for (c1=rootname,c2=argv[i]; (*c1 = *c2++) && *c1!='.'; c1++) ;
			*c1 = '\0';
			strcat(rootname, ".vort");
		}
	}

	if (!filename[0]) inp = stdin;
	else if (!(inp = fopen(filename, "r"))) {
		fprintf(stderr, "Can't open '%s' for input.\n", filename);
		exit(-1);
	}
	if (!rootname[0]) out = stdout;
	else if (!(out = fopen(rootname, "w"))) {
		fprintf(stderr, "Can't open '%s' for output.\n", rootname);
		exit(-1);
	}

	world = read_World(inp);
	write_Vort(world, out);
	free_World(world);
	exit(0);
}