Lines Matching refs:_
50 print STDERR "$PROGNAME: ", join(" ", @_), "\n";
55 print STDERR "$PROGNAME: $::infile: $.: ", join(" ", @_), "\n";
67 my ($drop) = @_;
93 my ($line) = @_;
101 my ($instance, $line) = @_;
129 my $arrnm = "ao_error_disp_" . $_[0];
140 my ($ereport_name) = @_;
158 my $name = $_[0];
159 my @bits = @_[1..$#_];
177 my ($field, $valuesref, $name, $prefix) = @_;
184 if (!defined ${$valuesref}{$_}) {
187 $_ = ${$valuesref}{$_};
189 $prefix . "_" . $_;
194 my $bin = $_[0];
205 my $val = $_[0];
217 my $desc = $_[0];
225 $::error = $_[0];
230 @::mask_on = map { tr/[a-z]/[A-Z]/; $_; } split(/,\s*/, $_[0]);
234 my @mask_off = map { tr/[a-z]/[A-Z]/; $_; } split(/,\s*/, $_[0]);
242 split(/\s+/, $_[0]);
366 my @vals = split(/,\s*/, $_[0]);
371 @vals = map { tr/[a-z]/[A-Z]/; "AO_AED_PANIC_" . $_; } @vals;
377 my @flags = split(/,\s*/, $_[0]);
379 @flags = map { tr/[a-z]/[A-Z]/; "AO_AED_F_" . $_; } @flags;
385 my @types = split(/,\s*/, $_[0]);
387 @types = map { tr/[a-z]/[A-Z]/; "AO_AED_ET_" . $_; } @types;