Lines Matching refs:code
35 # -v verbose, show how code is assembled
207 my $code = <B>;
208 chomp $code;
210 print "code: $code keys: $lhs\n" if $opt_v;
211 $code2val{$code} = $rhs;
216 # code: $code
219 msgid "$code.type"
221 msgid "$code.severity"
223 msgid "$code.description"
225 msgid "$code.response"
227 msgid "$code.impact"
229 msgid "$code.action"
263 my $code;
278 $code = $1;
280 die "$name:$line: no dict entry for code \"$code\"\n"
281 unless defined($code2val{$code});
286 # above checks while reading in file ensured that node code was
289 # exist for each code in the .dict file
290 foreach $code (sort keys %code2val) {
291 die "$name: missing entry for \"$code.type\"\n"
292 unless defined($ids{"$code.type"});
293 die "$name: missing entry for \"$code.severity\"\n"
294 unless defined($ids{"$code.severity"});
295 die "$name: missing entry for \"$code.description\"\n"
296 unless defined($ids{"$code.description"});
297 die "$name: missing entry for \"$code.response\"\n"
298 unless defined($ids{"$code.response"});
299 die "$name: missing entry for \"$code.impact\"\n"
300 unless defined($ids{"$code.impact"});
301 die "$name: missing entry for \"$code.action\"\n"
302 unless defined($ids{"$code.action"});