dominik@126: #include "stdafx.h"
dominik@126: #include "ttd.h"
dominik@126: #include "window.h"
dominik@126: #include "gui.h"
dominik@126: #include "gfx.h"
dominik@126: #include "player.h"
dominik@126: #include "variables.h"
dominik@126: #include "hal.h"
dominik@126: #include <stdarg.h>
dominik@126: #include "console.h"
dominik@126: 
dominik@126: 
dominik@126: // ** main console ** //
dominik@126: static bool _iconsole_inited;
dominik@126: static byte* _iconsole_buffer[80];
dominik@126: static byte _iconsole_cbuffer[80];
dominik@126: static byte _iconsole_cmdline[255];
dominik@126: static byte _iconsole_cmdpos;
dominik@126: static byte _iconsole_mode;
dominik@126: static byte _iconsole_color_default = 1;
dominik@126: static byte _iconsole_color_error = 3;
dominik@126: static byte _iconsole_color_debug = 5;
dominik@126: static byte _iconsole_color_commands = 2;
dominik@126: static Window *_iconsole_win = NULL;
dominik@126: 
dominik@126: // ** console cursor ** //
dominik@126: static bool _icursor_state;
dominik@126: static byte _icursor_rate;
dominik@126: static byte _icursor_counter;
dominik@126: 
dominik@126: // ** console window ** //
dominik@126: 
dominik@126: static void IConsoleWndProc(Window *w, WindowEvent *e);
dominik@126: static const Widget _iconsole_window_widgets[] = {{WWT_LAST}};
dominik@126: static const WindowDesc _iconsole_window_desc = {
dominik@126: 	0, 0, 2, 2,
dominik@126: 	WC_CONSOLE,0,
dominik@126: 	WDF_STD_TOOLTIPS | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS,
dominik@126: 	_iconsole_window_widgets,
dominik@126: 	IConsoleWndProc,
dominik@126: };
dominik@126: 
dominik@126: // ** console parser ** //
dominik@126: 
dominik@126: static _iconsole_cmd * _iconsole_cmds; // list of registred commands
dominik@126: static _iconsole_var * _iconsole_vars; // list of registred vars
dominik@126: 
dominik@126: // ** console std lib ** // 
dominik@126: static byte _stdlib_developer=0;
dominik@126: static void IConsoleStdLibRegister();
dominik@126: static byte * _stdlib_temp_string;
dominik@126: static byte * _stdlib_temp_pointer;
dominik@126: static uint32 _stdlib_temp_uint32;
dominik@126: static bool _stdlib_temp_bool;
dominik@126: 
dominik@126: /* *************** */
dominik@126: /*  end of header  */
dominik@126: /* *************** */
dominik@126: 
dominik@126: void IConsoleClearCommand()
dominik@126: {
dominik@126: int i;
dominik@126: for (i=0; i<255; i++) _iconsole_cmdline[i]=0;
dominik@126: _iconsole_cmdpos=0;
dominik@126: SetWindowDirty(_iconsole_win);
dominik@126: }
dominik@126: 
dominik@126: static void IConsoleWndProc(Window *w, WindowEvent *e)
dominik@126: {
dominik@126: 	switch(e->event) {
dominik@126: 
dominik@126: 	case WE_PAINT:
dominik@126: 		GfxFillRect(w->left,w->top,w->width,w->height-1,0);
dominik@126: 		{
dominik@126: 		int i=79;
dominik@126: 		int max=(w->height/12)-1;
dominik@126: 		while ((i>79-max) && (_iconsole_buffer[i]!=NULL)) {
dominik@126: 			DoDrawString(_iconsole_buffer[i],5,w->height-((81-i)*12),_iconsole_cbuffer[i]);
dominik@126: 			i--;
dominik@126: 			}
dominik@126: 		DoDrawString((char *)&_iconsole_cmdline,5,w->height-12,_iconsole_color_commands);
dominik@126: 		}
dominik@126: 		break;
dominik@126: 
dominik@126: 	case WE_TICK:
dominik@126: 
dominik@126: 		if (_iconsole_mode==ICONSOLE_OPENING) {
dominik@126: 			_iconsole_mode=ICONSOLE_OPENED;
dominik@126: 			}
dominik@126: 
dominik@126: 		_icursor_counter++;
dominik@126: 		if (_icursor_counter>_icursor_rate) {
dominik@126: 			_icursor_state=!_icursor_state;
dominik@126: 			{
dominik@126: 				int posx;
dominik@126: 				int posy;
dominik@126: 				int color;
dominik@126: 				_cur_dpi=&_screen;
dominik@126: 				if (_icursor_state) color=14; else color=0;
dominik@126: 				posx=5+GetStringWidth((char *)&_iconsole_cmdline);
dominik@126: 				posy=w->height-3;
dominik@126: 				GfxFillRect(posx,posy,posx+5,posy+1,color);
dominik@126: 				_video_driver->make_dirty(posx,posy,5,1);
dominik@126: 			}
dominik@126: 			_icursor_counter=0;			
dominik@126: 			}
dominik@126: 		break;
dominik@126: 
dominik@126: 	case WE_KEYPRESS:
dominik@126: 		e->keypress.cont=false;
dominik@129: 		if (e->keypress.keycode == WKC_BACKQUOTE)
dominik@126: 			{
dominik@126: 			IConsoleSwitch();
dominik@126: 			} else
dominik@126: 		if (e->keypress.keycode == WKC_RETURN) 
dominik@126: 			{
dominik@126: 			IConsolePrintF(_iconsole_color_commands, "] %s", _iconsole_cmdline);
dominik@126: 			IConsoleCmdExec((byte *) _iconsole_cmdline);
dominik@126: 			IConsoleClearCommand();
dominik@126: 			} else
dominik@126: 		if (e->keypress.keycode == WKC_BACKSPACE) 
dominik@126: 			{
dominik@126: 			if (_iconsole_cmdpos!=0) _iconsole_cmdpos--;
dominik@126: 			_iconsole_cmdline[_iconsole_cmdpos]=0;
dominik@126: 			SetWindowDirty(w);
dominik@126: 			} else
dominik@126: 		if (IS_INT_INSIDE((e->keypress.ascii), 32, 256))
dominik@126: 			{
dominik@126: 			_iconsole_cmdline[_iconsole_cmdpos]=e->keypress.ascii;
dominik@126: 			if (_iconsole_cmdpos!=255) _iconsole_cmdpos++;	
dominik@126: 			SetWindowDirty(w);
dominik@126: 			e->keypress.keycode=0;
dominik@126: 			} else e->keypress.cont=true;	
dominik@126: 		break;
dominik@126: 
dominik@126: 	}
dominik@126: }
dominik@126: 
dominik@126: void IConsoleInit()
dominik@126: {
dominik@126: int i;
dominik@126: _iconsole_inited=true;
dominik@126: _iconsole_mode=ICONSOLE_CLOSED;
dominik@126: _iconsole_win=NULL;
dominik@126: _icursor_state=false;
dominik@126: _icursor_rate=5;
dominik@126: _icursor_counter=0;
dominik@126: for (i=0;i<80;i++) _iconsole_buffer[i]=NULL;
dominik@126: IConsoleStdLibRegister();
dominik@126: IConsolePrint(12,"OpenTTD Game Console Build #");	
dominik@126: IConsolePrint(12,"---------------------------------");
dominik@126: IConsoleClearCommand();
dominik@126: }
dominik@126: 
dominik@126: void IConsoleClear()
dominik@126: {
dominik@126: int i;
dominik@126: for (i=0;i<80;i++) if (_iconsole_buffer[i]!=NULL) {
dominik@126: 	free(_iconsole_buffer[i]);
dominik@126: 	}
dominik@126: }
dominik@126: 
dominik@126: void IConsoleFree()
dominik@126: {
dominik@126: _iconsole_inited=false;
dominik@126: IConsoleClear();
dominik@126: }
dominik@126: 
dominik@126: void IConsoleResize() {
dominik@126: 	if (_iconsole_win!=NULL) {
dominik@126: 		_iconsole_win->height = _screen.height / 3;
dominik@126: 		_iconsole_win->width= _screen.width;
dominik@126: 	}
dominik@126: }
dominik@126: 
dominik@126: void IConsoleSwitch()
dominik@126: {
dominik@126: 	if (_iconsole_mode==ICONSOLE_CLOSED) {
dominik@126: 		_iconsole_win = AllocateWindowDesc(&_iconsole_window_desc);
dominik@126: 		_iconsole_win->height = _screen.height / 3;
dominik@126: 		_iconsole_win->width= _screen.width;
dominik@126: 		_iconsole_mode=ICONSOLE_OPENING;
dominik@126: 		} else
dominik@126: 	if (_iconsole_mode==ICONSOLE_OPENED) {
dominik@126: 		DeleteWindow(_iconsole_win);
dominik@126: 		_iconsole_win=NULL;
dominik@126: 		_iconsole_mode=ICONSOLE_CLOSED;
dominik@126: 		}
dominik@126: 	MarkWholeScreenDirty();
dominik@126: 	MarkAllViewportsDirty(0,0,_screen.width,_screen.height);
dominik@126: 	_video_driver->make_dirty(0,0,_screen.width,_screen.height);
dominik@126: }
dominik@126: 
dominik@126: void IConsoleClose() {
dominik@126: if (_iconsole_mode==ICONSOLE_OPENED)  IConsoleSwitch();
dominik@126: }
dominik@126: 
dominik@126: void IConsoleOpen() {
dominik@126: if (_iconsole_mode==ICONSOLE_CLOSED) IConsoleSwitch();
dominik@126: }
dominik@126: 
dominik@126: void IConsolePrint(byte color_code, byte* string)
dominik@126: {
dominik@126: byte * _ex;
dominik@126: byte * _new;
dominik@126: byte _exc;
dominik@126: byte _newc;
dominik@126: int i,j;
dominik@126: 
dominik@126: if (!_iconsole_inited) return;
dominik@126: 
dominik@126: _newc=color_code;
dominik@126: 
dominik@126: i=strlen((char *)string);
dominik@126: _new=malloc(i+1);
dominik@126: memset(_new,0,i+1);
dominik@126: memcpy(_new,string,i);
dominik@126: 
dominik@126: for (j=0;j<i;j++) {
dominik@126: 	if (_new[j]<0x1F) _new[j]=0x20;
dominik@126: 	}
dominik@126: 
dominik@126: i=79;
dominik@126: while (i>=0) {
dominik@126: 	_ex=_iconsole_buffer[i];
dominik@126: 	_exc=_iconsole_cbuffer[i];
dominik@126: 	_iconsole_buffer[i]=_new;
dominik@126: 	_iconsole_cbuffer[i]=_newc;
dominik@126: 	_new=_ex;
dominik@126: 	_newc=_exc;
dominik@126: 	i--;
dominik@126: 	}
dominik@126: if (_ex!=NULL) free(_ex);
dominik@126: 
dominik@126: if (_iconsole_win!=NULL) SetWindowDirty(_iconsole_win);
dominik@126: }
dominik@126: 
dominik@126: 
dominik@126: void IConsolePrintF(byte color_code, const char *s, ...)
dominik@126: {
dominik@126: 	va_list va;
dominik@126: 	char buf[1024];
dominik@126: 	va_start(va, s);
dominik@126: 	vsprintf(buf, s, va);
dominik@126: 	va_end(va);
dominik@126: 	IConsolePrint(color_code, (byte *) &buf);
dominik@126: }
dominik@126: 
dominik@126: void IConsoleDebug(byte* string) {
dominik@126: if (_stdlib_developer>1) IConsolePrintF(_iconsole_color_debug, "DEBUG: %s", string);
dominik@126: }
dominik@126: 
dominik@126: void IConsoleError(byte* string) {
dominik@126: if (_stdlib_developer>0) IConsolePrintF(_iconsole_color_error, "ERROR: %s", string);
dominik@126: }
dominik@126: 
dominik@126: void IConsoleCmdRegister(byte * name, void * addr) {
dominik@126: byte * _new;
dominik@126: _iconsole_cmd * item;
dominik@126: _iconsole_cmd * item_new;
dominik@126: int i;
dominik@126: 
dominik@126: 	i=strlen((char *)name);
dominik@126: 	_new=malloc(i+1);
dominik@126: 	memset(_new,0,i+1);
dominik@126: 	memcpy(_new,name,i);
dominik@126: 
dominik@126: item_new = malloc(sizeof(_iconsole_cmd));
dominik@126: 
dominik@126: item_new->_next = NULL;
dominik@126: item_new->addr  = addr;
dominik@126: item_new->name  = _new;
dominik@126: 
dominik@126: item = _iconsole_cmds;
dominik@126: if (item == NULL) {
dominik@126: 	_iconsole_cmds = item_new;
dominik@126: 	} else {
dominik@126: 	while (item->_next != NULL) { item = item->_next; };
dominik@126: 	item->_next = item_new;
dominik@126: 	}
dominik@126: }
dominik@126: 
dominik@126: static void* IConsoleCmdGetAddr(byte * name) {
dominik@126: _iconsole_cmd * item;
dominik@126: 
dominik@126: item = _iconsole_cmds;
dominik@126: while (item != NULL) { 
dominik@126: 	if (strcmp(item->name,name)==0) return item->addr;
dominik@126: 	item = item->_next;
dominik@126: 	}
dominik@126: return NULL;
dominik@126: }
dominik@126: 
dominik@126: void IConsoleVarRegister(byte * name, void * addr, byte type) {
dominik@126: byte * _new;
dominik@126: _iconsole_var * item;
dominik@126: _iconsole_var * item_new;
dominik@126: int i;
dominik@126: 
dominik@126: 	i=strlen((char *)name)+1;
dominik@126: 	_new=malloc(i+1);
dominik@126: 	memset(_new,0,i+1);
dominik@126: 	_new[0]='*';
dominik@126: 	memcpy(_new+1,name,i);
dominik@126: 
dominik@126: item_new = malloc(sizeof(_iconsole_var));
dominik@126: 
dominik@126: item_new->_next = NULL;
dominik@126: item_new->addr  = addr;
dominik@126: item_new->name  = _new;
dominik@126: item_new->type  = type;
dominik@126: 
dominik@126: item = _iconsole_vars;
dominik@126: if (item == NULL) {
dominik@126: 	_iconsole_vars = item_new;
dominik@126: 	} else {
dominik@126: 	while (item->_next != NULL) { item = item->_next; };
dominik@126: 	item->_next = item_new;
dominik@126: 	}
dominik@126: }
dominik@126: 
dominik@126: _iconsole_var * IConsoleVarGet(byte * name) {
dominik@126: _iconsole_var * item;
dominik@126: 
dominik@126: item = _iconsole_vars;
dominik@126: while (item != NULL) { 
dominik@126: 	if (strcmp(item->name,name)==0) return item;
dominik@126: 	item = item->_next;
dominik@126: 	}
dominik@126: return NULL;
dominik@126: }
dominik@126: 
dominik@126: static void IConsoleVarStringSet(_iconsole_var * var, byte * string) {
dominik@126: int l;
dominik@126: 
dominik@126: if (strlen((byte *) var->addr)!=0) {
dominik@126: 	free(var->addr);
dominik@126: 	}
dominik@126: l=strlen((char *) string);
dominik@126: var->addr=malloc(l+1);
dominik@126: memset(var->addr,0,l);
dominik@126: memcpy((void *) var->addr,(void *) string, l);
dominik@126: ((byte *)var->addr)[l]=0;
dominik@126: }
dominik@126: 
dominik@126: void IConsoleCmdExec(byte * cmdstr) {
dominik@126: void (*function)(byte argc, byte* argv[], byte argt[]);
dominik@126: byte * tokens[20];
dominik@126: byte tokentypes[20];
dominik@126: byte * tokenstream;
dominik@126: byte * tokenstream_s;
dominik@126: byte execution_mode;
dominik@126: _iconsole_var * var = NULL;
dominik@126: 
dominik@126: byte var_b; // TYPE BYTE
dominik@126: unsigned short var_ui16; // TYPE UINT16
dominik@126: unsigned int var_ui32; // TYPE UINT32
dominik@126: signed short var_i16; // TYPE INT16
dominik@126: signed int var_i32; // TYPE INT32
dominik@126: byte * var_s; // TYPE STRING
dominik@126: 
dominik@126: bool longtoken;
dominik@126: bool valid_token;
dominik@126: bool skip_lt_change;
dominik@126: 
dominik@126: int c;
dominik@126: int i;
dominik@126: int l;
dominik@126: 
dominik@126: //** clearing buffer **//
dominik@126: 
dominik@126: for (i=0;i<20;i++) { tokens[i]=NULL; tokentypes[i]=ICONSOLE_VAR_NONE; };
dominik@126: tokenstream_s=tokenstream=malloc(1024);
dominik@126: memset(tokenstream,0,1024);
dominik@126: 
dominik@126: //** parsing **//
dominik@126: 
dominik@126: longtoken=false;
dominik@126: valid_token=false;
dominik@126: skip_lt_change=false;
dominik@126: l=strlen((char *) cmdstr);
dominik@126: i=0;
dominik@126: c=0;
dominik@126: tokens[c] = tokenstream;
dominik@126: while (i<l) {
dominik@126: 	if (cmdstr[i]=='"') {
dominik@126: 		if (longtoken) {
dominik@126: 			if (cmdstr[i+1]=='"') {
dominik@126: 				i++;
dominik@126: 				*tokenstream = '"';
dominik@126: 				tokenstream++;
dominik@126: 				skip_lt_change=true;
dominik@126: 				} else {
dominik@126: 				longtoken=!longtoken;
dominik@126: 				}
dominik@126: 			} else {
dominik@126: 			longtoken=!longtoken;
dominik@126: 			}
dominik@126: 		if (!skip_lt_change) {
dominik@126: 			if (!longtoken) {
dominik@126: 				if (valid_token) {
dominik@126: 					c++;
dominik@126: 					*tokenstream = 0;
dominik@126: 					tokenstream++;
dominik@126: 					tokens[c] = tokenstream;
dominik@126: 					valid_token = false;
dominik@126: 					}
dominik@126: 				}
dominik@126: 			skip_lt_change=false;
dominik@126: 			}
dominik@126: 		}
dominik@126: 	else if ((!longtoken) && (cmdstr[i]==' ')) {
dominik@126: 		if (valid_token) {
dominik@126: 			c++;
dominik@126: 			*tokenstream = 0;
dominik@126: 			tokenstream++;
dominik@126: 			tokens[c] = tokenstream;
dominik@126: 			valid_token = false;
dominik@126: 			}
dominik@126: 		}
dominik@126: 	else {
dominik@126: 		valid_token=true;
dominik@126: 		*tokenstream = cmdstr[i];
dominik@126: 		tokenstream++;
dominik@126: 		}
dominik@126: 	i++;
dominik@126: 	}
dominik@126: 
dominik@126: tokenstream--;
dominik@126: if (!(*tokenstream==0)) {
dominik@126: 	c++;
dominik@126: 	tokenstream++;
dominik@126: 	*tokenstream = 0;	
dominik@126: 	}
dominik@126: 
dominik@126: //** interpreting **//
dominik@126: 
dominik@126: for (i=0; i<c; i++) {
dominik@126: 	if (i>0) if (strlen((char *) tokens[i])>0) {
dominik@126: 		if (tokens[i][0]=='*') {
dominik@126: 			var = IConsoleVarGet(tokens[i]);
dominik@126: 			if (var!=NULL) {
dominik@126: 				tokens[i]=(byte *)var->addr;
dominik@126: 				tokentypes[i]=var->type;
dominik@126: 				}
dominik@126: 			} else { 
dominik@126: 			tokentypes[i]=ICONSOLE_VAR_STRING;
dominik@126: 			}
dominik@126: 		}
dominik@126: 	}
dominik@126: 
dominik@126: execution_mode=0;
dominik@126: 
dominik@126: function = IConsoleCmdGetAddr(tokens[0]);
dominik@126: if (function != NULL) {
dominik@126: 	execution_mode=1; // this is a command
dominik@126: 	} else {
dominik@126: 	var = IConsoleVarGet(tokens[0]);
dominik@126: 	if (var != NULL) {
dominik@126: 		execution_mode=2; // this is a variable
dominik@126: 		}
dominik@126: 	}
dominik@126: 
dominik@126: //** executing **//
dominik@126: 
dominik@126: switch (execution_mode) {
dominik@126: case 0: 
dominik@126: 	{
dominik@126: 	// not found
dominik@126: 	IConsoleError("command or variable not found");
dominik@126: 	}
dominik@126: 	break;
dominik@126: case 1:
dominik@126: 	{
dominik@126: 	// execution with command syntax
dominik@126: 	function(c,tokens,tokentypes);
dominik@126: 	}
dominik@126: 	break;
dominik@126: case 2:
dominik@126: 	{
dominik@126: 	// execution with variable syntax
dominik@126: if ((c==2) || (c==3)) {
dominik@126: 		// ** variable modifications ** //
dominik@126: 		switch (var->type) {
dominik@126: 		case ICONSOLE_VAR_BOOLEAN:
dominik@126: 				{
dominik@126: 				if (strcmp(tokens[1],"=")==0) {
dominik@126: 					if (c==3) {
dominik@126: 						*(bool *)var->addr=(atoi((char *) tokens[2])==1);
dominik@126: 						c=1;
dominik@126: 						} else {
dominik@126: 						*(bool *)var->addr=false;
dominik@126: 						c=1;
dominik@126: 						}
dominik@126: 					}
dominik@126: 				else if (strcmp(tokens[1],"++")==0) {
dominik@126: 					*(bool *)var->addr=!*(bool *)var->addr;
dominik@126: 					c=1;
dominik@126: 					}
dominik@126: 				else if (strcmp(tokens[1],"--")==0) {
dominik@126: 					*(bool *)var->addr=!*(bool *)var->addr;
dominik@126: 					c=1;
dominik@126: 					}	 
dominik@126: 				else { IConsoleError("operation not supported"); }
dominik@126: 				}
dominik@126: 				break;
dominik@126: 		case ICONSOLE_VAR_BYTE:
dominik@126: 				{
dominik@126: 				if (strcmp(tokens[1],"=")==0) {
dominik@126: 					if (c==3) {
dominik@126: 						*(byte *)var->addr=atoi((char *) tokens[2]);
dominik@126: 						c=1;
dominik@126: 						} else {
dominik@126: 						*(byte *)var->addr=0;
dominik@126: 						c=1;
dominik@126: 						}
dominik@126: 					}
dominik@126: 				else if (strcmp(tokens[1],"++")==0) {
dominik@126: 					(*(byte *)var->addr)++;
dominik@126: 					c=1;
dominik@126: 					}
dominik@126: 				else if (strcmp(tokens[1],"--")==0) {
dominik@126: 					(*(byte *)var->addr)--;
dominik@126: 					c=1;
dominik@126: 					}	 
dominik@126: 				else { IConsoleError("operation not supported"); }
dominik@126: 				}
dominik@126: 				break;
dominik@126: 		case ICONSOLE_VAR_UINT16:
dominik@126: 				{
dominik@126: 				if (strcmp(tokens[1],"=")==0) {
dominik@126: 					if (c==3) {
dominik@126: 						*(unsigned short *)var->addr=atoi((char *) tokens[2]);
dominik@126: 						c=1;
dominik@126: 						} else {
dominik@126: 						*(unsigned short *)var->addr=0;
dominik@126: 						c=1;
dominik@126: 						}
dominik@126: 					}
dominik@126: 				else if (strcmp(tokens[1],"++")==0) {
dominik@126: 					(*(unsigned short *)var->addr)++;
dominik@126: 					c=1;
dominik@126: 					}
dominik@126: 				else if (strcmp(tokens[1],"--")==0) {
dominik@126: 					(*(unsigned short *)var->addr)--;
dominik@126: 					c=1;
dominik@126: 					}
dominik@126: 				else { IConsoleError("operation not supported"); }
dominik@126: 				}
dominik@126: 				break;
dominik@126: 		case ICONSOLE_VAR_UINT32:
dominik@126: 				{
dominik@126: 				if (strcmp(tokens[1],"=")==0) {
dominik@126: 					if (c==3) {
dominik@126: 						*(unsigned int *)var->addr=atoi((char *) tokens[2]);
dominik@126: 						c=1;
dominik@126: 						} else {
dominik@126: 						*(unsigned int *)var->addr=0;
dominik@126: 						c=1;
dominik@126: 						}
dominik@126: 					}
dominik@126: 				else if (strcmp(tokens[1],"++")==0) {
dominik@126: 					(*(unsigned int *)var->addr)++;
dominik@126: 					c=1;
dominik@126: 					}
dominik@126: 				else if (strcmp(tokens[1],"--")==0) {
dominik@126: 					(*(unsigned int *)var->addr)--;
dominik@126: 					c=1;
dominik@126: 					}
dominik@126: 				else { IConsoleError("operation not supported"); }
dominik@126: 				}
dominik@126: 				break;
dominik@126: 		case ICONSOLE_VAR_INT16:
dominik@126: 				{
dominik@126: 				if (strcmp(tokens[1],"=")==0) {
dominik@126: 					if (c==3) {
dominik@126: 						*(signed short *)var->addr=atoi((char *) tokens[2]);
dominik@126: 						c=1;
dominik@126: 						} else {
dominik@126: 						*(signed short *)var->addr=0;
dominik@126: 						c=1;
dominik@126: 						}
dominik@126: 					}
dominik@126: 				else if (strcmp(tokens[1],"++")==0) {
dominik@126: 					(*(signed short *)var->addr)++;
dominik@126: 					c=1;
dominik@126: 					}
dominik@126: 				else if (strcmp(tokens[1],"--")==0) {
dominik@126: 					(*(signed short *)var->addr)--;
dominik@126: 					c=1;
dominik@126: 					}
dominik@126: 				else { IConsoleError("operation not supported"); }
dominik@126: 				}
dominik@126: 				break;
dominik@126: 		case ICONSOLE_VAR_INT32:
dominik@126: 				{
dominik@126: 				if (strcmp(tokens[1],"=")==0) {
dominik@126: 					if (c==3) {
dominik@126: 						*(signed int *)var->addr=atoi((char *) tokens[2]);
dominik@126: 						c=1;
dominik@126: 						} else {
dominik@126: 						*(signed int *)var->addr=0;
dominik@126: 						c=1;
dominik@126: 						}
dominik@126: 					}
dominik@126: 				else if (strcmp(tokens[1],"++")==0) {
dominik@126: 					(*(signed int *)var->addr)++;
dominik@126: 					c=1;
dominik@126: 					}
dominik@126: 				else if (strcmp(tokens[1],"--")==0) {
dominik@126: 					(*(signed int *)var->addr)--;
dominik@126: 					c=1;
dominik@126: 					}
dominik@126: 				else { IConsoleError("operation not supported"); }
dominik@126: 				}
dominik@126: 				break;
dominik@126: 		case ICONSOLE_VAR_STRING:
dominik@126: 				{
dominik@126: 				if (strcmp(tokens[1],"=")==0) {
dominik@126: 					if (c==3) {
dominik@126: 						IConsoleVarStringSet(var, tokens[2]);
dominik@126: 						c=1;
dominik@126: 						} else {
dominik@126: 						IConsoleVarStringSet(var, "");
dominik@126: 						c=1;
dominik@126: 						}
dominik@126: 					}
dominik@126: 				else { IConsoleError("operation not supported"); }
dominik@126: 				}
dominik@126: 				break;
dominik@126: 		case ICONSOLE_VAR_POINTER:
dominik@126: 				{
dominik@126: 				if (strcmp(tokens[1],"=")==0) {
dominik@126: 					if (c==3) {
dominik@126: 						var->addr = tokens[2];
dominik@126: 						c=1;
dominik@126: 						} else {
dominik@126: 						var->addr = NULL;
dominik@126: 						c=1;
dominik@126: 						}
dominik@126: 					}
dominik@126: 				else if (strcmp(tokens[1],"++")==0) {
dominik@126: 					var->addr = ((char *)var->addr)+1;
dominik@126: 					c=1;
dominik@126: 					}
dominik@126: 				else if (strcmp(tokens[1],"--")==0) {
dominik@126: 					var->addr = ((char *)var->addr)-1;;
dominik@126: 					c=1;
dominik@126: 					}
dominik@126: 				else { IConsoleError("operation not supported"); }
dominik@126: 				}
dominik@126: 				break;
dominik@126: 			}
dominik@126: 	}
dominik@126: 	if (c==1) {
dominik@126: 		// ** variable output ** //
dominik@126: 		switch (var->type) {
dominik@126: 		case ICONSOLE_VAR_BOOLEAN:
dominik@126: 				{
dominik@126: 				if (*(bool *)var->addr) {
dominik@126: 					IConsolePrintF(_iconsole_color_default, "%s = true",var->name);
dominik@126: 					} else {
dominik@126: 					IConsolePrintF(_iconsole_color_default, "%s = false",var->name);
dominik@126: 					}
dominik@126: 				}
dominik@126: 				break;
dominik@126: 		case ICONSOLE_VAR_BYTE:
dominik@126: 				{
dominik@126: 				var_b=*(byte *)var->addr;
dominik@126: 				IConsolePrintF(_iconsole_color_default, "%s = %i",var->name,var_b);
dominik@126: 				}
dominik@126: 				break;
dominik@126: 		case ICONSOLE_VAR_UINT16:
dominik@126: 				{
dominik@126: 				var_ui16=*(unsigned short *)var->addr;
dominik@126: 				IConsolePrintF(_iconsole_color_default, "%s = %i",var->name,var_ui16);
dominik@126: 				}
dominik@126: 				break;
dominik@126: 		case ICONSOLE_VAR_UINT32:
dominik@126: 				{
dominik@126: 				var_ui32=*(unsigned int *)var->addr;
dominik@126: 				IConsolePrintF(_iconsole_color_default, "%s = %i",var->name,var_ui32);
dominik@126: 				}
dominik@126: 				break;
dominik@126: 		case ICONSOLE_VAR_INT16:
dominik@126: 				{
dominik@126: 				var_i16=*(signed short *)var->addr;
dominik@126: 				IConsolePrintF(_iconsole_color_default, "%s = %i",var->name,var_i16);
dominik@126: 				}
dominik@126: 				break;
dominik@126: 		case ICONSOLE_VAR_INT32:
dominik@126: 				{
dominik@126: 				var_i32=*(signed int *)var->addr;
dominik@126: 				IConsolePrintF(_iconsole_color_default, "%s = %i",var->name,var_i32);
dominik@126: 				}
dominik@126: 				break;
dominik@126: 		case ICONSOLE_VAR_STRING:
dominik@126: 				{
dominik@126: 				var_s=(byte *)var->addr;
dominik@126: 				IConsolePrintF(_iconsole_color_default, "%s = %s",var->name,var_s);
dominik@126: 				}
dominik@126: 				break;
dominik@126: 		case ICONSOLE_VAR_UNKNOWN:
dominik@126: 		case ICONSOLE_VAR_VARPTR:
dominik@126: 		case ICONSOLE_VAR_POINTER:
dominik@126: 				{
dominik@126: 				var_i32=(signed int)((byte *)var->addr);
dominik@126: 				IConsolePrintF(_iconsole_color_default, "%s = @%i",var->name,var_i32);
dominik@126: 				}
dominik@126: 				break;
dominik@126: 			}
dominik@126: 		}
dominik@126: 	}
dominik@126: 	break;
dominik@126: default:
dominik@126: 	{
dominik@126: 	// execution mode invalid
dominik@126: 	IConsoleError("invalid execution mode");
dominik@126: 	}
dominik@126: }
dominik@126: 
dominik@126: //** freeing the tokens **//
dominik@126: for (i=0;i<20;i++) tokens[i]=NULL;
dominik@126: free(tokenstream_s);
dominik@126: 
dominik@126: }
dominik@126: 
dominik@126: /* **************************** */
dominik@126: /*   default console commands   */
dominik@126: /* **************************** */
dominik@126: 
dominik@126: 
dominik@126: static void IConsoleStdLibEcho(byte argc, byte * argv[], byte argt[]) {
dominik@126: 	if (argc<2) return;
dominik@126: 	IConsolePrint(_iconsole_color_default, argv[1]);
dominik@126: }
dominik@126: 
dominik@126: static void IConsoleStdLibEchoC(byte argc, byte * argv[], byte argt[]) {
dominik@126: 	if (argc<3) return;
dominik@126: 	IConsolePrint(atoi(argv[1]), argv[2]);
dominik@126: }
dominik@126: 
dominik@126: static void IConsoleStdLibPrintF(byte argc, byte * argv[], byte argt[]) {
dominik@126: 	if (argc<3) return;
dominik@126: 	IConsolePrintF(_iconsole_color_default, argv[1] ,argv[2],argv[3],argv[4],argv[5],argv[6],argv[7],argv[8],argv[9],argv[10],argv[11],argv[12],argv[13],argv[14],argv[15],argv[16],argv[17],argv[18],argv[19]);
dominik@126: }
dominik@126: 
dominik@126: static void IConsoleStdLibPrintFC(byte argc, byte * argv[], byte argt[]) {
dominik@126: 	if (argc<3) return;
dominik@126: 	IConsolePrintF(atoi(argv[1]), argv[2] ,argv[3],argv[4],argv[5],argv[6],argv[7],argv[8],argv[9],argv[10],argv[11],argv[12],argv[13],argv[14],argv[15],argv[16],argv[17],argv[18],argv[19]);
dominik@126: }
dominik@126: 
dominik@126: static void IConsoleStdLibScreenShot(byte argc, byte * argv[], byte argt[]) {
dominik@126: 	
dominik@126: 	if (argc<2) {
dominik@126: 		_make_screenshot=1;
dominik@126: 	} else {
dominik@126: 		if (strcmp(argv[1],"big")==0) {
dominik@126: 			_make_screenshot=2;
dominik@126: 			}
dominik@126: 		}
dominik@126: }
dominik@126: 
dominik@126: static void IConsoleStdLibDebugLevel(byte argc, byte * argv[], byte argt[]) {
dominik@126: 	if (argc<2) return;
dominik@126: 	SetDebugString(argv[1]);
dominik@126: }
dominik@126: 
dominik@126: static void IConsoleStdLibExit(byte argc, byte * argv[], byte argt[]) {
dominik@126: 	_exit_game = true;
dominik@126: }
dominik@126: 
dominik@126: static void IConsoleStdLibListCommands(byte argc, byte * argv[], byte argt[]) {
dominik@126: _iconsole_cmd * item;
dominik@126: int l = 0;
dominik@126: 
dominik@126: if (argv[1]!=NULL) l = strlen((char *) argv[1]);
dominik@126: 
dominik@126: item = _iconsole_cmds;
dominik@126: while (item != NULL) { 
dominik@126: 	if (argv[1]!=NULL) {
dominik@126: 
dominik@126: 		if (memcmp((void *) item->name, (void *) argv[1],l)==0)
dominik@126: 				IConsolePrintF(_iconsole_color_default,"%s",item->name);
dominik@126: 
dominik@126: 		} else {
dominik@126: 
dominik@126: 		IConsolePrintF(_iconsole_color_default,"%s",item->name);
dominik@126: 
dominik@126: 		}
dominik@126: 	item = item->_next;
dominik@126: 	}
dominik@126: }
dominik@126: 
dominik@126: static void IConsoleStdLibListVariables(byte argc, byte * argv[], byte argt[]) {
dominik@126: _iconsole_var * item;
dominik@126: int l = 0;
dominik@126: 
dominik@126: if (argv[1]!=NULL) l = strlen((char *) argv[1]);
dominik@126: 
dominik@126: item = _iconsole_vars;
dominik@126: while (item != NULL) { 
dominik@126: 	if (argv[1]!=NULL) {
dominik@126: 
dominik@126: 		if (memcmp((void *) item->name, (void *) argv[1],l)==0)
dominik@126: 				IConsolePrintF(_iconsole_color_default,"%s",item->name);
dominik@126: 
dominik@126: 		} else {
dominik@126: 
dominik@126: 		IConsolePrintF(_iconsole_color_default,"%s",item->name);
dominik@126: 
dominik@126: 		}
dominik@126: 	item = item->_next;
dominik@126: 	}
dominik@126: }
dominik@126: 
dominik@126: static void IConsoleStdLibRegister() {
dominik@126: 	IConsoleCmdRegister("echo",IConsoleStdLibEcho);
dominik@126: 	IConsoleCmdRegister("echoc",IConsoleStdLibEchoC);
dominik@126: 	IConsoleCmdRegister("printf",IConsoleStdLibPrintF);
dominik@126: 	IConsoleCmdRegister("printfc",IConsoleStdLibPrintFC);
dominik@126: 	IConsoleCmdRegister("list_cmds",IConsoleStdLibListCommands);
dominik@126: 	IConsoleCmdRegister("list_vars",IConsoleStdLibListVariables);
dominik@126: 	IConsoleCmdRegister("screenshot",IConsoleStdLibScreenShot);
dominik@126: 	IConsoleCmdRegister("debug_level",IConsoleStdLibDebugLevel);
dominik@126: 	IConsoleCmdRegister("exit",IConsoleStdLibExit);
dominik@126: 	IConsoleVarRegister("developer",(void *) &_stdlib_developer,ICONSOLE_VAR_BYTE);
dominik@126: 	IConsoleVarRegister("cursor_rate",(void *) &_icursor_rate,ICONSOLE_VAR_BYTE);
dominik@126: 	IConsoleVarRegister("temp_string",(void *) &_stdlib_temp_string,ICONSOLE_VAR_STRING);
dominik@126: 	IConsoleVarRegister("temp_pointer",(void *) &_stdlib_temp_pointer,ICONSOLE_VAR_POINTER);
dominik@126: 	IConsoleVarRegister("temp_uint32",(void *) &_stdlib_temp_uint32,ICONSOLE_VAR_UINT32);
dominik@126: 	IConsoleVarRegister("temp_bool",(void *) &_stdlib_temp_bool,ICONSOLE_VAR_BOOLEAN);
dominik@126: }
dominik@126: 
dominik@126: