gifts2017

Пишем консольные exe-приложения на языке 1С

Опубликовал Андрей Овсянкин (Evil Beaver) в раздел Программирование - Практика программирования

Нужен скрипт автоматизации рутинных операций? Нет времени учить JScript или VBScript? Теперь можно писать скрипты автоматизации прямо на языке 1С. Проект 1Script представляет собой альтернативную исполняющую среду этого языка.
В данной статье рассматриваются основные возможности 1Script и варианты его практического применения.

Сообщение от автора от 06.07.15

Данная статья написана тогда, когда проект только-только вышел в свет и умел очень мало. На данный момент информация в данной статье заметно устарела. Для более прикладного знакомства с 1Script рекомендую прочитать вот эту статью, а также посетить wiki проекта.

Все что написано ниже не удалено с инфостарта, поскольку является, как-никак, частью истории проекта.

 

Введение

Не так давно я опубликовал проект 1Script (OneScript), представляющий собой компилятор языка 1С и виртуальную машину, исполняющую программы на этом языке. В этой статье хотелось бы рассказать о том, что полезного можно сделать с помощью 1Script.

Программа представляет собой самостоятельную виртуальную машину, исполняющую код на языке 1С. При этом наличие самой платформы 1С не требуется.  Технические подробности о внутреннем устройстве есть на хабре, а в этой статье мне хотелось бы сделать акцент на практических способах применения 1Script в народном хозяйстве.

Назначение и состав

Основным назначением 1Script является использование его, как самостоятельного программного продукта, предназначенного для выполнения скриптов на языке 1С в целях автоматизации администрирования. Ближайшим аналогом является инфраструктура WSH.

1Script может использовать COM-объекты WSH для взаимодействия с операционной системой, тем самым получая весьма широкие возможности.

Разумеется, область применения этим не ограничивается и именно об областях применения пойдет речь ниже.

В состав программы входят 2 основных компонента:

  1. GUI-приложение TestApp, которое позволяет экспериментировать с движком, запускать скрипты и смотреть на результат.
  2. Консольное приложение oscript, которое является «боевым» модулем, выполняющим основное назначение программы – исполнение скриптов в консоли

После установки оба этих компонента можно запускать независимо друг от друга.

Краткое описание возможностей

Основное назначение программы – возможность исполнения кода на языке 1С, но без самой 1С. Наиболее вероятное применение, как уже упоминалось – это скрипты автоматизации, аналогичные тем, что пишутся на JScript и VBScript с применением инфраструктуры WSH.

1Script позволяет использовать родные для windows COM-объекты, которые применяются в WSH. Например, если нам нужно архивировать все базы из списка баз 1С, то мы можем написать следующий скрипт:

Shell = Новый COMОбъект("WScript.Shell");
ПапкаПараметров = Shell.ExpandEnvironmentStrings( "%APPDATA%" );
ФайлСпискаБаз = ПапкаПараметров + "\1C\1CEStart\ibases.v8i";

МассивСтрокСоединения = Новый Массив;
ЧтениеФайла = Новый ЧтениеТекста(ФайлСпискаБаз);

СтрокаФайла = ЧтениеФайла.ПрочитатьСтроку();
Пока
СтрокаФайла <> Неопределено Цикл

    Если
Лев(СтрокаФайла, 8) = "Connect=" Тогда
       
МассивСтрокСоединения.Добавить(Сред(СтрокаФайла,9));
    КонецЕсли;

   
СтрокаФайла = ЧтениеФайла.ПрочитатьСтроку();

КонецЦикла;


ЧтениеФайла.Закрыть();

КоманднаяСтрокаАрхивации = "1Cv8.exe DESIGNER %1 /DumpIB";
Для Каждого
СтрокаСоединения Из МассивСтрокСоединения Цикл
   
РабочаяСтрокаЗапуска = СтрЗаменить(КоманднаяСтрокаАрхивации, "%1", СтрокаСоединения);
   
Shell.Run(РабочаяСтрокаЗапуска);
КонецЦикла;

В приведенном примере проверка ошибок и выбор места, в которое надо поместить архив, опущены для краткости.

Сохраняем данный скрипт в файл и в командной строке запускаем:

oscript.exe [файл скрипта]

Будет прочитан список баз, из него получены строки соединения с базами и для каждой из баз выполнена процедура архивации. Обратите внимание, код на языке 1С исполняется 1Script без участия самой платформы 1С.

Возможности языка

Доступны все возможности встроенного языка, перечисленные в ветке "Описание встроенного языка" стандартного синтакс-помощника.

Исключения из этого правила перечислены в разделе "Отличия от стандартной библиотеки".

Возможно создание и использование следующих универсальных коллекций:

  • Массив
  • Структура
  • Соответствие

Доступны вспомогательные классы:

  • Консоль
  • ЧтениеТекста

Доступны глобальные методы и свойства:

  • метод Сообщить(сообщение)
  • метод ВвестиСтроку(результат, макс_длина = 0)
  • метод ЗавершитьРаботу(код_возврата)
  • метод Приостановить(миллисекунды)
  • метод ОсвободитьОбъект(COM-объект)
  • свойство АргументыКоманднойСтроки
  • метод ТекущийСценарий()
  • метод ПодключитьСценарий()

Подробнее о назначении этих методов и свойств можно прочитать в wiki проекта. Состав классов будет пополняться.

