/*
   Copyright (C) 1999-2006 Id Software, Inc. and contributors.
   For a list of contributors, see the accompanying CONTRIBUTORS file.

   This file is part of GtkRadiant.

   GtkRadiant is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.

   GtkRadiant is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with GtkRadiant; if not, write to the Free Software
   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 */


/* marker */
#define MAIN_C



/* dependencies */
#include "q2map.h"

#define qtrue true
#define qfalse false

char    *mapname;
char game[64];
extern qboolean verbose;

/// BSP
extern qboolean drawflag;
extern qboolean noprune;
extern qboolean glview;
extern qboolean nodetail;
extern qboolean fulldetail;
extern qboolean onlyents;
extern qboolean nomerge;
extern qboolean nowater;
extern qboolean nofill;
extern qboolean nocsg;
extern qboolean noweld;
extern qboolean noshare;
extern qboolean nosubdiv;
extern qboolean notjunc;
extern qboolean noopt;
extern qboolean leaktest;
extern qboolean verboseentities;
extern char outbase[32];
extern int block_xl, block_xh, block_yl, block_yh;
extern vec_t microvolume;
extern float subdivide_size;

// VIS
extern char inbase[32];
extern qboolean fastvis;
extern qboolean nosort;
extern int testlevel;

// RAD
extern qboolean dumppatches;
extern int numbounce;
extern qboolean extrasamples;
extern float subdiv;
extern float lightscale;
extern float direct_scale;
extern float entity_scale;
extern qboolean nopvs;
extern float ambient;
extern float maxlight;


void InitPaths( int *argc, char **argv );

/*
   Random()
   returns a pseudorandom number between 0 and 1
 */
/*
   vec_t Random( void )
   {
    return (vec_t) rand() / RAND_MAX;
   }
 */


/*
   ExitQ2Map()
   cleanup routine
 */
/*
   static void ExitQ2Map( void )
   {
    BSPFilesCleanup();
    if( mapDrawSurfs != NULL )
        free( mapDrawSurfs );
   }
 */


/*
   BSPInfo()
   emits statistics about the bsp file
 */

int BSPInfo(){
	char source[ 1024 ], ext[ 64 ];
	int size;
	FILE        *f;

	Sys_Printf( "\n----- INFO ----\n\n" );

	/* dummy check */
	if ( mapname == NULL ) {
		Sys_Printf( "No files to dump info for.\n" );
		return -1;
	}

	/* enable info mode */
	//infoMode = qtrue;


	/* mangle filename and get size */
	strcpy( source, mapname );
	ExtractFileExtension( source, ext );
	if ( !Q_stricmp( ext, "map" ) ) {
		StripExtension( source );
	}
	DefaultExtension( source, ".bsp" );
	f = fopen( source, "rb" );
	if ( f ) {
		size = Q_filelength( f );
		fclose( f );
	}
	else{
		size = 0;
	}

	/* load the bsp file and print lump sizes */
	Sys_Printf( "Map: %s\n\n", source );

	Sys_Printf( "-----------------------------------------------------\n" );

	LoadBSPFile( source );
	PrintBSPFileSizes();

	Sys_Printf( "-----------------------------------------------------\n" );

	/* print sizes */
	Sys_Printf( "Total:  %d B = %.3f kB = %.3f MB\n", size, size / 1024.0, size / ( 1024.0 * 1024.0 ) );

	Sys_Printf( "-----------------------------------------------------\n" );

	/* return count */
	return 0;
}



/*
   ScaleBSPMain()
   amaze and confuse your enemies with wierd scaled maps!
 */
