Lines Matching refs:defval
15 if (($name, $defval) = split(/\s+=\s+/, $_, 2)) {
16 $defval =~ s/&/\&/g;
17 $defval =~ s/</\</g;
18 $defval =~ s/>/\>/g;
19 $defval =~ s/\s+$//;
20 $defaults{$name} = $defval;
81 $name = $defval = $text = $line = "";
90 $defval = $defaults{$name} if (defined($defaults{$name}));
91 print "%PARAM $name $defval\n";
97 $name = $defval = $text = $line = "";
105 ($junk, $class, $name, $defval) = split(/\s+/, $line, 4);
119 $defval = $defaults{$name} if (defined($defaults{$name}));
120 print "%PARAM $name $defval\n$text";