//Calypte 0.3 - Leency
//Calypte 0.15 - Punk Joker

#define MEMSIZE 1024*80

#ifndef AUTOBUILD
	#include "lang.h--"
#endif


//===================================================//
//                                                   //
//                       LIB                         //
//                                                   //
//===================================================//

#include "../lib/kolibri.h" 
#include "../lib/file_system.h"
#include "../lib/gui.h"
#include "../lib/list_box.h"
#include "../lib/menu.h"

#include "../lib/obj/iconv.h"
//#include "../lib/obj/box_lib.h" //TO CHECK: boxlib doesn't work well with opendial
#include "../lib/obj/proc_lib.h"
#include "../lib/obj/libio_lib.h"

#include "../lib/patterns/simple_open_dialog.h"

char default_dir[] = "/rd/1";
od_filter filter2 = { "TXT",0};

//===================================================//
//                                                   //
//                       DATA                        //
//                                                   //
//===================================================//

/*=========  MENU  ==========*/
?define MENU1 "File"
?define MENU2 "Encoding"
?define MENU3 "Reopen"

char menu_file_list[] =
"Open
Close
Properties
Exit";

char menu_encoding_list[] =
"UTF-8
KOI8-RU
CP1251
CP1252
ISO8859-5
CP866";

char menu_reopen_list[] =
"Tinypad
TextEdit
TextRead
WebView
FB2Read
HexView";

enum {
	MENU_ID_FILE=10,
	FILE_SUBMENU_ID_OPEN=10,
	FILE_SUBMENU_ID_CLOSE,
	FILE_SUBMENU_ID_PROPERTIES,
	FILE_SUBMENU_ID_EXIT,

	MENU_ID_ENCODING=20,

	MENU_ID_REOPEN=30,
	FILE_SUBMENU_ID_TINYPAD=30,
	FILE_SUBMENU_ID_TEXTEDIT,
	FILE_SUBMENU_ID_TEXTREAD,
	FILE_SUBMENU_ID_WEBVIEW,
	FILE_SUBMENU_ID_FB2READ,
	FILE_SUBMENU_ID_HEXVIEW
};

int menu_file_x = 6;
int menu_encoding_x = NULL;
int menu_reopen_x = NULL;
/*======== MENU END ==========*/

#define TITLE "Calypte v0.3"
char win_title[4096] = TITLE;

#define TOPPANELH 23
#define BOTPANELH 10
#define WIN_W 750
#define WIN_H 550

proc_info Form;
llist rows;

int encoding;
	
dword old_width,old_height;

dword bufpointer;
dword bufsize;
dword draw_sruct;

//===================================================//
//                                                   //
//                       CODE                        //
//                                                   //
//===================================================//

