cmm/process: upload release version

git-svn-id: svn://kolibrios.org@6696 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/cmm/process/Tupfile.lua

@@ -0,0 +1,6 @@
+if tup.getconfig("NO_CMM") ~= "" then return end
+if tup.getconfig("LANG") == "ru"
+then C_LANG = "LANG_RUS"
+else C_LANG = "LANG_ENG" -- this includes default case without config
+end
+tup.rule("process.c", "c-- /D=AUTOBUILD /D=$(C_LANG) %f" .. tup.getconfig("KPACK_CMD"), "process.com")

programs/cmm/process/compile.bat

@@ -0,0 +1,9 @@
+@del lang.h--
+@echo #define LANG_RUS 1 >lang.h--
+
+C-- process.c
+@del process
+@rename process.com process
+@pause
+@del lang.h--
+@del warning.txt

programs/cmm/process/process.c

@@ -0,0 +1,187 @@
+#define MEMSIZE 4096*20
+
+//===================================================//
+//                                                   //
+//                       LIB                         //
+//                                                   //
+//===================================================//
+
+#include "../lib/gui.h"
+#include "../lib/list_box.h"
+#include "../lib/obj/box_lib.h"
+#include "../lib/io.h"
+#include "../lib/patterns/select_list.h"
+
+//===================================================//
+//                                                   //
+//                       DATA                        //
+//                                                   //
+//===================================================//
+
+#define T_WINDOW_TITLE "Process Manager"
+#define T_SHOW_SYSTEM_PROCESSES "Show system"
+#define T_DETAILS "Details"
+#define T_END_PROCESS "End process"
+
+
+#define BOTPANEL_H 34
+proc_info Form;
+proc_info Process;
+
+enum {
+	BTN_ID_SHOW_SYSTEM_PROCESSES=20,
+	BTN_ID_KILL_PROCESS,
+	BTN_ID_SHOW_PROCESS_INFO
+};
+
+int current_process_id = 0;
+int show_system;
+unsigned maxcpu;
+int proc_list[256];
+
+//===================================================//
+//                                                   //
+//                       CODE                        //
+//                                                   //
+//===================================================//
+
+void GetCpuFrequency() {
+	EAX = 18;
+	EBX = 5;
+	$int 0x40
+	maxcpu = EAX;
+}
+
+void main()
+{
+	byte btn;
+	load_dll(boxlib, #box_lib_init,0);
+	SetEventMask(10000000000000000000000001100111b);
+	debugi(3);
+	GetCpuFrequency();
+	debugi(4);
+	loop()
+	{
+	  WaitEventTimeout(50);
+	  switch(EAX & 0xFF)
+	  {
+	   	case evMouse:
+			if (!CheckActiveProcess(Form.ID)) break;
+			SelectList_ProcessMouse();
+			break;
+		case evKey:
+			GetKeys();
+			if (select_list.ProcessKey(key_scancode)) SelectList_LineChanged();
+			break;
+		case evButton:
+			btn = GetButtonID();
+			if (1 == btn) 
+			{
+				ExitProcess();
+			}
+			if (BTN_ID_SHOW_SYSTEM_PROCESSES == btn)  
+			{ 
+				show_system ^= 1; 
+				Draw_ShowSystemProcessesCheckbox();
+				SelectList_LineChanged();
+			}
+			if (BTN_ID_KILL_PROCESS == btn)  
+			{
+				KillProcess(current_process_id);
+				pause(10);
+				SelectList_LineChanged(); 
+			}
+			if (BTN_ID_SHOW_PROCESS_INFO == btn)  
+			{
+				io.run("/sys/tinfo", itoa(GetProcessSlot(current_process_id))); 
+			}
+			break;
+		case evReDraw:
+			system.color.get();
+			DefineAndDrawWindow(screen.width-400/2,screen.height-450/2,400,454,0x73,0,T_WINDOW_TITLE);
+			GetProcessInfo(#Form, SelfInfo);
+			if (Form.status_window>2) break;
+			if (Form.width  < 300) { MoveSize(OLD,OLD,300,OLD); break; }
+			if (Form.height < 200) { MoveSize(OLD,OLD,OLD,200); break; }
+			SelectList_Init(6, 6, Form.cwidth-12 - scroll1.size_x, Form.cheight-12-BOTPANEL_H, false);
+			SelectList_DrawBorder();
+			DrawWideRectangle(0, 0, Form.cwidth, Form.cheight, 4, system.color.work);
+			DrawBar(select_list.x-2, select_list.y+select_list.h+2, 
+				select_list.w+scroll1.size_x+4, BOTPANEL_H, system.color.work);
+			DrawCaptButton(Form.cwidth-116,
+				select_list.y+select_list.h+5,
+				110,25,BTN_ID_KILL_PROCESS,0xF38181, 0xFFFfff, T_END_PROCESS);
+			DrawCaptButton(Form.cwidth-236,
+				select_list.y+select_list.h+5,
+				110,25,BTN_ID_SHOW_PROCESS_INFO,
+				system.color.work_button, system.color.work_button_text, T_DETAILS);
+			Draw_ShowSystemProcessesCheckbox();
+		default:
+			SelectList_LineChanged();
+	  }
+	}
+}
+
+void SelectList_LineChanged() 
+{
+	GetProcessList();
+	SelectList_Draw();
+}
+
+
+void GetProcessList()
+{
+	int i, j;
+	select_list.count=0;
+	for (i=0; i<65535; i++)
+	{
+		GetProcessInfo(#Process, i);
+		if (Process.name) 
+		{
+			for (j=0; j<11; j++) if (Process.name[j]!=' ') { 
+				if (show_system==false) {
+					//do not show system process
+					if (Process.name[0]=='@') break;
+					if (!strcmp(#Process.name, "IDLE")) break;
+					if (!strcmp(#Process.name, "OS")) break;
+				}
+				proc_list[select_list.count] = i;
+				select_list.count++;
+				break; 
+			}
+		}
+	}
+}
+
+void SelectList_DrawLine(dword i)
+{
+	int posy;
+	char cpu_use[16];
+	dword bg_color;
+	GetProcessInfo(#Process, proc_list[i+select_list.first]);
+	
+	posy = i *select_list.item_h + select_list.y;
+	if (i % 2) bg_color = 0xFFFfff; else bg_color = 0xF0F0F0;
+	if (i+select_list.first == select_list.cur_y) {
+		current_process_id = Process.ID; 
+		bg_color = 0x67CCEB;
+	}
+	DrawBar(select_list.x, posy, select_list.w, select_list.item_h, bg_color);
+	WriteText(select_list.x+005, posy+select_list.text_y, select_list.font_type, 0, #Process.name);
+	WriteText(select_list.w/10*5+select_list.x, posy+select_list.text_y, select_list.font_type, 0x444444, ConvertSizeToKb(Process.use_memory));
+	sprintf(#cpu_use, "%i %%", Process.use_cpu*100/maxcpu);
+	if (maxcpu) WriteText(select_list.w/10*8+select_list.x - calc(strlen(#cpu_use)-4*8), 
+		posy+select_list.text_y, select_list.font_type, 0x444444, #cpu_use);
+}
+
+
+void Draw_ShowSystemProcessesCheckbox() {
+	CheckBox(select_list.x + 3, select_list.y+select_list.h+10, 20,
+		T_SHOW_SYSTEM_PROCESSES, show_system);
+}
+
+
+
+
+
+stop: