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

diff --git a/notes b/notes
index d897008a6eea070e9cb5e858a06863be0c0cc38b..f2ee7c350144e7df30751c5d85c8a14be7b68bad 100644 (file)
--- a/notes
+++ b/notes
@@ -1,4 +1,3 @@
-- Надо сделать поддержку подчёркиваний.
 - Перепроверить конверсию строк единичного размера в символ.
 - Не полная реализация модуля SYSTEM
     * Нет типа SYSTEM.PTR

diff --git a/src/oberon.c b/src/oberon.c
index d6aefad6c94437641293674e57a730b7de2656e0..fbf0c455fabcf926d582592fe5f23c86a726d928 100644 (file)
--- 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);
        }