Отличия от стандартной библиотеки 1С

  • Из математических функций реализованы только Цел, Окр, Pow и Sqrt
  • Не реализованы строковые функции СтрЧислоСтрок, СтрПолучитьСтроку, СтрЧислоВхождений, ТРег
  • Не реализована функция форматирования строк Формат
  • Не реализована работа с типами (функции Тип и ТипЗнч)
  • Не реализовано динамическое выполнение кода функциями Вычислить и Выполнить
  • Не реализованы функции ДобавитьОбработчик, УдалитьОбработчик для обработки событий COM-объектов.
  • Не реализованы системные перечисления
  • Не поддерживается оператор Перейти и метки

Некоторые отличия планируется реализовать позже.

Построение самостоятельного exe-модуля

1Script позволяет упаковать ваш скрипт в отдельный exe-модуль, который можно удобно распространять, не требуя установки самого 1Script на машину пользователя.

Для создания exe нужно запустить oscript.exe с ключом –make и указать имя входного скрипта и выходного exe.

Пример:

oscript.exe –make C:\myscript.1scr D:\program.exe

Файл C:\myscript.1scr будет упакован в самостоятельный exe-шник и сохранен, как  D:\program.exe.

Небольшая демонстрация

В качестве примера предлагаю вашему вниманию классическую игру «Змейка», написанную полностью на языке 1С. (исходник игры и сам exe можно скачать в прилагаемых файлах)

Системные требования

Весь проект реализован  на базе .NET Framework 4.0 и требует его наличия на клиентской машине.

Стабильность текущей версии

На данный момент проект находится в активной разработке, поэтому, весьма вероятны ошибки и неточности в работе. Обо всех обнаруженных недостатках сообщайте любым удобным способом – в комментариях здесь, личным сообщением, в разделе Issues на странице проекта в bitbucket.

Обновление от 22.10.2014:

Дистрибутив обновлен до версии 1.0.7. Дальнейшее развитие проекта.

Обновлена и актуализирована вики проекта по адресу https://bitbucket.org/EvilBeaver/1script/wiki/Home

По традиции, исходники проекта открыты, сотрудничество приветствуется.

Спасибо за внимание.

Скачать файлы

Наименование Файл Версия Размер Кол. Скачив.
Дистрибутив
.exe 7,47Mb
29.03.16
53
.exe 1.0.7 7,47Mb 53 Скачать
Змейка (исходник на 1С)
.1scr 9,90Kb
29.03.16
30
.1scr 1.0 9,90Kb 30 Скачать
Змейка.exe
.exe 190,30Kb
29.03.16
14
.exe 1.0 190,30Kb 14 Скачать

См. также

Подписаться Добавить вознаграждение

Комментарии

1. Павел Алексеенко (qwinter) 16.06.14 00:03
Неужели написать это было проще, чем "знакомому" выучить язык?
Ivon; WKBAPKA; adhocprog; BigB; +4 Ответить 2
2. ivanov660 ivanov660 (ivanov660) 16.06.14 10:23
Довольно хорошая идея, теперь "можно составить конкуренцию" компании 1С :-) Движок (плагин к браузеру) + браузер.
3. Андрей Овсянкин (Evil Beaver) 16.06.14 10:53
(2) ivanov660, ну в чем же дело? Вам и карты в руки - берите исходники и вперед! Почему-то всем очень хочется "составить конкуренцию". Ну составляйте, в чем беда? Например мне это не надо. 1Script - это эксперимент, интересный в первую очередь мне лично. Ни про какую конкуренцию я не говорил.
MherArsh; sikuda; amon_ra; +3 Ответить 2
4. Антон Стеклов (asved.ru) 16.06.14 12:13
5. Сергѣй Батанов (baton_pk) 16.06.14 12:55
плюс собрату по (не)счастью :)
пишу такое же творение, только
0) Код закрыт
1) без привязки к .NET
2) работает и под виндой, и под никсами (пробовал Ubuntu 12.04, 13.04, 14.04)
3) возможность разработки и подключения модулей. Среди которых уже есть Xml, Yaml (JSON), Postgres в зачатке, COM-объекты (для винды), Gtk+ в зачатке.

В плане редактора я использую допиленный Geany на основе допиленной Scintilla

Для чего всё это? Да собственно для того же - у нас всяческие скрипты для обмена файликами крутятся на этом движке. Запилю сокеты и HTTP-сервер - будет ещё и система удалённого управления скриптами. А "конкуренцию 1С" - это чур, ребята...

А, ещё забыл уточнить: у меня работают директивы препроцессора #Если клиент/сервер/скрипт/...
Это позволяет при использовании одного и того же кода и в 1С, и в скрипте разделять логику исполнения.
vikad; bulpi; pstrig; ixilimuse; adhocprog; JohnyDeath; Evil Beaver; MarSeN; +8 Ответить 2
6. Сергѣй Батанов (baton_pk) 16.06.14 13:16
Ну ребяяяяят...

А = Новый Массив(5);
Сообщить(А.Получить(1));


