File
modules/javascript/pkgIndex.tcl
— part of check-in
[bb2c259d71]
at
2001-08-02 16:38:06
on branch trunk
—
Dgp writes: Here's a big patch that fixes many bugs dealing with what
versions of what packages are in tcllib, and what versions of what
packages they depend on. Bugs fixed by this patch are:
447038 447035 447033 447013 447012 447011 447010 232017
(user:
andreas_kupries
size: 720)
0000: 23 20 54 63 6c 20 70 61 63 6b 61 67 65 20 69 6e # Tcl package in
0010: 64 65 78 20 66 69 6c 65 2c 20 76 65 72 73 69 6f dex file, versio
0020: 6e 20 31 2e 31 0a 23 20 54 68 69 73 20 66 69 6c n 1.1.# This fil
0030: 65 20 69 73 20 67 65 6e 65 72 61 74 65 64 20 62 e is generated b
0040: 79 20 74 68 65 20 22 70 6b 67 5f 6d 6b 49 6e 64 y the "pkg_mkInd
0050: 65 78 22 20 63 6f 6d 6d 61 6e 64 0a 23 20 61 6e ex" command.# an
0060: 64 20 73 6f 75 72 63 65 64 20 65 69 74 68 65 72 d sourced either
0070: 20 77 68 65 6e 20 61 6e 20 61 70 70 6c 69 63 61 when an applica
0080: 74 69 6f 6e 20 73 74 61 72 74 73 20 75 70 20 6f tion starts up o
0090: 72 0a 23 20 62 79 20 61 20 22 70 61 63 6b 61 67 r.# by a "packag
00a0: 65 20 75 6e 6b 6e 6f 77 6e 22 20 73 63 72 69 70 e unknown" scrip
00b0: 74 2e 20 20 49 74 20 69 6e 76 6f 6b 65 73 20 74 t. It invokes t
00c0: 68 65 0a 23 20 22 70 61 63 6b 61 67 65 20 69 66 he.# "package if
00d0: 6e 65 65 64 65 64 22 20 63 6f 6d 6d 61 6e 64 20 needed" command
00e0: 74 6f 20 73 65 74 20 75 70 20 70 61 63 6b 61 67 to set up packag
00f0: 65 2d 72 65 6c 61 74 65 64 0a 23 20 69 6e 66 6f e-related.# info
0100: 72 6d 61 74 69 6f 6e 20 73 6f 20 74 68 61 74 20 rmation so that
0110: 70 61 63 6b 61 67 65 73 20 77 69 6c 6c 20 62 65 packages will be
0120: 20 6c 6f 61 64 65 64 20 61 75 74 6f 6d 61 74 69 loaded automati
0130: 63 61 6c 6c 79 0a 23 20 69 6e 20 72 65 73 70 6f cally.# in respo
0140: 6e 73 65 20 74 6f 20 22 70 61 63 6b 61 67 65 20 nse to "package
0150: 72 65 71 75 69 72 65 22 20 63 6f 6d 6d 61 6e 64 require" command
0160: 73 2e 20 20 57 68 65 6e 20 74 68 69 73 0a 23 20 s. When this.#
0170: 73 63 72 69 70 74 20 69 73 20 73 6f 75 72 63 65 script is source
0180: 64 2c 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 d, the variable
0190: 24 64 69 72 20 6d 75 73 74 20 63 6f 6e 74 61 69 $dir must contai
01a0: 6e 20 74 68 65 0a 23 20 66 75 6c 6c 20 70 61 74 n the.# full pat
01b0: 68 20 6e 61 6d 65 20 6f 66 20 74 68 69 73 20 66 h name of this f
01c0: 69 6c 65 27 73 20 64 69 72 65 63 74 6f 72 79 2e ile's directory.
01d0: 0a 0a 69 66 20 7b 21 5b 70 61 63 6b 61 67 65 20 ..if {![package
01e0: 76 73 61 74 69 73 66 69 65 73 20 5b 70 61 63 6b vsatisfies [pack
01f0: 61 67 65 20 70 72 6f 76 69 64 65 20 54 63 6c 5d age provide Tcl]
0200: 20 38 5d 7d 20 7b 72 65 74 75 72 6e 7d 0a 69 66 8]} {return}.if
0210: 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20 {[string match
0220: 22 22 20 5b 70 61 63 6b 61 67 65 20 70 72 6f 76 "" [package prov
0230: 69 64 65 20 6e 63 67 69 5d 5d 7d 20 7b 72 65 74 ide ncgi]]} {ret
0240: 75 72 6e 7d 0a 69 66 20 7b 21 5b 70 61 63 6b 61 urn}.if {![packa
0250: 67 65 20 76 73 61 74 69 73 66 69 65 73 20 5b 70 ge vsatisfies [p
0260: 61 63 6b 61 67 65 20 70 72 6f 76 69 64 65 20 6e ackage provide n
0270: 63 67 69 5d 20 31 5d 7d 20 7b 72 65 74 75 72 6e cgi] 1]} {return
0280: 7d 0a 70 61 63 6b 61 67 65 20 69 66 6e 65 65 64 }.package ifneed
0290: 65 64 20 6a 61 76 61 73 63 72 69 70 74 20 31 2e ed javascript 1.
02a0: 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 0 [list source [
02b0: 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 6a file join $dir j
02c0: 61 76 61 73 63 72 69 70 74 2e 74 63 6c 5d 5d 0a avascript.tcl]].
