EPICS_driver_modules/StreamDevice
0
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

allow selecting asyn version

Browse Source
This commit is contained in:
zimoch
2013-04-24 14:27:39 +00:00
parent e88a327957
commit 63f680bdc1
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
streamApp/tests/streamtestlib.tcl
View File

@ -41,7 +41,7 @@ proc receiveHandler {sock} {
} }
proc startioc {} { proc startioc {} {
global debug records protocol startup port sock ioc testname env streamversion global debug records protocol startup port sock ioc testname env streamversion asynversion
set fd [open test.db w] set fd [open test.db w]
puts $fd $records puts $fd $records
close $fd close $fd
@ -52,6 +52,9 @@ proc startioc {} {
if [info exists streamversion] { if [info exists streamversion] {
puts $fd "#!/usr/local/bin/iocsh" puts $fd "#!/usr/local/bin/iocsh"
if [info exists asynversion] {
puts $fd "require asyn,$asynversion"
}
puts $fd "require stream2,$streamversion" puts $fd "require stream2,$streamversion"
} else { } else {
puts $fd "#!../O.$env(EPICS_HOST_ARCH)/streamApp" puts $fd "#!../O.$env(EPICS_HOST_ARCH)/streamApp"
@ -202,3 +205,7 @@ if {[lindex $argv 0] == "-sls"} {
set streamversion [lindex $argv 1] set streamversion [lindex $argv 1]
set argv [lrange $argv 2 end] set argv [lrange $argv 2 end]
} }
if {[lindex $argv 0] == "-asyn"} {
set asynversion [lindex $argv 1]
set argv [lrange $argv 2 end]
}