/usr/share/tcltk/tcllib1.19/practcl/build.tcl is in tcllib 1.19-dfsg-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 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 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 | set here [file dirname [file normalize [file join [pwd] [info script]]]]
set version 0.11
set tclversion 8.5
set module [file tail $here]
set fout [open [file join $here [file tail $module].tcl] w]
fconfigure $fout -translation lf
dict set map %module% $module
dict set map %version% $version
dict set map %tclversion% $tclversion
dict set map { } {}
dict set map "\t" { }
puts $fout [string map $map {###
# Amalgamated package for %module%
# Do not edit directly, tweak the source in src/ and rerun
# build.tcl
###
package require Tcl %tclversion%
package provide %module% %version%
namespace eval ::%module% {}
}]
# Track what files we have included so far
set loaded {}
# These files must be loaded in a particular order
###
# Load other module code that this module will need
###
foreach {omod files} {
httpwget wget.tcl
} {
foreach fname $files {
set file [file join $here .. $omod $fname]
set fin [open [file join $here src $file] r]
puts $fout "###\n# START: [file join $omod $fname]\n###"
puts $fout [read $fin]
close $fin
puts $fout "###\n# END: [file join $omod $fname]\n###"
}
}
foreach file {
setup.tcl
buildutil.tcl
fileutil.tcl
installutil.tcl
makeutil.tcl
{class metaclass.tcl}
{class toolset baseclass.tcl}
{class toolset gcc.tcl}
{class toolset msvc.tcl}
{class target.tcl}
{class object.tcl}
{class dynamic.tcl}
{class product.tcl}
{class module.tcl}
{class project baseclass.tcl}
{class project library.tcl}
{class project tclkit.tcl}
{class distro baseclass.tcl}
{class distro snapshot.tcl}
{class distro fossil.tcl}
{class distro git.tcl}
{class subproject baseclass.tcl}
{class subproject binary.tcl}
{class subproject core.tcl}
{class tool.tcl}
} {
lappend loaded $file
set fin [open [file join $here src {*}$file] r]
puts $fout "###\n# START: [file join $file]\n###"
puts $fout [read $fin]
close $fin
puts $fout "###\n# END: [file join $file]\n###"
}
# Provide some cleanup and our final package provide
puts $fout [string map $map {
namespace eval ::%module% {
namespace export *
}
}]
close $fout
###
# Build our pkgIndex.tcl file
###
set fout [open [file join $here pkgIndex.tcl] w]
fconfigure $fout -translation lf
puts $fout [string map $map {###
if {![package vsatisfies [package provide Tcl] %tclversion%]} {return}
package ifneeded %module% %version% [list source [file join $dir %module%.tcl]]
}]
close $fout
|