Модули для действий\Модуль 1С\Проверить модуль
Функция Выполнить()
Сообщения.Очистить();
Модуль = Этот.Владелец;
Параметр = Модуль.Параметр;
Если (Параметр=0) Тогда
Сообщить("Параметр не задан");
Возврат 0;
Конец;
// наберем список имен функций
СписокИмен = Слова.Массив();
Для Объект Из Параметр Цикл
Если (Объект.Тип()=Объекты.'Функция 1С') Тогда
СписокИмен.Добавить(Объект.Имя);
Конец;
Конец;
// обходим сами функции и проверяем их
Для Объект Из Параметр Цикл
Если (Объект.Тип()=Объекты.'Функция 1С') Тогда
ПроверитьТекстФункции(Объект, СписокИмен);
//Прервать;
Конец;
Конец;
Конец
Функция ПроверитьТекстФункции(Ф1С, СписокИмен)
Слово1 = Слова.Определить("ПодключитьОбработчикОжидания");
Слово2 = Слова.Определить("ОписаниеОповещения");
Скобка = Слова.Определить("(");
МассивСлов = Слова.Массив(Ф1С.Текст);
поз = 0;
Для Слово Из МассивСлов Цикл
Если (Слово=Слово1) Тогда
имя = МассивСлов.Получить(поз+3);
Если (СписокИмен.Найти(имя)=-1) Тогда
Сообщить("Не найдена функция - "+Слова.Строка(имя));
Конец;
Конец;
Если (Слово=Слово2) Тогда
Если (МассивСлов.Получить(поз+1)=Скобка) Тогда
имя = МассивСлов.Получить(поз+3);
Если (СписокИмен.Найти(имя)=-1) Тогда
Сообщить("Не найдена функция - "+Слова.Строка(имя));
Конец;
Конец;
Конец;
поз = поз + 1;
Конец;
Конец