fix EvilBeaver#1679: добавлен метод ОткрытьПоток() объекта ЧтениеJSON

Author: Mr-Rm

src/OneScript.StandardLibrary/Json/JSONReader.cs

@@ -5,15 +5,16 @@ This Source Code Form is subject to the terms of the
 at http://mozilla.org/MPL/2.0/.
 ----------------------------------------------------------*/
 
-using System;
-using System.IO;
 using Newtonsoft.Json;
 using OneScript.Commons;
 using OneScript.Contexts;
 using OneScript.Exceptions;
+using OneScript.StandardLibrary.Binary;
 using OneScript.StandardLibrary.Text;
 using ScriptEngine.Machine;
 using ScriptEngine.Machine.Contexts;
+using System;
+using System.IO;
 
 namespace OneScript.StandardLibrary.Json
 {
@@ -266,6 +267,38 @@ public void OpenFile(string JSONFileName, IValue encoding = null)
             };
         }
 
+        /// <summary>
+        /// Устанавливает поток для чтения JSON данным объектом.
+        /// Если перед вызовом данного метода уже производилось чтение JSON из другого файла, строки или потока,
+        /// то чтение прекращается и объект инициализируется для чтения из указанного потока.
+        /// </summary>
+        /// <param name="stream">
+        /// Поток для чтения текста JSON.</param>
+        /// <param name="encoding">
+        /// Позволяет задать кодировку входного потока.</param>
+        [ContextMethod("ОткрытьПоток", "OpenStream")]
+        public void OpenStream(IValue streamContext, IValue encoding = null)
+        {
+            if (IsOpen())
+                Close();
+
+            var stream = streamContext switch
+            {
+                GenericStream s => s.GetUnderlyingStream(),
+                FileStreamContext s => s.GetUnderlyingStream(),
+                MemoryStreamContext s => s.GetUnderlyingStream(),
+
+                _ => throw RuntimeException.InvalidNthArgumentType(1)
+            };
+
+            var enc = encoding != null ? TextEncodingEnum.GetEncoding(encoding) : System.Text.Encoding.UTF8;
+
+            _reader = new JsonReaderInternal(new StreamReader(stream, enc))
+            {
+                SupportMultipleContent = true
+            };
+        }
+
         /// <summary>
         /// Если текущее значение – начало массива или объекта, то пропускает его содержимое и конец.
         /// Для остальных типов значений работает аналогично методу Прочитать().

tests/json/test-json_reader.os

@@ -24,6 +24,8 @@
 	СписокТестов.Добавить("Тест_Должен_ПроверитьПропускНезавершенногоМассива");
 	СписокТестов.Добавить("Тест_Должен_ПроверитьПропускМассиваСВложенными");
 	СписокТестов.Добавить("Тест_Должен_ПроверитьПропускОбъектаСВложениями");
+	
+	СписокТестов.Добавить("Тест_Должен_ПроверитьОткрытиеПотока");
 	Возврат СписокТестов;
 
 КонецФункции
@@ -219,3 +221,13 @@
 	юТест.ПроверитьРавенство(ТипЗначенияJSON.Число, Чтение.ТипТекущегоЗначения);
 	юТест.ПроверитьРавенство(5, Чтение.ТекущееЗначение);
 КонецПроцедуры
+
+Процедура Тест_Должен_ПроверитьОткрытиеПотока() Экспорт
+    БДД = ПолучитьБуферДвоичныхДанныхИзСтроки("{""ответ"":42}");   
+	Поток = Новый ПотокВПамяти(БДД);
+	Чтение = Новый ЧтениеJSON;
+	Чтение.ОткрытьПоток(Поток);
+	Json = ПрочитатьJSON(Чтение);
+
+	юТест.ПроверитьРавенство(42, Json.Ответ);
+КонецПроцедуры