исправлена ошибка вложенных условий, добавлены тесты

Author: Mr-Rm

src/OneScript.Language.Tests/PreprocessorTests.cs

@@ -559,6 +559,43 @@ public void PreprocessingLexer_DirectiveNotOnNewLine()
             Assert.Throws<SyntaxErrorException>(() => { while (pp.NextLexem().Token != Token.EndOfText) ; });
         }
 
+        [Fact]
+        public void PreprocessingLexer_DirectiveNotOnSingleLine()
+        {
+            var pp = new PreprocessingLexer();
+
+            var code = @"
+            #Если Нет
+            Тогда
+            F;
+            #КонецОбласти
+            ";
+
+            pp.Code = code;
+            Assert.Throws<SyntaxErrorException>(() => { while (pp.NextLexem().Token != Token.EndOfText) ; });
+        }
+
+        [Fact]
+        public void PreprocessingLexer_ExcludedLines()
+        {
+            var pp = new PreprocessingLexer();
+            pp.Define("Да");
+
+            var code = @"
+            #Если Да Тогда
+            F;
+            #Иначе
+            !!
+            #КонецЕсли
+            ";
+
+            pp.Code = code;
+
+            Lexem lex;
+            do { lex = pp.NextLexem(); } while (pp.NextLexem().Token != Token.EndOfText);
+            Assert.Equal(Token.EndOfText, lex.Token);
+        }
+
         private string GetPreprocessedContent(PreprocessingLexer pp, string code)
         {
             pp.Code = code;

src/OneScript.Language/LexicalAnalysis/PreprocessingLexer.cs

@@ -371,13 +371,13 @@ private void SkipTillNextDirective()
 
                 if (_lastExtractedLexem.Token == Token.If)
                     PushBlock();
-                else if (_lastExtractedLexem.Token == Token.EndIf)
-                {
-                    if (BlockLevel() > currentLevel)
-                        PopBlock();
-                    else if (BlockLevel() == currentLevel)
-                        break;
-                }
+                else if (_lastExtractedLexem.Token == Token.EndIf && BlockLevel() > currentLevel)
+                    PopBlock();
+                else if (BlockLevel() == currentLevel &&
+                        (_lastExtractedLexem.Token == Token.EndIf || 
+                         _lastExtractedLexem.Token == Token.ElseIf ||
+                         _lastExtractedLexem.Token == Token.Else) )
+                    break;
             }
 
             _lexer.UnexpectedCharacterFound -= SkipErrors;

tests/directives.os

@@ -7,6 +7,8 @@
 
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьЧтоОбластиКомпилируются");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьЧтоИспользоватьНеКомпилируетсяЕслиНачалсяКод");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьЧтоМногострочныеДирективыНеКомпилируются");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьЧтоИсключенныеСтрокиПропускаются");
 
 	Возврат ВсеТесты;
 
@@ -43,3 +45,19 @@
 
 КонецФункции
 
+Функция ТестДолжен_ПроверитьЧтоМногострочныеДирективыНеКомпилируются() Экспорт
+
+	юТест.ПроверитьРавенство(ФайлКомпилируется("preprocessor/multiline-fail.os"), Ложь,
+		"Файл multiline-fail.os компилируется, хотя не должен!"
+	);
+
+КонецФункции
+
+Функция ТестДолжен_ПроверитьЧтоИсключенныеСтрокиПропускаются() Экспорт
+
+	юТест.ПроверитьРавенство(ФайлКомпилируется("preprocessor/excluded.os"), Истина,
+		"Файл excluded.os не компилируется, хотя должен!"
+	);
+
+КонецФункции
+

tests/preprocessor/excluded.os

@@ -0,0 +1,11 @@
+#Если Windows И Linux Тогда
+!!
+#КонецЕсли
+
+#Если Windows ИЛИ Linux Тогда //!! ok
+
+#ИначеЕсли НЕ MacOS Тогда //??
+!!
+#Иначе //!!
+!!??
+#КонецЕсли

tests/preprocessor/multiline-fail.os

@@ -0,0 +1,5 @@
+#Если Windows
+ или Linux
+ Тогда
+//!!
+#КонецЕсли