/*
   int ScaleBSPMain( int argc, char **argv )
   {
    int			i;
    float		f, scale;
    vec3_t		vec;
    char		str[ 1024 ];


    // arg checking
    if( argc < 2 )
    {
        Sys_Printf( "Usage: q3map -scale <value> [-v] <mapname>\n" );
        return 0;
    }

    // get scale
    scale = atof( argv[ argc - 2 ] );
    if( scale == 0.0f )
    {
        Sys_Printf( "Usage: q3map -scale <value> [-v] <mapname>\n" );
        Sys_Printf( "Non-zero scale value required.\n" );
        return 0;
    }

    // do some path mangling
    strcpy( source, ExpandArg( argv[ argc - 1 ] ) );
    StripExtension( source );
    DefaultExtension( source, ".bsp" );

    // load the bsp
    Sys_Printf( "Loading %s\n", source );
    LoadBSPFile( source );
    ParseEntities();

    // note it
    Sys_Printf( "--- ScaleBSP ---\n" );
    Sys_FPrintf( SYS_VRB, "%9d entities\n", numEntities );

    // scale entity keys
    for( i = 0; i < numBSPEntities && i < numEntities; i++ )
    {
        // scale origin
        GetVectorForKey( &entities[ i ], "origin", vec );
        if( (vec[ 0 ] + vec[ 1 ] + vec[ 2 ]) )
        {
            VectorScale( vec, scale, vec );
            sprintf( str, "%f %f %f", vec[ 0 ], vec[ 1 ], vec[ 2 ] );
            SetKeyValue( &entities[ i ], "origin", str );
        }

        // scale door lip
        f = FloatForKey( &entities[ i ], "lip" );
        if( f )
        {
            f *= scale;
            sprintf( str, "%f", f );
            SetKeyValue( &entities[ i ], "lip", str );
        }
    }

    // scale models
    for( i = 0; i < numBSPModels; i++ )
    {
        VectorScale( bspModels[ i ].mins, scale, bspModels[ i ].mins );
        VectorScale( bspModels[ i ].maxs, scale, bspModels[ i ].maxs );
    }

    // scale nodes
    for( i = 0; i < numBSPNodes; i++ )
    {
        VectorScale( bspNodes[ i ].mins, scale, bspNodes[ i ].mins );
        VectorScale( bspNodes[ i ].maxs, scale, bspNodes[ i ].maxs );
    }

    // scale leafs
    for( i = 0; i < numBSPLeafs; i++ )
    {
        VectorScale( bspLeafs[ i ].mins, scale, bspLeafs[ i ].mins );
        VectorScale( bspLeafs[ i ].maxs, scale, bspLeafs[ i ].maxs );
    }

    // scale drawverts
    for( i = 0; i < numBSPDrawVerts; i++ )
        VectorScale( bspDrawVerts[ i ].xyz, scale, bspDrawVerts[ i ].xyz );

    // scale planes
    for( i = 0; i < numBSPPlanes; i++ )
        bspPlanes[ i ].dist *= scale;

    // scale gridsize
    GetVectorForKey( &entities[ 0 ], "gridsize", vec );
    if( (vec[ 0 ] + vec[ 1 ] + vec[ 2 ]) == 0.0f )
        VectorCopy( gridSize, vec );
    VectorScale( vec, scale, vec );
    sprintf( str, "%f %f %f", vec[ 0 ], vec[ 1 ], vec[ 2 ] );
    SetKeyValue( &entities[ 0 ], "gridsize", str );

    // write the bsp
    UnparseEntities();
    StripExtension( source );
    DefaultExtension( source, "_s.bsp" );
    Sys_Printf( "Writing %s\n", source );
    WriteBSPFile( source );

    // return to sender
    return 0;
   }
 */


/*
   ConvertBSPMain()
   main argument processing function for bsp conversion
 */
