Lines Matching refs:line
35 my $line;
45 while ($line = <INPUTFILE>)
48 if ($line =~ m/.*Project: *NitroSDK.*$/)
50 $line =~ s/NitroSDK/TwlSDK/;
54 if ($line =~ m/.*Copyright [0-9]+.*$/)
56 my $start = $line;
62 $line =~ s/Copyright [0-9\-,]+/Copyright $now/;
66 $line =~ s/Copyright [0-9\-,]+/Copyright $start/;
71 if ($line =~ m/\${1}Log.*\$/) # Verbose expression so this won't mistakenly convert itself
73 my $prefix = $line;
74 my $suffix = $line;
78 if ($line =~ m/.*\r\n$/)
91 while ($line = <INPUTFILE>)
93 if ((index($line, $prefix, 0) == 0) && ($line =~ m/.*Revision [0-9\.]+.*/))
95 while ($line = <INPUTFILE>)
97 $line =~ s/\r?\n$//;
98 if (length($line) <= length($prefix))
104 if ($line =~ m/\${1}NoKeywords.*\$/)
118 …if ($line =~ m/\${1}NoKeywords.*\$/) # Redundant expression so this won't mistakenly convert itsel…
124 print OUTPUTFILE $line;