ScriptEngine.Machine.RuntimeException: Object method получить is not found
   в ScriptEngine.Machine.Contexts.ContextMethodsMapper`1.FindMethod(String name)
   в ScriptEngine.Machine.Contexts.ContextBase`1.FindMethod(String name)
   в ScriptEngine.Machine.MachineInstance.PrepareContextCallArguments(Int32 arg, IRuntimeContextInstance& context, Int32& methodId, IValue[]& argValues)
   в ScriptEngine.Machine.MachineInstance.ResolveMethodFunc(Int32 arg)
   в ScriptEngine.Machine.MachineInstance.MainCommandLoop()
   в ScriptEngine.Machine.MachineInstance.ExecuteCode()
   в ScriptEngine.Machine.MachineInstance.ExecuteModuleBody()
   в ScriptEngine.ScriptingEngine.<>c__DisplayClass1.<NewObject>b__0()
   в ScriptEngine.Machine.MachineInstance.StateConsistentOperation(Action action)
   в ScriptEngine.ScriptingEngine.NewObject(LoadedModuleHandle module)
   в ScriptEngine.HostedScript.Process.Start()
Error detected. Exit code = 1
Script completed: 16.06.2014 13:14:51
Duration: 00:00:00.0002799
...Показать Скрыть
7. Андрей Овсянкин (Evil Beaver) 16.06.14 13:17
(5) baton_pk, Если GTK, то pure C, я правильно понимаю? А не затруднит в личку рассказать подробнее, для чего применяется и зачем именно свой движок, а не кросс-платформенный питон тот же?
8. Андрей Овсянкин (Evil Beaver) 16.06.14 13:19
(6) baton_pk, да, метод "Получить" массива я не делал. Поленился. Зачем, если есть доступ по индексу?
9. Сергѣй Батанов (baton_pk) 16.06.14 13:25
(8) Evil Beaver, для совместимости кода :).
10. Андрей Овсянкин (Evil Beaver) 16.06.14 13:43
(9) baton_pk, Убедили, добавлю )
11. Сергѣй Батанов (baton_pk) 16.06.14 14:09
Советую расширить набор тестов :)
Разность = '20010102' - '20010101';
Сообщить(Разность);


ScriptEngine.Machine.RuntimeException: Conversion to Number is not supported
   в ScriptEngine.Machine.SimpleConstantValue.AsNumber()
   в ScriptEngine.Machine.MachineInstance.Sub(Int32 arg)
   в ScriptEngine.Machine.MachineInstance.MainCommandLoop()
   в ScriptEngine.Machine.MachineInstance.ExecuteCode()
   в ScriptEngine.Machine.MachineInstance.ExecuteModuleBody()
   в ScriptEngine.ScriptingEngine.<>c__DisplayClass1.<NewObject>b__0()
   в ScriptEngine.Machine.MachineInstance.StateConsistentOperation(Action action)
   в ScriptEngine.ScriptingEngine.NewObject(LoadedModuleHandle module)
   в ScriptEngine.HostedScript.Process.Start()
Error detected. Exit code = 1
Script completed: 16.06.2014 14:07:30
Duration: 00:00:00.0002033
...Показать Скрыть
12. Андрей Овсянкин (Evil Beaver) 16.06.14 14:13
(11) baton_pk, О, как хорошо, что я вас встретил! ) Собственно, одному тестирование и не осилить. Надеюсь на сообщество. Оказывается, разность дат не сделал. Только Дата минус Число. Спасибо.
13. Сергѣй Батанов (baton_pk) 16.06.14 15:00
Ещё косяк. Конструкция ?(,,) - это именно конструкция языка, а не функция с параметрами.

Функция Ага()
	Возврат "Ага";
КонецФункции

Функция Ошибка()
	ВызватьИсключение "Код не должен быть вызван!";
КонецФункции

Сообщить(?(Истина, Ага(), Ошибка()));
...Показать Скрыть

ScriptEngine.Machine.RuntimeException: Код не должен быть вызван!
   в ScriptEngine.Machine.MachineInstance.RaiseException(Int32 arg)
   в ScriptEngine.Machine.MachineInstance.MainCommandLoop()
   в ScriptEngine.Machine.MachineInstance.ExecuteCode()
   в ScriptEngine.Machine.MachineInstance.ExecuteModuleBody()
   в ScriptEngine.ScriptingEngine.<>c__DisplayClass1.<NewObject>b__0()
   в ScriptEngine.Machine.MachineInstance.StateConsistentOperation(Action action)
   в ScriptEngine.ScriptingEngine.NewObject(LoadedModuleHandle module)
   в ScriptEngine.HostedScript.Process.Start()
Error detected. Exit code = 1
Script completed: 16.06.2014 14:58:51
Duration: 00:00:00.0024617
...Показать Скрыть
14. Сергѣй Батанов (baton_pk) 16.06.14 15:12
Я смотрю, для чисел везде используется вещественный тип? Опасное дело.

БешеноеЧисло  = 123456789123456789123456789123456789;
БешеноеЧисло2 = БешеноеЧисло + 1;
Сообщить(БешеноеЧисло - БешеноеЧисло2);
...Показать Скрыть


Script started: 16.06.2014 15:11:10
0

Script completed: 16.06.2014 15:11:10
Duration: 00:00:00.0000686
...Показать Скрыть
15. Андрей Овсянкин (Evil Beaver) 16.06.14 15:23
(13)(14) baton_pk, про эти проблемы я знаю. По числам: сделано везде вещественное просто для упрощения и ускорения разработки. double инкапсулирован и наружу нигде не вылезает. Просто делать хорошее "Число", на мантиссах/порядках - не тот уровень проекта. Требует и знаний и усилий. Ощущаю у себя их нехватку в этом вопросе.
Про "знак вопроса" - тоже знаю, сделал осознанно, опять же с целью ускорения. Как функцию его удобнее было скомпилировать.
Проекту меньше месяца и пишется он, в основном, ночами. Поэтому, узкие моменты типа "знака вопроса" и недостающих малопопулярных методов у массива сознательно опущены. Есть много более насущных задач, которые нужно решить в первую очередь.
16. Сергѣй Батанов (baton_pk) 16.06.14 15:27
(15) Evil Beaver, ну, в C# есть BigDecimal. А к своему я подумываю GMP прикрутить.

