Доработка тестов и правка документации, первые методы MongoDB

ci/os/docs_main.os

@@ -23,6 +23,7 @@
 Перем ТекущаяБиблиотека;
 Перем КаталогИнструкцийОригинал;
 Перем КаталогИнструкцийЛокализация;
+Перем СоответствиеМетодовПутям;
 
 Процедура ПриСозданииОбъекта()  
 
@@ -57,7 +58,6 @@
 		СоответствиеЗаголовков = Новый Соответствие();
 		ОчиститьКаталогиДокументов();
 
-
 		ПолучитьТаблицуТранслитации();
 		ПроверитьСоздатьКаталог(КаталогДокументации);
 		СоздатьФайлыДокументации();
@@ -112,11 +112,8 @@
 	ТранслитированноеИмя     = ПеревестиИмя(СтруктураМетода["ИмяМетода"]);
 	ТранслитированнаяОбласть = ПеревестиИмя(Область);
 
-	ТранслитированноеИмя     = СтрЗаменить(Синонимайзер(ТранслитированноеИмя), " ", "-");
-	ТранслитированнаяОбласть = СтрЗаменить(Синонимайзер(ТранслитированнаяОбласть), " ", "-");
-
-	ТранслитированноеИмя     = ВРег(Лев(ТранслитированноеИмя,1)) + нРег(Сред(ТранслитированноеИмя,2));
-	ТранслитированнаяОбласть = ВРег(Лев(ТранслитированнаяОбласть,1)) + нРег(Сред(ТранслитированнаяОбласть,2));
+	ТранслитированноеИмя     = ЗначениеКакЧастьПути(ТранслитированноеИмя);
+	ТранслитированнаяОбласть = ЗначениеКакЧастьПути(ТранслитированнаяОбласть);
 
 	СинонимОбласти   = СтрЗаменить(ТранслитированнаяОбласть, "-", " ");
 	ЗаголовокОбласти = Синонимайзер(Область);
@@ -220,6 +217,10 @@
 	СтруктураОбщихДанных = Новый Структура();
 	СтруктураОбщихДанных.Вставить("ИмяМодуля", ИмяМодуля);
 
+	СоответствиеМетодовПутям = Новый Соответствие();
+	ТекущаяОбласть           = "";
+	ИмяМодуляБезПрефикса     = СтрЗаменить(ИмяМодуля, "OPI_", "");
+
 	ПолучитьДанныеМодуля(СтруктураОбщихДанных, ТекущийМодуль);
 
 	Если Не ЗначениеЗаполнено(СтруктураОбщихДанных["Библиотека"]) Тогда
@@ -236,6 +237,26 @@
 		А = ОписаниеОшибки();
 	КонецПопытки;
 
+	Для Каждого Метод Из СтруктураМодуля.Объявления Цикл
+
+		Если Метод.Тип = "ОбъявлениеМетода" И Метод.Сигнатура.Экспорт = Истина Тогда
+
+			ИмяМетода = Метод.Сигнатура.Имя;
+			ПутьМетода = СтрШаблон("/docs/%1/%2/%3"
+				, ИмяМодуляБезПрефикса
+				, ЗначениеКакЧастьПути(ТекущаяОбласть)
+				, ЗначениеКакЧастьПути(ИмяМетода));
+			
+			СоответствиеМетодовПутям.Вставить(ИмяМетода, ПутьМетода);
+
+		КонецЕсли;
+
+		Если Метод.Тип = "ИнструкцияПрепроцессораОбласть" Тогда
+			ТекущаяОбласть = Метод.Имя;
+	    КонецЕсли;
+
+	КонецЦикла;
+
 	Для Каждого Метод Из СтруктураМодуля.Объявления Цикл
 
 		Если Метод.Тип = "ОбъявлениеМетода" И Метод.Сигнатура.Экспорт = Истина Тогда
@@ -523,6 +544,8 @@
 
 		Описание  = ?(КоличествоЭлементов >= 5, МассивЭлементовПараметра[4], МассивЭлементовПараметра[2]);	
 		
+		ДополнитьОписаниеСсылкой(Описание);
+		
 		СтруктураПараметра = Новый Структура;
 		СтруктураПараметра.Вставить("Имя"                , Имя1С);
 		СтруктураПараметра.Вставить("Опция"              , Имя);
@@ -874,6 +897,39 @@
 
 КонецФункции
 
+Процедура ДополнитьОписаниеСсылкой(Описание)
+
+	Если СтрНайти(Описание, "См. ") = 0 Тогда
+		Возврат;
+	КонецЕсли;
+
+	ЧастиОписания = СтрРазделить(СокрЛП(Описание), "См. ");
+	ЧастьМетода   = СокрЛП(ЧастиОписания[1]);
+
+	Если СтрНайти(ЧастьМетода, " ") Или ЧастиОписания.Количество() > 2 Тогда
+		Возврат;
+	КонецЕсли;
+
+	ПутьМетода = СоответствиеМетодовПутям.Получить(ЧастьМетода);
+
+	Если Не ЗначениеЗаполнено(ПутьМетода) Тогда
+		Сообщить("Метод используется как подсказка но не найден: " + ЧастьМетода);
+		Возврат;
+	КонецЕсли;
+
+	Описание = СтрШаблон("%1 См. [%1](%2)", СокрЛП(ЧастиОписания[0]), ЧастьМетода, ПутьМетода);
+
+КонецПроцедуры
+
+Функция ЗначениеКакЧастьПути(Значение)
+
+	ЗначениеПути = СтрЗаменить(Синонимайзер(Значение), " ", "-");
+	ЗначениеПути = ВРег(Лев(ЗначениеПути,1)) + нРег(Сред(ЗначениеПути,2));
+
+	Возврат ЗначениеПути;
+
+КонецФункции
+
 Процедура ПолучитьТаблицуТранслитации()
 
 	Транслитация = Новый Соответствие();