From 0b68ac1af511e1e47b1e6a8f5617200db6819ee5 Mon Sep 17 00:00:00 2001
From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Fri, 18 Aug 2017 11:56:49 +0300
Subject: [PATCH] =?utf8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5=D0=BD?=
 =?utf8?q?=D0=B0=20=D0=BF=D0=BE=D0=B4=D0=B4=D0=B5=D1=80=D0=B6=D0=BA=D0=B0?=
 =?utf8?q?=20=D0=BF=D0=BE=D0=B4=D1=87=D1=91=D1=80=D0=BA=D0=B8=D0=B2=D0=B0?=
 =?utf8?q?=D0=BD=D0=B8=D0=B9?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 notes        | 1 -
 src/oberon.c | 4 ++--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/notes b/notes
index d897008..f2ee7c3 100644
--- a/notes
+++ b/notes
@@ -1,4 +1,3 @@
-- Надо сделать поддержку подчёркиваний.
 - Перепроверить конверсию строк единичного размера в символ.
 - Не полная реализация модуля SYSTEM
     * Нет типа SYSTEM.PTR
diff --git a/src/oberon.c b/src/oberon.c
index d6aefad..fbf0c45 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -359,7 +359,7 @@ oberon_read_ident(oberon_context_t * ctx)
 	int start = ctx -> code_index;
 
 	oberon_get_char(ctx);
-	while(isalnum(ctx -> c))
+	while(isalnum(ctx -> c) || ctx -> c == '_')
 	{
 		oberon_get_char(ctx);
 	}
@@ -890,7 +890,7 @@ oberon_read_token(oberon_context_t * ctx)
 	oberon_skip_space(ctx);
 
 	int c = ctx -> c;
-	if(isalpha(c))
+	if(isalpha(c) || c == '_')
 	{
 		oberon_read_ident(ctx);
 	}
-- 
2.29.2