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

allow SLS style module loading

Browse Source
This commit is contained in:
zimoch
2010-10-12 08:49:17 +00:00
parent ab6a6b730d
commit cc1bb004f2
1 changed files with 29 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
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 global debug records protocol startup port sock ioc testname env slsstyle streamversion
set fd [open test.db w] set fd [open test.db w]
puts $fd $records puts $fd $records
close $fd close $fd
@ -49,9 +49,19 @@ proc startioc {} {
puts $fd $protocol puts $fd $protocol
close $fd close $fd
set fd [open test.cmd w 0777] set fd [open test.cmd w 0777]
puts $fd "#!../O.$env(EPICS_HOST_ARCH)/streamApp"
puts $fd "dbLoadDatabase ../O.Common/streamApp.dbd" if {$slsstyle} {
puts $fd "streamApp_registerRecordDeviceDriver" puts $fd "#!/usr/local/bin/iocsh"
if [info exists streamversion] {
puts $fd "require stream,$streamversion"
} else {
puts $fd "require stream"
}
} else {
puts $fd "#!../O.$env(EPICS_HOST_ARCH)/streamApp"
puts $fd "dbLoadDatabase ../O.Common/streamApp.dbd"
puts $fd "streamApp_registerRecordDeviceDriver"
}
puts $fd "epicsEnvSet STREAM_PROTOCOL_PATH ." puts $fd "epicsEnvSet STREAM_PROTOCOL_PATH ."
puts $fd "drvAsynIPPortConfigure device localhost:$port" puts $fd "drvAsynIPPortConfigure device localhost:$port"
puts $fd "dbLoadRecords test.db" puts $fd "dbLoadRecords test.db"
@ -61,7 +71,11 @@ proc startioc {} {
puts $fd "dbior stream 2" puts $fd "dbior stream 2"
puts $fd "var streamDebug 1" puts $fd "var streamDebug 1"
close $fd close $fd
set ioc [open "|../O.$env(EPICS_HOST_ARCH)/streamApp test.cmd >& $testname.ioclog 2>@stderr" w] if $slsstyle {
set ioc [open "|iocsh test.cmd >& $testname.ioclog 2>@stderr" w]
} else {
set ioc [open "|../O.$env(EPICS_HOST_ARCH)/streamApp test.cmd >& $testname.ioclog 2>@stderr" w]
}
fconfigure $ioc -blocking yes -buffering none fconfigure $ioc -blocking yes -buffering none
debugmsg "waiting to connect" debugmsg "waiting to connect"
vwait sock vwait sock
@ -178,3 +192,13 @@ proc finish {} {
set port 40123 set port 40123
socket -server deviceconnect $port socket -server deviceconnect $port
set inputlog [open "test.inputlog" w] set inputlog [open "test.inputlog" w]
set slsstyle 0
if {[lindex $argv 0] == "--sls"} {
set argv [lrange $argv 1 end]
set slsstyle 1
}
if {[lindex $argv 0] == "--ver"} {
set streamversion [lindex $argv 1]
set argv [lrange $argv 2 end]
}