Project CMSSW displayed by LXR |
|
|
|
|||
File indexing completed on 2024-10-17 22:59:07
0001 #!/usr/bin/perl 0002 0003 open (F, $ARGV[0]) or die "can not open $ARGV[0]"; 0004 0005 while (my $l = <F>) 0006 { 0007 if ($l =~ m/^#include "(.*\.ah)"/) 0008 { 0009 my $if = $1; 0010 print "// BEGIN include $if\n\n"; 0011 open I, $if or die "can not open $if"; 0012 local $/; 0013 my $i = <I>; 0014 close I; 0015 printf $i; 0016 printf "// END include $if\n\n"; 0017 } 0018 else 0019 { 0020 print $l; 0021 } 0022 } 0023 0024 # ./inplace-ahs.pl PropagationMPlex.icc-orig > PropagationMPlex.icc 0025 # ./inplace-ahs.pl PropagationMPlex.cc-orig > PropagationMPlex.cc
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.2.1 LXR engine. The LXR team |
|