PS.
Вру, встроенного нету. Есть вот
17. Андрей Овсянкин (Evil Beaver) 16.06.14 15:29
(16) baton_pk, я исходил из того, что задачи, требующие длинного матана и больших точностей довольно редки в сфере предполагаемой применимости.
Кстати, как у вас с такими "Числами"?
18. Сергѣй Батанов (baton_pk) 16.06.14 15:33
(17) Evil Beaver,
Кстати, как у вас с такими "Числами"?

Пока никак. Думаю прикрутить GMP и то, опционально. Длинные числа становятся нужны на стыке с базами данных: будет какое-нибудь поле Сумма типа Число(29, 2) и кури сиди...

А так, согласен, в 99% случаев long и double - то, что надо.
Однако у меня такие числа сейчас рубятся на этапе компиляции и не дают соблазна сработать правильно.
19. Сергей (Che) Коцюра (CheBurator) 17.06.14 02:17
По-моему, еще Вася Душелов писал что-то аналогичное
baton_pk; JohnyDeath; +2 Ответить 2
20. Андрей Овсянкин (Evil Beaver) 17.06.14 09:32
(19) CheBurator, идея витает в воздухе, так что, вероятно, и не только он.
21. Евгений Мартыненков (JohnyDeath) 17.06.14 09:35
(19) CheBurator, да, мне тоже первым вспомнился он со своей последней идеей по встраиванию кода 1С в консоль.
22. Сергей Вн (EmpireSer) 17.06.14 09:55
Интересно, а почему ни кто не пытается саму 1С запустить "не стандартно"? Так, например, делает утилита "chdbfl.exe".
Ведь тогда люди смогли бы написать внешнюю обработку, которая всё необходимое будет делать и при этом не использовать лицензии.
23. Андрей Овсянкин (Evil Beaver) 17.06.14 10:07
24. Сергѣй Батанов (baton_pk) 17.06.14 11:16
(22) EmpireSer,
1) сложно
2) бессмысленно
3) сложно
25. Александр Топольский (AlexanderKai) 17.06.14 16:18
Программа компилируется или внутри программы виртуальная машина?
26. Андрей Овсянкин (Evil Beaver) 17.06.14 17:38
(25) AlexanderKai, если я правильно понял, вы спрашиваете про компиляцию в машинный код? Нет, exe - это исполняющий модуль (виртуальная машина), в который вложен байткод скрипта. Хотя, в конечном итоге CLR все равно компилирует все это в машинный код, так что ответ "и да и нет" )
27. Алекс Ю (AlexO) 18.06.14 01:21
(22) EmpireSer,
саму 1С запустить "не стандартно"?

А с чего CHDBFL вдруг стала запускать нестандартно? Она просто раскладывает CD на таблицы и проверяет их отдельно в темповом файле. И абсолютно неприменима к SQL, т.к. структура таблиц совершенно иная.
(0)ничего не понял, но причем тут 1С, если, как обычно, "Shell = Новый COMОбъект("WScript.Shell");"??
WScript и запускает эти ваши консольные и прочие приложения, а кто его вызывает - и ему, и мне неинтересно.
А уж про "конкурент 1С" (2) писать на эту тему... это человек вообще не вникал ни капли, поняв еще меньше моего ))
28. Андрей Овсянкин (Evil Beaver) 18.06.14 09:30
(27) AlexO, дорогой, поскольку, вы известный трололо, то и отвечать вам не вижу смысла ;)
29. Олег Крапивный (powerpc) 18.06.14 09:55
Извините великодушно, НО:
Как можно писать в 1С конструкции типа:
Shell = Новый COMОбъект("WScript.Shell");
ПапкаПараметров = Shell.ExpandEnvironmentStrings( "%APPDATA%" );
если "Нет времени учить JScript или VBScript" ?????
То же самое можно написать в текстовом файле и скомпилировать существующими утилитами в exe.
30. Сергѣй Батанов (baton_pk) 18.06.14 09:56
(27)(28)
А тут я согласен. Если уж это 1С, а не Russian VBScript, то должны быть всем нам привычные команды: ПереместитьФайлы, УдалитьФайл и подобные.
Иначе какой смысл во всех этих коллекциях, если с WSH работа всё равно идёт по большому счёту с простыми типами. Встроенный функционал по-любому надо расширять.
31. Андрей Овсянкин (Evil Beaver) 18.06.14 11:04
(29)(30) baton_pk, никто не спорит, расширять надо. Уже есть ЧтениеФайлов и Консоль (специально ради "змейки"). Стандартные 1С-овские вещи работы с файлами обязательно будут. На данный момент решена задача минимум - сама возможность писать скрипты. Для выхода во "внешний мир" уже сейчас можно применять COM.

Я надеюсь привлечь разработчиков к самой возможности писать такие скрипты, заинтересовать и подключить к разработке. Расширение библиотеки классов это важная задача, но я пока что один, много не успеть.

