/*
	WAD_DWD.C - version 1.0 (06/03/94)
	(c) 1994 Ron Rossbach (ej070@cleveland.freenet.edu)

	This program converts an ordinary WAD file into a slightly extended version
	of a DWD file.  The DWD file can then be used as input to IDBSP

	Use and distribution of this code permitted according to the terms of the GNU
	General Public License.
*/

#include "wad_dwd.h"

/*
===============
=
= main
=
===============
*/
int main(int argc, char *argv[])
{
	char dwd_name[81];
	char wad_name[81];
	char tmp[9];
	FILE *dwd,*wad;
	int i;
	long numthings, numvertexes, numlines, numsides, numsectors;
	int episode, level;
	mapvertex_t *vertexes = NULL;
	mapsidedef_t *sidedefs = NULL;
	maplinedef_t *linedefs = NULL;
	mapsector_t *sectors = NULL;
	mapthing_t *things = NULL;
	lumpinfo_t *lumps = NULL;
	wadinfo_t wadheader;

	printf("** WAD_DWD - a WAD->DWD converter for DOOM - version 1.0 **"
	"\n(c) 1994 Ron Rossbach (ej070@cleveland.freenet.edu)"
	"\n\nDOOM is a registered trademark of id Software, Inc."
	"\n\nSee the accompanying README for terms of use, distribution, etc.");

	if (argc < 2 || argc > 3)
		{
		printf("\n\nUsage: \"wad_dwd wadfile [dwdfile]\""
					 "\nTMP.DWD is the default if dwdfile is not specified.");
		Error("\nExiting....");
		}

	strcpy(wad_name,argv[1]);

	if (argc == 3)
		strcpy(dwd_name, argv[2]);
	else
		strcpy(dwd_name,"tmp.dwd");

	if ((wad = fopen(wad_name,"rb"))==NULL)
		Error("Cannot open WAD file");

	if ((dwd = fopen(dwd_name,"w"))==NULL)
		{
		fclose(wad);
		Error("Cannot open DWD file");
		}

	/*
		Read the WAD header
	*/
	fread(&wadheader,sizeof(wadinfo_t),1,wad);
	fseek(wad, wadheader.infotableofs, SEEK_SET);

	printf("\n\nWAD file: %s\nDWD file: %s\n",wad_name,dwd_name);

	/*
		Read the WAD directory
	*/
	lumps = ReadWAD(wad, wadheader.numlumps, sizeof(lumpinfo_t));

	/*
		Process directory entries
	*/
	WriteHeader(dwd);
	for (i=0; i<wadheader.numlumps; i++)
		{
		strncpy(tmp, lumps[i].name, 8);
		tmp[8] = '\0';

					/* Handle map levels */
		if (sscanf(tmp,"E%dM%d",&episode,&level) == 2)
			{
			printf("\nWriting Level: %s",tmp);
			things = (mapthing_t *)ReadStorage(wad, &lumps[++i], &numthings, sizeof(mapthing_t));
			linedefs = (maplinedef_t *)ReadStorage(wad, &lumps[++i], &numlines, sizeof(maplinedef_t));
			sidedefs = (mapsidedef_t *)ReadStorage(wad, &lumps[++i], &numsides, sizeof(mapsidedef_t));
			vertexes = (mapvertex_t *)ReadStorage(wad, &lumps[++i], &numvertexes, sizeof(mapvertex_t));
			i += 4;
			sectors = (mapsector_t *)ReadStorage(wad, &lumps[i], &numsectors, sizeof(mapsector_t));
			i += 2;
			fprintf(dwd,"\nlevel:E%dM%d\n",episode,level);
			WriteLines(dwd, numlines, linedefs, vertexes, sidedefs, sectors);
			WriteThings(dwd, numthings, things);
			free(vertexes);
			free(sidedefs);
			free(linedefs);
			free(sectors);
			}
					/* Other Resources */
		else
			{
			printf("\nWriting Resource: %s",tmp);
			fprintf(dwd, "\n%s :%d\n", tmp, lumps[i].size);
			ExtractResource(wad, &lumps[i]);
			}
		}

	free(lumps);
	fclose(wad);
	fclose(dwd);

	return 0;
}

/*
===============
=
= progress
=
= provides some visual feedback for the user....
=
===============
*/
void progress(void)
{
	char *s="/-\\|/-\\|";
	static unsigned char pcnt=0;

	if((pcnt&15) == 0)
		{
		printf("%c\b",s[((pcnt)/16)&7]);
		fflush(stdout);
		}
	pcnt++;
}

/*
====================
=
= Error
=
= Displays an error message and exits program
=
====================
*/
void Error (char *error, ...)
{
	va_list argptr;
	va_start (argptr,error);
	vprintf (error,argptr);
	va_end (argptr);
	printf ("\n");
	exit (1);
}


void *SafeCalloc(unsigned num, size_t size)
{
	void *ret = (void *)calloc(num,size);
	if (!ret)
		Error("\nSafeCalloc: Failed to allocate %u of %u bytes",num,size);

	return ret;
}