/*
   int ConvertBSPMain( int argc, char **argv )
   {
    int		i;
    int		(*convertFunc)( char * );


    // set default
    convertFunc = ConvertBSPToASE;

    // arg checking
    if( argc < 1 )
    {
        Sys_Printf( "Usage: q3map -scale <value> [-v] <mapname>\n" );
        return 0;
    }

    // process arguments
    for( i = 1; i < (argc - 1); i++ )
    {
        // -format map|ase|...
        if( !strcmp( argv[ i ],  "-format" ) )
        {
            i++;
            if( !Q_stricmp( argv[ i ], "ase" ) )
                convertFunc = ConvertBSPToASE;
            else if( !Q_stricmp( argv[ i ], "map" ) )
                convertFunc = ConvertBSPToMap;
            else
                Sys_Printf( "Unknown conversion format \"%s\". Defaulting to ASE.\n", argv[ i ] );
        }
    }

    // clean up map name
    strcpy( source, ExpandArg( argv[ i ] ) );
    StripExtension( source );
    DefaultExtension( source, ".bsp" );

    LoadShaderInfo();

    Sys_Printf( "Loading %s\n", source );

    // ydnar: load surface file
    //%	LoadSurfaceExtraFile( source );

    LoadBSPFile( source );

    // parse bsp entities
    ParseEntities();

    // convert
    return convertFunc( source );
   }
 */

int Check_BSP_Options( int argc, char **argv ){
	int i;

	for ( i = 1 ; i < argc ; i++ )
	{
		if ( !strcmp( argv[i],"-glview" ) ) {
			glview = true;
		}
		else if ( !strcmp( argv[i], "-draw" ) ) {
			Sys_Printf( "drawflag = true\n" );
			drawflag = true;
		}
		else if ( !strcmp( argv[i], "-noweld" ) ) {
			Sys_Printf( "noweld = true\n" );
			noweld = true;
		}
		else if ( !strcmp( argv[i], "-nocsg" ) ) {
			Sys_Printf( "nocsg = true\n" );
			nocsg = true;
		}
		else if ( !strcmp( argv[i], "-noshare" ) ) {
			Sys_Printf( "noshare = true\n" );
			noshare = true;
		}
		else if ( !strcmp( argv[i], "-notjunc" ) ) {
			Sys_Printf( "notjunc = true\n" );
			notjunc = true;
		}
		else if ( !strcmp( argv[i], "-nowater" ) ) {
			Sys_Printf( "nowater = true\n" );
			nowater = true;
		}
		else if ( !strcmp( argv[i], "-noopt" ) ) {
			Sys_Printf( "noopt = true\n" );
			noopt = true;
		}
		else if ( !strcmp( argv[i], "-noprune" ) ) {
			Sys_Printf( "noprune = true\n" );
			noprune = true;
		}
		else if ( !strcmp( argv[i], "-nofill" ) ) {
			Sys_Printf( "nofill = true\n" );
			nofill = true;
		}
		else if ( !strcmp( argv[i], "-nomerge" ) ) {
			Sys_Printf( "nomerge = true\n" );
			nomerge = true;
		}
		else if ( !strcmp( argv[i], "-nosubdiv" ) ) {
			Sys_Printf( "nosubdiv = true\n" );
			nosubdiv = true;
		}
		else if ( !strcmp( argv[i], "-nodetail" ) ) {
			Sys_Printf( "nodetail = true\n" );
			nodetail = true;
		}
		else if ( !strcmp( argv[i], "-fulldetail" ) ) {
			Sys_Printf( "fulldetail = true\n" );
			fulldetail = true;
		}
		else if ( !strcmp( argv[i], "-onlyents" ) ) {
			Sys_Printf( "onlyents = true\n" );
			onlyents = true;
		}
		else if ( !strcmp( argv[i], "-micro" ) ) {
			microvolume = atof( argv[i + 1] );
			Sys_Printf( "microvolume = %f\n", microvolume );
			i++;
		}
		else if ( !strcmp( argv[i], "-leaktest" ) ) {
			Sys_Printf( "leaktest = true\n" );
			leaktest = true;
		}
		else if ( !strcmp( argv[i], "-verboseentities" ) ) {
			Sys_Printf( "verboseentities = true\n" );
			verboseentities = true;
		}
		else if ( !strcmp( argv[i], "-chop" ) ) {
			subdivide_size = atof( argv[i + 1] );
			Sys_Printf( "subdivide_size = %f\n", subdivide_size );
			i++;
		}
		else if ( !strcmp( argv[i], "-block" ) ) {
			block_xl = block_xh = atoi( argv[i + 1] );
			block_yl = block_yh = atoi( argv[i + 2] );
			Sys_Printf( "block: %i,%i\n", block_xl, block_yl );
			i += 2;
		}
		else if ( !strcmp( argv[i], "-blocks" ) ) {
			block_xl = atoi( argv[i + 1] );
			block_yl = atoi( argv[i + 2] );
			block_xh = atoi( argv[i + 3] );
			block_yh = atoi( argv[i + 4] );
			Sys_Printf( "blocks: %i,%i to %i,%i\n",
						block_xl, block_yl, block_xh, block_yh );
			i += 4;
		}
		else if ( !strcmp( argv[i],"-tmpout" ) ) {
			strcpy( outbase, "/tmp" );
		}
		else{
			break;
		}
	}


	return 0;
}

