Diff
Not logged in

Differences From Artifact [1d43781586]:

To Artifact [f97ad3ccbc]:


25
26
27
28
29
30
31
32


33
34
35
36
37
38




39
40
















41
42
43
44
45

46
47
48
49
50
51
52
  #       this script was evaluated from, add it to the auto-path; otherwise,
  #       we assume that we are running from inside the source tree.  In that
  #       case, modify the auto-path to include the "Eagle1.0" sub-directory
  #       within "externals".  Only native Tcl needs to be able to locate the
  #       packages from the sub-directory being added to the auto-path here
  #       because they were already shipped in the Eagle core script library
  #       (as of Beta 37).  The expression used for Eagle detection here was
  #       stolen from the Eagle core script library [isEagle] procedure.


  #
  variable pkgr_path; # DEFAULT: <unset>

  if {![info exists pkgr_path]} then {
    if {![info exists ::tcl_platform(engine)] || \
        [string compare -nocase eagle $::tcl_platform(engine)] != 0} then {




      set pkgr_path [file normalize [file dirname [info script]]]

















      if {[file isdirectory [file join $pkgr_path Eagle1.0]]} then {
        lappend ::auto_path [file join $pkgr_path Eagle1.0]
      } else {
        lappend ::auto_path [file join [file dirname [file dirname \
            [file dirname $pkgr_path]]] externals Eagle lib Eagle1.0]

      }
    }
  }

  variable pkgr_harpy_path; # DEFAULT: <unset>

  if {![info exists pkgr_harpy_path]} then {







|
>
>






>
>
>
>


>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
|
|
|
|
>







25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
  #       this script was evaluated from, add it to the auto-path; otherwise,
  #       we assume that we are running from inside the source tree.  In that
  #       case, modify the auto-path to include the "Eagle1.0" sub-directory
  #       within "externals".  Only native Tcl needs to be able to locate the
  #       packages from the sub-directory being added to the auto-path here
  #       because they were already shipped in the Eagle core script library
  #       (as of Beta 37).  The expression used for Eagle detection here was
  #       stolen from the Eagle core script library [isEagle] procedure.  If
  #       the necessary Eagle sub-packages are somehow already loaded, skip
  #       modifying the auto-path.
  #
  variable pkgr_path; # DEFAULT: <unset>

  if {![info exists pkgr_path]} then {
    if {![info exists ::tcl_platform(engine)] || \
        [string compare -nocase eagle $::tcl_platform(engine)] != 0} then {
      #
      # NOTE: Always save the fully qualified directory name containing this
      #       script file.
      #
      set pkgr_path [file normalize [file dirname [info script]]]

      #
      # NOTE: Check for the necessary Eagle sub-packages that contain shared
      #       script code that we need.  If they are all already present, do
      #       nothing.
      #
      if {[catch {
        package present Eagle.Platform
        package present Eagle.Auxiliary
        package present Eagle.File
      }]} then {
        #
        # NOTE: Check for the "Eagle1.0" sub-directory right underneath our
        #       directory.  Fallback to going up three directory levels and
        #       looking in the "externals" sub-directory as that will be the
        #       location within source checkouts.
        #
        if {[file isdirectory [file join $pkgr_path Eagle1.0]]} then {
          lappend ::auto_path [file join $pkgr_path Eagle1.0]
        } else {
          lappend ::auto_path [file join [file dirname [file dirname \
              [file dirname $pkgr_path]]] externals Eagle lib Eagle1.0]
        }
      }
    }
  }

  variable pkgr_harpy_path; # DEFAULT: <unset>

  if {![info exists pkgr_harpy_path]} then {
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
  #       different operations.
  #
  setupPackageUnknownHandler

  #
  # NOTE: Provide the package to the interpreter.
  #
  package provide Eagle.Package.Repository 1.0.3
}








|


2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
  #       different operations.
  #
  setupPackageUnknownHandler

  #
  # NOTE: Provide the package to the interpreter.
  #
  package provide Eagle.Package.Repository 1.0.4
}