From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Fri, 18 Aug 2017 08:56:49 +0000 (+0300)
Subject: Добавлена поддержка подчёркиваний
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=0b68ac1af511e1e47b1e6a8f5617200db6819ee5;p=dsw-obn.git

Добавлена поддержка подчёркиваний
---

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);
 	}