/*
* Copyright(c) 1997-2001 Id Software, Inc.
* Copyright(c) 2002 The Quakeforge Project.
* Copyright(c) 2006 Quetoo.
*
* This program 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.
* 
* This program 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 this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
*/

#include "client.h"

console_t con;

cvar_t *con_notifytime;

#define MAX_CMD_LINE 256
extern char key_lines[32][MAX_CMD_LINE];
extern int edit_line;
extern int key_linepos;
extern int key_insert;

void DrawString(int x, int y, char *s){
	while(*s){
		Draw_Char(x, y, *s);
		x += 8;
		s++;
	}
}

void DrawAltString(int x, int y, char *s){
	while(*s){
		Draw_Char(x, y, *s ^ 0x80);
		x += 8;
		s++;
	}
}


void Key_ClearTyping(void){
	key_lines[edit_line][1] = 0;  // clear any typing
	key_linepos = 1;
}

/*
Con_ToggleConsole_f
*/
void Con_ToggleConsole_f(void){
	int maxclients;
	
	Key_ClearTyping();
	
	maxclients = (int)Cvar_VariableValue("maxclients");
	
	if(cls.key_dest == key_console){
		cls.key_dest = key_game;
		
		if(maxclients == 1 && Com_ServerState())  // unpause
			Cvar_Set("paused", "0");
	}
	else {
		cls.key_dest = key_console;
		
		if(maxclients == 1 && Com_ServerState())
			Cvar_Set("paused", "1");
	}
}

/*
Con_Clear_f
*/
void Con_Clear_f(void){
	memset(con.text, ' ', CON_TEXTSIZE);
}

/*
Con_Dump_f
 
Save the console contents out to a file
*/
void Con_Dump_f(void){
	int l, x;
	char *line;
	FILE *f;
	char buffer[1024];
	char name[MAX_OSPATH];
	
	if(Cmd_Argc() != 2){
		Com_Printf("Usage: condump <filename>\n");
		return;
	}
	
	Com_sprintf(name, sizeof(name), "%s/%s.txt", FS_Gamedir(), Cmd_Argv(1));
	
	Com_Printf("Dumped console text to %s.\n", name);
	FS_CreatePath(name);
	f = fopen(name, "w");
	if(!f){
		Com_Printf("Couldn't open %s.\n", name);
		return;
	}
	
	// skip empty lines
	for(l = con.current - con.totallines + 1; l <= con.current; l++){
		line = con.text + (l % con.totallines) * con.linewidth;
		for(x = 0; x < con.linewidth; x++)
			if(line[x] != ' ')
				break;
		if(x != con.linewidth)
			break;
	}
	
	// write the remaining lines
	buffer[con.linewidth] = 0;
	for(; l <= con.current; l++){
		line = con.text + (l % con.totallines) * con.linewidth;
		strncpy(buffer, line, con.linewidth);
		for(x = con.linewidth - 1; x >= 0; x--){
			if(buffer[x] == ' ')
				buffer[x] = 0;
			else
				break;
		}
		for(x = 0; buffer[x]; x++)
			buffer[x] &= 0x7f;
			
		fprintf(f, "%s\n", buffer);
	}
	
	fclose(f);
}


/*
Con_ClearNotify
*/
void Con_ClearNotify(void){
	int i;
	
	for(i = 0; i < NUM_CON_TIMES; i++)
		con.times[i] = 0;
}


/*
Con_MessageMode_f
*/
void Con_MessageMode_f(void){
	chat_team = false;
	cls.key_dest = key_message;
}

/*
Con_MessageMode2_f
*/
void Con_MessageMode2_f(void){
	chat_team = true;
	cls.key_dest = key_message;
}

