Improve messages slightly.

This commit is contained in:
Andrew Johnson
2008-09-23 19:50:58 +00:00
parent 7850ab921a
commit efa69eda5c
4 changed files with 10 additions and 10 deletions

View File

@@ -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;

View File

@@ -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;

View File

@@ -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",

View File

@@ -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);