Lines Matching refs:clause
1256 foreach my $clause (@def_args) {
1257 $clause =~ s/^\s+//;
1258 $clause =~ s/\s+$//;
1259 $clause =~ s/\s+/ /;
1260 next if (!$clause);
1261 $level-- if ($clause =~ m/(\})/ && $level > 1);
1262 if (!($clause =~ m/^\s*#/)) {
1265 $declaration .= "\t" . $clause . "\n";
1266 $level++ if ($clause =~ m/(\{)/ && !($clause =~m/\}/));