Skip to content
Navigation Menu
{{ message }}
forked from EvilBeaver/OneScript
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathpackage-loader.os
More file actions
333 lines (255 loc) · 18.2 KB
/
Copy pathpackage-loader.os
File metadata and controls
333 lines (255 loc) · 18.2 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
// Стандартный загрузчик библиотек, включаемый в дистрибутив OneScript
// Данный загрузчик используется, если библиотека не предоставляет свой, альтернативный загрузчик.
// Можно сказать, это загрузчик по-умолчанию.
Перем ПоказатьСообщенияЗагрузки;
Перем ВыдаватьОшибкуПриЗагрузкеУжеСуществующихКлассовМодулей;
Перем КэшМодулей;
Процедура ПриЗагрузкеБиблиотеки(Путь, СтандартнаяОбработка, Отказ)
Вывести("
|ПриЗагрузкеБиблиотеки " + Путь);
ФайлМанифеста = Новый Файл(ОбъединитьПути(Путь, "lib.config"));
Если ФайлМанифеста.Существует() Тогда
Вывести("Обрабатываем по манифесту");
СтандартнаяОбработка = Ложь;
ОбработатьМанифест(ФайлМанифеста.ПолноеИмя, Путь, Отказ);
Иначе
Вывести("Обрабатываем структуру каталогов по соглашению");
ОбработатьСтруктуруКаталоговПоСоглашению(Путь, СтандартнаяОбработка, Отказ);
КонецЕсли;
КонецПроцедуры
Процедура ОбработатьМанифест(Знач Файл, Знач Путь, Отказ)
Чтение = Новый ЧтениеXML;
Чтение.ОткрытьФайл(Файл);
Чтение.ПерейтиКСодержимому();
Если Чтение.ЛокальноеИмя <> "package-def" Тогда
Отказ = Истина;
Чтение.Закрыть();
Возврат;
КонецЕсли;
Пока Чтение.Прочитать() Цикл
Если Чтение.ТипУзла = ТипУзлаXML.Комментарий Тогда
Продолжить;
КонецЕсли;
Если Чтение.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
Если Чтение.ЛокальноеИмя = "class" Тогда
ФайлКласса = Новый Файл(Путь + "/" + Чтение.ЗначениеАтрибута("file"));
Если ФайлКласса.Существует() и ФайлКласса.ЭтоФайл() Тогда
Идентификатор = Чтение.ЗначениеАтрибута("name");
Если Не ПустаяСтрока(Идентификатор) Тогда
Вывести(СтрШаблон(" класс %1, файл %2", Идентификатор, ФайлКласса.ПолноеИмя));
// ДобавитьКласс(ФайлКласса.ПолноеИмя, Идентификатор);
ДобавитьКлассЕслиРанееНеДобавляли(ФайлКласса.ПолноеИмя, Идентификатор);
КонецЕсли;
Иначе
ВызватьИсключение "Не найден файл " + ФайлКласса.ПолноеИмя + ", указанный в манифесте";
КонецЕсли;
Чтение.Прочитать(); // в конец элемента
КонецЕсли;
Если Чтение.ЛокальноеИмя = "module" Тогда
ФайлКласса = Новый Файл(Путь + "/" + Чтение.ЗначениеАтрибута("file"));
Если ФайлКласса.Существует() и ФайлКласса.ЭтоФайл() Тогда
Идентификатор = Чтение.ЗначениеАтрибута("name");
Если Не ПустаяСтрока(Идентификатор) Тогда
Вывести(СтрШаблон(" модуль %1, файл %2", Идентификатор, ФайлКласса.ПолноеИмя));
Попытка
ДобавитьМодульЕслиРанееНеДобавляли(ФайлКласса.ПолноеИмя, Идентификатор);
Исключение
Если ВыдаватьОшибкуПриЗагрузкеУжеСуществующихКлассовМодулей Тогда
ВызватьИсключение;
КонецЕсли;
Вывести("Предупреждение:
| " + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
КонецПопытки;
КонецЕсли;
Иначе
ВызватьИсключение "Не найден файл " + ФайлКласса.ПолноеИмя + ", указанный в манифесте";
КонецЕсли;
Чтение.Прочитать(); // в конец элемента
КонецЕсли;
КонецЕсли;
КонецЦикла;
Чтение.Закрыть();
КонецПроцедуры
Процедура ОбработатьСтруктуруКаталоговПоСоглашению(Путь, СтандартнаяОбработка, Отказ)
КаталогиКлассов = Новый Массив;
КаталогиКлассов.Добавить(ОбъединитьПути(Путь, "Классы"));
КаталогиКлассов.Добавить(ОбъединитьПути(Путь, "Classes"));
КаталогиКлассов.Добавить(ОбъединитьПути(Путь, "src", "Классы"));
КаталогиКлассов.Добавить(ОбъединитьПути(Путь, "src", "Classes"));
КаталогиМодулей = Новый Массив;
КаталогиМодулей.Добавить(ОбъединитьПути(Путь, "Модули"));
КаталогиМодулей.Добавить(ОбъединитьПути(Путь, "Modules"));
КаталогиМодулей.Добавить(ОбъединитьПути(Путь, "src", "Модули"));
КаталогиМодулей.Добавить(ОбъединитьПути(Путь, "src", "Modules"));
КаталогиВК = Новый Массив;
КаталогиВК.Добавить(ОбъединитьПути(Путь, "Components"));
КаталогиВК.Добавить(ОбъединитьПути(Путь, "Компоненты"));
Для Каждого мКаталог Из КаталогиКлассов Цикл
ОбработатьКаталогКлассов(мКаталог, СтандартнаяОбработка, Отказ);
КонецЦикла;
Для Каждого мКаталог Из КаталогиМодулей Цикл
ОбработатьКаталогМодулей(мКаталог, СтандартнаяОбработка, Отказ);
КонецЦикла;
Для Каждого мКаталог Из КаталогиВК Цикл
ОбработатьКаталогВК(мКаталог, СтандартнаяОбработка, Отказ);
КонецЦикла;
КонецПроцедуры
Процедура ОбработатьКаталогКлассов(Знач Путь, СтандартнаяОбработка, Отказ)
КаталогКлассов = Новый Файл(Путь);
Если КаталогКлассов.Существует() Тогда
Файлы = НайтиФайлы(КаталогКлассов.ПолноеИмя, "*.os");
Для Каждого Файл Из Файлы Цикл
Вывести(СтрШаблон(" класс (по соглашению) %1, файл %2", Файл.ИмяБезРасширения, Файл.ПолноеИмя));
СтандартнаяОбработка = Ложь;
// ДобавитьКласс(Файл.ПолноеИмя, Файл.ИмяБезРасширения);
ДобавитьКлассЕслиРанееНеДобавляли(Файл.ПолноеИмя, Файл.ИмяБезРасширения);
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Процедура ОбработатьКаталогМодулей(Знач Путь, СтандартнаяОбработка, Отказ)
КаталогМодулей = Новый Файл(Путь);
Если КаталогМодулей.Существует() Тогда
Файлы = НайтиФайлы(КаталогМодулей.ПолноеИмя, "*.os");
Для Каждого Файл Из Файлы Цикл
Вывести(СтрШаблон(" модуль (по соглашению) %1, файл %2", Файл.ИмяБезРасширения, Файл.ПолноеИмя));
СтандартнаяОбработка = Ложь;
Попытка
ДобавитьМодульЕслиРанееНеДобавляли(Файл.ПолноеИмя, Файл.ИмяБезРасширения);
Исключение
Если ВыдаватьОшибкуПриЗагрузкеУжеСуществующихКлассовМодулей Тогда
ВызватьИсключение;
КонецЕсли;
СтандартнаяОбработка = Истина;
Вывести("Предупреждение:
|" + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
КонецПопытки;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
// По соглашению ВК должны лежать в подпапках, названных, как значения перечисления ТипПлатформы.
// Имя файла, являющегося внешней компонентой должно иметь префикс 1script_
// Components
// net4 (фреймворк .net48
// 1script_barcode.dll
// dotnet (.net современных версий, он же netcore)
// 1script_barcode.dll
// NativeApi
// Windows_x86
// 1script_barcode.dll
// Windows_x86_64
// 1script_barcode.dll
// Linux_x86_64
// 1script_barcode.so
// остальные не поддерживаются (ЖВПР)
//
Процедура ОбработатьКаталогВК(Знач Путь, СтандартнаяОбработка, Отказ)
СИ = Новый СистемнаяИнформация();
МажорнаяВерсия = Лев(СИ.Версия,1);
Если МажорнаяВерсия = "1" Тогда
ОбработатьБиблиотекиCLR(ОбъединитьПути(Путь, "net4"), СтандартнаяОбработка);
ИначеЕсли МажорнаяВерсия = "2" Тогда
ОбработатьБиблиотекиCLR(ОбъединитьПути(Путь, "dotnet"), СтандартнаяОбработка);
Иначе
Вывести("Неизвестная мажорная версия системы: " + МажорнаяВерсия);
КонецЕсли;
ОбработатьКомпонентыNativeApi(Путь);
КонецПроцедуры
Процедура ОбработатьБиблиотекиCLR(Знач Путь, СтандартнаяОбработка)
КандидатыВКомпоненты = НайтиФайлы(Путь, "1script_*.dll");
Для Каждого Кандидат Из КандидатыВКомпоненты Цикл
Если Не Кандидат.ЭтоФайл() Тогда
Продолжить;
КонецЕсли;
Вывести("Загружаю файл " + Кандидат.Имя);
ЗагрузитьБиблиотеку(Кандидат.ПолноеИмя);
СтандартнаяОбработка = Ложь;
КонецЦикла;
КонецПроцедуры
Процедура ОбработатьКомпонентыNativeApi(Путь)
СИ = Новый СистемнаяИнформация;
ИмяПодкаталога = ОбъединитьПути(Путь, Строка(СИ.ТипПлатформы));
Вывести("Ищу внешние компоненты в каталоге " + Путь);
#Если Windows Тогда
Расширение = ".dll";
#Иначе
Расширение = ".so";
#КонецЕсли
КандидатыВКомпоненты = НайтиФайлы(ИмяПодкаталога, "1script_*"+Расширение);
Для Каждого Кандидат Из КандидатыВКомпоненты Цикл
Если Не Кандидат.ЭтоФайл() Тогда
Продолжить;
КонецЕсли;
Вывести("Загружаю файл " + Кандидат.Имя);
ПодключитьВнешнююКомпоненту(Кандидат.ПолноеИмя, Кандидат.Имя, ТипВнешнейКомпоненты.Native);
КонецЦикла;
КонецПроцедуры
Процедура ДобавитьКлассЕслиРанееНеДобавляли(ПутьФайла, ИмяКласса)
Вывести("Добавляю класс, если ранее не добавляли " + ИмяКласса);
Если ВыдаватьОшибкуПриЗагрузкеУжеСуществующихКлассовМодулей Тогда
Вывести("Добавляю класс " + ИмяКласса);
ДобавитьКласс(ПутьФайла, ИмяКласса);
Возврат;
КонецЕсли;
КлассУжеЕсть = Ложь;
Попытка
ИзвестныйТип = Тип(ИмяКласса);
КлассУжеЕсть = Истина;
Исключение
СообщениеОшибки = ОписаниеОшибки();
ШаблонОшибки = НСтр("ru = 'Тип не зарегистрирован (%1)';en = 'Type is not registered (%1)'");
ИскомаяОшибка = СтрШаблон(ШаблонОшибки, ИмяКласса);
КлассУжеЕсть = СтрНайти(СообщениеОшибки, ИскомаяОшибка) = 0;
КонецПопытки;
Если Не КлассУжеЕсть Тогда
Вывести("Добавляю класс, т.к. он не найден - " + ИмяКласса);
ДобавитьКласс(ПутьФайла, ИмяКласса);
Иначе
Вывести("Пропускаю загрузку класса " + ИмяКласса);
КонецЕсли;
КонецПроцедуры
Процедура ДобавитьМодульЕслиРанееНеДобавляли(ПутьФайла, ИмяМодуля)
Вывести("Добавляю модуль, если ранее не добавляли " + ИмяМодуля);
МодульУжеЕсть = КэшМодулей.Найти(ИмяМодуля) <> Неопределено;
Если Не МодульУжеЕсть Тогда
Вывести("Добавляю модуль, т.к. он не найден - " + ИмяМодуля);
ДобавитьМодуль(ПутьФайла, ИмяМодуля);
КэшМодулей.Добавить(ИмяМодуля);
Иначе
Вывести("Пропускаю загрузку модуля " + ИмяМодуля);
КонецЕсли;
КонецПроцедуры
Процедура Вывести(Знач Сообщение)
Если ПоказатьСообщенияЗагрузки Тогда
Сообщить(Сообщение);
КонецЕсли;
КонецПроцедуры
Функция ПолучитьБулевоИзПеременнойСреды(Знач ИмяПеременнойСреды, Знач ЗначениеПоУмолчанию)
Рез = ЗначениеПоУмолчанию;
РезИзСреды = ПолучитьПеременнуюСреды(ИмяПеременнойСреды);
Если ЗначениеЗаполнено(РезИзСреды) Тогда
РезИзСреды = СокрЛП(РезИзСреды);
Попытка
Рез = Число(РезИзСреды) <> 0 ;
Исключение
Рез = ЗначениеПоУмолчанию;
Сообщить(СтрШаблон("Неверный формат переменной среды %1. Ожидали 1 или 0, а получили %2", ИмяПеременнойСреды, РезИзСреды));
КонецПопытки;
КонецЕсли;
Возврат Рез;
КонецФункции
// Если Истина, то выдаются подробные сообщения о порядке загрузке пакетов, классов, модулей, что помогает при анализе проблем
// очень полезно при анализе ошибок загрузки
// Переменная среды может принимать значение 0 (выключено) или 1 (включено)
// Значение флага по умолчанию - Ложь
ПоказатьСообщенияЗагрузки = ПолучитьБулевоИзПеременнойСреды(
"OSLIB_LOADER_TRACE", Ложь);
// Если Ложь, то пропускаются ошибки повторной загрузки классов/модулей,
//что важно при разработке/тестировании стандартных библиотек
// Если Истина, то выдается ошибка при повторной загрузке классов библиотек из движка
// Переменная среды может принимать значение 0 (выключено) или 1 (включено)
// Значение флага по умолчанию - Истина
ВыдаватьОшибкуПриЗагрузкеУжеСуществующихКлассовМодулей = ПолучитьБулевоИзПеременнойСреды(
"OSLIB_LOADER_DUPLICATES", Ложь);
// для установки других значений переменных среды и запуска скриптов можно юзать следующую командную строку
// (set OSLIB_LOADER_TRACE=1) && (oscript .\tasks\test.os)
КэшМодулей = Новый Массив;
You can’t perform that action at this time.