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:
@@ -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]]
|
||||
|
||||
@@ -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);
|
||||
}
|
||||
/*---------------------------------------------------------------------*/
|
||||
|
||||
Reference in New Issue
Block a user