Уже сейчас я доделываю расширение к Снегопату. Надеюсь, что можно будет писать плагины к снегопату не на JS, а на близком и родном 1С. Уже сейчас оно работает, хоть и пока очень сыро.

И это уж вы, powerpc, простите великодушно, но я нигде не сказал, что это решение промышленного уровня. Но оно имеет потенциал стать таковым, это уже немало.
Приведенный пример с архивацией баз - рабочий, т.е. уже может применяться. Прикладные классы разрабатывать и подключать к системе не сложно. Присоединяйтесь!
32. Ivon (Ivon) 18.06.14 12:21
Честно-говоря, я вообще не вижу перспективы данной разработки. Кроме 1С еще программлю на C# и когда-то программил на Perl и этих языков мне хватало для того, чтобы сделать все необходимые операции. Имхо, изобретение велосипеда - не лучший вариант потратить время.
33. Alexey (zarius) 18.06.14 12:36
Работа, конечно, проделана громаднейшая - автору респект, но именно "консольные exe-приложения" в данном проекте, имхо, представляют чисто академический интерес.
Не проще ли воспользоваться тем же AutoIt? Разобраться можно за 5 минут, а возможностей там...
34. Сергѣй Батанов (baton_pk) 18.06.14 13:16
(32) Ivon, ну, теперь будет хватать одного 1С, без перлов и шарпов :):)
35. Александр Соломатин (v77) 18.06.14 13:30
:) Моя тема. Тоже писал и интерпретатор языка 1С и компилятор из 1с в Паскаль. Не помню где это всё лежит.
Сейчас морочусь на тему быстрого интерпретатора. Пишу такой типа ассемблер для вариантных переменных, чтобы можно было на его основе ваять всякие интерпретаторы. Пока в зачатке, но скорость работы неплохая. Например такой код выполняется на 1с за 8 секунд.

П = 500.48;
Для а = 1 по 10000000 цикл
П = П + 500.48;
КонецЦикла;

а на моём вариантном асме за 80 миллисекунд

InitInt $1
loop:
Ldd П, 500.48
Jmp ($1 >= 10000000) end_loop
Add П,500.48
IncInt $1
Jmp loop
end_loop:

Автору успехов! Плюсую!

36. Сергѣй Батанов (baton_pk) 18.06.14 13:36
(35) v77, о, ещё один в нашем клубе.

компилятор из 1с в Паскаль

Это транслятором зовётся, а не компилятором :)

Не помню где это всё лежит.

Для того и придуманы гитхаб с битбакетом :)

Пока в зачатке, но скорость работы неплохая

Вы сборщик мусора прикрутите и обработку исключений - там и посмотрим на быстродействие :) (и поиск HASP-ключа ещё :-D)
37. Александр Соломатин (v77) 18.06.14 13:48
(36) baton_pk,
"Это транслятором зовётся, а не компилятором :)"
ой, да какая разница.

Сборщик мусора это такая фигня, которая сжирает всю память, а потом отдает по маленьку и жутко всё тормозит? Не, нафиг он нужен. И без него хорошо. А обработка исключений на скорость слабо влияет.
38. Сергѣй Батанов (baton_pk) 18.06.14 13:55
(37) v77,
Сборщик мусора это такая фигня, которая сжирает всю память, а потом отдает по маленьку и жутко всё тормозит? Не, нафиг он нужен.

Не совсем. В общем случае это штуковина, которая определяет, что память более не используется, и освобождает её.
Штука нужная, если предполагается, что программа постоянно висит в памяти. Для программ на один проход и в правду можно его не использовать в большинстве случаев.
39. Александр Соломатин (v77) 18.06.14 14:07
(38) baton_pk,
"Штука нужная" ну иногда и нужная, а в основном время она жрет. я бы просто сделал функцию УдалитьПотом(Массив), чтобы освобождать память от больших объектов не сразу, а потом, когда программа ничего не делает. А всякую мелочь убивать сразу в конце процедуры и не париться. Т.е. такой ручной сборщик мусора.
40. Сергѣй Батанов (baton_pk) 18.06.14 14:14
(39) v77,
ну так это и есть сборщик мусора. Сборка мусора - тема настолько широкая и толстая, что нельзя вот просто так взять и сказать "это сейчас удалить, это потом".

Представим, что у нас 2 гига свободной памяти:
А = Новый МассивНаПолтораГига;
РаботатьСМассивом(А);
А = Неопределено; // <- тут его по-любому надо грохнуть 
Б = Новый МассивНаПолтораГига; // чтобы хватило памяти под этот
...Показать Скрыть

к тому же это мы рассматриваем только память. Есть ещё другие ресурсы: сеть, файлы.

Ну а про ручной сборщик: добро пожаловать в БДСМ клуб! Делать языки с управляемым кодом, чтобы ещё и мусор руками собирать :)
41. Александр Соломатин (v77) 18.06.14 14:26
(40) baton_pk,

А = Неопределено; //


и 1с это сразу освободит или отложит? Я так думаю, что она отложит. Уж больно часто в 1с памяти не хватает.
42. Сергѣй Батанов (baton_pk) 18.06.14 14:33
(41) v77,
пол-сообщения у меня съелось тут почему-то.


и 1с это сразу освободит или отложит? Я так думаю, что она отложит.

Проверил - освободит.

И дело тут не в том, как 1С это сделает, а в том, что сделает оно это само, без ручных УдалитьТоДаСё.
43. Александр Соломатин (v77) 18.06.14 14:37
(42) baton_pk,
Проверил - освободит.

