/usr/share/tcltk/tcllib1.17/nettool/nettool.tcl is in tcllib 1.17-dfsg-1.
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 | # @mdgen OWNER: generic.tcl
# @mdgen OWNER: available_ports.tcl
# @mdgen OWNER: locateport.tcl
# @mdgen OWNER: platform_*.tcl
package provide nettool 0.4
package require platform
# Uses the "ip" package from tcllib
package require ip
if {[info command ::ladd] eq {}} {
proc ::ladd {varname args} {
upvar 1 $varname var
if ![info exists var] {
set var {}
}
foreach item $args {
if {$item in $var} continue
lappend var $item
}
return $var
}
}
if {[info command ::get] eq {}} {
proc ::get varname {
upvar 1 $varname var
if {[info exists var]} {
return [set var]
}
return {}
}
}
if {[info command ::cat] eq {}} {
proc ::cat filename {
set fin [open $filename r]
set dat [read $fin]
close $fin
return $dat
}
}
set here [file dirname [file normalize [info script]]]
::namespace eval ::nettool {}
set genus [lindex [split [::platform::generic] -] 0]
dict set ::nettool::platform tcl_os $::tcl_platform(os)
dict set ::nettool::platform odie_class $::tcl_platform(platform)
dict set ::nettool::platform odie_genus $genus
dict set ::nettool::platform odie_target [::platform::generic]
dict set ::nettool::platform odie_species [::platform::identify]
source [file join $here generic.tcl]
source [file join $here available_ports.tcl]
source [file join $here locateport.tcl]
set platfile [file join $here platform_$::tcl_platform(platform).tcl]
if {[file exists $platfile]} {
source $platfile
}
set genfile [file join $here platform_$::tcl_platform(platform)_$genus.tcl]
if {[file exists $genfile]} {
source $genfile
}
::nettool::init
|