void InitDlls()
{
	//load_dll(boxlib,    #box_lib_init,   0);
	load_dll(libio,     #libio_init,     1);
	load_dll(iconv_lib, #iconv_open,     0);
	load_dll(Proc_lib,  #OpenDialog_init,0);
	OpenDialog_init stdcall (#o_dialog);
}

void main()
{   
	int id;

	InitDlls();
	
	SetEventMask(EVM_REDRAW+EVM_KEY+EVM_BUTTON+EVM_MOUSE+EVM_MOUSE_FILTER);
	loop()
	{
	  switch(WaitEvent())
	  {
		case evMouse:
			mouse.get();
			rows.wheel_size = 3;
			if (rows.MouseScroll(mouse.vert)) {
				DrawText();
				break; 
			}
			break;
		
		case evButton:
			id=GetButtonID();               
			if (id==1) ExitProcess();
			if (id==MENU_ID_FILE) menu.show(
				Form.left+5 + menu_file_x, 
				Form.top+skin_height + TOPPANELH, 
				140, 
				#menu_file_list, 
				MENU_ID_FILE);

			if (id==MENU_ID_ENCODING) menu.show(
				Form.left+5 + menu_encoding_x, 
				Form.top+skin_height + TOPPANELH, 
				120, 
				#menu_encoding_list, 
				MENU_ID_ENCODING);

			if (id==MENU_ID_REOPEN) menu.show(
				Form.left+5 + menu_reopen_x, 
				Form.top+skin_height + TOPPANELH, 
				120, 
				#menu_reopen_list, 
				MENU_ID_REOPEN);
			break;
		
		case evKey:
			GetKeys();
			if (key_modifier&KEY_LCTRL) || (key_modifier&KEY_RCTRL)
			{
				if (key_scancode == SCAN_CODE_KEY_O) EventOpenFile();
				break;
			}
			if (rows.ProcessKey(key_scancode)) DrawText();
			break;
		 
		 case evReDraw:
			if (menu.list.cur_y) {
				if (menu.list.cur_y == FILE_SUBMENU_ID_OPEN) EventOpenFile();
				if (menu.list.cur_y == FILE_SUBMENU_ID_CLOSE) EventCloseFile();
				if (menu.list.cur_y == FILE_SUBMENU_ID_PROPERTIES) EventShowFileProperties();
				if (menu.list.cur_y == FILE_SUBMENU_ID_EXIT) ExitProcess();

				if (menu.list.cur_y > MENU_ID_ENCODING) && (menu.list.cur_y < MENU_ID_ENCODING + 10) 
					EventChangeEncoding(menu.list.cur_y - MENU_ID_ENCODING);

				if (menu.list.cur_y == FILE_SUBMENU_ID_TINYPAD) ReopenFileIn("/sys/tinypad");
				if (menu.list.cur_y == FILE_SUBMENU_ID_TEXTEDIT) ReopenFileIn("/sys/develop/t_edit");
				if (menu.list.cur_y == FILE_SUBMENU_ID_TEXTREAD) ReopenFileIn("/sys/txtread");
				if (menu.list.cur_y == FILE_SUBMENU_ID_WEBVIEW) ReopenFileIn("/sys/network/webview");
				if (menu.list.cur_y == FILE_SUBMENU_ID_FB2READ) ReopenFileIn("/sys/fb2read");
				if (menu.list.cur_y == FILE_SUBMENU_ID_HEXVIEW) ReopenFileIn("/sys/develop/heed");
				

				menu.list.cur_y = 0;
			};
			draw_window();
			break;
	  }
   }
}

void ReopenFileIn(dword app)
{
	RunProgram(app, #param);
}

void EventOpenFile()
{
	OpenDialog_start stdcall (#o_dialog);
	OpenFile(#openfile_path);
	Prepare();
	draw_window();
}

void EventCloseFile()
{
	strcpy(#win_title, TITLE);
	FreeBuf();
	draw_window();	
}

void EventShowFileProperties()
{
char ss_param[4096];
	if (!bufpointer) return;
	sprintf(#ss_param, "-p %s", #param);
	RunProgram("/sys/File managers/Eolite", #ss_param);
}

void EventChangeEncoding(dword id)
{
	encoding = id;
	OpenFile(#openfile_path);
	Prepare();
	draw_window();
}

int DrawMenuButton(dword x,y,id,text)
{
	int textlen = strlen(text)*8;
	int padding = 12;
	DefineHiddenButton(x, y, textlen+padding+padding, TOPPANELH-2, id);
	WriteText(x+padding,y+4, 0x90, MixColors(system.color.work, system.color.work_text, 70), text);
	return textlen+padding+padding;
}

void draw_window()
{
	system.color.get();
	DefineAndDrawWindow(GetScreenWidth()-WIN_W/2,GetScreenHeight()-WIN_H/2,WIN_W,WIN_H,0x73,0xFFFFFF,#win_title,0);
	GetProcessInfo(#Form, SelfInfo);
	DrawBar(0, 0, Form.cwidth, TOPPANELH-1, system.color.work);
	DrawBar(0, TOPPANELH-1, Form.cwidth, 1, system.color.work_dark);
	DrawBar(0, Form.cheight-BOTPANELH, Form.cwidth, BOTPANELH, system.color.work);
	
	menu_encoding_x = menu_file_x + DrawMenuButton(menu_file_x, 0, MENU_ID_FILE, MENU1);
	menu_reopen_x = menu_encoding_x + DrawMenuButton(menu_encoding_x, 0, MENU_ID_ENCODING, MENU2);
	DrawMenuButton(menu_reopen_x, 0, MENU_ID_REOPEN, MENU3);

	if (old_width!=Form.width) || (old_height!=Form.height)
	{
		old_width = Form.width;
		old_height = Form.height;
		
		rows.no_selection = true;
		rows.SetFont(8, 14, 0x90);
		rows.SetSizes(0, TOPPANELH, Form.cwidth, Form.cheight - TOPPANELH - BOTPANELH, 20);
		rows.column_max = rows.w / rows.font_w;

		if (bufpointer) Prepare();
		rows.CheckDoesValuesOkey();
	}
	if (bufpointer) 
	{
		DrawText();
	}
	else DrawBar(0, TOPPANELH, Form.cwidth, Form.cheight-BOTPANELH-TOPPANELH, 0xFFFFFF);
}

void OpenFile(dword _path)
{
	strcpy(#param, _path);
	sprintf(#win_title, "%s - %s", TITLE, #param);
	rows.KeyHome();
	file_size stdcall (#param);
	bufsize = EBX;
	if (bufsize)
	{
		bufpointer = mem_Free(bufpointer);
		bufpointer = mem_Alloc(bufsize);
		if (ReadFile(0, bufsize, bufpointer, #param) != 0) {
			bufpointer = 0;
			notify("'Error opening file'-E");
		}
	}
	if (encoding!=CH_CP866) ChangeCharset(charsets[encoding], "CP866", bufpointer);
}

void FreeBuf()
{
	int i;
	for (i=0; i<rows.count; i++)
	{
		mem_Free(DSDWORD[i*4+draw_sruct]);
	}
	draw_sruct = mem_Free(draw_sruct);
	bufpointer = mem_Free(bufpointer);
}

enum {
	PARSE_CALCULATE_ROWS_COUNT,
	PARSE_DRAW_PREPARE,
};
void Parse(int mode)
{
	int pos=0;
	int sub_pos=0;
	int len_str = 0;
	bool do_eof = false;
	word bukva[2];

	while(1)
	{
		while(1)
		{
			bukva = DSBYTE[bufpointer+pos+len_str];
			if (bukva=='\0')
			{
				do_eof = true;
				break;
			}
			if (bukva==0x0a) break;
			else len_str++;
		}
		if (len_str<=rows.column_max) 
		{
			if (mode==PARSE_DRAW_PREPARE)
			{
				ESDWORD[sub_pos*4+draw_sruct] = mem_Alloc(len_str+1);
				strlcpy(DSDWORD[sub_pos*4+draw_sruct], bufpointer+pos, len_str); //-1 to do not show \n symbol				
			}
			pos += len_str+1;
		}
		else
		{
			if (mode==PARSE_DRAW_PREPARE)
			{
				ESDWORD[sub_pos*4+draw_sruct] = mem_Alloc(len_str+1);
				strlcpy(DSDWORD[sub_pos*4+draw_sruct], bufpointer+pos, rows.column_max);					
			}
			pos += rows.column_max;
		}
		sub_pos++;
		if (mode==PARSE_CALCULATE_ROWS_COUNT) if (do_eof) break;
		if (mode==PARSE_DRAW_PREPARE) if (pos>=bufsize-1) break;
		len_str = 0;
	}
	if (mode == PARSE_CALCULATE_ROWS_COUNT)
	{
		rows.count = sub_pos;
		draw_sruct = mem_Free(draw_sruct);
		draw_sruct = mem_Alloc(rows.count*4);
		Parse(PARSE_DRAW_PREPARE);

	}
}

void Prepare()
{
	Parse(PARSE_CALCULATE_ROWS_COUNT);
}

void DrawText()
{
	int i, top;

	if (rows.count<rows.visible) top = rows.count;
	else
	{
		if (rows.count-rows.first<=rows.visible) top = rows.count-rows.first-1;
		else top = rows.visible;
	}

	for (i=0; i<top; i++)
	{
		DrawBar(0, i*rows.item_h+TOPPANELH, Form.cwidth, rows.item_h, 0xFFFFFF);
		WriteText(2, i*rows.item_h+TOPPANELH, 0x90, 0x000000, DSDWORD[i+rows.first*4+draw_sruct]);
	}
	DrawBar(0, i*rows.item_h+rows.y, rows.w, -i*rows.item_h + rows.h, 0xFFFfff);
}

stop: