Lines Matching refs:dictval
93 my $dictval = shift;
103 die "dictval $dictval converts to " . sprintf("%d", $dictval) .
104 " (integer overflow?)\n" if sprintf("%d", $dictval) ne $dictval;
115 print " Dictval: " . sprintf("%d", $dictval) . ": " if $opt_v;
118 if ($dictval < 2097152) {
131 die "dictval $dictval too big for Perl on this machine\n";
132 } elsif ($dictval < 274880004096) {
134 $dictval -= 2097152;
142 "(adjusted dictval $dictval)\n";
147 die "dictval $dictval too big for Perl on this machine\n";
148 } elsif ($dictval < 36029071898968064) {
150 $dictval -= 274880004096;
158 "(adjusted dictval $dictval)\n";
163 $dictval -= 36029071898968064;
171 "(adjusted dictval $dictval)\n";
190 $dictval = sprintf($Dictvalformat[$codelen], $dictval);
191 print " Dictval: $dictval\n" if $opt_v;
192 die "binary dictval is " . length($dictval) .
194 if length($dictval) != $Dictvalbits[$codelen];
195 $bits .= $dictval;
349 my $dictval = shift;
350 usage unless defined($dictname) && defined($dictval);
353 print "SUNW-MSG-ID: " . buildcode($dictname, $dictval) . "\n";
355 print buildcode($dictname, $dictval) . "\n";