This repository has been archived by the owner on Oct 25, 2018. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 211
/
Copy pathv8files-extractor.os
836 lines (614 loc) · 48.1 KB
/
v8files-extractor.os
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
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
// Copyright 2016 xDrivenDevelopment
//
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
//
// http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.
#Использовать cmdline
#Использовать logos
#Использовать tempfiles
#Использовать asserts
#Использовать v8runner
#Использовать strings
Перем Лог;
Перем КодВозврата;
Перем мВозможныеКоманды;
Перем ЭтоWindows;
Функция Версия() Экспорт
Версия = "2.0.3";
Возврат "v" + Версия;
КонецФункции
Функция ВозможныеКоманды()
Если мВозможныеКоманды = Неопределено Тогда
мВозможныеКоманды = Новый Структура;
мВозможныеКоманды.Вставить("Декомпилировать", "--decompile");
мВозможныеКоманды.Вставить("Помощь", "--help");
мВозможныеКоманды.Вставить("ОбработатьИзмененияИзГит", "--git-precommit");
мВозможныеКоманды.Вставить("Компилировать", "--compile");
КонецЕсли;
Возврат мВозможныеКоманды;
КонецФункции
Функция ЗапускВКоманднойСтроке()
Лог_cmdline = Логирование.ПолучитьЛог("oscript.lib.cmdline");
Лог_cmdline.УстановитьУровень(УровниЛога.Отладка);
ВыводПоУмолчанию = Новый ВыводЛогаВКонсоль();
Лог_cmdline.ДобавитьСпособВывода(ВыводПоУмолчанию);
Аппендер = Новый ВыводЛогаВФайл();
Аппендер.ОткрытьФайл(ОбъединитьПути(КаталогПроекта(), ИмяСкрипта()+".cmdline.log"));
Лог_cmdline.ДобавитьСпособВывода(Аппендер);
КодВозврата = 0;
Если ТекущийСценарий().Источник <> СтартовыйСценарий().Источник Тогда
Возврат Ложь;
КонецЕсли;
Лог.Информация("precommit1c " + Версия() + Символы.ПС);
Попытка
Парсер = Новый ПарсерАргументовКоманднойСтроки();
ДобавитьОписаниеКомандыДекомпилировать(Парсер);
ДобавитьОписаниеКомандыПомощь(Парсер);
ДобавитьОписаниеКомандыИзмененияПоЖурналуГит(Парсер);
ДобавитьОписаниеКомандыКомпилировать(Парсер);
Аргументы = Парсер.РазобратьКоманду(АргументыКоманднойСтроки);
Лог.Отладка("ТипЗнч(Аргументы)= "+ТипЗнч(Аргументы));
Если Аргументы = Неопределено Тогда
ВывестиСправку();
Возврат Истина;
КонецЕсли;
Команда = Аргументы.Команда;
Лог.Отладка("Передана команда: "+Команда);
Для Каждого Параметр Из Аргументы.ЗначенияПараметров Цикл
Лог.Отладка(Параметр.Ключ + " = " + Параметр.Значение);
КонецЦикла;
Если Команда = ВозможныеКоманды().Декомпилировать Тогда
Декомпилировать(Аргументы.ЗначенияПараметров["ПутьВходящихДанных"], Аргументы.ЗначенияПараметров["ВыходнойКаталог"]);
ИначеЕсли Команда = ВозможныеКоманды().Помощь Тогда
ВывестиСправку();
ИначеЕсли Команда = ВозможныеКоманды().ОбработатьИзмененияИзГит Тогда
ОбработатьИзмененияИзГит(Аргументы.ЗначенияПараметров["ВыходнойКаталог"], Аргументы.ЗначенияПараметров["--remove-orig-bin-files"]);
ИначеЕсли Команда = ВозможныеКоманды().Компилировать Тогда
Компилировать(
Аргументы.ЗначенияПараметров["ПутьВходящихДанных"],
Аргументы.ЗначенияПараметров["ВыходнойКаталог"],
Аргументы.ЗначенияПараметров["--recursive"]
);
КонецЕсли;
Исключение
Лог.Ошибка(ОписаниеОшибки());
КодВозврата = 1;
КонецПопытки;
ВременныеФайлы.Удалить();
Возврат Истина;
КонецФункции
Процедура ДобавитьОписаниеКомандыДекомпилировать(Знач Парсер)
ОписаниеКоманды = Парсер.ОписаниеКоманды(ВозможныеКоманды().Декомпилировать);
Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "ПутьВходящихДанных");
Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "ВыходнойКаталог");
Парсер.ДобавитьКоманду(ОписаниеКоманды);
КонецПроцедуры
Процедура ДобавитьОписаниеКомандыПомощь(Знач Парсер)
ОписаниеКоманды = Парсер.ОписаниеКоманды(ВозможныеКоманды().Помощь);
Парсер.ДобавитьКоманду(ОписаниеКоманды);
КонецПроцедуры
Процедура ДобавитьОписаниеКомандыИзмененияПоЖурналуГит(Знач Парсер)
ОписаниеКоманды = Парсер.ОписаниеКоманды(ВозможныеКоманды().ОбработатьИзмененияИзГит);
Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "ВыходнойКаталог");
Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "--remove-orig-bin-files");
Парсер.ДобавитьКоманду(ОписаниеКоманды);
КонецПроцедуры
Процедура ДобавитьОписаниеКомандыКомпилировать(Знач Парсер)
ОписаниеКоманды = Парсер.ОписаниеКоманды(ВозможныеКоманды().Компилировать);
Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "ПутьВходящихДанных");
Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "ВыходнойКаталог");
Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "--recursive");
Парсер.ДобавитьКоманду(ОписаниеКоманды);
КонецПроцедуры
Процедура Инициализация()
СистемнаяИнформация = Новый СистемнаяИнформация;
ЭтоWindows = Найти(ВРег(СистемнаяИнформация.ВерсияОС), "WINDOWS") > 0;
Лог = Логирование.ПолучитьЛог("oscript.app.v8files-extractor");
//Лог.УстановитьУровень(УровниЛога.Отладка);
ВыводПоУмолчанию = Новый ВыводЛогаВКонсоль();
Лог.ДобавитьСпособВывода(ВыводПоУмолчанию);
Аппендер = Новый ВыводЛогаВФайл();
Аппендер.ОткрытьФайл(ОбъединитьПути(КаталогПроекта(), ИмяСкрипта()+".log"));
Лог.ДобавитьСпособВывода(Аппендер);
КонецПроцедуры
/////////////////////////////////////////////////////////////////////////////
// РЕАЛИЗАЦИЯ КОМАНД
Процедура Декомпилировать(Знач Путь, Знач КаталогВыгрузки) Экспорт
Файл = Новый Файл(Путь);
Если Файл.ЭтоКаталог() Тогда
РазобратьКаталог(Файл, КаталогВыгрузки, Файл.ПолноеИмя);
Иначе
РазобратьФайл(Файл, КаталогВыгрузки, Файл.Путь);
КонецЕсли;
КонецПроцедуры
Процедура РазобратьКаталог(Знач ОбъектКаталога, Знач КаталогВыгрузки, Знач КаталогКорень) Экспорт
ПутьКаталога = ОбъектКаталога.ПолноеИмя;
ОтносительныйПутьКаталога = ПолучитьОтносительныйПутьФайла(КаталогКорень, ПутьКаталога);
ОтносительныйПутьКаталога = ?(ПустаяСтрока(ОтносительныйПутьКаталога), ПутьКаталога, ОтносительныйПутьКаталога);
Лог.Информация(СтрШаблон("Подготовка выгрузки каталога %1 в каталог %2, корень %3", ОтносительныйПутьКаталога, КаталогВыгрузки, КаталогКорень));
ИмяКаталогаВыгрузки = Новый Файл(КаталогВыгрузки).Имя;
Файлы = НайтиФайлы(ПутьКаталога, ПолучитьМаскуВсеФайлы());
Для Каждого Файл из Файлы Цикл
Если Файл.ЭтоКаталог() Тогда
РазобратьКаталог(Новый Файл(Файл.ПолноеИмя), КаталогВыгрузки, КаталогКорень);
ИначеЕсли ТипФайлаПоддерживается(Файл) Тогда
Лог.Информация(СтрШаблон("Подготовка выгрузки файла %1 в каталог %2", Файл.Имя, ИмяКаталогаВыгрузки));
РазобратьФайлВнутр(Файл, КаталогВыгрузки, КаталогКорень);
Лог.Информация(СтрШаблон("Завершена выгрузка файла %1 в каталог %2", Файл.Имя, ИмяКаталогаВыгрузки));
КонецЕсли;
КонецЦикла;
Лог.Информация(СтрШаблон("Завершена выгрузка каталога %1 в каталог %2, корень %3", ОтносительныйПутьКаталога, КаталогВыгрузки, КаталогКорень));
КонецПроцедуры
Функция РазобратьФайл(Знач Файл, Знач КаталогВыгрузки, Знач КаталогКорень = "") Экспорт
ПутьФайла = Файл.ПолноеИмя;
Лог.Информация(СтрШаблон("Проверка необходимости выгрузки файла %1 в каталог %2, корень %3", ПутьФайла, КаталогВыгрузки, КаталогКорень));
КаталогИсходников = РазобратьФайлВнутр(Файл, КаталогВыгрузки, КаталогКорень);
Лог.Информация(СтрШаблон("Завершена проверка необходимости выгрузки файла %1 в каталог %2, корень %3", ПутьФайла, КаталогВыгрузки, КаталогКорень));
Возврат КаталогИсходников;
КонецФункции
Функция ТипФайлаПоддерживается(Файл)
Если ПустаяСтрока(Файл.Расширение) Тогда
Возврат Ложь;
КонецЕсли;
Поз = Найти(".epf,.erf,", Файл.Расширение+",");
Возврат Поз > 0;
КонецФункции
Функция РазобратьФайлВнутр(Знач Файл, Знач КаталогВыгрузки, Знач КаталогКорень)
ПутьФайла = Файл.ПолноеИмя;
Если Не ТипФайлаПоддерживается(Файл) Тогда
ВызватьИсключение "Тип файла """+Файл.Расширение+""" не поддерживается";
КонецЕсли;
Ожидаем.Что(Файл.Существует(), "Файл " + ПутьФайла + " должен существовать").ЭтоИстина();
ОтносительныйПутьКаталогаФайла = ПолучитьОтносительныйПутьФайла(КаталогКорень, ОбъединитьПути(Файл.Путь, Файл.ИмяБезРасширения));
Лог.Отладка("ОтносительныйПутьКаталогаФайла <"+ОтносительныйПутьКаталогаФайла+">");
ПутьКаталогаИсходников = ОбъединитьПути(КаталогВыгрузки, ОтносительныйПутьКаталогаФайла);
Лог.Отладка("ПутьКаталогаИсходников <"+ПутьКаталогаИсходников+">");
ПапкаИсходников = Новый Файл(ПутьКаталогаИсходников);
ОбеспечитьПустойКаталог(ПапкаИсходников);
ЗапуститьРаспаковку(Файл, ПапкаИсходников);
Возврат ПапкаИсходников.ПолноеИмя;
КонецФункции
Функция ПолучитьОтносительныйПутьФайла(КаталогКорень, ВнутреннийКаталог)
Если ПустаяСтрока(КаталогКорень) Тогда
Возврат "";
КонецЕсли;
ФайлКорень = Новый Файл(КаталогКорень);
ФайлВнутреннийКаталог = Новый Файл(ВнутреннийКаталог);
Рез = СтрЗаменить(ФайлВнутреннийКаталог.ПолноеИмя, ФайлКорень.ПолноеИмя, "");
Если Лев(Рез, 1) = "\" Тогда
Рез = Сред(Рез, 2);
КонецЕсли;
Если Прав(Рез, 1) = "\" Тогда
Рез = Лев(Рез, СтрДлина(Рез)-1);
КонецЕсли;
Возврат Рез;
КонецФункции
Процедура ЗапуститьРаспаковку(Знач Файл, Знач ПапкаИсходников)
Лог.Отладка("Запускаем распаковку файла");
Конфигуратор = Новый УправлениеКонфигуратором();
КаталогВременнойИБ = ВременныеФайлы.СоздатьКаталог();
Конфигуратор.КаталогСборки(КаталогВременнойИБ);
ЛогКонфигуратора = Логирование.ПолучитьЛог("oscript.lib.v8runner");
ЛогКонфигуратора.УстановитьУровень(Лог.Уровень());
Параметры = Конфигуратор.ПолучитьПараметрыЗапуска();
Параметры[0] = "ENTERPRISE";
ПутьV8Reader = ОбъединитьПути(ТекущийСценарий().Каталог, "v8Reader", "V8Reader.epf");
Лог.Отладка("Путь к V8Reader: " + ПутьV8Reader);
Ожидаем.Что(Новый Файл(ПутьV8Reader).Существует(), "Некорректно установлен V8Reader. Не обнаружен файл <" + ПутьV8Reader + ">").ЭтоИстина();
КоманднаяСтрокаV8Reader = СтрЗаменить("/C""decompile;pathtocf;%1;pathout;%2;convert-mxl2txt;ЗавершитьРаботуПосле;""","%1", Файл.ПолноеИмя);
КоманднаяСтрокаV8Reader = СтрЗаменить(КоманднаяСтрокаV8Reader,"%2", ПапкаИсходников.ПолноеИмя);
Лог.Отладка("Командная строка V8Reader: " + КоманднаяСтрокаV8Reader);
Параметры.Добавить("/RunModeOrdinaryApplication");
Параметры.Добавить("/Execute """ + ПутьV8Reader + """");
Параметры.Добавить(КоманднаяСтрокаV8Reader);
Конфигуратор.ВыполнитьКоманду(Параметры);
Лог.Отладка("Вывод 1С:Предприятия - " + Конфигуратор.ВыводКоманды());
Лог.Отладка("Очищаем каталог временной ИБ");
КонецПроцедуры
Процедура ОбеспечитьПустойКаталог(Знач ФайлОбъектКаталога)
Если Не ФайлОбъектКаталога.Существует() Тогда
Лог.Отладка("Создаем новый каталог " + ФайлОбъектКаталога.ПолноеИмя);
СоздатьКаталог(ФайлОбъектКаталога.ПолноеИмя);
ИначеЕсли ФайлОбъектКаталога.ЭтоКаталог() Тогда
Лог.Отладка("Очищаем каталог " + ФайлОбъектКаталога.ПолноеИмя);
УдалитьФайлы(ФайлОбъектКаталога.ПолноеИмя, ПолучитьМаскуВсеФайлы());
Иначе
ВызватьИсключение "Путь " + ФайлОбъектКаталога.ПолноеИмя + " не является каталогом. Выгрузка невозможна";
КонецЕсли;
КонецПроцедуры
Процедура ВывестиСправку()
Сообщить("Утилита сборки/разборки внешних файлов 1С");
Сообщить(Версия());
Сообщить(" ");
Сообщить("Параметры командной строки:");
Сообщить(" --decompile inputPath outputPath");
Сообщить(" Разбор файлов на исходники");
Сообщить(" --help");
Сообщить(" Показ этого экрана");
Сообщить(" --git-precommit outputPath [--remove-orig-bin-files]");
Сообщить(" Запустить чтение индекса из git и определить список файлов для разбора, разложить их и добавить исходники в индекс");
Сообщить(" Если передан флаг --remove-orig-bin-files, обработанные файлы epf/ert будут удалены из индекса git");
Сообщить(" --compile inputPath outputPath [--recursive]");
Сообщить(" Собрать внешний файл/обработку.");
Сообщить(" Если указан параметр --recursive, скрипт будет рекурсивно искать исходные коды отчетов и обработок в указанном каталоге и собирать их, повторяя структуру каталога");
КонецПроцедуры
Процедура ОбработатьИзмененияИзГит(Знач ВыходнойКаталог, Знач УдалятьФайлыИзИндексаГит) Экспорт
Если ПустаяСтрока(ВыходнойКаталог) Тогда
ВыходнойКаталог = "src";
КонецЕсли;
КореньРепо = ТекущийКаталог();
Лог.Отладка("Текущий каталог " + КореньРепо);
Лог.Отладка("Каталог выгрузки " + ВыходнойКаталог);
ПроверитьНастройкиРепозитарияГит();
ЖурналИзмененийГитСтрокой = ПолучитьЖурналИзмененийГит();
ИменаФайлов = ПолучитьИменаИзЖурналаИзмененийГит(ЖурналИзмененийГитСтрокой);
КаталогИсходников = ОбъединитьПути(КореньРепо, ВыходнойКаталог);
СписокНовыхКаталогов = Новый Массив;
Для Каждого ИмяФайла Из ИменаФайлов Цикл
Лог.Отладка("Изучаю файл из журнала git " + ИмяФайла);
ОбработанныйПуть = УбратьКавычкиВокругПути(ИмяФайла);
ПолныйПуть = ОбъединитьПути(КореньРепо, ОбработанныйПуть);
Файл = Новый Файл(ПолныйПуть);
Если ТипФайлаПоддерживается(Файл) Тогда
Лог.Отладка("Получен из журнала git файл " + Файл);
СписокНовыхКаталогов.Добавить(РазобратьФайл(Файл, КаталогИсходников, КореньРепо));
Если УдалятьФайлыИзИндексаГит Тогда
УдалитьФайлИзИндексаГит(ПолныйПуть);
КонецЕсли;
КонецЕсли;
КонецЦикла;
ДобавитьИсходникиВГит(СписокНовыхКаталогов);
КонецПроцедуры
Процедура УдалитьФайлИзИндексаГит(Знач ПолныйПуть)
Лог.Отладка("Удаляю файл из индекса");
Вывод = ПолучитьВыводПроцесса("git rm --cached """ + ПолныйПуть + """", КодВозврата);
Лог.Отладка("Вывод git rm --cached: " + Вывод);
Если КодВозврата <> 0 Тогда
ВызватьИсключение "Не удалось удалить файл из журнала изменений git";
КонецЕсли;
КонецПроцедуры
Процедура ПроверитьНастройкиРепозитарияГит() Экспорт
Перем КодВозврата;
КомандаПроверкаСостояния = "git config core.quotepath";
Лог.Отладка("Выполняю команду "+КомандаПроверкаСостояния);
Вывод = ПолучитьВыводПроцесса(КомандаПроверкаСостояния, КодВозврата);
Вывод = СокрЛП(Вывод);
Лог.Отладка(" Код возврата " + КодВозврата);
Лог.Отладка(" Вывод команды <" + Вывод + ">");
Если КодВозврата = 0 И Вывод = "false" Тогда
Возврат;
КонецЕсли;
ВызватьИсключение "У текущего репозитария не заданы необходимые настройки!
|Выполните команду git config --local core.quotepath false
|
|А еще лучше сделать глобальную настройку git config --global core.quotepath false";
КонецПроцедуры
Функция ПолучитьЖурналИзмененийГит()
Перем КодВозврата;
Вывод = ВыполнитьКомандуГит("git diff-index --name-status --cached HEAD", КодВозврата, Ложь);
Если КодВозврата <> 0 Тогда
Вывод = ВыполнитьКомандуГит("git status --porcelain", КодВозврата, Ложь);
Если КодВозврата <> 0 Тогда
ВызватьИсключение "Не удалось собрать журнал изменений git";
КонецЕсли;
КонецЕсли;
Возврат Вывод;
КонецФункции
Функция ВыполнитьКомандуГит(КомандаГит, КодВозврата = Неопределено, ПроверятьНулевойКодВозврата = Истина)
Лог.Отладка("Запускаю "+КомандаГит);
Вывод = ПолучитьВыводПроцесса(КомандаГит, КодВозврата);
Лог.Отладка(" Вывод команды гит: " + Вывод);
Если ПроверятьНулевойКодВозврата Тогда
Ожидаем.Что(КодВозврата, "Код возврата `"+КомандаГит+"` должен быть 0, а это не так").Равно(0);
КонецЕсли;
Возврат Вывод;
КонецФункции
Функция ПолучитьВыводПроцесса(Знач КоманднаяСтрока, КодВозврата)
// // Это для dev версии 1.0.11
// Процесс = СоздатьПроцесс(КоманднаяСтрока, , Истина,, КодировкаТекста.UTF8);
// Процесс.Запустить();
// Вывод = "";
// Процесс.ОжидатьЗавершения();
// Вывод = Вывод + Процесс.ПотокВывода.Прочитать();
// Вывод = Вывод + Процесс.ПотокОшибок.Прочитать();
// КодВозврата = Процесс.КодВозврата;
ЛогФайл = ВременныеФайлы.НовоеИмяФайла();
СтрокаЗапуска = "cmd /C """ + КоманднаяСтрока + " > """ + ЛогФайл + """ 2>&1""";
Лог.Отладка(СтрокаЗапуска);
ЗапуститьПриложение(СтрокаЗапуска,, Истина, КодВозврата);
Лог.Отладка("Код возврата: " + КодВозврата);
ЧтениеТекста = Новый ЧтениеТекста(ЛогФайл, "utf-8");
Вывод = ЧтениеТекста.Прочитать();
ЧтениеТекста.Закрыть();
Возврат Вывод;
КонецФункции
Функция ПолучитьИменаИзЖурналаИзмененийГит(Знач ЖурналИзмененийГит) Экспорт
Лог.Отладка("ЖурналИзмененийГит:");
МассивИмен = Новый Массив;
// Если Найти(ЖурналИзмененийГит, Символы.ПС) > 0 Тогда
МассивСтрокЖурнала = СтроковыеФункции.РазложитьСтрокуВМассивПодстрок(ЖурналИзмененийГит, Символы.ПС);
// Иначе
// ЖурналИзмененийГит = СтрЗаменить(ЖурналИзмененийГит, "A"+Символ(0), "A"+" ");
// ЖурналИзмененийГит = СтрЗаменить(ЖурналИзмененийГит, "M"+Символ(0), "M"+" ");
// ЖурналИзмененийГит = СтрЗаменить(ЖурналИзмененийГит, Символ(0), Символы.ПС);
// МассивСтрокЖурнала = СтроковыеФункции.РазложитьСтрокуВМассивПодстрок(ЖурналИзмененийГит, Символы.ПС); //Символ(0));
// КонецЕсли;
Для Каждого СтрокаЖурнала Из МассивСтрокЖурнала Цикл
Лог.Отладка(" <"+СтрокаЖурнала +">");
СтрокаЖурнала = СокрЛ(СтрокаЖурнала);
СимволИзменений = Лев(СтрокаЖурнала, 1);
Если СимволИзменений = "A" или СимволИзменений = "M" Тогда
ИмяФайла = СокрЛП(Сред(СтрокаЖурнала, 2));
// ИмяФайла = СтрЗаменить(ИмяФайла, Символ(0), "");
МассивИмен.Добавить(ИмяФайла);
Лог.Отладка(" В журнале git найдено имя файла <"+ИмяФайла+">");
КонецЕсли;
КонецЦикла;
Возврат МассивИмен;
КонецФункции
Процедура ДобавитьИсходникиВГит(Знач СписокНовыхКаталогов)
Перем КодВозврата;
Для Каждого Каталог Из СписокНовыхКаталогов Цикл
Лог.Отладка("Запуск git add для каталога " + Каталог);
Вывод = ПолучитьВыводПроцесса("git add --all " + ОбернутьПутьВКавычки(Каталог), КодВозврата);
Лог.Отладка("Вывод git add: " + Вывод);
Если КодВозврата <> 0 Тогда
Лог.Ошибка(Вывод);
ЗавершитьРаботу(КодВозврата);
КонецЕсли;
КонецЦикла
КонецПроцедуры
Функция Компилировать(Знач Путь, Знач КаталогВыгрузки, Знач Рекурсивно = Ложь) Экспорт
ПутьКИсходникам = ОбъединитьПути(ТекущийКаталог(), Путь);
ПапкаИсходников = Новый Файл(ПутьКИсходникам);
Ожидаем.Что(ПапкаИсходников.Существует(), "Папка " + ПутьКИсходникам + " должна существовать").ЭтоИстина();
Ожидаем.Что(ПапкаИсходников.ЭтоКаталог(), "Путь " + ПутьКИсходникам + "должен быть каталогом").ЭтоИстина();
Если Рекурсивно Тогда
СобратьКаталог(ПутьКИсходникам, КаталогВыгрузки);
Иначе
СобратьФайл(ПутьКИсходникам, КаталогВыгрузки);
КонецЕсли;
КонецФункции
Процедура СобратьКаталог(Знач ПутьКИсходникам, КаталогВыгрузки)
СписокФайловВКаталоге = НайтиФайлы(ПутьКИсходникам, ПолучитьМаскуВсеФайлы());
Если НЕ Новый Файл(КаталогВыгрузки).Существует() Тогда
СоздатьКаталог(КаталогВыгрузки);
КонецЕсли;
Для Каждого Файл Из СписокФайловВКаталоге Цикл
Если НЕ Файл.ЭтоКаталог() Тогда
Продолжить;
КонецЕсли;
Если ЭтоПутьКИсходнымКодамОбработок(Файл.ПолноеИмя) Тогда
СобратьФайл(Файл.ПолноеИмя, КаталогВыгрузки);
Иначе
НовыйПутьВыгрузки = ОбъединитьПути(КаталогВыгрузки, Файл.Имя);
СобратьКаталог(Файл.ПолноеИмя, НовыйПутьВыгрузки);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Функция СобратьФайл(Знач ПутьКИсходникам, Знач КаталогВыгрузки)
Лог.Информация("Собираю исходники <"+ПутьКИсходникам+">");
ПапкаИсходников = Новый Файл(ПутьКИсходникам);
Переименования = ПолучитьСоответствиеПереименований(ПутьКИсходникам);
ВременныйКаталог = ВременныеФайлы.СоздатьКаталог();
Лог.Информация("Восстанавливаю структуру исходников в <" + ВременныйКаталог + ">");
Для Каждого Переименование Из Переименования Цикл
НовыйПуть = ОбъединитьПути(ВременныйКаталог, Переименование.Ключ);
НовыйКаталог = Новый Файл(НовыйПуть);
ПутьДоНовогоКаталога = НовыйКаталог.Путь;
Если НЕ Новый Файл(ПутьДоНовогоКаталога).Существует() Тогда
СоздатьКаталог(ПутьДоНовогоКаталога);
КонецЕсли;
СтарыйПуть = ОбъединитьПути(ПутьКИсходникам, Переименование.Значение);
СтарыйКаталог = Новый Файл(СтарыйПуть);
Если СтарыйКаталог.ЭтоКаталог() Тогда
КопироватьСодержимоеКаталога(СтарыйПуть, НовыйПуть);
Если ЭтоПутьКТолстойФорме(НовыйПуть) Тогда
ПереместитьФайл(ОбъединитьПути(НовыйПуть, "module.bsl"), ОбъединитьПути(НовыйПуть, "module"));
КонецЕсли;
Иначе
КопироватьФайл(СтарыйПуть, НовыйПуть);
КонецЕсли;
КонецЦикла;
ТипФайла = ПолучитьТипФайлаПоКаталогуИсходников(ВременныйКаталог);
ИмяПапки = ПапкаИсходников.Имя;
ИмяФайлаОбъекта = ОбъединитьПути(ТекущийКаталог(), КаталогВыгрузки, ИмяПапки + "." + ТипФайла);
СобратьФайлИзИсходников(ВременныйКаталог, ИмяФайлаОбъекта);
Лог.Информация("Успешно собран файл "+ИмяФайлаОбъекта);
Возврат ИмяФайлаОбъекта;
КонецФункции
Функция ЭтоПутьКИсходнымКодамОбработок(ПутьКПапке)
ФайлПереименования = Новый Файл(ОбъединитьПути(ПутьКПапке, "renames.txt"));
Возврат ФайлПереименования.Существует();
КонецФункции
Функция ЭтоПутьКТолстойФорме(ПутьКПапке)
ФайлМодуля = Новый Файл(ОбъединитьПути(ПутьКПапке, "module.bsl"));
ФайлФормы = Новый Файл(ОбъединитьПути(ПутьКПапке, "form"));
Возврат ФайлМодуля.Существует() И ФайлФормы.Существует();
КонецФункции
Функция ПолучитьТипФайлаПоКаталогуИсходников(Знач КаталогИсходников)
ПутьКФайлуРут = ОбъединитьПути(КаталогИсходников, "root");
ФайлРут = Новый Файл(ПутьКФайлуРут);
Ожидаем.Что(ФайлРут.Существует(), "Файл <" + ПутьКФайлуРут + "> должен существовать").ЭтоИстина();
Ожидаем.Что(ФайлРут.ЭтоКаталог(), "<" + ПутьКФайлуРут + "> должен быть файлом").ЭтоЛожь();
ЧтениеТекста = Новый ЧтениеТекста(ПутьКФайлуРут);
СодержаниеРут = ЧтениеТекста.Прочитать();
ЧтениеТекста.Закрыть();
МассивСтрокРут = СтрРазделить(СодержаниеРут, ",");
Ожидаем.Что(МассивСтрокРут.Количество(), "Некорректный формат файла root").Больше(1);
ПутьКФайлуКорневойКонтейнер = ОбъединитьПути(КаталогИсходников, МассивСтрокРут[1]);
ФайлКорневойКонтейнер = Новый Файл(ПутьКФайлуКорневойКонтейнер);
Ожидаем.Что(ФайлКорневойКонтейнер.Существует(), "Файл <" + ПутьКФайлуКорневойКонтейнер + "> должен существовать").ЭтоИстина();
Ожидаем.Что(ФайлКорневойКонтейнер.ЭтоКаталог(), "<" + ПутьКФайлуКорневойКонтейнер + "> должен быть файлом").ЭтоЛожь();
ЧтениеТекста = Новый ЧтениеТекста(ПутьКФайлуКорневойКонтейнер);
СодержаниеКорневойКонтейнер = "";
Для сч = 1 По 7 Цикл
ПрочитаннаяСтрока = ЧтениеТекста.ПрочитатьСтроку();
Если ПрочитаннаяСтрока = Неопределено Тогда
Прервать;
КонецЕсли;
СодержаниеКорневойКонтейнер = СодержаниеКорневойКонтейнер + ПрочитаннаяСтрока;
КонецЦикла;
ЧтениеТекста.Закрыть();
МассивСтрокКорневойКонтейнер = СтрРазделить(СодержаниеКорневойКонтейнер, ",");
Ожидаем.Что(МассивСтрокКорневойКонтейнер.Количество(), "Некорректный формат файла корневого контейнера <" + ПутьКФайлуКорневойКонтейнер + ">").Больше(3);
ИдентификаторТипаОбъекта = СокрЛП(МассивСтрокКорневойКонтейнер[3]);
Если Лев(ИдентификаторТипаОбъекта, 1) = "{" Тогда
ИдентификаторТипаОбъекта = Прав(ИдентификаторТипаОбъекта, СтрДлина(ИдентификаторТипаОбъекта) - 1);
КонецЕсли;
Если Прав(ИдентификаторТипаОбъекта, 1) = "}" Тогда
ИдентификаторТипаОбъекта = Лев(ИдентификаторТипаОбъекта, СтрДлина(ИдентификаторТипаОбъекта) - 1);
КонецЕсли;
ИдентификаторТипаОбъекта = НРег(СокрЛП(ИдентификаторТипаОбъекта));
Если ИдентификаторТипаОбъекта = "c3831ec8-d8d5-4f93-8a22-f9bfae07327f" Тогда
ТипФайла = "epf";
ИначеЕсли ИдентификаторТипаОбъекта = "e41aff26-25cf-4bb6-b6c1-3f478a75f374" Тогда
ТипФайла = "erf";
Иначе
ВызватьИсключение("Некорректный идентификатор типа собираемого объекта <" + ИдентификаторТипаОбъекта + ">");
КонецЕсли;
Возврат ТипФайла;
КонецФункции
// Функция - Получает соответствие переименований файлов обработки на основе
// файла renames.txt
//
// Параметры:
// ПутьКИсходникам - Строка - Путь к папке с исходными кодами обработки
// Возвращаемое значение:
// Соответствие - Ключ: оригинальный путь файла после распаковки
// Значение: преобразованный путь (например, при
// раскладывании файлов по иерархии)
//
Функция ПолучитьСоответствиеПереименований(ПутьКИсходникам)
Переименования = Новый Соответствие;
ФайлПереименования = Новый Файл(ОбъединитьПути(ПутьКИсходникам, "renames.txt"));
Ожидаем.Что(ФайлПереименования.Существует(), "Файл переименования " + ФайлПереименования.ПолноеИмя + " должен существовать").ЭтоИстина();
ЧтениеТекста = Новый ЧтениеТекста(ФайлПереименования.ПолноеИмя, КодировкаТекста.UTF8);
СтрокаПереименования = ЧтениеТекста.ПрочитатьСтроку();
Пока СтрокаПереименования <> Неопределено Цикл
СтрокаПереименованияВрем = СтрокаПереименования;
СтрокаПереименования = ЧтениеТекста.ПрочитатьСтроку();
// Проверка на BOM?
СписокСтрок = СтрРазделить(СтрокаПереименованияВрем, "-->");
Если СписокСтрок.Количество() < 2 Тогда
Продолжить;
КонецЕсли;
Лог.Отладка(СтрокаПереименованияВрем);
ИсходныйПуть = СписокСтрок[0];
ПреобразованныйПуть = СписокСтрок[1];
Переименования.Вставить(ИсходныйПуть, ПреобразованныйПуть);
КонецЦикла;
Возврат Переименования;
КонецФункции
Процедура СобратьФайлИзИсходников(ПапкаИсходников, ИмяФайлаОбъекта)
Лог.Информация("Собираю файл из исходников <"+ПапкаИсходников+"> в файл "+ИмяФайлаОбъекта);
ПутьЗапаковщика = ОбъединитьПути(КаталогПроекта(), "tools", "v8unpack");
Если ЭтоWindows Тогда
ПутьЗапаковщика = ПутьЗапаковщика+".exe";
КонецЕсли;
Ожидаем.Что(Новый Файл(ПутьЗапаковщика).Существует(), "Не найден путь к v8unpack").ЭтоИстина();
ВременныйФайл = ВременныеФайлы.СоздатьФайл();
КомандаЗапуска = """%1"" -B ""%2"" ""%3""";
КомандаЗапуска = СтрШаблон(КомандаЗапуска, ПутьЗапаковщика, ПапкаИсходников, ВременныйФайл);
Лог.Отладка(КомандаЗапуска);
Процесс = СоздатьПроцесс(КомандаЗапуска, , Истина, , КодировкаТекста.UTF8);
Процесс.Запустить();
Процесс.ОжидатьЗавершения();
ВыводПроцесса = Процесс.ПотокВывода.Прочитать();
Ожидаем.Что(Процесс.КодВозврата, "Не удалось упаковать каталог " + ПапкаИсходников + Символы.ПС + ВыводПроцесса).Равно(0);
Лог.Отладка(ВыводПроцесса);
ФайлОбъекта = Новый Файл(ИмяФайлаОбъекта);
Лог.Отладка(СтрШаблон("Перемещение из %1 в %2", ВременныйФайл, ИмяФайлаОбъекта));
Если ФайлОбъекта.Существует() Тогда
Лог.Отладка(СтрШаблон("Удаляю старый файл %1 ", ИмяФайлаОбъекта));
УдалитьФайлы(ИмяФайлаОбъекта);
КонецЕсли;
ПереместитьФайл(ВременныйФайл, ИмяФайлаОбъекта);
КонецПроцедуры
Процедура КопироватьСодержимоеКаталога(Откуда, Куда)
КаталогНазначения = Новый Файл(Куда);
Если КаталогНазначения.Существует() Тогда
Если КаталогНазначения.ЭтоФайл() Тогда
УдалитьФайлы(КаталогНазначения.ПолноеИмя);
СоздатьКаталог(Куда);
КонецЕсли;
Иначе
СоздатьКаталог(Куда);
КонецЕсли;
Файлы = НайтиФайлы(Откуда, ПолучитьМаскуВсеФайлы());
Для Каждого Файл Из Файлы Цикл
ПутьКопирования = ОбъединитьПути(Куда, Файл.Имя);
Если Файл.ЭтоКаталог() Тогда
КопироватьСодержимоеКаталога(Файл.ПолноеИмя, ПутьКопирования);
Иначе
КопироватьФайл(Файл.ПолноеИмя, ПутьКопирования);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Функция ПолучитьПутьПрограммыИзСистемныхПутейЗапускаPath(ИмяФайла)
НайденныеФайлы = Новый Массив;
Расширение = "";
Если ЭтоWindows Тогда
Расширение = ".exe";
КонецЕсли;
СистемнаяИнформация = Новый СистемнаяИнформация;
ПапкаПоиска = СистемнаяИнформация.ПолучитьПеременнуюСреды("PATH");
РазделительПапок = ";";
СписокПапок = СтрРазделить(ПапкаПоиска, РазделительПапок);
Для сч = 0 По СписокПапок.ВГраница() Цикл
ПроверяемаяПапка = СписокПапок[сч];
// На Windows папка может быть обернута в кавычки, сбросим их
Если ЭтоWindows
И СтрДлина(ПроверяемаяПапка) >= 2
И Лев(ПроверяемаяПапка, 1) = """"
И Прав(ПроверяемаяПапка, 1) = """" Тогда
ПроверяемаяПапка = Сред(ПроверяемаяПапка, 2, СтрДлина(ПроверяемаяПапка) - 2);
КонецЕсли;
ПутьПоиска = ОбъединитьПути(ПроверяемаяПапка, ИмяФайла + Расширение);
ФайлПоиска = Новый Файл(ПутьПоиска);
Если ФайлПоиска.Существует() И НайденныеФайлы.Найти(ПутьПоиска) = Неопределено Тогда
НайденныеФайлы.Добавить(ПутьПоиска);
КонецЕсли;
КонецЦикла;
НайденныйФайл = "";
Если НайденныеФайлы.Количество() > 0 Тогда
НайденныйФайл = НайденныеФайлы[0];
КонецЕсли;
Возврат НайденныйФайл;
КонецФункции
Функция ОбернутьПутьВКавычки(Знач Путь)
Если Прав(Путь, 1) = "\" Тогда
Путь = Лев(Путь, СтрДлина(Путь) - 1);
КонецЕсли;
Путь = """" + Путь + """";
Возврат Путь;
КонецФункции
Функция УбратьКавычкиВокругПути(Знач Путь)
Если Лев(Путь, 1) = """" Тогда
Путь = Прав(Путь, СтрДлина(Путь) - 1);
КонецЕсли;
Если Прав(Путь, 1) = """" Тогда
Путь = Лев(Путь, СтрДлина(Путь) - 1);
КонецЕсли;
Возврат Путь;
КонецФункции
Функция КаталогПроекта()
ФайлИсточника = Новый Файл(ТекущийСценарий().Источник);
Возврат ФайлИсточника.Путь;
КонецФункции
Функция ИмяСкрипта()
ФайлИсточника = Новый Файл(ТекущийСценарий().Источник);
Возврат ФайлИсточника.ИмяБезРасширения;
КонецФункции
Инициализация();
Если ЗапускВКоманднойСтроке() Тогда
ЗавершитьРаботу(КодВозврата);
КонецЕсли;