/usr/share/saods9/src/external.tcl is in saods9-data 7.3.2+repack-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 | # Copyright (C) 1999-2014
# Smithsonian Astrophysical Observatory, Cambridge, MA, USA
# For conditions of distribution and use, see copyright notice in "copyright"
package provide DS9 1.0
proc InitExternalFile {} {
global ds9
if {[file exists "./$ds9(ext,file)"]} {
ProcessExternalFile "./$ds9(ext,file)"
} elseif {[file exists "./$ds9(ext,alt)"]} {
ProcessExternalFile "./$ds9(ext,alt)"
} elseif {[file exists "~/$ds9(ext,file)"]} {
ProcessExternalFile "~/$ds9(ext,file)"
} elseif {[file exists "~/$ds9(ext,alt)"]} {
ProcessExternalFile "~/$ds9(ext,alt)"
}
}
proc ProcessExternalFile {fn} {
global extFits
set status 1
if [file exists "$fn"] {
set id [open $fn r]
while {[gets $id line] >= 0} {
# empty line
if {[string length $line] == 0} continue
# comments
if {[string range $line 0 0] == "\#"} continue
# else
switch -- $status {
1 {
# eat the line
set template {}
set status 2
}
2 {
set template "$line"
set status 3
}
3 {
# eat the line
set status 4
}
4 {
if {"$template" != {} && "$line" != {}} {
foreach t $template {
set extFits($t) "$line"
}
}
set status 1
}
}
}
close $id
}
}
|