blob: c2324706994bc3baf759853ae41336cb177caf12 (
plain)
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
|
--- a/nagelfar.tcl
+++ b/nagelfar.tcl
@@ -34,32 +34,13 @@
# This variable should be overwritten by the build process
set version "Version ??? ???"
-# Allow thisScript to be predefined (used for test)
-if {![info exists thisScript]} {
- set thisScript [file normalize [file join [pwd] [info script]]]
-}
-set thisDir [file dirname $thisScript]
+# This makes it possible to customize where files are installed
+set dbDir /usr/lib/nagelfar
+set docDir /usr/share/doc/nagelfar
+set libDir /usr/lib/nagelfar/lib
-# Follow any link
-set tmplink $thisScript
-while {[file type $tmplink] == "link"} {
- set tmplink [file readlink $tmplink]
- set tmplink [file normalize [file join $thisDir $tmplink]]
- set thisDir [file dirname $tmplink]
-}
-unset tmplink
+lappend auto_path $libDir
-# This makes it possible to customize where files are installed
-set dbDir $thisDir
-set docDir $thisDir/doc
-set libDir $thisDir/lib
-
-# Search where the script is, to be able to place e.g. ctext there.
-if {[info exists ::starkit::topdir]} {
- lappend auto_path [file dirname [file normalize $::starkit::topdir]]
-} else {
- lappend auto_path $libDir
-}
set version "Version 1.3.1 2019-08-23"
#----------------------------------------------------------------------
# Nagelfar, a syntax checker for Tcl.
|