int Check_VIS_Options( int argc, char **argv ){
	int i;

	for ( i = 1 ; i < argc ; i++ )
	{
		if ( !strcmp( argv[i], "-fast" ) ) {
			Sys_Printf( "fastvis = true\n" );
			fastvis = true;
		}
		else if ( !strcmp( argv[i], "-level" ) ) {
			testlevel = atoi( argv[i + 1] );
			Sys_Printf( "testlevel = %i\n", testlevel );
			i++;
		}
		else if ( !strcmp( argv[i],"-nosort" ) ) {
			Sys_Printf( "nosort = true\n" );
			nosort = true;
		}
		else if ( !strcmp( argv[i],"-tmpin" ) ) {
			strcpy( inbase, "/tmp" );
		}
		else if ( !strcmp( argv[i],"-tmpout" ) ) {
			strcpy( outbase, "/tmp" );
		}
		else{
			break;
		}
	}

	return 0;
}

int Check_RAD_Options( int argc, char **argv ){
	int i;

	for ( i = 1 ; i < argc ; i++ )
	{
		if ( !strcmp( argv[i],"-dump" ) ) {
			dumppatches = true;
		}
		else if ( !strcmp( argv[i],"-bounce" ) ) {
			numbounce = atoi( argv[i + 1] );
			i++;
		}
		else if ( !strcmp( argv[i],"-extra" ) ) {
			extrasamples = true;
			Sys_Printf( "extrasamples = true\n" );
		}
		else if ( !strcmp( argv[i],"-chop" ) ) {
			subdiv = atoi( argv[i + 1] );
			i++;
		}
		else if ( !strcmp( argv[i],"-scale" ) ) {
			lightscale = atof( argv[i + 1] );
			i++;
		}
		else if ( !strcmp( argv[i],"-direct" ) ) {
			direct_scale *= atof( argv[i + 1] );
			Sys_Printf( "direct light scaling at %f\n", direct_scale );
			i++;
		}
		else if ( !strcmp( argv[i],"-entity" ) ) {
			entity_scale *= atof( argv[i + 1] );
			Sys_Printf( "entity light scaling at %f\n", entity_scale );
			i++;
		}
		else if ( !strcmp( argv[i],"-glview" ) ) {
			glview = true;
			Sys_Printf( "glview = true\n" );
		}
		else if ( !strcmp( argv[i],"-nopvs" ) ) {
			nopvs = true;
			Sys_Printf( "nopvs = true\n" );
		}
		else if ( !strcmp( argv[i],"-ambient" ) ) {
			ambient = atof( argv[i + 1] ) * 128;
			i++;
		}
		else if ( !strcmp( argv[i],"-maxlight" ) ) {
			maxlight = atof( argv[i + 1] ) * 128;
			i++;
		}
		else if ( !strcmp( argv[i],"-tmpin" ) ) {
			strcpy( inbase, "/tmp" );
		}
		else if ( !strcmp( argv[i],"-tmpout" ) ) {
			strcpy( outbase, "/tmp" );
		}
		else{
			break;
		}
	}

	return 0;
}