это хорошо. надо запомнить.
44. Андрей Овсянкин (Evil Beaver) 18.06.14 18:08
(43) v77, надо не запомнить, а почитать матчасть. 1С использует подсчет ссылок. Присвоение переменной другого значения очищает память, если нет других ссылок на данный объект. Это значит, что проблема циклических ссылок существует и ее надо учитывать.
И, как заметил baton_pk она делает это сама, без ручных очищений. Это очень хорошо, т.к. внезапный бросок исключения может увести исполнение кода в другое место и не дойдет до вашего "УдалитьПотом".

М = Новый Массив;
М.Добавить(1);
Сообщить(М[4]); // нечаянно вышли за границу  массива
УдалитьПотом(М); // сюда не дойдет.
...Показать Скрыть
45. Александр Соломатин (v77) 18.06.14 18:43
(44) Evil Beaver, я не против того, чтобы память освобождалась автоматически. Я за то, чтобы память освобождалась автоматически сразу, при выходе из процедуры, а не когда сборщик мусора захочет. А то 1с жрет память гигабайтами непонятно на что и меня это не устраивает.
46. Артур Аюханов (artbear) 18.06.14 19:14
47. Сергѣй Батанов (baton_pk) 19.06.14 08:46
(45) v77,

память освобождалась автоматически сразу, при выходе из процедуры, а не когда сборщик мусора захочет

Ненене. Пусть сборщик мусора сам решает, когда чего чистить. Это его работа.
Если память утекла, это значит не то, что сборщик её не освободил вовремя, а то, что он в принципе не может её освободить. А тут уже не имеет значения, когда он пытается это сделать. Зависшие ссылки, ошибки платформы - всякое может быть.
48. Андрей Овсянкин (Evil Beaver) 19.06.14 09:27
(45) v77, ну во-первых, идея сборщика мусора не рождается на пустом месте. Она появляется, когда существующие решения не устраивают.
Подсчет ссылок имеет ряд недостатков, в том числе, упомянутые циклические ссылки.
Во-вторых, какая разница сколько памяти съел сервер 1С? И чем вы это измеряете, диспетчером задач? Есть такой термин: Task Manager Syndrome, загуглите, это интересно. Если система не испытывает давления по памяти, пусть программы съедают столько, сколько им нужно, вам жалко что-ли?
Ну и, в-третьих, если вас не устраивает, как работает сервер 1С, то вот: все в ваших руках.
49. Андрей Комар (akomar) 20.06.14 14:41
Подписался на тему, (заинтересовало обсуждение о сборщиках мусора) :)
50. Сергѣй Батанов (baton_pk) 25.06.14 20:26
Запилил поддержку OneScript в Geany.
Чтобы скрипт запускался из редактора, пропишите путь к OneScript в %PATH% или непосредственно в пути в настройках программы.
Тестил под WinXP и под Win7.
Прикрепленные файлы:
geany-1.25-x64_setup.exe
geany-1.25_setup.exe
51. Андрей Овсянкин (Evil Beaver) 28.06.14 19:59
(50) baton_pk, прикольно, а если в двух словах, то как выглядит выполнение кода? Ну в geany я набью код, а дальше что там?
52. Сергѣй Батанов (baton_pk) 30.06.14 00:13
(51) Evil Beaver, просто нажать кнопку "Выполнить" и он тупо выполнит команду "oscript.exe <мойфайл.1src>".
На данный момент это пока всё :) - подсветка да встроенная команда выполнения. Потом лексер прикручу да пошаговое выполнение.
53. А Р (p1l1gr1m) 01.07.14 23:28
Автору респект за труды!
54. Алексей (alexqc) 03.07.14 11:20
(3) Evil Beaver, А где исходники взять :)?
55. Алексей (alexqc) 03.07.14 11:25
56. Алексей (alexqc) 03.07.14 12:16
	аа= ложь или "111";
	Сообщить(аа);

	аа= Истина И "111";
	Сообщить(аа);

...Показать Скрыть


выведет "111", 1С же в этом случае ругается. В принципе вариант имеет право на существование, но т.к. есть ограничения по конверсии в тип булево, стоит все же сделать как в 1С - правильнее будет локализовывать ошибки.

	
аа= Ложь или "111";
бб= Не аа; //Ошибка вылезет тут, хотя реально строкой выше


аа= "111" и Истина; //ошибка
аа= Истина и "111"; //ошибки нет, хотя формально от предыдущей строки не отличается. При чем результат выражения таков, что иначе как бредом и не назовешь.

...Показать Скрыть
57. Алексей (alexqc) 03.07.14 12:28
 
А=5;
Для ш=1 по А Цикл
 Сообщить(ш);
 А=4;
КонецЦикла;
...Показать Скрыть


