Compiled under Redhat Linux<Right

test.tcl

@@ -9,6 +9,9 @@
 
 rename scan stscan
 
+#-------- a home for this, everything else is in relation to this
+set shome /home/koenneck
+
 #set auto_path "/data/koenneck/src/sics/tcl"
 #source $auto_path/tcl8/topsicom.tcl
 
@@ -27,10 +30,10 @@ ServerOption ReadUserPasswdTimeout  7000
 # time to wiat for a user/passwd to be sent from a client. Increase this
 # if there is a problem connecting to a server due to network overload\
 
-ServerOption LogFileDir /data/koenneck/log
+ServerOption LogFileDir $shome/log
 #LogFileDir is the directory where the command log is going
 
-ServerOption LogFileBaseName  /data/koenneck/src/sics/tmp/server
+ServerOption LogFileBaseName  $shome/sics/tmp/server
 # the path and base name of the internal server logfile to which all
 # activity will be logged.
 
@@ -48,7 +51,7 @@ ServerOption InterruptPort 2914
 ServerOption TelnetPort 1301
 ServerOption TelWord    sicslogin
 
-ServerOption DefaultTclDirectory /data/koenneck/src/sics/tcl
+ServerOption DefaultTclDirectory $shome/sics/tcl
 ServerOption DefaultCommandFile  topsicom.tcl
 
 #------ a port for broadcasting UDP messages
@@ -188,7 +191,7 @@ Publish LogBook Spy
 MakeRuenBuffer
 #---------------- TestVariables for Storage 
 VarMake SicsDataPath Text Mugger
-SicsDataPath "/data/koenneck/src/sics/"
+SicsDataPath "$shome/sics/"
 SicsDataPath lock
 VarMake SicsDataPrefix Text Mugger
 SicsDataPrefix test
@@ -203,8 +206,8 @@ VarMake fax    Text User
 VarMake email  Text User
 VarMake sample_mur Float User
 
-MakeDataNumber SicsDataNumber "/data/koenneck/src/sics/danu.dat"
-InitSANS  /data/koenneck/src/sics/sansdict.dic
+MakeDataNumber SicsDataNumber "$shome/sics/danu.dat"
+InitSANS  $shome/sics/sansdict.dic
 #InitDMC
 
 MakeScanCommand  xxxscan counter topsi.hdd recover.bin
@@ -227,15 +230,15 @@ banana CountMode Timer
 #banana configure Counter counter
 banana init
 ClientPut "HM initialized"
-source /data/koenneck/src/sics/tcl/topsicom.tcl
-source /data/koenneck/src/sics/countf.tcl
+source $shome/sics/tcl/topsicom.tcl
+source $shome/sics/countf.tcl
 Publish count User
 Publish repeat user
-source /data/koenneck/src/sics/tcl/cscan.tcl
+source $shome/sics/tcl/cscan.tcl
 Publish cscan User
 Publish sscan User
 Publish sftime Spy
-source /data/koenneck/src/sics/tcl/fit.tcl
+source $shome/sics/tcl/fit.tcl
 Publish fit Spy
 SerialInit
 Publish serialport User
@@ -275,7 +278,7 @@ HKL setub -0.1247023 0.0016176 -0.0413566  \
           -0.1044479 -0.0013264 0.0493878 \
           0.0007513  0.0840941 0.0015745
 MakeOptimise opti counter
-MakeMesure mess HKL xxxscan omega o2t /data/koenneck/src/sics/tmp \
+MakeMesure mess HKL xxxscan omega o2t $shome/sics/tmp \
     SicsDataNumber
 MakeHklscan xxxscan HKL
 
@@ -367,9 +370,9 @@ Publish co User
 
 source helium.tcl
 
-MakeTRICSNEXUS sicsdatanumber /data/koenneck/src/sics/tmp trics.dic
+MakeTRICSNEXUS sicsdatanumber $shome/sics/tmp trics.dic
 
 source autofile.tcl
-autofilepath /data/koenneck/tmp/auto
+autofilepath $shome/tmp/auto
 
 MakeXYTable omth