From 23d86a6122a0d8cd4879a0a43647341458ecd46f Mon Sep 17 00:00:00 2001
From: "Kirill Lipatov (Leency)" <lipatov.kiril@gmail.com>
Date: Mon, 7 Nov 2016 14:41:01 +0000
Subject: [PATCH] CMM: add template app, console library headers

git-svn-id: svn://kolibrios.org@6684 a494cfbc-eb01-0410-851d-a64ba20cac60
---
 programs/cmm/lib/debug.h             | 15 ++----
 programs/cmm/lib/obj/console.h       | 75 ++++++++++++++++++++++++++++
 programs/cmm/template/Tupfile.lua    |  6 +++
 programs/cmm/template/compile_en.bat |  5 ++
 programs/cmm/template/template.c     | 37 ++++++++++++++
 5 files changed, 126 insertions(+), 12 deletions(-)
 create mode 100644 programs/cmm/lib/obj/console.h
 create mode 100644 programs/cmm/template/Tupfile.lua
 create mode 100644 programs/cmm/template/compile_en.bat
 create mode 100644 programs/cmm/template/template.c

diff --git a/programs/cmm/lib/debug.h b/programs/cmm/lib/debug.h
index e67bc8268a..4c86734389 100644
--- a/programs/cmm/lib/debug.h
+++ b/programs/cmm/lib/debug.h
@@ -58,19 +58,10 @@ inline void debugi(dword d_int)
 	debugi(number);
 }
 
-:void assert(dword _type, _actual, _expected)
+:void die(dword _last_msg)
 {
-	char r[4096];
-	if (_type=='s') {
-		if (streq(_actual, _expected)) return;
-		sprintf(#r, "==========nok{\nactual: %s\nexpected: %s", _actual, _expected);
-		debugln(#r);
-	}
-	if (_type=='i') {
-		if (_actual == _expected)) return;
-		sprintf(#r, "==========nok{\nactual: %i\nexpected: %i", _actual, _expected);
-		debugln(#r);
-	}
+	debugln(_last_msg);
+	ExitProcess();
 }
 
 #endif
\ No newline at end of file
diff --git a/programs/cmm/lib/obj/console.h b/programs/cmm/lib/obj/console.h
new file mode 100644
index 0000000000..51e8f64d5e
--- /dev/null
+++ b/programs/cmm/lib/obj/console.h
@@ -0,0 +1,75 @@
+#ifndef INCLUDE_CONSOLE_H
+#define INCLUDE_CONSOLE_H
+#print "[include <obj/console.h]\n"
+
+#ifndef INCLUDE_KOLIBRI_H
+#include "../lib/kolibri.h"
+#endif
+
+#ifndef INCLUDE_DLL_H
+#include "../lib/dll.h"
+#endif
+
+dword libConsole = #alibConsole;
+char alibConsole[] = "/sys/lib/console.obj";
+
+dword con_start             = #a_con_start;
+dword con_init              = #a_con_init;
+dword con_write_asciiz      = #a_con_write_asciiz;
+dword con_write_string      = #a_con_write_string;
+dword con_printf            = #a_con_printf;
+dword con_exit              = #a_con_exit;
+dword con_get_flags         = #a_con_get_flags;
+dword con_set_flags         = #a_con_set_flags;
+dword con_kbhit             = #a_con_kbhit;
+dword con_getch             = #a_con_getch;
+dword con_getch2            = #a_con_getch2;
+dword con_gets              = #a_con_gets;
+dword con_gets2             = #a_con_gets2;
+dword con_get_font_height   = #a_con_get_font_height;
+dword con_get_cursor_height = #a_con_get_cursor_height;
+dword con_set_cursor_height = #a_con_set_cursor_height;
+dword con_cls               = #a_con_cls;
+dword con_get_cursor_pos    = #a_con_get_cursor_pos;
+dword con_set_cursor_pos    = #a_con_set_cursor_pos;
+dword con_set_title         = #a_con_set_title;
+$DD 2 dup 0
+
+char a_con_start[]             = "START";
+char a_con_init[]              = "con_init";
+char a_con_write_asciiz[]      = "con_write_asciiz";
+char a_con_write_string[]      = "con_write_string";
+char a_con_printf[]            = "con_printf";
+char a_con_exit[]              = "con_exit";
+char a_con_get_flags[]         = "con_get_flags";
+char a_con_set_flags[]         = "con_set_flags";
+char a_con_kbhit[]             = "con_kbhit";
+char a_con_getch[]             = "con_getch";
+char a_con_getch2[]            = "con_getch2";
+char a_con_gets[]              = "con_gets";
+char a_con_gets2[]             = "con_gets2";
+char a_con_get_font_height[]   = "con_get_font_height";
+char a_con_get_cursor_height[] = "con_get_cursor_height";
+char a_con_set_cursor_height[] = "con_ges_focursoreight";
+char a_con_cls[]               = "con_cls";
+char a_con_get_cursor_pos[]    = "con_get_cursor_pos";
+char a_con_set_cursor_pos[]    = "con_set_cursor_pos";
+char a_con_set_title[]         = "con_set_title";
+
+// text color
+#define CON_COLOR_BLUE   0x01
+#define CON_COLOR_GREEN  0x02
+#define CON_COLOR_RED    0x04
+#define CON_COLOR_BRIGHT 0x08
+
+// background color
+#define CON_BGR_BLUE   0x10
+#define CON_BGR_GREEN  0x20
+#define CON_BGR_RED    0x40
+#define CON_BGR_BRIGHT 0x80
+
+// special
+#define CON_IGNORE_SPECIALS 0x100
+#define CON_WINDOW_CLOSED   0x200
+
+#endif
\ No newline at end of file
diff --git a/programs/cmm/template/Tupfile.lua b/programs/cmm/template/Tupfile.lua
new file mode 100644
index 0000000000..4103fe6042
--- /dev/null
+++ b/programs/cmm/template/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("template.c", "c-- /D=AUTOBUILD /D=$(C_LANG) %f" .. tup.getconfig("KPACK_CMD"), "template.com")
diff --git a/programs/cmm/template/compile_en.bat b/programs/cmm/template/compile_en.bat
new file mode 100644
index 0000000000..911094a52a
--- /dev/null
+++ b/programs/cmm/template/compile_en.bat
@@ -0,0 +1,5 @@
+@del *.kex
+@c-- template.c
+@rename *.com *.kex
+@del warning.txt
+@pause
\ No newline at end of file
diff --git a/programs/cmm/template/template.c b/programs/cmm/template/template.c
new file mode 100644
index 0000000000..7386739ba2
--- /dev/null
+++ b/programs/cmm/template/template.c
@@ -0,0 +1,37 @@
+/*
+ * Template C-- program.
+*/
+
+#define MEMSIZE 4096*10
+
+#include "../lib/io.h"
+#include "../lib/gui.h"
+
+proc_info Form;
+
+void main()
+{
+	word btn;
+	loop() switch(WaitEvent())
+	{
+		case evButton:
+			btn = GetButtonID();               
+			if (btn == 1) ExitProcess();
+			break;
+	  
+		case evKey:
+			GetKeys();
+			if (key_scancode == SCAN_CODE_ESC) ExitProcess();
+			break;
+		 
+		case evReDraw:
+			draw_window();
+			break;
+	}
+}
+
+void draw_window()
+{
+	DefineAndDrawWindow(215, 100, 350, 300, 0x34, 0xEEEeee, "Window title");
+	GetProcessInfo(#Form, SelfInfo);
+}