Пройдет цикл 1..4, в то время как в 1С - 1..5. Это тянется еще с 7ки (а может и раньше) - граница цикла вычисляется один раз при старте цикла, и потом не меняется.
58. Андрей Овсянкин (Evil Beaver) 03.07.14 14:24
(56)(57) alexqc, если не сложно, зарегистрируй, пожалуйста, ошибки в Issues на bitbucket?
59. Александр Топольский (AlexanderKai) 04.07.14 10:31
(57) alexqc,
Кстати очень неудобная фича. Иногда не хватает гибкости оператора for как в Си.
60. Сергей Боровик (BorovikSV) 06.07.14 14:42
(59) AlexanderKai, для любых фич есть WHILE.
61. Павел Романов (Pawlick) 07.07.14 15:55
Очень, очень интересная вещь. Уважение автору.
62. Алексей (alexqc) 09.07.14 12:38
(59) AlexanderKai, как сказать, как сказать... Иногда удобнее именно так (например, когда в цикле до количества объектов в коллекции добавляются объекты в эту самую коллекцию), кроме того, хоть чуть-чуть но это оптимальнее (нет необходимости вычислять границу N раз). Вот чего реально в 1С-for не хватает - это цикла "вниз".
63. Сергѣй Батанов (baton_pk) 15.07.14 08:01
Вчера получилось собрать под Ubuntu 14.04: собралось всё, кроме TestApp и расширения для снегопата.
64. Андрей Овсянкин (Evil Beaver) 15.07.14 09:22
(63) baton_pk, Ну так понятно: TestApp - это WPF, его под Mono нету. А расширение Снегопата - вообще сплошной COM.
65. Александр Соломатин (v77) 15.07.14 09:41
Чота вычисляет как-то неправильно

раз = 100 + 100 + 20 * 100 / 2 - 18 + 45698 * 45789 / 16 - 500 - 800 * 19;
сообщить(раз);

выдает 130763475.25

в Delphi, 1с и моей поделке выдает 130764589.625
66. Андрей Овсянкин (Evil Beaver) 15.07.14 10:03
67. Сергѣй Батанов (baton_pk) 15.07.14 10:15
(64) Evil Beaver,
не, снегопат не собрался, потому что у меня Managed C++ под Mono нет. То есть, я в принципе не пытался его собрать.
68. Андрей Овсянкин (Evil Beaver) 15.07.14 10:40
(67) baton_pk, ну я в этом не силен. В Mono пробовал только Hello World-ы писать :)
69. Александр Соломатин (v77) 15.07.14 11:12
П = 500.48;

Для а = 1 по 10000000 цикл
П = П + 500.48;
КонецЦикла;
Сообщить(П);

выдаст в 1с
5004800500.48

вместо
5004800499.98169

это вопрос религии, но если делать совместимо с 1С, то надо использовать какой нибудь Currency вместо Double
70. Андрей Овсянкин (Evil Beaver) 15.07.14 13:57
(69) v77, как раз "делать совместимо" задачи нет. Изначально я ставил задачу себе - рабочая виртуальная машина с интерпретацией языка 1С, при этом, реализованная с минимальными затратами. Насколько мне хватает понимания - в 1С используется длинная арифметика с представлением чисел в виде порядка/мантиссы. Я ничего такого не планировал, а "урезал" на проектном уровне до простого double. Числа в OneScript - это double среды CLR. Я не планировал делать его таким, как в 1С, ибо не имею достаточно знаний в этом вопросе.
71. Сергей Боровик (BorovikSV) 17.07.14 21:46
(70) Evil Beaver, Я реализовал длинную арифметику самостоятельно.
Сначала нашел рабочие исходники - оказались слишком неуклюжими. Производительность крайне страдала.
Задал себе вопрос: Че я не программист что ли?
Убил день на основные операции + неделю на операцию деления (раз 5 переписывал алгоритмы деления, т.к. не проходили тесты, то одни то другие).
Попробуй - интересная задача.
P.S. Мой язык Delphi
72. Андрей Овсянкин (Evil Beaver) 17.07.14 23:26
(71) BorovikSV, вопрос-то в другом. Оно вам реально надо? Вот что прям, действительно, вот надо считать большие числа консольными скриптами на языке 1С? А под какие задачи?
73. Евгений Мартыненков (JohnyDeath) 23.07.14 17:09
А скрипт может принимать параметры? Если да, то как их обработать внутри скрипта?
Например вот такое:
oscript.exe prinmessage.os "Привет мир"
74. Андрей Овсянкин (Evil Beaver) 23.07.14 18:03
(73) JohnyDeath, начиная с версии 1.0.5 - может.
Для Каждого Аргумент Из АргументыКоманднойСтроки Цикл
    Сообщить(Аргумент);
КонецЦикла

Если АргументыКоманднойСтроки[0] = "kill-all-humans" Тогда
    УбитьВсехЧеловеков();
КонецЕсли;
...Показать Скрыть
JohnyDeath; +1 Ответить 1
75. Евгений Мартыненков (JohnyDeath) 23.07.14 19:17
(74) Evil Beaver, отлично! Спасибо.
(на битбакете вики что-то практически пустая)
76. Андрей Овсянкин (Evil Beaver) 23.07.14 21:43
(75) JohnyDeath, она переживает второе рождение) Я ее переписываю, пока не закончил.
77. Сергей Боровик (BorovikSV) 31.07.14 13:43
(72) Evil Beaver, надо или не надо - тут не абсолютно причем. Тут все просто: либо ваши числовые значения урезанные, либо нет.
Можно получить сюрпризы от double в самый неподходящий момент. И вовсе не обязательно при этом считать песчинки в мировом океане.
78. Андрей Овсянкин (Evil Beaver) 31.07.14 18:55
(77) BorovikSV, Видимо, я знаю меньше, чем вы. Какие наиболее распространенные сюрпризы можно получить от double, которые нельзя получить от неограниченного числа? Кроме переполнения других сюрпризов не знаю.
79. Александр Соломатин (v77) 11.08.14 09:02
(78) Evil Beaver, BorovikSV наверное намекает на типа такого:

