File: AppMain.tcl

package info (click to toggle)
amsn 0.98.9-1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 34,976 kB
  • ctags: 10,387
  • sloc: tcl: 122,014; ansic: 32,228; cpp: 17,363; xml: 6,681; objc: 1,251; sh: 825; makefile: 498; perl: 215; python: 126
file content (20 lines) | stat: -rwxr-xr-x 520 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/env wish
# MacOS X AMSN wrapper 

#Set variable program_dir
set program_dir [file dirname [info script]]
set program [file tail [info script]]

while {[catch {file readlink [file join $program_dir $program]} program]== 0} {
	if {[file pathtype $program] == "absolute"} {
		set program_dir [file dirname $program]
	} else {
		set program_dir [file join $program_dir [file dirname $program]]
	}

	set program [file tail $program]
}

unset program
#Source the main file, amsn
source [file join $program_dir amsn]