/* doomload.m */
#include "idbsp.h"


int             linenum = 0;
STORAGE *linestore_i, *thingstore_i;

/*
=================
=
= ReadLine
=
=================
*/

/* worldline_t *ReadLine (FILE *file) */
worldline_t *ReadLine(FILE *file,worldline_t *line)
{
/*      worldline_t     *line; */
        NXPoint         *p1, *p2;
        worldside_t     *s;
        sectordef_t     *e;
        int                     i;

/*      line = malloc(sizeof(worldline_t)); */
      memset (line, 0, sizeof(worldline_t));

        p1 = &line->p1;
        p2 = &line->p2;

        if (fscanf (file,"(%f,%f) to (%f,%f) : %d : %d : %d\n"
                ,&p1->x, &p1->y,&p2->x, &p2->y,&line->flags
                , &line->special, &line->tag) != 7)
                Error ("Failed ReadLine");

        for (i=0 ; i<=  ( (line->flags&ML_TWOSIDED) != 0) ; i++)
        {
                s = &line->side[i];
                if (fscanf (file,"    %d (%d : %s / %s / %s )\n"
                        ,&s->firstrow, &s->firstcollumn, s->toptexture, s->bottomtexture, s->midtexture) != 5)
                        Error ("Failed ReadLine (side)");
                e = &s->sectordef;
                if (fscanf (file,"    %d : %s %d : %s %d %d %d\n"
                        ,&e->floorheight, e->floorflat, &e->ceilingheight
                        ,e->ceilingflat,&e->lightlevel, &e->special, &e->tag) != 7)
                        Error ("Failed ReadLine (sector)");
                if (!strcmp (e->floorflat,"-"))
                        printf ("WARNING: line %i has no sectordef\n",linenum);
        }

        linenum++;

        return line;
}

/*
=================
=
= ReadThing
=
=================
*/

/* worldthing_t *ReadThing (FILE *file) */
worldthing_t *ReadThing(FILE *file, worldthing_t *thing)
{
        int                             x,y;
/*      worldthing_t    *thing; */

/*      thing = malloc(sizeof(*thing)); */
        memset (thing, 0, sizeof(*thing));

        if (fscanf (file,"(%i,%i, %d) :%d, %d\n"
                ,&x, &y, &thing->angle, &thing->type, &thing->options) != 5)
                Error ("Failed ReadThing");

        thing->origin.x = x & -16;
        thing->origin.y = y & -16;

        return thing;
}

/*
==================
=
= LineOverlaid
=
= Check to see if the line is colinear and overlapping any previous lines
==================
*/

typedef struct
{
        float   left, right, top, bottom;
} bbox_t;

void BBoxFromPoints (bbox_t *box, NXPoint *p1, NXPoint *p2)
{
        if (p1->x < p2->x)
        {
                box->left = p1->x;
                box->right = p2->x;
        }
        else
        {
                box->left = p2->x;
                box->right = p1->x;
        }
        if (p1->y < p2->y)
        {
                box->bottom = p1->y;
                box->top = p2->y;
        }
        else
        {
                box->bottom = p2->y;
                box->top = p1->y;
        }
}

boolean LineOverlaid (worldline_t *line)
{
        int             j, count;
        worldline_t     *scan;
        divline_t       wl;
				bbox_t          linebox, scanbox;

        wl.pt = line->p1;
        wl.dx = line->p2.x - line->p1.x;
        wl.dy = line->p2.y - line->p1.y;

/*
        count = [linestore_i count];
        scan = [linestore_i elementAt:0];
*/
        count = linestore_i->count;
        scan = linestore_i->data;

        for (j=0 ; j<count ; j++, scan++)
        {
                if (PointOnSide (&scan->p1, &wl) != -1)
                        continue;
								if (PointOnSide (&scan->p2, &wl) != -1)
                        continue;
/* line is colinear, see if it overlapps */
                BBoxFromPoints (&linebox, &line->p1, &line->p2);
                BBoxFromPoints (&scanbox, &scan->p1, &scan->p2);

                if (linebox.right  > scanbox.left && linebox.left < scanbox.right)
                        return true;
                if (linebox.bottom < scanbox.top && linebox.top > scanbox.bottom)
                        return true;
        }
        return false;
}

/*
===================
=
= LoadDoomMap
=
===================
*/

/* id   linestore_i, thingstore_i; */

/* void LoadDoomMap (char *mapname) */
void LoadDoomMap(FILE *file)
{
/*      FILE            *file; */
/*				int                     i, version; */
				int	i;
				int                     linecount, thingcount;
				worldline_t     *line;
				worldthing_t *thing;

/*
				file = fopen (mapname,"r");
				if (!file)
								Error ("LoadDoomMap: couldn't open %s", mapname);
*/
/*
				if (!fscanf (file, "WorldServer version %d\n", &version) || version != 4)
								Error ("LoadDoomMap: not a version 4 doom map");
				printf ( "Loading version 4 doom map\n");
*/
/*
 read lines
*/
        if (fscanf (file,"\nlines:%d\n",&linecount) != 1)
                Error ("LoadDoomMap: can't read linecount");
        printf ("%i lines\n", linecount);
/*
        linestore_i = [[Storage alloc]
								initCount:              0
                elementSize:    sizeof(worldline_t)
                description:    NULL];
*/
        linestore_i = (STORAGE *)SafeMalloc(sizeof(STORAGE));
        linestore_i->data = (worldline_t *)SafeCalloc(linecount,sizeof(worldline_t));
        linestore_i->size = sizeof(worldline_t);
				linestore_i->count = 0;

				line = linestore_i->data;
				printf("\n");
				for (i=0 ; i<linecount ; i++,linestore_i->count++,line++)
				{
/*              line = ReadLine (file); */
								printf("Reading line #%d\r",i);
								ReadLine(file,line);
								if (line->p1.x == line->p2.x && line->p1.y == line->p2.y)
								{
												printf ("WARNING: line %i is length 0 (removed)\n",i);
												continue;
								}

								if (LineOverlaid (line))
								{
												printf ("WARNING: line %i is overlaid (removed)\n",i);
												continue;
								}

/*
								[linestore_i addElement: line];
*/
/*
								linestore_i->count += 1;
								linestore_i->data = (worldline_t *)realloc(linestore_i->data,
																																																sizeof(worldline_t) * (linestore_i->count + 1));
								line = (worldline_t *)linestore_i->data + linestore_i->count;
*/
				}

/*
 read things
*/
        if (fscanf (file,"\nthings:%d\n",&thingcount) != 1)
                Error ("LoadDoomMap: can't read thingcount");
        printf ( "\n\n%i things\n", thingcount);
/*
        thingstore_i = [[Storage alloc]
                initCount:              0
                elementSize:    sizeof(worldthing_t)
                description:    NULL];
*/
        thingstore_i = (STORAGE *)SafeMalloc(sizeof(STORAGE));
        thingstore_i->data = (worldthing_t *)SafeCalloc(thingcount,sizeof(worldthing_t));
        thingstore_i->size = sizeof(worldthing_t);
        thingstore_i->count = thingcount;
/*
        for (i=0 ; i<thingcount ; i++)
                [thingstore_i addElement: ReadThing (file)];
*/
        thing = thingstore_i->data;
        for (i=0;i<thingcount;i++)
                {
                printf("Reading thing #%d\r",i);
                ReadThing(file,thing);
                thing++;
                }
/*
				fclose (file);
*/
}