Результат = 1;

Для а = 1 по 10 цикл
Результат = Результат - 0.1;
КонецЦикла;

Сообщить(Результат);

В 1С Результат будет равно 0
80. Андрей Овсянкин (Evil Beaver) 11.08.14 10:00
(79) v77, Спасибо. Но это не отменяет моего непонимания этой темы. К сожалению) Буду совершенствоваться.

UPD. Прочитал про double и ужаснулся. Оказывается, ему в принципе нельзя доверять, не округлив до конкретной точности.
Это в корне меняет все дело. Думаю, что надо будет заменить на BigDecimal, который выше предложил baton_pk.
81. Сергей Боровик (BorovikSV) 15.08.14 16:55
(80) Evil Beaver, Приведите ссылки про Double, чтобы другие тоже ужаснулись, и сделали выводы :)
82. Андрей Овсянкин (Evil Beaver) 17.08.14 15:20
(81) BorovikSV,

http://social.msdn.microsoft.com/Forums/vstudio/en-US/921a8ffc-9829-4145-bdc9-a96c1ec174a5/decimal-vs-double-difference?forum=csharpgeneral

Там ближе к середине переписке будет:

The fundamental difference is that the double is a base 2 fraction, whereas a decimal is a base 10 fraction.

double stores the number 0.5 as 0.1, 1 as 1.0, 1.25 as 1.01, 1.875 as 1.111, etc.

decimal stores 0.1 as 0.1, 0.2 as 0.2, etc.

The double cannot store something like 0.3 as a plain binary fraction, so i think it uses an approximation


И еще вот:
Doubles use Floating Point storage in base 2, where as the Decimal stores the information in base 10.

So, for example, 2.25 as a decimal would be stored as 225 * 10 ^ -2 (underlined numbers are actually stored) or some variation thereof.

The double would store 1001 * 2 ^ -10 (underlined numbers are actually stored and they are in base 2).

You can think of integer binary numbers as each digit as having a power of two, i.e.

128 64 32 16 8 4 2 1

for a floating point number, you just need to extend that to negative powers of two as well, i.e.

16 8 4 2 1 1/2 1/4 1/8 1/16

or

16 8 4 2 1 .5 .25 .125 .0625

Some of the implications:

In my example I picked a number that is easily represented in binary format, but some numbers that are short/simple base 10 fractions are very long, if not irrational, binary fractions. This means that when using the double the number can sometimes be off from what you would expect


Короче, говоря, 0.1 в double на самом деле хранится, как 0.10000000000000001, причем этот хвост зависит от конкретного значения. Никогда нельзя сказать точно - чему равно значение double. Можно сказать, что "double имеет значение X с точностью до M знаков"

Как-то так я это понял.
83. Сергѣй Батанов (baton_pk) 19.08.14 08:37
Можно сказать, что "double имеет значение X с точностью до M знаков"

Дааа, старая добрая школьная информатика! Паскаль, олимпиады и вот такое:
const double eps = 0.001;
...
if abs(x - y) < eps then 
   ... x равно y с точностью до eps
...Показать Скрыть


За `x = y` можно было и подзатыльника схватить от препода.
84. Андрей Овсянкин (Evil Beaver) 19.08.14 09:38
(83) baton_pk, не у всех были столь эффективные преподы. Нам преподавали С++ весьма посредственно. Практически все что в нем знаю, изучил методом тыка. А в школе у нас был Бейсик на БК0011. Там не было double.
85. Adapter Бахтыреев (adapter) 01.10.14 13:34
идея классная, реализация вообще супер. Отладки я так понимаю не предусмотрено? Хотя всегда можно отладить код на обычной 1С а потом добавить в консольную версию, как с VBScript.
Многие программеры 1С не сталкиваются с админскими задачами, поэтому наверное и отношение такое пессимистическое.
А вот попробуй например из базы 1С взять инфу о пользователях и обновить платформу только на этих компах, да еще когда и админского доступа у пользователей нет (т.е. штатными средствами 1С никак). Хорошо когда конторка маленькая. А если 1000 компов, кто то в отпуске, командировке. А обновить надо только у 20 например?

Да много чего еще хорошего можно сделать. Фишка в том что интегрируются возможности 1С и данные из баз с админскими задачами. Я сталкивался, знаю что к чему. Пришлось писать свою глобальную вещь на 1С, которая и админские задачи решает. Например регламентные задания на 1С простукивают сеть и компы по сокетам, wmi, ping и собирает из этого актуальную базу компов в 1С, далее по ним удаленное управление, пакетное обновление программного обеспечения ну и кучу всего.
86. Андрей Овсянкин (Evil Beaver) 31.10.14 01:32
(85) adapter, ну вот, а теперь все это можно скопировать в текстовые файлы скриптов и запускать быстро, без оверхеда в виде платформы. Например, автоматически по расписанию или еще как-то. Т.е. теперь это честный "админский" скриптинг, но на понятном языке программирования.
87. Сергѣй Батанов (baton_pk) 04.11.14 00:53
(86) Evil Beaver,
теперь это честный "админский" скриптинг

вот на днях применил не "по-админски" :) Сделал скрипт, который по COM-соединителю запускает базу, берёт текущие продажи и по ADODB выгружает во внешнюю систему в головной офис. Осталось переделать, чтобы вместо COM-соединения с 1С данные брались запросом прямо из SQL и куча головной боли долой!
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа