Merge pull request EvilBeaver#1686 from Mr-Rm/v2/fix-1675

fix EvilBeaver#1675: возвращаемый тип ЗагрузитьСценарий()

Author: EvilBeaver

src/OneScript.StandardLibrary/DynamicLoadingFunctions.cs

@@ -11,11 +11,13 @@ This Source Code Form is subject to the terms of the
 using OneScript.Exceptions;
 using OneScript.Execution;
 using OneScript.Language;
+using OneScript.Localization;
 using OneScript.StandardLibrary.Collections;
 using OneScript.StandardLibrary.NativeApi;
 using ScriptEngine;
 using ScriptEngine.Machine;
 using ScriptEngine.Machine.Contexts;
+using System;
 
 namespace OneScript.StandardLibrary
 {
@@ -34,7 +36,7 @@ public DynamicLoadingFunctions(ScriptingEngine engine)
 
         /// <summary>
         /// Подключает сторонний файл сценария к текущей системе типов.
-        /// Подключенный сценарий выступает, как самостоятельный класс, создаваемый оператором Новый
+        /// Подключенный сценарий выступает как самостоятельный класс, создаваемый оператором Новый
         /// </summary>
         /// <param name="path">Путь к подключаемому сценарию</param>
         /// <param name="typeName">Имя типа, которое будет иметь новый класс. Экземпляры класса создаются оператором Новый. </param>
@@ -48,25 +50,15 @@ public void AttachScript(IBslProcess process, string path, string typeName)
             {
                 _engine.AttachedScriptsFactory.AttachByPath(compiler, path, typeName, process);
             }
-            catch (SyntaxErrorException e)
-            {
-                // обернем в RuntimeException
-                throw new RuntimeException(
-                    Locale.NStr("ru = 'Ошибка компиляции подключаемого скрипта';en = 'Error compiling attached script'"),
-                    e);
-            }
-            catch (Compilation.CompilerException e)
-            {
-                // обернем в RuntimeException
-                throw new RuntimeException(
-                    Locale.NStr("ru = 'Ошибка компиляции подключаемого скрипта';en = 'Error compiling attached script'"),
-                    e);
+            catch (Exception e) when (e is SyntaxErrorException || e is CompilerException)
+            {
+                throw ScriptCompilingException(e);
             }
         }
 
         /// <summary>
         /// Создает экземпляр объекта на основании стороннего файла сценария.
-        /// Загруженный сценарий возвращается, как самостоятельный объект. 
+        /// Загруженный сценарий возвращается как самостоятельный объект. 
         /// Экспортные свойства и методы скрипта доступны для вызова.
         /// </summary>
         /// <param name="process"></param>
@@ -80,44 +72,24 @@ public UserScriptContextInstance LoadScriptFromString(IBslProcess process,
             string code,
             StructureImpl externalContext = null)
         {
-            var compiler = _engine.GetCompilerService();
-            if (externalContext == null)
-            {
-                return _engine.AttachedScriptsFactory.LoadFromString(compiler, code, process);
-            }
-            else
-            {
-                var extData = new ExternalContextData();
+            var compiler = _engine.GetCompilerService();
+            try
+            {
+                if (externalContext == null)
+                    return _engine.AttachedScriptsFactory.LoadFromString(compiler, code, process);
 
-                foreach (var item in externalContext)
-                {
-                    extData.Add(item.Key.ToString()!, item.Value);
-                }
-
-                try
-                {
-                    return _engine.AttachedScriptsFactory.LoadFromString(compiler, code, process, extData);
-                }
-                catch (SyntaxErrorException e)
-                {
-                    // обернем в RuntimeException
-                    throw new RuntimeException(
-                        Locale.NStr("ru = 'Ошибка компиляции подключаемого скрипта';en = 'Error compiling attached script'"),
-                        e);
-                }
-                catch (CompilerException e)
-                {
-                    // обернем в RuntimeException
-                    throw new RuntimeException(
-                        Locale.NStr("ru = 'Ошибка компиляции подключаемого скрипта';en = 'Error compiling attached script'"),
-                        e);
-                }
-            }
+                var extData = CreateContextData(externalContext);
+                return _engine.AttachedScriptsFactory.LoadFromString(compiler, code, process, extData);
+            }
+            catch (Exception e) when (e is SyntaxErrorException || e is CompilerException)
+            {
+                throw ScriptCompilingException(e);
+            }
         }
 
         /// <summary>
         /// Создает экземпляр объекта на основании стороннего файла сценария.
-        /// Загруженный сценарий возвращается, как самостоятельный объект. 
+        /// Загруженный сценарий возвращается как самостоятельный объект. 
         /// Экспортные свойства и методы скрипта доступны для вызова.
         /// </summary>
         /// <param name="path">Путь к подключаемому сценарию</param>
@@ -128,31 +100,44 @@ public UserScriptContextInstance LoadScriptFromString(IBslProcess process,
         /// // В коде скрипта somescript.os будет доступна глобальная переменная "ЧислоПи"
         /// Объект = ЗагрузитьСценарий("somescript.os", Контекст);</example>
         [ContextMethod("ЗагрузитьСценарий", "LoadScript")]
-        public IRuntimeContextInstance LoadScript(IBslProcess process, string path, StructureImpl externalContext = null)
-        {
+        public UserScriptContextInstance LoadScript(IBslProcess process, string path, StructureImpl externalContext = null)
+        {
             var compiler = _engine.GetCompilerService();
-            if(externalContext == null)
-                return _engine.AttachedScriptsFactory.LoadFromPath(compiler, path, process);
-            else
-            {
-                ExternalContextData extData = new ExternalContextData();
-
-                foreach (var item in externalContext)
-                {
-                    extData.Add(item.Key.ToString()!, item.Value);
-                }
+            try
+            {
+                if(externalContext == null)
+                    return _engine.AttachedScriptsFactory.LoadFromPath(compiler, path, process);
 
+                var extData = CreateContextData(externalContext);
                 return _engine.AttachedScriptsFactory.LoadFromPath(compiler, path, extData, process);
-
+            }
+            catch (Exception e) when (e is SyntaxErrorException || e is CompilerException)
+            {
+                throw ScriptCompilingException(e);
             }
-        }
-
+        }
+
+        private static ExternalContextData CreateContextData(StructureImpl externalContext)
+        {
+            if (externalContext == null)
+                return null;
+
+            ExternalContextData extData = new ExternalContextData();
+
+            foreach (var item in externalContext)
+            {
+                extData.Add(item.Key.ToString()!, item.Value);
+            }
+
+            return extData;
+        }
+
         /// <summary>
         /// Подключает внешнюю сборку среды .NET (*.dll) и регистрирует классы 1Script, объявленные в этой сборке.
         /// Публичные классы, отмеченные в dll атрибутом ContextClass, будут импортированы аналогично встроенным классам 1Script.
         /// Загружаемая сборка должна ссылаться на сборку ScriptEngine.dll
         ///
-        /// Также подключает вншение компонеты, разработанные по технологии Native API,
+        /// Также подключает внешние компоненты, разработанные по технологии Native API,
         /// поставляемые в виде отдельных DLL или упакованные в ZIP-архив.
         ///
         /// </summary>
@@ -181,13 +166,21 @@ public bool AttachAddIn(string dllPath, string name = "", NativeApiEnums type =
                 _engine.AttachExternalAssembly(assembly);
                 return true;
             }
-            else {
+            else
+            {
                 if (!Utils.IsValidIdentifier(name))
                 {
                     throw RuntimeException.InvalidArgumentValue(name);
                 }
                 return NativeApiFactory.Register(dllPath, name, _engine.TypeManager);
             }
         }
+
+        private static RuntimeException ScriptCompilingException(Exception e)
+        {
+            return new RuntimeException(BilingualString.Localize(
+                "Ошибка компиляции подключаемого сценария:\n",
+                "Error compiling attached script:\n") + e.Message, e);
+        }
     }
 }

tests/native-lib/test-native-use.os

@@ -15,7 +15,7 @@
     Тесты.Добавить("ТестДолжен_ПроверитьВызовМетодовСОшибочноПропущеннымиПараметрами");
     Тесты.Добавить("ТестДолжен_ПроверитьВызовМетодовСЛишнимиПараметрами");
     Тесты.Добавить("ТестДолжен_ПроверитьВызовКонструктораСПараметрамиПоУмолчанию");
-   
+    Тесты.Добавить("ТестДолжен_ПроверитьПодключениеСценарияСОбъявленнойПеременной");
     Возврат Тесты;
 
 КонецФункции
@@ -92,3 +92,10 @@
 Процедура ТестДолжен_ПроверитьВызовКонструктораСПараметрамиПоУмолчанию() Экспорт
     Сценарий = Новый ПараметрыКонструктораПоУмолчанию("Парам1");
 КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьПодключениеСценарияСОбъявленнойПеременной() Экспорт
+	Перем Сценарий;
+	Сценарий = ЗагрузитьСценарий(ОбъединитьПути(ТекущийСценарий().Каталог, "Классы", "ТестовыйСценарий.os"));
+	юТест.ПроверитьРавенство(Сценарий.Поле1, 1);
+КонецПроцедуры
+