error-handling - 如何正确执行错误处理？

Question

我正在调用fit_circle函数，该函数可能会也可能不会调用MESSAGE过程。 fit_circle调用一个函数poly_fit，该函数可以调用MESSAGE过程，但偶尔也会产生数学错误(对此我无能为力)。

是否可以构造一个可以处理所有这些情况的错误处理程序，而无需返回交互式提示？我尝试了以下方法:

FUNCTION arb_funct,circular_data
    CATCH, ERROR
    IF ERROR NE 0 THEN BEGIN
        CATCH, /CANCEL
        print, 'An Error Occured'
        return, []
    ENDIF

    circle_fit_result = fit_circle(circular_data)
    return, circle_fit_result
END

但是，错误处理程序永远不会触发。 documentation似乎只提到寻找过程中定义的错误处理程序。

Answer 1

为我工作。这是我的示例代码:

pro mg_error_demo_helper2
  compile_opt strictarr

  a = b
end


pro mg_error_demo_helper1
  compile_opt strictarr

  mg_error_demo_helper2
end


pro mg_error_demo
  compile_opt strictarr
  catch, error
  if (error ne 0L) then begin
    catch, /cancel
    print, 'An error occurred'
    return
  endif

  mg_error_demo_helper1
end

当我运行它时，我得到:

IDL> mg_error_demo
% Compiled module: MG_ERROR_DEMO.
error happened