Lines Matching refs:oneline
46 my $oneline = $1;
48 pre2par::remover::remove_leading_and_ending_whitespaces(\$oneline);
49 $oneline = $oneline . "\n";
50 push(@{$parfile}, $oneline);
80 my $oneline = ${$prefile}[$i];
81 if ( $oneline =~ /\;\s*\w+/ )
83 split_line($oneline, \@newprefile);
87 push(@newprefile, $oneline);
113 my $oneline = ${$prefile}[$i];
117 if ( $oneline =~ /^\s*\}\;\s*$/ )
123 push(@parfile, $oneline);
128 if ( $oneline =~ /^\s*$/ ) { next; }
130 if ( $oneline =~ /^\s*Code\s+\=\s+\{/ )
135 pre2par::remover::remove_leading_and_ending_whitespaces(\$oneline);
139 if ( $oneline =~ /^\s*End\s*$/i ) { $insertemptyline = 1; }
143 if ( $oneline =~ /^\s*(\w+\s+\w+)\s+(\w+\s+\=.*$)/ ) # three words before the equal sign
146 $oneline = $2;
152 if ( $oneline =~ /\;\s*\w+/ )
154 split_line($oneline, \@parfile);
160 if ( $oneline =~ /^\s*\w+\s+\=\s*\(.*\)\s*\;\s*$/ ) # only one line
162 …if (( ! ( $oneline =~ /^\s*Assignment\d+\s*\=/ )) && ( ! ( $oneline =~ /^\s*PatchAssignment\d+\s*\…
164 $oneline =~ s/\s//g; # removing whitespaces in lists
165 $oneline =~ s/\=/\ \=\ /; # adding whitespace around equals sign
169 if ( $oneline =~ /^\s*\w+\s+\=\s*$/ )
171 $oneline =~ s/\s*$//;
172 …am("Error: Illegal syntax, no line break after eqals sign allowed. Line: \"$oneline\"", "convert");
175 if (( $oneline =~ /^\s*\w+\s+\=\s*\(/ ) && (!( $oneline =~ /\)\s*\;\s*$/ ))) # several lines
178 $oneline =~ s/\s//g;
179 $globalline .= $oneline;
185 $oneline =~ s/\s//g;
186 $globalline .= $oneline;
188 if ( $oneline =~ /\)\s*\;\s*$/ ) { $ismultiliner = 0; }
201 $oneline = $oneline . "\n";
203 $oneline =~ s/\s*\=\s*/ \= /; # nice, to have only one whitespace around equal signs
206 while ($oneline =~
217 push(@parfile, $oneline);
242 my $oneline = ${$parfile}[$i];
249 if ( $oneline =~ /^\s*$pre2par::globals::allitems[$j]\s+\w+\s*$/ )
265 if ( $oneline =~ /^\s*end\s*$/i )
273 $oneline = "\t" . $oneline;
274 ${$parfile}[$i] = $oneline;