forked from pumbaEO/precommit1c
-
Notifications
You must be signed in to change notification settings - Fork 60
/
v8files-extractor.os
1165 lines (881 loc) · 68.3 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
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
// 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
#Использовать gitrunner
#Использовать 1commands
Перем Лог;
Перем КодВозврата;
Перем мВозможныеКоманды;
Перем ЭтоWindows;
Перем ИспользоватьКонфигуратор;
Перем КонтекстКонфигуратора;
Перем ГитРепозиторий;
Перем ВерсияПлатформы;
Функция Версия() Экспорт
Версия = "2.3.0";
Возврат "v" + Версия;
КонецФункции
Функция ВозможныеКоманды()
Если мВозможныеКоманды = Неопределено Тогда
мВозможныеКоманды = Новый Структура;
мВозможныеКоманды.Вставить("Декомпилировать", "--decompile");
мВозможныеКоманды.Вставить("Помощь", "--help");
мВозможныеКоманды.Вставить("ПроверитьКонфигГит", "--git-check-config");
мВозможныеКоманды.Вставить("ОбработатьИзмененияИзГит", "--git-precommit");
мВозможныеКоманды.Вставить("Компилировать", "--compile");
мВозможныеКоманды.Вставить("Установить", "--install");
КонецЕсли;
Возврат мВозможныеКоманды;
КонецФункции
Функция ЗапускВКоманднойСтроке()
КодВозврата = 0;
Если ТекущийСценарий().Источник <> СтартовыйСценарий().Источник Тогда
Возврат Ложь;
КонецЕсли;
Лог.Информация("precommit1c " + Версия() + Символы.ПС);
Попытка
Парсер = Новый ПарсерАргументовКоманднойСтроки();
ДобавитьОбщиеПараметры(Парсер);
ДобавитьОписаниеКомандыДекомпилировать(Парсер);
ДобавитьОписаниеКомандыПомощь(Парсер);
ДобавитьОписаниеКомандыПроверитьКонфигГит(Парсер);
ДобавитьОписаниеКомандыИзмененияПоЖурналуГит(Парсер);
ДобавитьОписаниеКомандыКомпилировать(Парсер);
ДобавитьОписаниеКомандыУстановить(Парсер);
Аргументы = Парсер.РазобратьКоманду(АргументыКоманднойСтроки);
Лог.Отладка("ТипЗнч(Аргументы)= "+ТипЗнч(Аргументы));
Если Аргументы = Неопределено Тогда
ВывестиСправку();
Возврат Истина;
КонецЕсли;
Команда = Аргументы.Команда;
Лог.Отладка("Передана команда: "+Команда);
Для Каждого Параметр Из Аргументы.ЗначенияПараметров Цикл
Лог.Отладка("%1 = %2", Параметр.Ключ, Параметр.Значение);
КонецЦикла;
ИспользоватьКонфигуратор = Аргументы.ЗначенияПараметров["--use-designer"];
Если НЕ ПустаяСтрока(Аргументы.ЗначенияПараметров["--ib-connection-string"]) Тогда
Конфигуратор = Новый УправлениеКонфигуратором();
ВерсияПлатформы = Аргументы.ЗначенияПараметров["--v8version"];
Если ЗначениеЗаполнено(ВерсияПлатформы) Тогда
Конфигуратор.ИспользоватьВерсиюПлатформы(ВерсияПлатформы);
КонецЕсли;
КонтекстКонфигуратора = Конфигуратор.ПолучитьКонтекст();
КонтекстКонфигуратора.КлючСоединенияСБазой = Аргументы.ЗначенияПараметров["--ib-connection-string"];
КонтекстКонфигуратора.ИмяПользователя = Аргументы.ЗначенияПараметров["--ib-user"];
КонтекстКонфигуратора.Пароль = Аргументы.ЗначенияПараметров["--ib-pwd"];
Иначе
КонтекстКонфигуратора = Неопределено;
КонецЕсли;
Если Команда = ВозможныеКоманды().Декомпилировать Тогда
Декомпилировать(
Аргументы.ЗначенияПараметров["ПутьВходящихДанных"],
Аргументы.ЗначенияПараметров["ВыходнойКаталог"]
);
ИначеЕсли Команда = ВозможныеКоманды().ПроверитьКонфигГит Тогда
ПроверитьНастройкиРепозитарияГит();
ИначеЕсли Команда = ВозможныеКоманды().ОбработатьИзмененияИзГит Тогда
ОбработатьИзмененияИзГит(
Аргументы.ЗначенияПараметров["ВыходнойКаталог"],
Аргументы.ЗначенияПараметров["--remove-orig-bin-files"]
);
ИначеЕсли Команда = ВозможныеКоманды().Компилировать Тогда
Компилировать(
Аргументы.ЗначенияПараметров["ПутьВходящихДанных"],
Аргументы.ЗначенияПараметров["ВыходнойКаталог"],
Аргументы.ЗначенияПараметров["--recursive"]
);
ИначеЕсли Команда = ВозможныеКоманды().Установить Тогда
УстановитьВКаталог(
ТекущийКаталог(),
Аргументы.ЗначенияПараметров["--remove-orig-bin-files"]
);
Иначе
ВывестиСправку();
КонецЕсли;
Исключение
Лог.Ошибка(ОписаниеОшибки());
КодВозврата = 1;
КонецПопытки;
Лог.Отладка("Очищаем временные файлы");
Попытка
ВременныеФайлы.Удалить();
Исключение
Лог.Отладка("Не удалось очистить временные файлы");
КонецПопытки;
Возврат Истина;
КонецФункции
Процедура ДобавитьОбщиеПараметры(Знач Парсер)
Парсер.ДобавитьИменованныйПараметр("--ib-connection-string", "Строка подключения к БД", Истина);
Парсер.ДобавитьИменованныйПараметр("--ib-user", "Пользователь БД", Истина);
Парсер.ДобавитьИменованныйПараметр("--ib-pwd", "Пароль БД", Истина);
Парсер.ДобавитьИменованныйПараметр("--v8version", "Маска версии платформы", Истина);
Парсер.ДобавитьПараметрФлаг("--use-designer", "", Истина);
КонецПроцедуры
Процедура ДобавитьОписаниеКомандыДекомпилировать(Знач Парсер)
ОписаниеКоманды = Парсер.ОписаниеКоманды(ВозможныеКоманды().Декомпилировать);
Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "ПутьВходящихДанных");
Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "ВыходнойКаталог");
Парсер.ДобавитьКоманду(ОписаниеКоманды);
КонецПроцедуры
Процедура ДобавитьОписаниеКомандыПомощь(Знач Парсер)
ОписаниеКоманды = Парсер.ОписаниеКоманды(ВозможныеКоманды().Помощь);
Парсер.ДобавитьКоманду(ОписаниеКоманды);
КонецПроцедуры
Процедура ДобавитьОписаниеКомандыПроверитьКонфигГит(Знач Парсер)
ОписаниеКоманды = Парсер.ОписаниеКоманды(ВозможныеКоманды().ПроверитьКонфигГит);
Парсер.ДобавитьКоманду(ОписаниеКоманды);
КонецПроцедуры
Процедура ДобавитьОписаниеКомандыИзмененияПоЖурналуГит(Знач Парсер)
ОписаниеКоманды = Парсер.ОписаниеКоманды(ВозможныеКоманды().ОбработатьИзмененияИзГит);
Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "ВыходнойКаталог");
Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "--remove-orig-bin-files");
Парсер.ДобавитьКоманду(ОписаниеКоманды);
КонецПроцедуры
Процедура ДобавитьОписаниеКомандыКомпилировать(Знач Парсер)
ОписаниеКоманды = Парсер.ОписаниеКоманды(ВозможныеКоманды().Компилировать);
Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "ПутьВходящихДанных");
Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "ВыходнойКаталог");
Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "--recursive");
Парсер.ДобавитьКоманду(ОписаниеКоманды);
КонецПроцедуры
Процедура ДобавитьОписаниеКомандыУстановить(Знач Парсер)
ОписаниеКоманды = Парсер.ОписаниеКоманды(ВозможныеКоманды().Установить);
Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "--remove-orig-bin-files");
Парсер.ДобавитьКоманду(ОписаниеКоманды);
КонецПроцедуры
Процедура Инициализация()
СистемнаяИнформация = Новый СистемнаяИнформация;
ЭтоWindows = Найти(ВРег(СистемнаяИнформация.ВерсияОС), "WINDOWS") > 0;
Лог = Логирование.ПолучитьЛог("oscript.app.v8files-extractor");
Лог.Закрыть();
ВыводПоУмолчанию = Новый ВыводЛогаВКонсоль();
Лог.ДобавитьСпособВывода(ВыводПоУмолчанию);
ИспользоватьКонфигуратор = Ложь;
КонтекстКонфигуратора = Неопределено;
ГитРепозиторий = Новый ГитРепозиторий();
ГитРепозиторий.УстановитьРабочийКаталог(ТекущийКаталог());
Попытка
Лог_cmdline = Логирование.ПолучитьЛог("oscript.lib.cmdline");
Лог_cmdline.Закрыть();
ВыводПоУмолчанию = Новый ВыводЛогаВКонсоль();
Лог_cmdline.ДобавитьСпособВывода(ВыводПоУмолчанию);
Аппендер = Новый ВыводЛогаВФайл();
Аппендер.ОткрытьФайл(ОбъединитьПути(КаталогПроекта(), ИмяСкрипта() + ".cmdline.log"));
Лог_cmdline.ДобавитьСпособВывода(Аппендер);
Аппендер = Новый ВыводЛогаВФайл();
Аппендер.ОткрытьФайл(ОбъединитьПути(КаталогПроекта(), ИмяСкрипта() + ".log"));
Лог.ДобавитьСпособВывода(Аппендер);
Исключение
// Если прекоммит установлен, как приложение, в Program Files
// То команда не сможет отработать из за отсутствия прав на запись.
// Но нам в данном случае и не нужен лог в файле.
Лог.Отладка("Не смогли открыть лог в файле");
КонецПопытки;
КонецПроцедуры
/////////////////////////////////////////////////////////////////////////////
// РЕАЛИЗАЦИЯ КОМАНД
Процедура Декомпилировать(Знач Путь, Знач КаталогВыгрузки) Экспорт
Файл = Новый Файл(Путь);
Если Файл.ЭтоКаталог() Тогда
РазобратьКаталог(Файл, КаталогВыгрузки, Файл.ПолноеИмя);
Иначе
РазобратьФайл(Файл, КаталогВыгрузки, Файл.Путь);
КонецЕсли;
КонецПроцедуры
Процедура РазобратьКаталог(Знач ОбъектКаталога, Знач КаталогВыгрузки, Знач КаталогКорень) Экспорт
ПутьКаталога = ОбъектКаталога.ПолноеИмя;
ОтносительныйПутьКаталога = ПолучитьОтносительныйПутьФайла(КаталогКорень, ПутьКаталога);
ОтносительныйПутьКаталога = ?(ПустаяСтрока(ОтносительныйПутьКаталога), ПутьКаталога, ОтносительныйПутьКаталога);
Лог.Информация("Подготовка выгрузки каталога %1 в каталог %2, корень %3",
ОтносительныйПутьКаталога, КаталогВыгрузки, КаталогКорень);
ИмяКаталогаВыгрузки = Новый Файл(КаталогВыгрузки).Имя;
Файлы = НайтиФайлы(ПутьКаталога, ПолучитьМаскуВсеФайлы());
Для Каждого Файл Из Файлы Цикл
Если Файл.ЭтоКаталог() Тогда
РазобратьКаталог(Новый Файл(Файл.ПолноеИмя), КаталогВыгрузки, КаталогКорень);
ИначеЕсли ТипФайлаПоддерживается(Файл) Тогда
Лог.Информация("Подготовка выгрузки файла %1 в каталог %2", Файл.Имя, ИмяКаталогаВыгрузки);
РазобратьФайлВнутр(Файл, КаталогВыгрузки, КаталогКорень);
Лог.Информация("Завершена выгрузка файла %1 в каталог %2", Файл.Имя, ИмяКаталогаВыгрузки);
Иначе
Лог.Отладка("Тип файла не поддерживается: %1", Файл.ПолноеИмя);
КонецЕсли;
КонецЦикла;
Лог.Информация("Завершена выгрузка каталога %1 в каталог %2, корень %3",
ОтносительныйПутьКаталога, КаталогВыгрузки, КаталогКорень);
КонецПроцедуры
Функция РазобратьФайл(Знач Файл, Знач КаталогВыгрузки, Знач КаталогКорень = "") Экспорт
ПутьФайла = Файл.ПолноеИмя;
Лог.Информация("Проверка необходимости выгрузки файла %1 в каталог %2, корень %3",
ПутьФайла, КаталогВыгрузки, КаталогКорень);
КаталогИсходников = РазобратьФайлВнутр(Файл, КаталогВыгрузки, КаталогКорень);
Лог.Информация("Завершена проверка необходимости выгрузки файла %1 в каталог %2, корень %3",
ПутьФайла, КаталогВыгрузки, КаталогКорень);
Возврат КаталогИсходников;
КонецФункции
Функция ТипФайлаПоддерживается(Файл)
Если ПустаяСтрока(Файл.Расширение) Тогда
Возврат Ложь;
КонецЕсли;
Поз = Найти(ВРег(".epf,.erf,.cfe,.mxl,"), ВРег(Файл.Расширение+","));
Возврат Поз > 0;
КонецФункции
Функция РазобратьФайлВнутр(Знач Файл, Знач КаталогВыгрузки, Знач КаталогКорень)
ПутьФайла = Файл.ПолноеИмя;
Если Не ТипФайлаПоддерживается(Файл) Тогда
ВызватьИсключение "Тип файла """ + Файл.Расширение + """ не поддерживается";
КонецЕсли;
ЭтоМакет = ВРег(Файл.Расширение) = ".MXL";
Ожидаем
.Что(Файл.Существует(), "Файл " + ПутьФайла + " должен существовать")
.ЭтоИстина();
Если ЭтоМакет Тогда
ПутьРазобранногоМакета = ОбъединитьПути(Файл.Путь, Файл.ИмяБезРасширения + "_mxl.txt");
Лог.Отладка("ПутьРазобранногоМакета <%1>", ПутьРазобранногоМакета);
ПапкаИсходников = Новый Файл(ПутьРазобранногоМакета);
Иначе
ОтносительныйПутьКаталогаФайла = ПолучитьОтносительныйПутьФайла(КаталогКорень, ОбъединитьПути(Файл.Путь, Файл.ИмяБезРасширения));
Лог.Отладка("ОтносительныйПутьКаталогаФайла <%1>", ОтносительныйПутьКаталогаФайла);
ПутьКаталогаИсходников = ОбъединитьПути(КаталогВыгрузки, ОтносительныйПутьКаталогаФайла);
Лог.Отладка("ПутьКаталогаИсходников <%1>", ПутьКаталогаИсходников);
ПапкаИсходников = Новый Файл(ПутьКаталогаИсходников);
КонецЕсли;
Если ВРег(Файл.Расширение) = ".CFE" Тогда
ЗапуститьРаспаковкуРасширения(Файл, ПапкаИсходников);
Иначе
ЗапуститьРаспаковкуОбработки(Файл, ПапкаИсходников);
КонецЕсли;
Возврат ПапкаИсходников.ПолноеИмя;
КонецФункции
Функция ПолучитьОтносительныйПутьФайла(КаталогКорень, ВнутреннийКаталог)
Если ПустаяСтрока(КаталогКорень) Тогда
Возврат "";
КонецЕсли;
ФайлКорень = Новый Файл(КаталогКорень);
ФайлВнутреннийКаталог = Новый Файл(ВнутреннийКаталог);
Рез = СтрЗаменить(ФайлВнутреннийКаталог.ПолноеИмя, ФайлКорень.ПолноеИмя, "");
Разделитель = ПолучитьРазделительПути();
Если Лев(Рез, 1) = Разделитель Тогда
Рез = Сред(Рез, 2);
КонецЕсли;
Если Прав(Рез, 1) = Разделитель Тогда
Рез = Лев(Рез, СтрДлина(Рез)-1);
КонецЕсли;
Возврат Рез;
КонецФункции
Процедура ЗапуститьРаспаковкуРасширения(Знач Файл, Знач ПапкаИсходников)
Лог.Отладка("Запускаем распаковку файла расширения");
Конфигуратор = Новый УправлениеКонфигуратором();
Если ЗначениеЗаполнено(ВерсияПлатформы) Тогда
Конфигуратор.ИспользоватьВерсиюПлатформы(ВерсияПлатформы);
КонецЕсли;
Если КонтекстКонфигуратора = Неопределено Тогда
КаталогВременнойИБ = ВременныеФайлы.СоздатьКаталог();
Конфигуратор.КаталогСборки(КаталогВременнойИБ);
Иначе
Конфигуратор.ИспользоватьКонтекст(КонтекстКонфигуратора);
КонецЕсли;
УстановитьУровеньЛогаКонфигуратораРавнымУровнюПродукта();
Параметры = Конфигуратор.ПолучитьПараметрыЗапуска();
ИмяРасширения = Файл.ИмяБезРасширения;
Лог.Отладка("Загрузка расширения '%1'", ИмяРасширения);
Параметры.Добавить("/LoadCfg """ + Файл.ПолноеИмя + """");
Параметры.Добавить("-Extension """ + ИмяРасширения + """");
Конфигуратор.ВыполнитьКоманду(Параметры);
Лог.Отладка("Вывод 1С:Предприятия - " + Конфигуратор.ВыводКоманды());
ВременнаяПапкаИсходников = ВременныеФайлы.СоздатьКаталог();
Лог.Отладка("Разбор расширения '%1' в исходники в каталог '%2'", ИмяРасширения, ВременнаяПапкаИсходников);
Параметры = Конфигуратор.ПолучитьПараметрыЗапуска();
Параметры.Добавить("/DumpConfigToFiles """ + ВременнаяПапкаИсходников + """");
Параметры.Добавить("-Extension """ + ИмяРасширения + """");
Конфигуратор.ВыполнитьКоманду(Параметры);
Лог.Отладка("Вывод 1С:Предприятия - " + Конфигуратор.ВыводКоманды());
Если НайтиФайлы(ВременнаяПапкаИсходников, "*").Количество() = 0 Тогда
ВызватьИсключение СтрШаблон("Не удалось разобрать на исходники %1", Файл.ПолноеИмя);
КонецЕсли;
ОбеспечитьПустойКаталог(ПапкаИсходников);
Лог.Отладка("Копируем исходники из временного каталога в целевой: " + ПапкаИсходников.ПолноеИмя);
КопироватьСодержимоеКаталога(ВременнаяПапкаИсходников, ПапкаИсходников.ПолноеИмя);
КонецПроцедуры
Процедура ЗапуститьРаспаковкуОбработки(Знач Файл, Знач ПапкаИсходников)
Лог.Отладка("Запускаем распаковку файла");
Конфигуратор = Новый УправлениеКонфигуратором();
Если ЗначениеЗаполнено(ВерсияПлатформы) Тогда
Конфигуратор.ИспользоватьВерсиюПлатформы(ВерсияПлатформы);
КонецЕсли;
Если КонтекстКонфигуратора = Неопределено Тогда
КаталогВременнойИБ = ВременныеФайлы.СоздатьКаталог();
Конфигуратор.КаталогСборки(КаталогВременнойИБ);
Иначе
Конфигуратор.ИспользоватьКонтекст(КонтекстКонфигуратора);
КонецЕсли;
ЛогКонфигуратора = Логирование.ПолучитьЛог("oscript.lib.v8runner");
ЛогКонфигуратора.УстановитьУровень(Лог.Уровень());
ЭтоМакет = ВРег(Файл.Расширение) = ".MXL";
ВременнаяПапкаИсходников = ВременныеФайлы.СоздатьКаталог();
Параметры = Конфигуратор.ПолучитьПараметрыЗапуска();
Если ЭтоМакет Тогда
Параметры[0] = "ENTERPRISE";
ПутьMxl2txt = ОбъединитьПути(ТекущийСценарий().Каталог, "tools", "mxl2txt.epf");
Лог.Отладка("Путь к mxl2txt: " + ПутьMxl2txt);
Ожидаем.Что(Новый Файл(ПутьMxl2txt).Существует(), "Некорректно установлен mxl2txt. Не обнаружен файл <" + ПутьMxl2txt + ">").ЭтоИстина();
КоманднаяСтрокаMxl2txt = СтрШаблон("/C""%1""", Файл.ПолноеИмя);
Лог.Отладка("Командная строка Mxl2txt: " + КоманднаяСтрокаMxl2txt);
Параметры.Добавить("/RunModeManagedApplication");
Параметры.Добавить("/Execute """ + ПутьMxl2txt + """");
Параметры.Добавить(КоманднаяСтрокаMxl2txt);
ИначеЕсли ИспользоватьКонфигуратор Тогда
КоманднаяСтрокаРаспаковки = СтрШаблон("/DumpExternalDataProcessorOrReportToFiles ""%1\%2.xml"" ""%3""",
ВременнаяПапкаИсходников, Файл.ИмяБезРасширения, Файл.ПолноеИмя);
Лог.Отладка("Командная строка распаковки: " + КоманднаяСтрокаРаспаковки);
Параметры.Добавить(КоманднаяСтрокаРаспаковки);
Иначе
Параметры[0] = "ENTERPRISE";
ПутьV8Reader = ОбъединитьПути(ТекущийСценарий().Каталог, "v8Reader", "V8Reader.epf");
Лог.Отладка("Путь к V8Reader: " + ПутьV8Reader);
СтрокаОшибки = СтрШаблон("Некорректно установлен V8Reader. Не обнаружен файл <%1>", ПутьV8Reader);
Ожидаем
.Что(Новый Файл(ПутьV8Reader).Существует(), СтрокаОшибки)
.ЭтоИстина();
КоманднаяСтрокаV8Reader = СтрШаблон("/C""decompile;pathtocf;%1;pathout;%2;convert-mxl2txt;ЗавершитьРаботуПосле;""",
Файл.ПолноеИмя, ?(ЭтоМакет, Файл.Путь, ВременнаяПапкаИсходников));
Лог.Отладка("Командная строка V8Reader: " + КоманднаяСтрокаV8Reader);
Параметры.Добавить("/RunModeOrdinaryApplication");
Параметры.Добавить("/Execute """ + ПутьV8Reader + """");
Параметры.Добавить(КоманднаяСтрокаV8Reader);
КонецЕсли;
Конфигуратор.ВыполнитьКоманду(Параметры);
Лог.Отладка("Вывод 1С:Предприятия - " + Конфигуратор.ВыводКоманды());
Если Не ЭтоМакет Тогда
Если НайтиФайлы(ВременнаяПапкаИсходников, "*").Количество() = 0 Тогда
ВызватьИсключение СтрШаблон("Не удалось разобрать на исходники %1", Файл.ПолноеИмя);
КонецЕсли;
ОбеспечитьПустойКаталог(ПапкаИсходников);
Лог.Отладка("Копируем исходники из временного каталога в целевой: " + ПапкаИсходников.ПолноеИмя);
КопироватьСодержимоеКаталога(ВременнаяПапкаИсходников, ПапкаИсходников.ПолноеИмя);
КонецЕсли;
КонецПроцедуры
Процедура УстановитьУровеньЛогаКонфигуратораРавнымУровнюПродукта()
ЛогКонфигуратора = Логирование.ПолучитьЛог("oscript.lib.v8runner");
ЛогКонфигуратора.УстановитьУровень(Лог.Уровень());
ЛогКонфигуратора.Закрыть();
КонецПроцедуры
Процедура УстановитьВКаталог(Знач Каталог, Знач УдалятьФайлыИзИндексаГит = Ложь) Экспорт
ГитРепозиторий.УстановитьРабочийКаталог(Каталог);
Если Не ГитРепозиторий.ЭтоРепозиторий() Тогда
ВызватьИсключение "Каталог не является репозиторием GIT";
КонецЕсли;
КаталогПрекоммита = ТекущийСценарий().Каталог;
КаталогХуков = ОбъединитьПути(Каталог, ".git", "hooks");
ОбеспечитьКаталог(КаталогХуков);
КопироватьВКаталог(КаталогПрекоммита, КаталогХуков, "pre-commit");
КопироватьВКаталог(КаталогПрекоммита, КаталогХуков, "v8Reader");
КопироватьВКаталог(КаталогПрекоммита, КаталогХуков, "v8files-extractor.os");
КопироватьВКаталог(КаталогПрекоммита, КаталогХуков, "tools");
ДополнитьФайлХука(КаталогХуков, УдалятьФайлыИзИндексаГит);
Если НЕ ЭтоWindows() Тогда
СделатьФайлИсполняемым(КаталогХуков, ОбъединитьПути(КаталогХуков, "pre-commit"));
КонецЕсли;
ГитРепозиторий.УстановитьНастройку("core.quotePath", "false", РежимУстановкиНастроекGit.Локально);
ГитРепозиторий.УстановитьНастройку("core.longpaths", "true", РежимУстановкиНастроекGit.Локально);
Лог.Информация("Установка завершена");
КонецПроцедуры
Процедура ДополнитьФайлХука(КаталогХуков, УдалятьФайлыИзИндексаГит)
СтрокаПараметров = ?(ИспользоватьКонфигуратор, " --use-designer", "");
СтрокаПараметров = ?(УдалятьФайлыИзИндексаГит,
СтрокаПараметров + " --remove-orig-bin-files",
СтрокаПараметров);
Если ЗначениеЗаполнено(КонтекстКонфигуратора) Тогда
ДополнитьСтрокуПараметров(СтрокаПараметров, КонтекстКонфигуратора.КлючСоединенияСБазой, "--ib-connection-string");
ДополнитьСтрокуПараметров(СтрокаПараметров, КонтекстКонфигуратора.ИмяПользователя, "--ib-user");
ДополнитьСтрокуПараметров(СтрокаПараметров, КонтекстКонфигуратора.Пароль, "--ib-pwd");
КонецЕсли;
Если ЗначениеЗаполнено(СтрокаПараметров) Тогда
СтрокаПоиска = "oscript -encoding=utf-8 .git/hooks/v8files-extractor.os --git-precommit src";
СтрокаЗамены = СтрШаблон("%1%2", СтрокаПоиска, СтрокаПараметров);
ЗаменитьСтрокуВФайле(ОбъединитьПути(КаталогХуков, "pre-commit"), СтрокаПоиска, СтрокаЗамены);
КонецЕсли;
КонецПроцедуры
Процедура ДополнитьСтрокуПараметров(СтрокаПараметровПодключения, Знач ЗначениеПараметра, Знач ИмяПараметра)
Если ЗначениеЗаполнено(ЗначениеПараметра) Тогда
СтрокаПараметровПодключения = СтрШаблон("%1 %2 %3", СтрокаПараметровПодключения, ИмяПараметра, ЗначениеПараметра);
КонецЕсли;
КонецПроцедуры
Функция ЭтоWindows()
СИ = Новый СистемнаяИнформация;
Возврат СтрНайти(НРег(СИ.ВерсияОС), "windows") > 0;
КонецФункции
Процедура СделатьФайлИсполняемым(РабочийКаталог, ИмяФайла)
Параметры = Новый Массив;
Параметры.Добавить("+x");
Параметры.Добавить(ИмяФайла);
Команда = Новый Команда;
Команда.УстановитьКоманду("chmod");
Команда.УстановитьКодировкуВывода(КодировкаТекста.UTF8);
Команда.УстановитьРабочийКаталог(РабочийКаталог);
Команда.ДобавитьПараметры(Параметры);
Лог.Отладка("Устанавливаем флаг исполняемого для файла %1", ИмяФайла);
КодВозврата = Команда.Исполнить();
Если КодВозврата <> 0 Тогда
Лог.Ошибка("Получен ненулевой код возврата " + КодВозврата + ". Выполнение скрипта остановлено!");
ВызватьИсключение СокрЛП(Команда.ПолучитьВывод());
Иначе
Лог.Отладка("Код возврата равен 0");
КонецЕсли;
КонецПроцедуры
Процедура ЗаменитьСтрокуВФайле(Знач ПутьФайла, Знач СтрокаПоиска, Знач СтрокаЗамены) Экспорт
Чтение = Новый ЧтениеТекста(ПутьФайла, КодировкаТекста.UTF8NoBOM);
Текст = Чтение.Прочитать();
Чтение.Закрыть();
Если СтрНайти(Текст, "--ib-connection-string") = 0 Тогда
Текст = СтрЗаменить(Текст, СтрокаПоиска, СтрокаЗамены);
Запись = Новый ЗаписьТекста(ПутьФайла, КодировкаТекста.UTF8NoBOM);
Запись.Записать(Текст);
Запись.Закрыть();
Иначе
Лог.Предупреждение("В хуке уже прописана сервисная база!");
КонецЕсли;
КонецПроцедуры
Процедура КопироватьВКаталог(Знач КаталогИсточник, Знач КаталогПриемник, Знач ОбъектКопирования)
Лог.Информация("Копирую: " + ОбъектКопирования);
ФайлИсточник = Новый Файл(ОбъединитьПути(КаталогИсточник, ОбъектКопирования));
ФайлПриемник = Новый Файл(ОбъединитьПути(КаталогПриемник, ОбъектКопирования));
Если ФайлИсточник.ЭтоКаталог() Тогда
КопироватьСодержимоеКаталога(ФайлИсточник.ПолноеИмя, ФайлПриемник.ПолноеИмя);
Иначе
КопироватьФайл(ФайлИсточник.ПолноеИмя, ФайлПриемник.ПолноеИмя);
КонецЕсли;
КонецПроцедуры
Процедура ОбеспечитьПустойКаталог(Знач ФайлОбъектКаталога)
Если Не ФайлОбъектКаталога.Существует() Тогда
Лог.Отладка("Создаем новый каталог " + ФайлОбъектКаталога.ПолноеИмя);
СоздатьКаталог(ФайлОбъектКаталога.ПолноеИмя);
ИначеЕсли ФайлОбъектКаталога.ЭтоКаталог() Тогда
Лог.Отладка("Очищаем каталог " + ФайлОбъектКаталога.ПолноеИмя);
УдалитьФайлы(ФайлОбъектКаталога.ПолноеИмя, ПолучитьМаскуВсеФайлы());
Иначе
ВызватьИсключение "Путь " + ФайлОбъектКаталога.ПолноеИмя + " не является каталогом. Выгрузка невозможна";
КонецЕсли;
КонецПроцедуры
Процедура ОбеспечитьКаталог(Знач Путь)
ФайлОбъектКаталога = Новый Файл(Путь);
Если Не ФайлОбъектКаталога.Существует() Тогда
Лог.Отладка("Создаем новый каталог " + ФайлОбъектКаталога.ПолноеИмя);
СоздатьКаталог(ФайлОбъектКаталога.ПолноеИмя);
ИначеЕсли Не ФайлОбъектКаталога.ЭтоКаталог() Тогда
ВызватьИсключение "Путь " + ФайлОбъектКаталога.ПолноеИмя + " не является каталогом. Выгрузка невозможна";
Иначе
Лог.Отладка("Каталог %1 уже существует, пропускаем", ФайлОбъектКаталога.ПолноеИмя);
КонецЕсли;
КонецПроцедуры
Процедура ВывестиСправку()
Сообщить("Утилита сборки/разборки внешних файлов 1С");
Сообщить(Версия());
Сообщить(" ");
Сообщить("Параметры командной строки:");
Сообщить(" --decompile inputPath outputPath");
Сообщить(" Разбор файлов на исходники");
Сообщить(" --help");
Сообщить(" Показ этого экрана");
Сообщить(" --git-check-config");
Сообщить(" Проверка настроек репозитория git");
Сообщить(" --git-precommit outputPath [--remove-orig-bin-files]");
Сообщить(" Запустить чтение индекса из git и определить список файлов для разбора, разложить их и добавить исходники в индекс");
Сообщить(" Если передан флаг --remove-orig-bin-files, обработанные файлы epf/ert будут удалены из индекса git");
Сообщить(" --compile inputPath outputPath [--recursive]");
Сообщить(" Собрать внешний файл/обработку.");
Сообщить(" Если указан параметр --recursive, скрипт будет рекурсивно искать исходные коды отчетов и обработок в указанном каталоге и собирать их, повторяя структуру каталога");
Сообщить(" --install [--remove-orig-bin-files]");
Сообщить(" Установить precommit1c для текущего репозитория git");
Сообщить(" Если передан флаг --remove-orig-bin-files, обработанные файлы epf/ert будут удалены из индекса git");
Сообщить(" ");
Сообщить("Общие параметры:");
Сообщить(" --use-designer");
Сообщить(" Если передан этот флаг, то для операций сборки/разборки будет использован конфигуратор 1С.");
Сообщить(" ТОЛЬКО ДЛЯ ВЕРСИЙ ПЛАТФОРМЫ 8.3.8 И ВЫШЕ!");
Сообщить(" --v8version");
Сообщить(" Маска версии платформы (8.3, 8.3.8, 8.3.10.2561 и т.п.)");
Сообщить(" --ib-connection-string");
Сообщить(" Строка подключения к информационной базе");
Сообщить(" --ib-user");
Сообщить(" Имя пользователя в информационной базе");
Сообщить(" --ib-pwd");
Сообщить(" Пароль пользователя в информационной базе");
КонецПроцедуры
Процедура ОбработатьИзмененияИзГит(Знач ВыходнойКаталог, Знач УдалятьФайлыИзИндексаГит) Экспорт
Если ПустаяСтрока(ВыходнойКаталог) Тогда
ВыходнойКаталог = "src";
КонецЕсли;
КореньРепо = ТекущийКаталог();
Лог.Отладка("Текущий каталог " + КореньРепо);
Лог.Отладка("Каталог выгрузки " + ВыходнойКаталог);
ПроверитьНастройкиРепозитарияГит();
ЖурналИзмененийГитСтрокой = ПолучитьЖурналИзмененийГит();
ИменаФайлов = ПолучитьИменаИзЖурналаИзмененийГит(ЖурналИзмененийГитСтрокой);
КаталогИсходников = ОбъединитьПути(КореньРепо, ВыходнойКаталог);
СписокНовыхКаталогов = Новый Массив;
Для Каждого ИмяФайла Из ИменаФайлов Цикл
Лог.Отладка("Изучаю файл из журнала git " + ИмяФайла);
ОбработанныйПуть = УбратьКавычкиВокругПути(ИмяФайла);
ПолныйПуть = ОбъединитьПути(КореньРепо, ОбработанныйПуть);
Файл = Новый Файл(ПолныйПуть);
Если ТипФайлаПоддерживается(Файл) Тогда
Лог.Отладка("Получен из журнала git файл " + Файл);
СписокНовыхКаталогов.Добавить(РазобратьФайл(Файл, КаталогИсходников, КореньРепо));
Если УдалятьФайлыИзИндексаГит Тогда
УдалитьФайлИзИндексаГит(ПолныйПуть);
КонецЕсли;
КонецЕсли;
КонецЦикла;
ДобавитьИсходникиВГит(СписокНовыхКаталогов);
КонецПроцедуры
Процедура УдалитьФайлИзИндексаГит(Знач ПолныйПуть)
Лог.Отладка("Удаляю файл из индекса");
ПараметрыКоманды = Новый Массив;
ПараметрыКоманды.Добавить("rm");
ПараметрыКоманды.Добавить("--cached");
ПараметрыКоманды.Добавить(ОбернутьПутьВКавычки(ПолныйПуть));
ГитРепозиторий.ВыполнитьКоманду(ПараметрыКоманды);
КонецПроцедуры
Процедура ПроверитьНастройкиРепозитарияГит() Экспорт
ПроверитьНастройкуРепозитарияГит("core.quotepath", "false");
ПроверитьНастройкуРепозитарияГит("core.longpaths", "true");
КонецПроцедуры
Процедура ПроверитьНастройкуРепозитарияГит(Настройка, ПравильноеЗначение)
Перем КодВозврата;
Лог.Отладка("Выполняю проверку настройки %1", Настройка);
ЗначениеНастройки = ГитРепозиторий.ПолучитьНастройку(Настройка);
Если ЗначениеНастройки = ПравильноеЗначение Тогда
Возврат;
КонецЕсли;
ВызватьИсключение СтрШаблон("У текущего репозитария не заданы необходимые настройки!
|Выполните команду git config --local %1 %2
|
|А еще лучше сделать глобальную настройку git config --global %1 %2", Настройка, ПравильноеЗначение);
КонецПроцедуры
Функция ПолучитьЖурналИзмененийГит()
Перем КодВозврата;
Попытка
ПараметрыКоманды = СтрРазделить("diff-index --name-status --cached HEAD", " ");
ГитРепозиторий.ВыполнитьКоманду(ПараметрыКоманды);
Вывод = ГитРепозиторий.ПолучитьВыводКоманды();
Исключение
ПараметрыКоманды = СтрРазделить("status --porcelain", " ");
ГитРепозиторий.ВыполнитьКоманду(ПараметрыКоманды);
Вывод = ГитРепозиторий.ПолучитьВыводКоманды();
КонецПопытки;
Возврат Вывод;
КонецФункции
Функция ПолучитьИменаИзЖурналаИзмененийГит(Знач ЖурналИзмененийГит) Экспорт
Лог.Отладка("ЖурналИзмененийГит:");
МассивИмен = Новый Массив;
МассивСтрокЖурнала = СтроковыеФункции.РазложитьСтрокуВМассивПодстрок(ЖурналИзмененийГит, Символы.ПС);
Для Каждого СтрокаЖурнала Из МассивСтрокЖурнала Цикл
Лог.Отладка(" <%1>", СтрокаЖурнала);
СтрокаЖурнала = СокрЛ(СтрокаЖурнала);
СимволИзменений = Лев(СтрокаЖурнала, 1);
Если СимволИзменений = "A" или СимволИзменений = "M" Тогда
ИмяФайла = СокрЛП(Сред(СтрокаЖурнала, 2));
МассивИмен.Добавить(ИмяФайла);
Лог.Отладка(" В журнале git найдено имя файла <%1>", ИмяФайла);
КонецЕсли;
КонецЦикла;
Возврат МассивИмен;
КонецФункции
Процедура ДобавитьИсходникиВГит(Знач СписокНовыхКаталогов)
Перем КодВозврата;
Для Каждого Каталог Из СписокНовыхКаталогов Цикл
Лог.Отладка("Запуск git add для каталога " + Каталог);
ПараметрыКоманды = Новый Массив;
ПараметрыКоманды.Добавить("add");
ПараметрыКоманды.Добавить("--all");
ПараметрыКоманды.Добавить(ОбернутьПутьВКавычки(Каталог));
ГитРепозиторий.ВыполнитьКоманду(ПараметрыКоманды);
КонецЦикла;
КонецПроцедуры
Процедура Компилировать(Знач Путь, Знач КаталогВыгрузки, Знач Рекурсивно = Ложь) Экспорт
ПутьКИсходникам = ОбъединитьПути(ТекущийКаталог(), Путь);
ПапкаИсходников = Новый Файл(ПутьКИсходникам);
Ожидаем
.Что(ПапкаИсходников.Существует(), "Папка " + ПутьКИсходникам + " должна существовать")
.ЭтоИстина();
Ожидаем
.Что(ПапкаИсходников.ЭтоКаталог(), "Путь " + ПутьКИсходникам + "должен быть каталогом")
.ЭтоИстина();
Если Рекурсивно Тогда
СобратьКаталог(ПутьКИсходникам, КаталогВыгрузки);
Иначе
СобратьФайл(ПутьКИсходникам, КаталогВыгрузки);
КонецЕсли;
КонецПроцедуры
Процедура СобратьКаталог(Знач ПутьКИсходникам, КаталогВыгрузки)
СписокФайловВКаталоге = НайтиФайлы(ПутьКИсходникам, ПолучитьМаскуВсеФайлы());
Если НЕ Новый Файл(КаталогВыгрузки).Существует() Тогда
СоздатьКаталог(КаталогВыгрузки);
КонецЕсли;
Для Каждого Файл Из СписокФайловВКаталоге Цикл
Если НЕ Файл.ЭтоКаталог() Тогда
Продолжить;
КонецЕсли;
Если ЭтоПутьКИсходнымКодамОбработок(Файл) Тогда
СобратьФайл(Файл.ПолноеИмя, КаталогВыгрузки);
Иначе
НовыйПутьВыгрузки = ОбъединитьПути(КаталогВыгрузки, Файл.Имя);
СобратьКаталог(Файл.ПолноеИмя, НовыйПутьВыгрузки);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Функция СобратьФайл(Знач ПутьКИсходникам, Знач КаталогВыгрузки)
Лог.Информация("Собираю исходники <%1>", ПутьКИсходникам);
ПапкаИсходников = Новый Файл(ПутьКИсходникам);
ИмяПапки = ПапкаИсходников.Имя;
Если ИспользоватьКонфигуратор Тогда
ПутьСборки = ОбъединитьПути(ПутьКИсходникам, ИмяПапки + ".xml");
//Платформа сама подставит нужное расширение при сборке
ИмяФайлаОбъекта = ОбъединитьПути(ТекущийКаталог(), КаталогВыгрузки, ИмяПапки);
Иначе
Переименования = ПолучитьСоответствиеПереименований(ПутьКИсходникам);
ПутьСборки = ВременныеФайлы.СоздатьКаталог();
Лог.Информация("Восстанавливаю структуру исходников в <" + ПутьСборки + ">");
Для Каждого Переименование Из Переименования Цикл
НовыйПуть = ОбъединитьПути(ПутьСборки, Переименование.Ключ);
НовыйКаталог = Новый Файл(НовыйПуть);
ПутьДоНовогоКаталога = НовыйКаталог.Путь;
Если НЕ Новый Файл(ПутьДоНовогоКаталога).Существует() Тогда
СоздатьКаталог(ПутьДоНовогоКаталога);
КонецЕсли;
СтарыйПуть = ОбъединитьПути(ПутьКИсходникам, Переименование.Значение);
СтарыйКаталог = Новый Файл(СтарыйПуть);
Если СтарыйКаталог.ЭтоКаталог() Тогда
КопироватьСодержимоеКаталога(СтарыйПуть, НовыйПуть);
Если ЭтоПутьКТолстойФорме(НовыйПуть) Тогда
ПереместитьФайл(ОбъединитьПути(НовыйПуть, "module.bsl"), ОбъединитьПути(НовыйПуть, "module"));
КонецЕсли;
Иначе
КопироватьФайл(СтарыйПуть, НовыйПуть);
КонецЕсли;
КонецЦикла;
ТипФайла = ПолучитьТипФайлаПоКаталогуИсходников(ПутьСборки);
ИмяФайлаОбъекта = ОбъединитьПути(ТекущийКаталог(), КаталогВыгрузки, ИмяПапки + "." + ТипФайла);
КонецЕсли;
СобратьФайлИзИсходников(ПутьСборки, ИмяФайлаОбъекта);
Лог.Информация("Успешно собран файл "+ИмяФайлаОбъекта);
Возврат ИмяФайлаОбъекта;
КонецФункции
Функция ЭтоПутьКИсходнымКодамОбработок(ПапкаИсходников)
Если ИспользоватьКонфигуратор Тогда
ПутьКФайлу = ОбъединитьПути(ПапкаИсходников.ПолноеИмя, ПапкаИсходников.Имя + ".xml");
Иначе
ПутьКФайлу = ОбъединитьПути(ПапкаИсходников.ПолноеИмя, "renames.txt");
КонецЕсли;
Возврат Новый Файл(ПутьКФайлу).Существует();
КонецФункции
Функция ЭтоПутьКТолстойФорме(ПутьКПапке)
ФайлМодуля = Новый Файл(ОбъединитьПути(ПутьКПапке, "module.bsl"));
ФайлФормы = Новый Файл(ОбъединитьПути(ПутьКПапке, "form"));
Возврат ФайлМодуля.Существует() И ФайлФормы.Существует();
КонецФункции
Функция ПолучитьТипФайлаПоКаталогуИсходников(Знач КаталогИсходников)
ПутьКФайлуРут = ОбъединитьПути(КаталогИсходников, "root");
ФайлРут = Новый Файл(ПутьКФайлуРут);
Ожидаем.Что(ФайлРут.Существует(), "Файл <" + ПутьКФайлуРут + "> должен существовать").ЭтоИстина();
Ожидаем.Что(ФайлРут.ЭтоКаталог(), "<" + ПутьКФайлуРут + "> должен быть файлом").ЭтоЛожь();
ЧтениеТекста = Новый ЧтениеТекста(ПутьКФайлуРут);
СодержаниеРут = ЧтениеТекста.Прочитать();
ЧтениеТекста.Закрыть();
МассивСтрокРут = СтрРазделить(СодержаниеРут, ",");
Ожидаем.Что(МассивСтрокРут.Количество(), "Некорректный формат файла root").Больше(1);
ПутьКФайлуКорневойКонтейнер = ОбъединитьПути(КаталогИсходников, МассивСтрокРут[1]);
ФайлКорневойКонтейнер = Новый Файл(ПутьКФайлуКорневойКонтейнер);
Ожидаем
.Что(ФайлКорневойКонтейнер.Существует(), "Файл <" + ПутьКФайлуКорневойКонтейнер + "> должен существовать")
.ЭтоИстина();
Ожидаем
.Что(ФайлКорневойКонтейнер.ЭтоКаталог(), "<" + ПутьКФайлуКорневойКонтейнер + "> должен быть файлом")
.ЭтоЛожь();
ЧтениеТекста = Новый ЧтениеТекста(ПутьКФайлуКорневойКонтейнер);
СодержаниеКорневойКонтейнер = "";
Для сч = 1 По 7 Цикл
ПрочитаннаяСтрока = ЧтениеТекста.ПрочитатьСтроку();
Если ПрочитаннаяСтрока = Неопределено Тогда
Прервать;
КонецЕсли;
СодержаниеКорневойКонтейнер = СодержаниеКорневойКонтейнер + ПрочитаннаяСтрока;
КонецЦикла;
ЧтениеТекста.Закрыть();
МассивСтрокКорневойКонтейнер = СтрРазделить(СодержаниеКорневойКонтейнер, ",");
СтрокаОшибки = СтрШаблон("Некорректный формат файла корневого контейнера <%1>", ПутьКФайлуКорневойКонтейнер);
Ожидаем
.Что(МассивСтрокКорневойКонтейнер.Количество(), СтрокаОшибки)
.Больше(3);
ИдентификаторТипаОбъекта = СокрЛП(МассивСтрокКорневойКонтейнер[3]);
Если Лев(ИдентификаторТипаОбъекта, 1) = "{" Тогда
ИдентификаторТипаОбъекта = Прав(ИдентификаторТипаОбъекта, СтрДлина(ИдентификаторТипаОбъекта) - 1);
КонецЕсли;
Если Прав(ИдентификаторТипаОбъекта, 1) = "}" Тогда
ИдентификаторТипаОбъекта = Лев(ИдентификаторТипаОбъекта, СтрДлина(ИдентификаторТипаОбъекта) - 1);
КонецЕсли;
ИдентификаторТипаОбъекта = НРег(СокрЛП(ИдентификаторТипаОбъекта));
Если ИдентификаторТипаОбъекта = "c3831ec8-d8d5-4f93-8a22-f9bfae07327f" Тогда
ТипФайла = "epf";
ИначеЕсли ИдентификаторТипаОбъекта = "e41aff26-25cf-4bb6-b6c1-3f478a75f374" Тогда
ТипФайла = "erf";
Иначе
ВызватьИсключение("Некорректный идентификатор типа собираемого объекта <" + ИдентификаторТипаОбъекта + ">");
КонецЕсли;
Возврат ТипФайла;
КонецФункции
// Функция - Получает соответствие переименований файлов обработки на основе
// файла renames.txt
//
// Параметры:
// ПутьКИсходникам - Строка - Путь к папке с исходными кодами обработки
// Возвращаемое значение:
// Соответствие - Ключ: оригинальный путь файла после распаковки
// Значение: преобразованный путь (например, при
// раскладывании файлов по иерархии)
//
Функция ПолучитьСоответствиеПереименований(ПутьКИсходникам)
Переименования = Новый Соответствие;
Разделитель = "-->";
ДлинаРазделителя = СтрДлина(Разделитель);
ФайлПереименования = Новый Файл(ОбъединитьПути(ПутьКИсходникам, "renames.txt"));
Ожидаем
.Что(ФайлПереименования.Существует(), "Файл переименования " + ФайлПереименования.ПолноеИмя + " должен существовать")
.ЭтоИстина();