1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#----------------------------------------------------------------------
#
# calendar.tcl --
#
# This file is the main 'package provide' script for the
# 'calendar' package. The package provides various commands for
# manipulating dates and times.
package require Tcl 8.5 9
namespace eval ::calendar {
variable home [file join [pwd] [file dirname [info script]]]
if { [lsearch -exact $::auto_path $home] == -1 } {
lappend ::auto_path $home
}
package provide [namespace tail [namespace current]] 0.4
}
|
