kolibrios-gitea/programs/cmm/Calypte/Calypte.c
pavelyakov 1589fb5312 mem_Init() initialized default
git-svn-id: svn://kolibrios.org@5651 a494cfbc-eb01-0410-851d-a64ba20cac60
2015-08-02 15:15:15 +00:00

371 lines
8.3 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

#ifndef AUTOBUILD
#include "lang.h--"
#endif
#define MEMSIZE 0x100000
#include "..\lib\kolibri.h"
#include "..\lib\strings.h"
#include "..\lib\mem.h"
#include "..\lib\file_system.h"
#include "..\lib\dll.h"
#include "..\lib\gui.h"
#include "..\lib\list_box.h"
#include "..\lib\obj\box_lib.h"
#include "..\lib\obj\proc_lib.h"
#include "..\lib\obj\libio_lib.h"
#ifdef LANG_RUS
?define T_FILE "” ©«"
?define T_TYPE "’¨¯"
?define T_SIZE "<EFBFBD> §¬¥à"
?define MENU1 "” ©«"
?define MENU1_SUBMENU1 "Žâªàëâì"
?define MENU1_SUBMENU2 "‡ ªàëâì"
?define MENU1_SUBMENU3 "‘¢®©á⢠"
?define MENU1_SUBMENU4 "‚ë室"
#else
?define T_FILE "File"
?define T_TYPE "Type"
?define T_SIZE "Size"
?define MENU1 "File"
?define MENU1_SUBMENU1 "Open"
?define MENU1_SUBMENU2 "Close"
?define MENU1_SUBMENU3 "Properties"
?define MENU1_SUBMENU4 "Exit"
#endif
#ifdef LANG_RUS
struct menu_text_struct
{
char menu[5];
char sub_menu1[8];
char sub_menu2[8];
//char sub_menu3[9];
char sub_menu4[6];
byte end;
};
#else
struct menu_text_struct
{
char menu[5];
char sub_menu1[5];
char sub_menu2[6];
//char sub_menu3[11];
char sub_menu4[5];
byte end;
};
#endif
#define TOPPANELH 19
#define BOTPANELH 10
#define WIN_W 600
#define WIN_H 400
#define TITLE "Calypte v0.12"
char win_title[4096] = TITLE;
proc_info Form;
system_colors sc;
dword old_width,old_height;
llist tview;
byte active_properties = 0;
dword properties_window;
#include "include\gui.h"
#include "include\properties.h"
// #include "include\top_menu.h"
// #include "include\open_dial.h"
struct filter
{
dword size;
char ext1[4];
//char ext2[4];
//char ext3[4];
//char ext4[4];
byte end;
};
filter filter2;
menu_text_struct menu_text_area1;
int read=0;
proc_info pr_inf;
char communication_area_name[] = "FFFFFFFF_open_dialog";
byte plugin_path[4096];
char default_dir[] = "/rd/1";
char open_dialog_path[] = "/rd/1/File managers/opendial"; //opendial
byte openfile_path[2048];
byte filename_area[4096];
opendialog o_dialog = {0, #pr_inf, #communication_area_name, 0, #plugin_path, #default_dir, #open_dialog_path, #draw_window, 0, #openfile_path, #filename_area, #filter2, 420, 200, 320, 120};
dword bufpointer;
dword bufsize;
dword draw_sruct;
menu_data menudata1 = {0, 40, 2, 15, 2, #menu_text_area1.menu, #menu_text_area1.sub_menu1, #menu_text_area1.end, 0, 0, 80, 2, 100, 18, 0xEEEEEE, 0xFF, 0xEEEEEE, 0, 0, 0, #Form, 0, 0, 0, 16, 0, 0, 0x00CC00, 0, 0xFFFFFF, 0, 8, 0, 0};
void main()
{
int id, key;
strcpy(#filter2.ext1, "TXT");
//strcpy(#filter2.ext2, "ASM");
//strcpy(#filter2.ext3, "INC\0");
//strcpy(#filter2.ext4, "\0");
filter2.size = 8;
filter2.end = 0;
strcpy(#menu_text_area1.menu, MENU1);
strcpy(#menu_text_area1.sub_menu1, MENU1_SUBMENU1);
strcpy(#menu_text_area1.sub_menu2, MENU1_SUBMENU2);
//strcpy(#menu_text_area1.sub_menu3, MENU1_SUBMENU3);
strcpy(#menu_text_area1.sub_menu4, MENU1_SUBMENU4);
menu_text_area1.end = 0;
load_dll(boxlib, #box_lib_init,0);
load_dll(libio, #libio_init,1);
load_dll(Proc_lib, #OpenDialog_init,0);
OpenDialog_init stdcall (#o_dialog);
SetEventMask(0x27);
loop()
{
switch(WaitEvent())
{
case evMouse:
mouse.get();
if (tview.MouseScrollNoSelection(mouse.vert)) DrawText();
menu_bar_mouse stdcall (#menudata1);
if (menudata1.click)
{
switch(menudata1.cursor_out)
{
case 1:
OpenDialog_start stdcall (#o_dialog);
OpenFile(#openfile_path);
Prepare();
draw_window();
break;
case 2:
read = 0;
strcpy(#win_title, TITLE);
FreeBuf();
draw_window();
break;
case 3:
if (!active_properties)
{
SwitchToAnotherThread();
properties_window = CreateThread(#properties_dialog, #properties_stak+4092);
break;
}
else
{
ActivateWindow(GetProcessSlot(properties_window));
}
break;
case 4:
ExitProcess();
}
}
break;
case evButton:
id=GetButtonID();
if (id==1) ExitProcess();
break;
case evKey:
if (Form.status_window>2) break;
key = GetKey();
switch (key)
{
case 015: //Ctrl+O
OpenDialog_start stdcall (#o_dialog);
OpenFile(#openfile_path);
Prepare();
draw_window();
break;
case ASCII_KEY_HOME:
case ASCII_KEY_END:
case ASCII_KEY_UP:
case ASCII_KEY_DOWN:
if (tview.ProcessKey(key)) DrawText();
break;
case ASCII_KEY_PGUP:
if (!tview.current) break;
if (tview.current<tview.visible) tview.current = 0;
else tview.current = tview.current-tview.visible;
DrawText();
break;
case ASCII_KEY_PGDN:
if (tview.current+tview.visible>tview.count) break;
tview.current = tview.current+tview.visible;
DrawText();
break;
}
break;
case evReDraw:
draw_window();
break;
}
}
}
void draw_window()
{
sc.get();
DefineAndDrawWindow(GetScreenWidth()-WIN_W/2,GetScreenHeight()-WIN_H/2,WIN_W,WIN_H,0x73,0xFFFFFF,#win_title);
GetProcessInfo(#Form, SelfInfo);
if (Form.status_window>2) return;
tview.SetSizes(0, TOPPANELH, Form.cwidth, Form.cheight-BOTPANELH-TOPPANELH, 200, 12);
DrawBar(0, 0, Form.cwidth, TOPPANELH, sc.work);
DrawBar(0, Form.cheight-BOTPANELH, Form.cwidth, BOTPANELH, sc.work);
menudata1.bckg_col = sc.work;
menu_bar_draw stdcall (#menudata1);
if (old_width!=Form.width) || (old_height!=Form.height)
{
old_width = Form.width;
old_height = Form.height;
if (read==1) Prepare();
tview.debug_values();
}
if (read==1)
{
DrawText();
}
else DrawBar(tview.x, tview.y, tview.w, tview.h, 0xFFFFFF);
}
void OpenFile(dword path)
{
strcpy(#win_title, TITLE);
strcat(#win_title, " - ");
strcat(#win_title, path);
file_size stdcall (path);
bufsize = EBX;
if (bufsize)
{
mem_Free(bufpointer);
bufpointer = mem_Alloc(bufsize);
ReadFile(0, bufsize, bufpointer, path);
read=1;
}
}
void FreeBuf()
{
int i;
for (i=0; i<tview.count; i++)
{
mem_Free(DSDWORD[i*4+draw_sruct]);
}
mem_Free(draw_sruct);
mem_Free(bufpointer);
}
void Prepare()
{
int i, sub_pos;
static int cur_pos;
int len_str = 0;
byte do_eof = 0;
word bukva[2];
dword address;
tview.count = 0;
while(1)
{
while(1)
{
bukva = DSBYTE[bufpointer+cur_pos+len_str];
if (bukva=='\0')
{
do_eof = 1;
break;
}
if (bukva==0x0a) break;
else len_str++;
}
if (len_str<=tview.column_max)
{
cur_pos=cur_pos+len_str+1;
tview.count++;
}
else
{
cur_pos=cur_pos+tview.column_max;
tview.count++;
}
len_str = 0;
if (do_eof) break;
}
mem_Free(draw_sruct);
draw_sruct = mem_Alloc(tview.count*4);
cur_pos=0;
sub_pos=0;
len_str = 0;
do_eof = 0;
while(1)
{
while(1)
{
bukva = DSBYTE[bufpointer+cur_pos+len_str];
if (bukva=='\0')
{
do_eof = 1;
break;
}
if (bukva==0x0a) break;
else len_str++;
}
if (len_str<=tview.column_max)
{
address = mem_Alloc(len_str+1);
ESDWORD[sub_pos*4+draw_sruct] = address;
strlcpy(DSDWORD[sub_pos*4+draw_sruct], bufpointer+cur_pos, len_str);
cur_pos=cur_pos+len_str+1;
sub_pos++;
}
else
{
address = mem_Alloc(len_str+1);
ESDWORD[sub_pos*4+draw_sruct] = address;
strlcpy(DSDWORD[sub_pos*4+draw_sruct], bufpointer+cur_pos, tview.column_max);
cur_pos=cur_pos+tview.column_max;
sub_pos++;
}
len_str = 0;
if (cur_pos>=bufsize-1) break;
}
cur_pos=0;
}
void DrawText()
{
int i, top, num_line;
if (tview.count<tview.visible) top = tview.count;
else
{
if (tview.count-tview.current<=tview.visible) top = tview.count-tview.current-1;
else top = tview.visible;
}
DrawBar(tview.x, tview.y, tview.w, 3, 0xFFFFFF);
for (i=0, num_line = tview.current; i<top; i++, num_line++)
{
DrawBar(tview.x, i * tview.line_h + tview.y + 3, tview.w, tview.line_h, 0xFFFFFF);
WriteText(tview.x + 2, i * tview.line_h + tview.y + 3, 0x80, 0x000000, DSDWORD[num_line*4+draw_sruct]);
}
DrawBar(0, i * tview.line_h + tview.y + 3, tview.w, -i* tview.line_h + tview.h, 0xFFFFFF);
}
stop:
char properties_stak[4096];