67745b7f99
They generate hipadaba paths for devices along with the xml description. r1236 | ffr | 2006-11-07 08:34:20 +1100 (Tue, 07 Nov 2006) | 3 lines
21 lines
524 B
Tcl
21 lines
524 B
Tcl
# $Revision: 1.1 $
|
|
# $Date: 2006-11-06 21:34:20 $
|
|
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
|
|
# Last revision by: $Author: ffr $
|
|
|
|
source hipadaba_support.tcl
|
|
#-------------------------------------------------------------------------
|
|
# Install the SICS Hipadaba
|
|
#-------------------------------------------------------------------------
|
|
InstallHdb
|
|
source hipadaba_configuration.tcl
|
|
|
|
proc xhlist {opt args} {
|
|
set fh [open InstXML.tcl];
|
|
set InstXML [read $fh];
|
|
close $fh;
|
|
clientput $InstXML "value"
|
|
}
|
|
publish xhlist spy
|
|
|