Changeset 14389
- Timestamp:
- 2022-04-10T23:09:14Z (4 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/c17_branch/source/list_headers.pl
r919 r14389 1 1 #!/usr/bin/perl 2 # program to find out the C files using the header(.h) files.2 # program to find out the C++ files using the header(.h) files. 3 3 4 4 # this will be list of headers 5 5 $hfiles='headers.txt'; 6 6 7 # List of header files and C files using them7 # List of header files and C++ files using them 8 8 $result='listfiles.list'; 9 9 … … 29 29 print LFILE "$header"; 30 30 $header=~s/\n//; 31 while(defined($input=glob("*. cpp"))) #Scanning through the Cfiles31 while(defined($input=glob("*.h *.cpp"))) #Scanning through the C++ files 32 32 { 33 next if $header eq $input; 33 34 open(CFILE,"$input"); 34 35 while(<CFILE>)
Note: See TracChangeset
for help on using the changeset viewer.