/usr/share/tcltk/tcllib1.14/math/math.tcl is in tcllib 1.14-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 | # math.tcl --
#
# Main 'package provide' script for the package 'math'.
#
# Copyright (c) 1998-2000 by Ajuba Solutions.
# Copyright (c) 2002 by Kevin B. Kenny. All rights reserved.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: math.tcl,v 1.23 2009/12/04 17:37:47 andreas_kupries Exp $
package require Tcl 8.2 ;# uses [lindex $l end-$integer]
# @mdgen OWNER: tclIndex
# @mdgen OWNER: misc.tcl
# @mdgen OWNER: combinatorics.tcl
namespace eval ::math {
variable version 1.2.5
# misc.tcl
namespace export cov fibonacci integrate
namespace export max mean min
namespace export product random sigma
namespace export stats sum
namespace export expectDouble expectInteger
# combinatorics.tcl
namespace export ln_Gamma factorial choose
namespace export Beta
# Set up for auto-loading
if { ![interp issafe {}]} {
variable home [file join [pwd] [file dirname [info script]]]
if {[lsearch -exact $::auto_path $home] == -1} {
lappend ::auto_path $home
}
} else {
source [file join [file dirname [info script]] misc.tcl]
source [file join [file dirname [info script]] combinatorics.tcl]
}
package provide [namespace tail [namespace current]] $version
}
|