linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ensure zero offset for index into cvs keyword list values.

Browse Source 
r1737 | ffr | 2007-03-28 13:24:36 +1000 (Wed, 28 Mar 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-03-28 13:24:36 +10:00
committed by Douglas Clowes
parent ee3fc81807
commit fd8e8a6a3f
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
site_ansto/instrument/config/nexus/nxscripts_common_1.tcl
View File

@@ -1,9 +1,9 @@
# TODO Return filename from nxcreatefile and call nxreopen nxclose etc # TODO Return filename from nxcreatefile and call nxreopen nxclose etc
# with filename # with filename
set tmpstr [string map {"$" ""} {$Name: not supported by cvs2svn $}] set tmpstr [string map {"$" ""} {$Name: not supported by cvs2svn $}]
set nx_content_release_tag [lindex $tmpstr [llength $tmpstr]] set nx_content_release_tag [lindex $tmpstr [expr [llength $tmpstr] - 1]]
set tmpstr [string map {"$" ""} {$Revision: 1.9 $}] set tmpstr [string map {"$" ""} {$Revision: 1.10 $}]
set nx_content_revision_num [lindex $tmpstr [llength $tmpstr]] set nx_content_revision_num [lindex $tmpstr [expr [llength $tmpstr] - 1]]
MakeNXScript MakeNXScript
sicsdatafactory new nxscript_data sicsdatafactory new nxscript_data

10
site_ansto/instrument/server_config.tcl
View File

@@ -1,7 +1,7 @@
# SICS common configuration # SICS common configuration
# $Revision: 1.21 $ # $Revision: 1.22 $
# $Date: 2007-03-28 03:04:29 $ # $Date: 2007-03-28 03:24:36 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au) # Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by $Author: ffr $ # Last revision by $Author: ffr $
@@ -47,12 +47,12 @@ SicsDataPrefix lock
VarMake sics_release Text Internal VarMake sics_release Text Internal
set tmpstr [string map {"$" ""} {$Name: not supported by cvs2svn $}] set tmpstr [string map {"$" ""} {$Name: not supported by cvs2svn $}]
sics_release [lindex $tmpstr [llength $tmpstr]] sics_release [lindex $tmpstr [expr [llength $tmpstr] - 1]]
sics_release lock sics_release lock
VarMake sics_revision_num Text Internal VarMake sics_revision_num Text Internal
set tmpstr [string map {"$" ""} {$Revision: 1.21 $}] set tmpstr [string map {"$" ""} {$Revision: 1.22 $}]
sics_revision_num [lindex $tmpstr [llength $tmpstr]] sics_revision_num [lindex $tmpstr [expr [llength $tmpstr] - 1]]
sics_revision_num lock sics_revision_num lock
VarMake SicsDataPath Text Internal VarMake SicsDataPath Text Internal