/*
Con_CheckResize
 
If the line width has changed, reformat the buffer.
*/
void Con_CheckResize(void){
	int i, j, width, oldwidth, oldtotallines, numlines, numchars;
	char tbuf[CON_TEXTSIZE];
	
	width = (viddef.width >> 3) - 2;
	
	if(width == con.linewidth)
		return;
		
	if(width < 1){  // video hasn't been initialized yet
		width = 78;  // so assume 640x480, or 78 cols
		con.linewidth = width;
		con.totallines = CON_TEXTSIZE / con.linewidth;
		memset(con.text, ' ', CON_TEXTSIZE);
	} else {
		oldwidth = con.linewidth;
		con.linewidth = width;
		oldtotallines = con.totallines;
		con.totallines = CON_TEXTSIZE / con.linewidth;
		numlines = oldtotallines;
		
		if(con.totallines < numlines)
			numlines = con.totallines;
			
		numchars = oldwidth;
		
		if(con.linewidth < numchars)
			numchars = con.linewidth;
			
		memcpy(tbuf, con.text, CON_TEXTSIZE);
		memset(con.text, ' ', CON_TEXTSIZE);
		
		for(i = 0; i < numlines; i++){
			for(j = 0; j < numchars; j++){
				con.text[(con.totallines - 1 - i) * con.linewidth + j] =
					tbuf[((con.current - i + oldtotallines) %
						  oldtotallines) * oldwidth + j];
			}
		}
		
		Con_ClearNotify();
	}
	
	con.current = con.totallines - 1;
	con.display = con.current;
}


/*
Con_Init
*/
void Con_Init(void){
	con.linewidth = -1;
	
	Con_CheckResize();
	
	Com_Printf("Console initialized.\n");
	
	con_notifytime = Cvar_Get("con_notifytime", "3", 0);
	
	Cmd_AddCommand("toggleconsole", Con_ToggleConsole_f);
	Cmd_AddCommand("messagemode", Con_MessageMode_f);
	Cmd_AddCommand("messagemode2", Con_MessageMode2_f);
	Cmd_AddCommand("clear", Con_Clear_f);
	Cmd_AddCommand("condump", Con_Dump_f);
	
	con.initialized = true;
}


/*
Con_Linefeed
*/
void Con_Linefeed(void){
	con.x = 0;
	
	if(con.display == con.current)
		con.display++;
	
	con.current++;
	
	memset(&con.text[(con.current % con.totallines) * con.linewidth], ' ', con.linewidth);
}

/*
Con_Print
 
Handles cursor positioning, line wrapping, etc
All console printing must go through this in order to be logged to disk
If no console is visible, the text will appear at the top of the game window
*/
void Con_Print(char *text){
	int y;
	int c, l;
	static int cr;
	int mask;
	
	if(!con.initialized)
		return;
		
	if(text[0] == 1 || text[0] == 2){
		mask = 128;  // go to colored text
		text++;
	} else
		mask = 0;
		
	while((c = *text)){
		// count word length
		for(l = 0; l < con.linewidth; l++)
			if(text[l] <= ' ')
				break;
				
		// word wrap
		if(l != con.linewidth && (con.x + l > con.linewidth))
			con.x = 0;
			
		text++;
		
		if(cr){
			con.current--;
			cr = false;
		}
		
		if(!con.x){
			Con_Linefeed();
			// mark time for transparent overlay
			if(con.current >= 0)
				con.times[con.current % NUM_CON_TIMES] = cls.realtime;
		}
		
		switch(c){
			case '\n':
				con.x = 0;
				break;
				
			case '\r':
				con.x = 0;
				cr = 1;
				break;
				
			default:   // display character and advance
				y = con.current % con.totallines;
				con.text[y * con.linewidth + con.x] = c | mask | con.ormask;
				con.x++;
				if(con.x >= con.linewidth)
					con.x = 0;
				break;
		}
	}
}


/*
Con_CenteredPrint
*/
void Con_CenteredPrint(char *text){
	int l;
	char buffer[MAX_STRING_CHARS];
	
	l = strlen(text);
	l = (con.linewidth - l) / 2;
	if(l < 0)
		l = 0;
	memset(buffer, ' ', l);
	strcpy(buffer + l, text);
	strcat(buffer, "\n");
	Con_Print(buffer);
}

