Снегопат

$engine JScript
$uname testExceptionsLib

function throwErrorFunction()
{
    throw "Excepiton from testExceptionsLib.throwErrorFunction()";
}

function macrosThrowErrorMacros()
{
    throw "Excepiton from testExceptionsLib.throwErrorMacros()";
}

$engine JScript
$uname testExceptionsApp

var lib = addins.byUniqueName("testExceptionsLib");

function macrosИсключениеПриВызовеФункции()
{
    try
    {
        lib.object.throwErrorFunction();
    }
    catch (e)
    {
        Message("Gotcha: " + e.text);
    }
}

function macrosИсключениеПриПрограммномВызовеМакроса()
{
    try
    {
        lib.invokeMacros("ThrowErrorMacros");
    }
    catch (e)
    {
        Message("Gotcha: " + e.text);
    }
}

function SetErrorHandler(errorHandler)
{
    ErrorHandler = errorHandler;
}

function throwError(e)
{
    if (ErrorHandler)
    {
        ErrorHandler.call(null, e);   
        //ErrorHandler(e);   
        return e;
    }

    throw e;
}

function macrosThrowErrorMacros()
{
    throw "Excepiton from testExceptionsLib.throwErrorMacros()";
}

var lib = addins.byUniqueName("testExceptionsLib");
lib.object.SetErrorHandler(function(e) { throw e});

// Загрузить скрипт-библиотеку по имени файла или полному пути.
// Возвращает объект, предоставляющий доступ ко всем публичным
// функциям и переменным скрипта filename, аналогично директиве $addin.
function require(filename)
{
    var fullPath = filename;
   
    /* Задан полный путь или уникальное имя скрипта?
     * Проверяем по наличию указания буквы диска в начале пути
     * или двойного слеша (при адресации скрипта на сетевом ресурсе).
     */
   
    var isFullPath = fullPath.match(/^(\w\:|\\\\)/);
   
    /* Если задано только имя файла, то ищем скрипт-библиотеку по имени файла
     * в каталоге Scripts\Libs каталога Снегопата.
     * TODO: Нужен ли "правильный" алгоритм поиска библиотеки, в рабочем каталоге
     * и в путях, прописанных в переменной среды PATH?
     */
   
    if (!isFullPath)
    {
        var mainFolder = profileRoot.getValue("Snegopat/MainFolder");
        var f = v8New("Файл", mainFolder + "scripts\\Libs\\" + filename);
       
        if (!f.Существует() || !f.ЭтоФайл())
            throw "require: Не найден скрипт " + filename;
           
        fullPath = f.ПолноеИмя;
    }
     
    /* Формируем полный путь загрузки скрипта,
     * включающий в себя протокол.
     */
     
    var fullLoadString = "script:" + fullPath;
     
    /* Проверяем, не загружен ли скрипт уже (по полному пути)
     * и загружаем, если это не так.
     */
   
    var lib = addins.byFullPath(fullLoadString);
   
    if (!lib)
    {
        /* Среди групп аддинов первого уровня ищем группу для
         * скриптов-библиотек. Если такой группы нет, то создадим ее.
         */
       
        var libGroupName = "Подгружаемые библиотеки";       
        var libGroup = addins.root.child;               
        var libFound = false;
       
        while (libGroup)
        {
            if (libGroup.name == libGroupName)
            {
                libFound = true;
                break
            }
           
            libGroup = libGroup.next;
        }
       
        if (!libFound)
            libGroup = addins.root.addGroup(libGroupName);
           
        // Загружаем скрипт.
        try
        {
            lib = addins.loadAddin(fullLoadString, libGroup);
        }
        catch(e)
        {
            Message("require: Скрипт-библиотека не загружен: " + fullPath);
            // Пробрасываем исключение наверх.
            throw e;
        }
    }
       
   // require() должен вести себя как и деректива $addin
   return lib.object;   
}