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

Handle cases when only the cvs key value is set for $Revision:$ and $Name:$

Browse Source 
r1735 | ffr | 2007-03-28 13:04:29 +1000 (Wed, 28 Mar 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-03-28 13:04:29 +10:00
committed by Douglas Clowes
parent b2706c74cf
commit 932bf1bf18
2 changed files with 10 additions and 6 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,7 +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 nx_content_release_tag [lindex [string map {"$" ""} {$Name: not supported by cvs2svn $}] 1] set tmpstr [string map {"$" ""} {$Name: not supported by cvs2svn $}]
set nx_content_revision_num [lindex [string map {"$" ""} {$Revision: 1.7 $}] 1] set nx_content_release_tag [lindex $tmpstr [llength $tmpstr]]
set tmpstr [string map {"$" ""} {$Revision: 1.8 $}]
set nx_content_release_tag [lindex $tmpstr [llength $tmpstr]]
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.20 $ # $Revision: 1.21 $
# $Date: 2007-03-28 01:55:39 $ # $Date: 2007-03-28 03:04:29 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au) # Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by $Author: ffr $ # Last revision by $Author: ffr $
@@ -46,11 +46,13 @@ SicsDataPrefix [SplitReply [Instrument]]
SicsDataPrefix lock SicsDataPrefix lock
VarMake sics_release Text Internal VarMake sics_release Text Internal
sics_release [lindex [string map {"$" ""} {$Name: not supported by cvs2svn $}] 1] set tmpstr [string map {"$" ""} {$Name: not supported by cvs2svn $}]
sics_release [lindex $tmpstr [llength $tmpstr]]
sics_release lock sics_release lock
VarMake sics_revision_num Text Internal VarMake sics_revision_num Text Internal
sics_revision_num [lindex [string map {"$" ""} {$Revision: 1.20 $}] 1] set tmpstr [string map {"$" ""} {$Revision: 1.21 $}]
sics_revision_num [lindex $tmpstr [llength $tmpstr]]
sics_revision_num lock sics_revision_num lock
VarMake SicsDataPath Text Internal VarMake SicsDataPath Text Internal