/*
 
DRAWING
 
*/


/*
Con_DrawInput
 
The input line scrolls horizontally if typing goes beyond the right edge
*/
void Con_DrawInput(void){
	int i, y;
	char editlinecopy[MAX_CMD_LINE], *text;
	
	text = strcpy(editlinecopy, key_lines[edit_line]);
	y = strlen(text);
	
	// add the cursor frame
	if((int)(cls.realtime >> 8) & 1){
		text[key_linepos] = 11;
		if(key_linepos == y)
			y++;
	}
	
	// fill out remainder with spaces
	for(i = y; i < 256; i++)
		text[i] = ' ';
	
	// prestep if horizontally scrolling
	if(key_linepos >= con.linewidth)
		text += 1 + key_linepos - con.linewidth;
	
	// draw it
	y = con.vislines - 16;
	for(i = 0; i < con.linewidth; i++)
		Draw_Char((i + 1) << 3, con.vislines - 16, text[i]);
}


/*
Con_DrawNotify
 
Draws the last few lines of output transparently over the game top
*/
void Con_DrawNotify(void){
	int i, x, v;
	char *s, *text;
	int time, skip;
	
	v = 0;
	for(i = con.current - NUM_CON_TIMES + 1; i <= con.current; i++){
		if(i < 0)
			continue;
		
		time = con.times[i % NUM_CON_TIMES];
		
		if(time == 0)
			continue;
		
		time = cls.realtime - time;
		
		if(time > con_notifytime->value*1000)
			continue;
		
		text = con.text + (i % con.totallines) * con.linewidth;
		
		for(x = 0; x < con.linewidth; x++)
			Draw_Char((x + 1) << 3, v, text[x]);
			
		v += 8;
	}
	
	if(cls.key_dest == key_message){
		if(chat_team){
			DrawString(8, v, "say_team:");
			skip = 11;
		} else {
			DrawString(8, v, "say:");
			skip = 5;
		}
		
		s = chat_buffer;
		if(chat_bufferlen > (viddef.width >> 3) - (skip + 1))
			s += chat_bufferlen - ((viddef.width >> 3) - (skip + 1));
		
		x = 0;
		while(s[x]){
			Draw_Char((x + skip) << 3, v, s[x]);
			x++;
		}
		Draw_Char((x + skip) << 3, v, 10 + ((cls.realtime >> 8)&1));
		v += 8;
	}
}

/*
Con_DrawConsole
 
Draws the console.
*/
void Con_DrawConsole(float frac){
	int i, x, y;
	int row, rows, lines;
	char *text, dl[MAX_STRING_CHARS];
	
	lines = viddef.height * frac;
	if(lines <= 0)  //nothing to do
		return;
		
	if(lines > viddef.height)  //ensure sane height
		lines = viddef.height;
	
	// draw the text
	con.vislines = lines;
	
	rows = (lines - 8) >> 3; // rows of text to draw
	y = lines - 32;  //where to start
	
	row = con.display;
	for(i = 0; i < rows; i++, y -= 8, row--){
		
		if(row < 0 || con.current - row >= con.totallines)
			break;  //can only draw what we have
		
		text = con.text + (row % con.totallines) * con.linewidth;
		
		for(x = 0; x < con.linewidth; x++)  //draw one screen's width of text
			Draw_Char((x + 1) << 3, y, text[x]);
	}
	
	if(cls.download){  // draw progress
		
		Com_sprintf(dl, sizeof(dl), "%s %i%%", cls.downloadname, cls.downloadpercent);
		
		for(i = 0; i < strlen(dl); i++)
			Draw_Char((i + 1) << 3, con.vislines - 6, dl[i]);
	}
	
	// draw the input prompt, user text, and cursor if desired
	Con_DrawInput();
}