help added

ca

@@ -1,10 +1,16 @@
-#!/usr/bin/tclsh
-# $Id: ca,v 1.4 2002/10/02 08:38:10 zimoch Exp $
+#!/usr/bin/tclsh --
+# $Id: ca,v 1.5 2002/12/17 17:24:47 zimoch Exp $
 # $Log: ca,v $
+# Revision 1.5  2002/12/17 17:24:47  zimoch
+# help added
+#
 # Revision 1.4  2002/10/02 08:38:10  zimoch
 # Original DELTA version with CVS tags
 #
 #
+
+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
 
@@ -23,6 +29,33 @@ 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 $}
+    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"
+    exit
+}
 
 proc bgerror {msg} {
     global errorInfo