Можно ли включить выход при ошибке в интерактивной оболочке Tcl?

Поскольку у меня есть доступ к оболочке Tcl программы, можно ли включить функцию отказа при ошибке?

Позвольте мне подвести итог своими словами: вы хотите выйти из интерактивной оболочки Tcl в случае ошибки, вместо того, чтобы снова предлагать подсказку?

Обновлять

Я использую Tcl 8.3, что является серьезным ограничением с точки зрения доступных инструментов [...] только исходных патчей для кода C.

Если вам кажется, что вы глубоко в этой кроличьей норе, почему бы не добавить еще один патч для исходного кода?

--- tclMain.c   2002-03-26 03:26:58.000000000 +0100
+++ tclMain.c.mrcalvin  2019-10-23 22:49:14.000000000 +0200
@@ -328,6 +328,7 @@
        Tcl_WriteObj(errChannel, Tcl_GetObjResult(interp));
        Tcl_WriteChars(errChannel, "\n", 1);
        }
+       Tcl_Exit(1);
    } else if (tsdPtr->tty) {
        resultPtr = Tcl_GetObjResult(interp);
        Tcl_GetStringFromObj(resultPtr, &length);

Это не проверено, исходники Tcl 8.3.5 не компилируются для меня. Но этот раздел внутреннего Tcl сопоставим с текущими источниками, протестированными с использованием моей исходной установки Tcl 8.6.

Для записей

Боюсь, что со стандартной оболочкой (tclsh) это немного неудобно. Следующее может сработать для вас (хотя я могу представить себе случаи, когда это могло бы вас подвести). Идея

• для перехвата записи в stderr (сюда интерактивная оболочка перенаправляет сообщения об ошибках, прежде чем вернуться к приглашению).
• чтобы различать произвольные записи в stderr и ошибки, можно использовать глобальную переменную ::errorInfo в качестве контрольной.

Шаг 1. Определите перехватчик канала

oo::class create Bouncer {
    method initialize {handle mode} {
        if {$mode ne "write"} {error "can't handle reading"}
        return {finalize initialize write}
    }
    method finalize {handle} {
        # NOOP
    }

    method write {handle bytes} {
        if {[info exists ::errorInfo]} {
        # This is an actual error;
        # 1) Print the message (as usual), but to stdout
        fconfigure stdout -translation binary
        puts stdout $bytes
        # 2) Call on [exit] to quit the Tcl process
        exit 1
    } else {
        # Non-error write to stderr, proceed as usual
            return $bytes
    }
    }
}

Шаг 2. Зарегистрируйте перехватчик для stderr в интерактивных оболочках

if {[info exists ::tcl_interactive]} {
    chan push stderr [Bouncer new]
}

После регистрации ваша интерактивная оболочка будет вести себя так:

% puts stderr "Goes, as usual!"
Goes, as usual!
% error "Bye, bye"
Bye, bye

Некоторые замечания

• Вы должны быть осторожны с методом Bouncer write, сообщение об ошибке уже было обработано для кодировки символов (следовательно, вызов fconfigure).
• Вы можете поместить это в пакет Tcl или модуль Tcl, чтобы загрузить вышибалу с помощью package req.
• Я могу представить, что ваша программа записывает в stderr, а переменная errorInfo установлена ​​(как оставшаяся часть), это вызовет непреднамеренный выход.