Cross Reference: /solaris-desktop/scripts/copyright-extractor

Lines Matching refs:line
48     print "         more than one line.\n";
159     my $line;
161     while ($line = <SRCFILE>) {
162 	chomp ($line);
163 	next if $line =~ /^#!/;
164 	if ($line =~ /^[^#]/) {
165 	    # not a comment line
180 	$line =~ s/^#//;
182 	$line =~ s/^\s*-\*-.*-\*-\s*$//;
183 	$line =~ s/^\s\$Id:.*\$\s*$//;
184 	$line =~ s/^\s*vim(:\S+=\S+)+\s*$//;
186 	chomp ($line);
189 	    $blurb = $blurb . "\n" . $line;
190 	} elsif ($line ne '') {
191 	    $blurb = $line;
193 	$line = undef;
213     my $line;
214     while ($line = <SRCFILE>) {
215 	chomp ($line);
217 	    if ($line =~ /\*\//) {
218 		$line =~ s/\*\/.*//;
220 	    } elsif ($line =~ /^\/\//) {
221 		$line =~ s/^\/\///;
222 	    } elsif ($line =~ /^( \*|\*)/) {
223 		$line =~ s/^( \*|\*)//;
226 	    if ($line =~ /^#(define|pragma)/ ) {
227 		if ($line =~ /\/\//) {
228 		    $line =~ s/^.*\/\//\/\//;
229 		} elsif ($line =~ /\/\*/) {
230 		    $line =~ s/^.*\/\*/\/\*/;
235 	    if ($line =~ /^\s*\/\*(.*)\*\//) {
236 		$line =~ s/^\s*\/\*(.*)\*\//$1/g;
237 	    } elsif ($line =~ /^\s*\/\*/) {
239 		$line =~ s/^\s*\/\*//;
240 	    } elsif ($line =~ /^\/\//) {
241 		$line =~ s/^\s*\/\///;
242 	    } elsif ($line eq '') {
261 	$line =~ s/^\s*-\*-.*-\*-\s*$//;
262 	$line =~ s/^\s*vim(:\S+=\S+)+\s*$//;
263 	$line =~ s/^\s\$Id:.*\$\s*$//;
264 	$line =~ s/^\s*\**\s*\\ingroup\s*.*$//;
265 	$line =~ s/^\s*\**\s*\\file\s*.*$//;
266 	$line =~ s/^\s*\**\s*\@-type\@\s*$//;
268 	chomp ($line);
271 	    $blurb = $blurb . "\n" . $line;
272 	} elsif ($line ne '') {
273 	    $blurb = $line;
275 	$line = undef;
294     my $line;
295     while ($line = <SRCFILE>) {
296 	chomp ($line);
298 	    if ($line =~ /"""/) {
299 		$line =~ s/"""//;
301 	    } elsif ($line =~ /#/) {
302 		$line =~ s/^#//;
305 	    if ($line =~ /^\s*"""(.*)"""/) {
306 		$line =~ s/^\s*"""(.*)"""/$1/g;
307 	    } elsif ($line =~ /^\s*r"""(.*)"""/) {
308 		$line =~ s/^\s*r"""(.*)"""/$1/g;
309 	    } elsif ($line =~ /^\s*"""/) {
311 		$line =~ s/^\s*"""//;
312 	    } elsif ($line =~ /^\s*r"""/) {
314 		$line =~ s/^\s*r"""//;
315 	    } elsif ($line =~ /^\/\//) {
316 		$line =~ s/^\s*"""//;
317 	    } elsif ($line eq '') {
336 	$line =~ s/^\s*-\*-.*-\*-\s*$//;
337 	$line =~ s/^\s*vim(:\S+=\S+)+\s*$//;
338 	$line =~ s/^\s\$Id:.*\$\s*$//;
340 	chomp ($line);
343 	    $blurb = $blurb . "\n" . $line;
344 	} elsif ($line ne '') {
345 	    $blurb = $line;
347 	$line = undef;
516     # now save the lines appearing in lines2 before the common line
530     # now save the first common line
533 	    print "DEBUG: 1st common line:\n";
562 		print "DEBUG: common line:\n";
667 	foreach my $line (@merged_lines) {
668 	    if ($line =~ /^\s*(copyright|\(c\)|©|author:|all rights reserved)/i) {
669 		push (@copyright_lines, $line);
671 		push (@non_cr_lines, $line);