epics/utilities
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

debugged

Browse Source
This commit is contained in:
zimoch
2002-12-17 17:34:49 +00:00
parent 60fc18d421
commit ebdc5d3da7
1 changed files with 31 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
ca
View File

@@ -1,6 +1,10 @@
#!/usr/bin/tclsh --
# $Id: ca,v 1.5 2002/12/17 17:24:47 zimoch Exp $
#!/usr/bin/tclsh
# $Id: ca,v 1.6 2002/12/17 17:34:49 zimoch Exp $
# $Source: /cvs/G/EPICS/App/scripts/ca,v $
# $Log: ca,v $
# Revision 1.6 2002/12/17 17:34:49 zimoch
# debugged
#
# Revision 1.5 2002/12/17 17:24:47 zimoch
# help added
#
@@ -9,8 +13,6 @@
#
#
HEADER="$Header: /cvs/G/EPICS/App/scripts/ca,v 1.5 2002/12/17 17:24:47 zimoch Exp $"
set auto_path [concat $env(SLSBASE)/lib/tcl $auto_path]
package require Epics
@@ -29,31 +31,34 @@ while {[string match "-*" [lindex $argv 0]]} {
set argv [lrange $argv 1 end]
}
if {[lsearch $flags -regexp -- {-(v(er(sion)?)?)}]} {
puts {\$Source: /cvs/G/EPICS/App/scripts/ca,v $}
puts {\$Revision: 1.5 $}
puts {\$Date: 2002/12/17 17:24:47 $}
if {[lsearch -regexp $flags {-(v(er(sion)?)?)}] != -1} {
puts "ca* by Dirk Zimoch"
puts [string trim {$Source: /cvs/G/EPICS/App/scripts/ca,v $} $]
puts [string trim {$Revision: 1.6 $} $]
puts [string trim {$Date: 2002/12/17 17:34:49 $} $]
exit
}
if {[lsearch $flags -regexp -- {-(\?)|(h(elp)?)}] || [llength $argv] == 0} {
puts "usage: caget [flags] <channel> [<channel> ...]"
puts " caput [flags] <channel> <value> [<channel> <value> ...]"
puts " cainfo [flags] <channel> [<channel> ...]"
puts " camon [flags] <channel> [<channel> ...]"
puts " cado [flags] <channel> [<channel> ...]"
puts " cagets [flags] <channel> [<channel> ...]\n"
puts "caget reads and formats values from channels (arrays too)"
puts "caput writes, waits until processing finishes and reads back"
puts "cainfo reads additional information"
puts "camon starts monitors (terminate with CTRL-C)"
puts "cado writes 1 and does not wait"
puts "cagets writes 1 to .PROC and reads after processing has finished\n"
puts "accepted flags:"
puts "-date add record execution date"
puts "-localdate add host date"
puts "-time add record execution time"
puts "-localtime add host time"
if {[lsearch -regexp $flags {-(\?)|(h(elp)?)}] != -1 || [llength $argv] == 0} {
puts {usage: caget [flags] <channel> [<channel> ...]}
puts { caput [flags] <channel> <value> [<channel> <value> ...]}
puts { cainfo [flags] <channel> [<channel> ...]}
puts { camon [flags] <channel> [<channel> ...]}
puts { cado [flags] <channel> [<channel> ...]}
puts { cagets [flags] <channel> [<channel> ...]
}
puts {caget reads and formats values from channels (arrays too)}
puts {caput writes, waits until processing finishes and reads back}
puts {cainfo reads additional information}
puts {camon starts monitors (terminate with CTRL-C)}
puts {cado writes 1 and does not wait}
puts {cagets writes 1 to .PROC and reads after processing has finished
}
puts {accepted flags:}
puts {-date add record execution date}
puts {-localdate add host date}
puts {-time add record execution time}
puts {-localtime add host time}
exit
}