| kernel-doc (4ba24fef3eb3b142197135223b90ced2f319cd53) | kernel-doc (2e106e4df28aa264f9ded7e5be3733224f2e4f93) |
|---|---|
| 1#!/usr/bin/perl -w 2 3use strict; 4 5## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ## 6## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ## 7## Copyright (C) 2001 Simon Huggins ## 8## Copyright (C) 2005-2012 Randy Dunlap ## --- 2573 unchanged lines hidden (view full) --- 2582 } 2583} 2584 2585 2586$kernelversion = get_kernel_version(); 2587 2588# generate a sequence of code that will splice in highlighting information 2589# using the s// operator. | 1#!/usr/bin/perl -w 2 3use strict; 4 5## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ## 6## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ## 7## Copyright (C) 2001 Simon Huggins ## 8## Copyright (C) 2005-2012 Randy Dunlap ## --- 2573 unchanged lines hidden (view full) --- 2582 } 2583} 2584 2585 2586$kernelversion = get_kernel_version(); 2587 2588# generate a sequence of code that will splice in highlighting information 2589# using the s// operator. |
| 2590foreach my $pattern (keys %highlights) { | 2590foreach my $pattern (sort keys %highlights) { |
| 2591# print STDERR "scanning pattern:$pattern, highlight:($highlights{$pattern})\n"; 2592 $dohighlight .= "\$contents =~ s:$pattern:$highlights{$pattern}:gs;\n"; 2593} 2594 2595# Read the file that maps relative names to absolute names for 2596# separate source and object directories and for shadow trees. 2597if (open(SOURCE_MAP, "<.tmp_filelist.txt")) { 2598 my ($relname, $absname); --- 21 unchanged lines hidden --- | 2591# print STDERR "scanning pattern:$pattern, highlight:($highlights{$pattern})\n"; 2592 $dohighlight .= "\$contents =~ s:$pattern:$highlights{$pattern}:gs;\n"; 2593} 2594 2595# Read the file that maps relative names to absolute names for 2596# separate source and object directories and for shadow trees. 2597if (open(SOURCE_MAP, "<.tmp_filelist.txt")) { 2598 my ($relname, $absname); --- 21 unchanged lines hidden --- |