Forth (#154)

Форт система

README.MD

@@ -46,6 +46,8 @@
 ![Графический интерфейс](img/scr_4.png)
 ![Приложение](img/scr_5.png)
 ![Файловая система](img/scr_6.png)
+![Редактор Файлов в Форте](img/ForthEdit.png)
+![Файловый менеджер в Форте](img/ForthNC.png)
 
 ## <a id="sysrequirements">Системные требования</a>
 

common.mk

@@ -162,6 +162,7 @@ SOURCES=\
 	kernel/src/net/tcp.c \
 	kernel/src/net/stack.c \
 	kernel/src/toys/pavi.c \
+	kernel/src/toys/forth.c \
 	kernel/src/drv/audio/hda.c \
 	kernel/src/sys/grub_modules.c \
 	kernel/src/drv/disk/mbr.c \

kernel/src/drv/input/keyboard.c

@@ -36,6 +36,7 @@ volatile int     lastKey = 0;            ///< Последний индекс к
 uint8_t kbdstatus = 0;          ///< Статус клавиатуры
 bool    echo = true;            ///< Включен ли вывод?
 bool    key_ctrl = false;
+bool    key_alt  = false;
 
 volatile char kmode = 0;
 volatile char* curbuf = 0;
@@ -326,6 +327,10 @@ void keyboardHandler(registers_t regs){
             key_ctrl = true;
         } else if (lastKey == 157) { // Left Ctrl release
             key_ctrl = false;
+        } else if (lastKey == 0x38) { // Left Alt press
+            key_alt = true;
+        } else if (lastKey == 0xb8) { // Left Alt release
+            key_alt = false;
         }
 
         char* key = getCharKeyboard(lastKey, false);

kernel/src/extra/cli.c

@@ -610,6 +610,7 @@ uint32_t pavi_view(uint32_t, char**);
 uint32_t minesweeper(uint32_t, char**);
 uint32_t shell_diskctl(uint32_t, char**);
 uint32_t calendar(uint32_t, char**);
+uint32_t forth_sys(uint32_t, char**);
 
 CLI_CMD_ELEM G_CLI_CMD[] = {
 	{"CLS", "cls", CLI_CMD_CLS, "Очистка экрана"},
@@ -646,6 +647,8 @@ CLI_CMD_ELEM G_CLI_CMD[] = {
     {"PLAIN", "plain", CLI_PLAIN, "Run plain program"},
     {"HEX", "hex", CLI_CMD_HEX, "Show hex data"},
     {"ST", "st", CLI_SPAWN_TEST, "spawn test"},
+    {"FORTH", "forth",forth_sys, "Форт система"},
+    {"4TH", "4th",forth_sys, "Форт система"},
 	{nullptr, nullptr, nullptr}
 };