Improve messages slightly.
This commit is contained in:
@@ -16,7 +16,7 @@ HELP_MESSAGE() if $opt_h;
|
||||
|
||||
$opt_d = "DBR_$opt_d" if $opt_d && $opt_d !~ m/^DBR_/;
|
||||
|
||||
die "No pv name specified. ('caget -h' for help.)\n"
|
||||
die "No pv name specified. ('caget -h' gives help.)\n"
|
||||
unless @ARGV;
|
||||
|
||||
my @chans = map { CA->new($_); } @ARGV;
|
||||
|
||||
@@ -13,7 +13,7 @@ $Getopt::Std::OUTPUT_HELP_VERSION = 1;
|
||||
HELP_MESSAGE() unless getopts('hw:');
|
||||
HELP_MESSAGE() if $opt_h;
|
||||
|
||||
die "No pv name specified. ('cainfo -h' for help.)\n"
|
||||
die "No pv name specified. ('cainfo -h' gives help.)\n"
|
||||
unless @ARGV;
|
||||
|
||||
my @chans = map { CA->new($_); } @ARGV;
|
||||
|
||||
@@ -14,7 +14,7 @@ $Getopt::Std::OUTPUT_HELP_VERSION = 1;
|
||||
HELP_MESSAGE() unless getopts('0:C:e:f:g:hm:nsw:');
|
||||
HELP_MESSAGE() if $opt_h;
|
||||
|
||||
die "No pv name specified. ('camonitor -h' for help.)\n"
|
||||
die "No pv name specified. ('camonitor -h' gives help.)\n"
|
||||
unless @ARGV;
|
||||
|
||||
my %monitors;
|
||||
@@ -107,11 +107,11 @@ sub HELP_MESSAGE {
|
||||
" -w <sec>: Wait time, specifies longer CA timeout, default is $opt_w second\n",
|
||||
" -m <mask>: Specify CA event mask to use, with <mask> being any combination of\n",
|
||||
" 'v' (value), 'a' (alarm), 'l' (log). Default: '$opt_m'\n",
|
||||
"Timestamps:\n",
|
||||
" Default: Print absolute timestamps (as reported by CA)\n",
|
||||
" -r: Relative timestamps (time elapsed since start of program)\n",
|
||||
" -i: Incremental timestamps (time elapsed since last update)\n",
|
||||
" -I: Incremental timestamps (time elapsed since last update for this channel)\n",
|
||||
# "Timestamps:\n",
|
||||
# " Default: Print absolute timestamps (as reported by CA)\n",
|
||||
# " -r: Relative timestamps (time elapsed since start of program)\n",
|
||||
# " -i: Incremental timestamps (time elapsed since last update)\n",
|
||||
# " -I: Incremental timestamps (time elapsed since last update for this channel)\n",
|
||||
"Enum format:\n",
|
||||
" -n: Print DBF_ENUM values as number (default are enum string values)\n",
|
||||
"Arrays: Value format: print number of values, then list of values\n",
|
||||
|
||||
@@ -14,11 +14,11 @@ $Getopt::Std::OUTPUT_HELP_VERSION = 1;
|
||||
HELP_MESSAGE() unless getopts('achlnstw:');
|
||||
HELP_MESSAGE() if $opt_h;
|
||||
|
||||
die "No pv name specified. ('caput -h' for help.)\n"
|
||||
die "No pv name specified. ('caput -h' gives help.)\n"
|
||||
unless @ARGV;
|
||||
my $pv = shift;
|
||||
|
||||
die "No value specified. ('caput -h' for help.)\n"
|
||||
die "No value specified. ('caput -h' gives help.)\n"
|
||||
unless @ARGV;
|
||||
|
||||
my $chan = CA->new($pv);
|
||||
|
||||
Reference in New Issue
Block a user