/*
   main()
 */

int main( int argc, char **argv ){
	int i;
	int r = 0;
	int total_time;
	double start, end;
	int alt_argc;
	char**  alt_argv;
	qboolean do_info = qfalse;
	qboolean do_bsp = qfalse;
	qboolean do_vis = qfalse;
	qboolean do_rad = qfalse;


	/* we want consistent 'randomness' */
	srand( 0 );

	/* start timer */
	start = I_FloatTime();

	Sys_Printf( "\nQ2Map - Ver. 1.0\n" );

	/* set exit call */
	//atexit( ExitQ3Map );

	game[0] = 0;

	if ( argc < 2 ) {
		Sys_Printf( " %s: -game [quake2,heretic2] -fs_basepath basepath -info -bsp -vis -rad mapname\n",argv[0] );
		return -1;
	}
	/* read general options first */
	for ( i = 1; i < argc; i++ )
	{
		/* -connect */
		if ( !strcmp( argv[ i ], "-connect" ) ) {
			i++;
			Broadcast_Setup( argv[ i ] );
		}

		/* verbose */
		else if ( !strcmp( argv[ i ], "-v" ) ) {
			verbose = qtrue;
		}

		/* threads */
		else if ( !strcmp( argv[ i ], "-threads" ) ) {
			i++;
			numthreads = atoi( argv[ i ] );
		}
		else if ( !strcmp( argv[ i ], "-game" ) ) {
			i++;
			strncpy( game, argv[ i ], 64 );
			strlower( game );
		}
	}

	/* set number of threads */
	ThreadSetDefault();

	/* ydnar: new path initialization */
	InitPaths( &argc, argv );

	/* read compiling options */
	for ( i = 1; i < argc; i++ )
	{
		/* info */
		if ( !strcmp( argv[ i ], "-info" ) ) {
			do_info = qtrue;
		}

		/* bsp */
		if ( !strcmp( argv[ i ], "-bsp" ) ) {
			do_bsp = qtrue;
			alt_argc = argc - i;
			alt_argv = (char **) ( argv + i );
			Check_BSP_Options( alt_argc, alt_argv );
		}

		/* vis */
		if ( !strcmp( argv[ i ], "-vis" ) ) {
			do_vis = qtrue;
			alt_argc = argc - i;
			alt_argv = (char **) ( argv + i );
			Check_VIS_Options( alt_argc, alt_argv );
		}

		/* rad */
		if ( !strcmp( argv[ i ], "-rad" ) ) {
			do_rad = qtrue;
			alt_argc = argc - i;
			alt_argv = (char **) ( argv + i );
			Check_RAD_Options( alt_argc, alt_argv );
		}
	}

	if ( game[0] == 0 ) {
		strncpy( game, "quake2", 7 );
	}

	Sys_Printf( "Game: %s\n", game );

	if ( !do_info && !do_bsp && !do_vis && !do_rad ) {
		Sys_FPrintf( SYS_ERR, "ERROR: -bsp, -vis, -light, nor -info specified.\nWhat to you want me to do?\n\n" );
	}
	else
	{
		mapname = argv[argc - 1];

		if ( do_bsp ) {
			BSP_Main();
		}
		if ( do_vis ) {
			VIS_Main();
		}
		if ( do_rad ) {
			RAD_Main();
		}
		if ( do_info ) {
			BSPInfo();
		}

	}

	/* emit time */
	end = I_FloatTime();
	total_time = (int) ( end - start );
	Sys_Printf( "\nTotal Time: " );
	if ( total_time > 59 ) {
		Sys_Printf( "%d Minutes ", total_time / 60 );
	}
	Sys_Printf( "%d Seconds\n", total_time % 60 );

	/* shut down connection */
	Broadcast_Shutdown();

	/* return any error code */
	return r;
}