//Calypte 0.35 - Leency
//Calypte 0.15 - Punk Joker

/* 
TODO
- word wrap
- draw by line
- text selection
*/

#define MEMSIZE 1024*200

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

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

#include "../lib/kolibri.h" 
#include "../lib/fs.h"
#include "../lib/gui.h"
#include "../lib/list_box.h"
#include "../lib/collection.h"

#include "../lib/obj/iconv.h"
#include "../lib/obj/box_lib.h"
#include "../lib/obj/proc_lib.h"
#include "../lib/obj/librasterworks.h"

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

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

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

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

char menu_file_list[] =
"Open|Ctrl+O
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.38 dev"
char win_title[4096] = TITLE;

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

proc_info Form;
llist rows;

int encoding;
	
dword old_width,old_height;

dword bufpointer;
dword bufsize;

scroll_bar scroll_v = { SCROLL_SIZE,200,398,44,0,2,115,15,0,0xeeeeee,0xBBBbbb,0xeeeeee,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1};
scroll_bar scroll_h = { SCROLL_SIZE,200,398,44,0,2,115,15,0,0xeeeeee,0xBBBbbb,0xeeeeee,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1};

collection s=0;

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

void main()
{   
	int id;

	load_dll(boxlib,    #box_lib_init,   0);
	//load_dll(libini,    #lib_init,       1);
	load_dll(iconv_lib, #iconv_open,     0);
	load_dll(Proc_lib,  #OpenDialog_init,0);
	load_dll(librasterworks,  #rasterworks_drawText,0);
	OpenDialog_init stdcall (#o_dialog);

	if (param)
	{
		draw_window();
		OpenFile(#param);
		Prepare();
		DrawText();
	}
	
	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;
		
		case evButton:
			id=GetButtonID();               
			if (id==1)
			{
				ExitProcess();
			}
			if (id==MENU_ID_FILE) 
			{
				EventShowMenu(menu_file_x, #menu_file_list, MENU_ID_FILE, NULL);
			}
			if (id==MENU_ID_ENCODING) 
			{
				EventShowMenu(menu_encoding_x, #menu_encoding_list, MENU_ID_ENCODING, encoding+1);
			}
			if (id==MENU_ID_REOPEN) 
			{
				EventShowMenu(menu_reopen_x, #menu_reopen_list, MENU_ID_REOPEN, NULL);
			}
			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 (CheckActiveProcess(Form.ID)) EventMenuClick();
			draw_window();
			break;
	  }
   }
}

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(sc.work, sc.work_text, 70), text);
	return textlen+padding+padding;
}

void draw_window()
{
	sc.get();
	DefineAndDrawWindow(screen.width-WIN_W/2,screen.height-WIN_H/2,WIN_W,WIN_H,0x73,0xFFFFFF,#win_title,0);
	GetProcessInfo(#Form, SelfInfo);
	DrawBar(0, 0, Form.cwidth, TOPPANELH-1, sc.work);
	DrawBar(0, TOPPANELH-1, Form.cwidth, 1, sc.work_dark);
	DrawBar(0, Form.cheight-BOTPANELH, Form.cwidth, BOTPANELH, sc.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 - SCROLL_SIZE, Form.cheight - TOPPANELH - BOTPANELH, 20);
		rows.column_max = rows.w / rows.font_w;

		if (bufpointer)
		{
			Prepare();
		}
		rows.CheckDoesValuesOkey();
	}
	DrawRectangle(rows.x+rows.w-1, rows.y, SCROLL_SIZE, rows.h-1, 0xEEEeee);
	DrawText();
}

void OpenFile(dword _path)
{
	strcpy(#param, _path);
	sprintf(#win_title, "%s - %s", TITLE, #param);
	rows.KeyHome();
	read_file(#param, #bufpointer, #bufsize);
	if (!EAX)
	{
		bufpointer = 0;
		notify("'Error opening file'-E");
		return;
	}
	if (encoding!=CH_CP866)
	{
		ChangeCharset(encoding, "CP866", 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)
			{
				s.addn(bufpointer+pos, len_str);
			}
			pos += len_str+1;
		}
		else
		{
			if (mode==PARSE_DRAW_PREPARE)
			{
				s.addn(bufpointer+pos, rows.column_max);
			}
			pos += rows.column_max;
		}
		sub_pos++;
		if (mode==PARSE_CALCULATE_ROWS_COUNT) && (do_eof)
		{
			break;
		}
		if (mode==PARSE_DRAW_PREPARE) && (pos>=bufsize-1)
		{
			break;
		}
		len_str = 0;
	}
	if (mode == PARSE_CALCULATE_ROWS_COUNT)
	{
		rows.count = sub_pos;
		Parse(PARSE_DRAW_PREPARE);
	}
}

void Prepare()
{
	Parse(PARSE_CALCULATE_ROWS_COUNT);
}

void DrawText()
{
	int i=0, 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;
		}
	}

	if (bufpointer)
	{
		for (i=0; i<top; i++)
		{
			DrawBar(0, i*rows.item_h+TOPPANELH, rows.w, rows.item_h, 0xFFFFFF);
			WriteText(2, i*rows.item_h+TOPPANELH, 0x90, 0x000000, s.get(i+rows.first));
		}
	}
	DrawBar(0, i*rows.item_h+rows.y, rows.w, -i*rows.item_h + rows.h, 0xFFFfff);
	DrawVerticalScroll();
}

void DrawVerticalScroll()
{
	scroll_v.max_area = rows.count;
	scroll_v.cur_area = rows.visible;
	scroll_v.position = rows.first;
	scroll_v.start_y = rows.y;
	scroll_v.size_y = rows.h;
	scroll_v.start_x = rows.w + rows.x -1;
	scroll_v.all_redraw = 0;
	scrollbar_v_draw(#scroll_v);
}

//===================================================//
//                                                   //
//                      EVENTS                       //
//                                                   //
//===================================================//
dword menu_id;
void EventMenuClick()
{
	dword click_id = get_menu_click();
	if (click_id) switch(click_id + menu_id - 1)
	{
		//File
		case FILE_SUBMENU_ID_OPEN:
			EventOpenFile();
			break;
		case FILE_SUBMENU_ID_CLOSE:
			EventCloseFile();
			break;
		case FILE_SUBMENU_ID_PROPERTIES:
			EventShowFileProperties();
			break;
		case FILE_SUBMENU_ID_EXIT:
			ExitProcess();
			break;
		//Encoding
		case MENU_ID_ENCODING...MENU_ID_ENCODING+9:
			EventChangeEncoding(click_id-1);
			break;
		//Reopen
		case FILE_SUBMENU_ID_TINYPAD:
			EventOpenFileInAnotherProgram("/sys/tinypad");
			break;
		case FILE_SUBMENU_ID_TEXTEDIT:
			EventOpenFileInAnotherProgram("/sys/develop/t_edit");
			break;
		case FILE_SUBMENU_ID_TEXTREAD:
			EventOpenFileInAnotherProgram("/sys/quark");
			break;
		case FILE_SUBMENU_ID_WEBVIEW:
			EventOpenFileInAnotherProgram("/sys/network/webview");
			break;
		case FILE_SUBMENU_ID_FB2READ:
			EventOpenFileInAnotherProgram("/sys/fb2read");
			break;
		case FILE_SUBMENU_ID_HEXVIEW:
			EventOpenFileInAnotherProgram("/sys/develop/heed");
			break;
	}
}

void EventShowMenu(dword _menu_item_x, _menu_list, _id, _selected)
{
	open_lmenu(_menu_item_x, TOPPANELH, MENU_TOP_LEFT, 
		_selected, _menu_list);
	menu_id = _id;
}

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

void EventCloseFile()
{
	if (bufpointer)
	{
		s.drop();
		bufpointer = mem_Free(bufpointer);
		strcpy(#win_title, TITLE);
		draw_window();
	}
}

void EventShowFileProperties()
{
	char ss_param[4096];
	if (bufpointer)
	{
		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();
}

void EventOpenFileInAnotherProgram(dword _app)
{
	RunProgram(_app, #param);
}



stop: