eval tcl eval [list $interp] $args
      }
    }

    #
    # NOTE: This procedure attempts to load the TclDevKit remote debugger
    #       package into the specified Tcl interpreter.  By default, the
    #       "primary" Tcl interpreter will be used.  If the native Tcl
    #       interface is not ready or if the remote debugger package
    #       cannot be loaded, an error will be raised.
    #
    proc tcl_debugger_setup { {interp ""} } {
      if {![tcl ready]} then {error "native Tcl interface is not ready"}
      if {[string length $interp] == 0} then {set interp [tcl primary]}

      set directory [getTclDevKitDirectory]

      if {[string length $directory] == 0} then {
        error "the TclDevKit does not appear to be installed"
      }

      exec $applicationFileName $projectFileName &; after 5000
    }

    #
    # NOTE: This procedure attempts to initialize the TclDevKit remote
    #       debugger in the specified Tcl interpreter.  By default, the
    #       "primary" Tcl interpreter will be used.  If the native Tcl
    #       interface is not ready or if the remote debugger package
    #       cannot be initialized, an error will be raised.
    #
    proc tcl_debugger_init {
            {interp ""} {host 127.0.0.1} {port 2576} {cdata {}} } {
      if {![tcl ready]} then {error "native Tcl interface is not ready"}
      if {[string length $interp] == 0} then {set interp [tcl primary]}

      tcl_eval $interp [list debugger_init $host $port $cdata]
    }

    #
    # NOTE: This procedure attempts to evaluate a Tcl script under control
    #       of the TclDevKit remote debugger.  By default, the "primary" Tcl
    #       interpreter will be used.  If the native Tcl interface is not
    #       ready or if the remote debugger package fails to evaluate the
    #       Tcl script, an error will be raised.
    #
    proc tcl_debugger_eval { {interp ""} args } {
      if {![tcl ready]} then {error "native Tcl interface is not ready"}
      if {[string length $interp] == 0} then {set interp [tcl primary]}

      tcl_eval $interp debugger_eval $args
    }

    #
    # NOTE: This procedure attempts to tell the TclDevKit remote debugger
    #       to break the execution of the Tcl script in progress.
    #
    proc tcl_debugger_break { {interp ""} {str ""} } {
      if {![tcl ready]} then {error "native Tcl interface is not ready"}
      if {[string length $interp] == 0} then {set interp [tcl primary]}

      tcl_eval $interp [list debugger_break $str]
    }
  }

  if {![info exists tdk_path]} then {
    set tdk_path [file dirname [info script]]
  }

  package provide Eagle.TclDevKit.Integration \
    [expr {[isEagle] ? [info engine PatchLevel] : "1.0"}]
}