Add SICS_Site, SICS_Version and SICS_Revision

r3735 | dcl | 2012-09-17 17:09:48 +1000 (Mon, 17 Sep 2012) | 1 line
This commit is contained in:
Douglas Clowes
2012-09-17 17:09:48 +10:00
parent 6b482b29ec
commit 68edac83fc
2 changed files with 25 additions and 3 deletions

View File

@@ -1300,11 +1300,15 @@ foreach expt $::nexus::exports {
# objects name. It is useful for making links to datasets.
# dim0 = vertical axis on detector
# dim1 = horizontal axis on detector
set tmpstr [string map {"$" ""} {$Name: not supported by cvs2svn $}]
set nx_content_release_tag [lindex $tmpstr [expr [llength $tmpstr] - 1]]
::utility::mkVar sics_site Text manager sics_site true entry true true
sics_site [SplitReply [SICS_Site]]
sics_site lock
::utility::mkVar sics_release Text manager sics_release true entry true true
sics_release $nx_content_release_tag
sics_release [SplitReply [SICS_Version]]
sics_release lock
::utility::mkVar sics_revision Text manager sics_revision true entry true true
sics_revision [SplitReply [SICS_Revision]]
sics_revision lock
set tmpstr [string map {"$" ""} {$Revision: 1.51.2.14 $}]
set nx_content_revision_num [lindex $tmpstr [expr [llength $tmpstr] - 1]]

View File

@@ -69,6 +69,22 @@ extern void AddTCPMBProtocol ();
extern void AddLFGenProtocol();
extern int ANSTO_MakeHistMemory(SConnection *pCon, SicsInterp *pSics, void *pData, int argc, char *argv[]);
int SICS_Site(SConnection *pCon, SicsInterp *pSics, void *pData, int argc, char *argv[])
{
char line[132];
snprintf(line, 132, "SICS_Site = ANSTO");
SCWrite(pCon, line, eValue);
return OKOK;
};
int SICS_Version(SConnection *pCon, SicsInterp *pSics, void *pData, int argc, char *argv[])
{
char line[132];
snprintf(line, 132, "SICS_Version = BRANCH-2.5");
SCWrite(pCon, line, eValue);
return OKOK;
};
int SICS_Revision(SConnection *pCon, SicsInterp *pSics, void *pData, int argc, char *argv[])
{
char line[132];
@@ -125,6 +141,8 @@ static void AddCommands(SicsInterp *pInter)
AddCommand(pInter,"MakeLSSMonitor",LSSFactory,NULL,NULL);
AddCommand(pInter,"MakeActionObject",ActionObjectFactory,NULL,NULL);
AddCommand(pInter,"ANSTO_MakeHM",ANSTO_MakeHistMemory,NULL,NULL);
AddCommand(pInter,"SICS_Site",SICS_Site,NULL,NULL);
AddCommand(pInter,"SICS_Version",SICS_Version,NULL,NULL);
AddCommand(pInter,"SICS_Revision",SICS_Revision,NULL,NULL);
}
/*---------------------------------------------------------------------*/