My intention is to switch after an !TCL_OK return value from Tcl_EvalEx() to
decide whether a TCL-related error has happend, or some POSIX system
call error (the cmd called is a "create-socket" call).

// pseudo code
Tcl_SetErrno(0); // not sure if that reset is necessary
if (TCL_OK != Tcl_EvalEx(interp, cmd_str, cmd_size, TCL_EVAL_GLOBAL)) {
// right now I'm doing:
if (0 != Tcl_GetErrno()) {
// assume POSIX error
} else {
// assume TCL script level error
}
}

Short of Tcl_ObjGetVar2("errorCode") and looking at the first element of
the returned list being "POSIX" in case of an error, is there a better way?

TNX
R'

On Fri, 26 Apr 2024 11:37:45 +0200
Ralf Fassel <ralfixx@gmx.de> wrote:

> My intention is to switch after an !TCL_OK return value from Tcl_EvalEx() to
> decide whether a TCL-related error has happend, or some POSIX system
> call error (the cmd called is a "create-socket" call).
>
> // pseudo code
> Tcl_SetErrno(0); // not sure if that reset is necessary
> if (TCL_OK != Tcl_EvalEx(interp, cmd_str, cmd_size, TCL_EVAL_GLOBAL)) {
> // right now I'm doing:
> if (0 != Tcl_GetErrno()) {
> // assume POSIX error
> } else {
> // assume TCL script level error
> }
> }
>
> Short of Tcl_ObjGetVar2("errorCode") and looking at the first element of
> the returned list being "POSIX" in case of an error, is there a better way?

Tcl_GetReturnOptions()

--
Emiliano