Lines Matching refs:clause
1318 foreach my $clause (@def_args) {
1319 $clause =~ s/^\s+//;
1320 $clause =~ s/\s+$//;
1321 $clause =~ s/\s+/ /;
1322 next if (!$clause);
1323 $level-- if ($clause =~ m/(\})/ && $level > 1);
1324 if (!($clause =~ m/^\s*#/)) {
1327 $declaration .= "\t" . $clause . "\n";
1328 $level++ if ($clause =~ m/(\{)/ && !($clause =~m/\}/));