| author | sl |
| Tue, 10 Jun 2014 14:32:02 +0200 | |
| changeset 1 | 260cb5ec6c19 |
| permissions | -rw-r--r-- |
| sl@0 | 1 |
#!C:\Perl\bin |
| sl@0 | 2 |
|
| sl@0 | 3 |
&do_c_header; |
| sl@0 | 4 |
#&do_cpp_header; |
| sl@0 | 5 |
|
| sl@0 | 6 |
|
| sl@0 | 7 |
|
| sl@0 | 8 |
#end of sub calls |
| sl@0 | 9 |
|
| sl@0 | 10 |
|
| sl@0 | 11 |
sub do_c_header |
| sl@0 | 12 |
{
|
| sl@0 | 13 |
$l1="/** \ |
| sl@0 | 14 |
\@file FILENAME \ |
| sl@0 | 15 |
\@internalComponent \ |
| sl@0 | 16 |
*/"; |
| sl@0 | 17 |
|
| sl@0 | 18 |
$infile = "ls.txt"; |
| sl@0 | 19 |
#$logfile = "sample.dosc"; |
| sl@0 | 20 |
$cmd = "ls *.h > ls.txt"; |
| sl@0 | 21 |
$cmd2 = "rm ls.txt"; |
| sl@0 | 22 |
|
| sl@0 | 23 |
#open(LOGFILE, ">$logfile"); |
| sl@0 | 24 |
|
| sl@0 | 25 |
# take dir list |
| sl@0 | 26 |
system $cmd; |
| sl@0 | 27 |
|
| sl@0 | 28 |
#open ls.txt and read lines |
| sl@0 | 29 |
open(INFILE, $infile); |
| sl@0 | 30 |
@lines=<INFILE>; |
| sl@0 | 31 |
|
| sl@0 | 32 |
foreach $filename (@lines) #$filename = @lines[1]; |
| sl@0 | 33 |
{
|
| sl@0 | 34 |
#print LOGFILE "$filename\n"; |
| sl@0 | 35 |
$l2 = "$l1"; |
| sl@0 | 36 |
#print LOGFILE "-----------\n"; |
| sl@0 | 37 |
#print LOGFILE "$l2\n"; |
| sl@0 | 38 |
#print LOGFILE "----\n"; |
| sl@0 | 39 |
$l2 =~ s/FILENAME/$filename/; #replace FILENAME with header file name |
| sl@0 | 40 |
#print LOGFILE "$l2\n"; |
| sl@0 | 41 |
#print LOGFILE "-----------\n"; |
| sl@0 | 42 |
$filename =~ s/\.h/.dosc/; #rename .h to .dosc |
| sl@0 | 43 |
#print LOGFILE $filename; |
| sl@0 | 44 |
|
| sl@0 | 45 |
open (OUTFILE, ">$filename"); |
| sl@0 | 46 |
print OUTFILE $l2; |
| sl@0 | 47 |
close (OUTFILE); |
| sl@0 | 48 |
} |
| sl@0 | 49 |
|
| sl@0 | 50 |
|
| sl@0 | 51 |
#clean the ls.txt file |
| sl@0 | 52 |
close (INFILE); |
| sl@0 | 53 |
system $cmd2; |
| sl@0 | 54 |
|
| sl@0 | 55 |
#print LOGFILE "$l1"; |
| sl@0 | 56 |
#print LOGFILE @lines; |
| sl@0 | 57 |
#close (LOGFILE); |
| sl@0 | 58 |
} |
| sl@0 | 59 |
|
| sl@0 | 60 |
sub do_cpp_header |
| sl@0 | 61 |
{
|
| sl@0 | 62 |
$l1="/** \ |
| sl@0 | 63 |
\@file FILENAME \ |
| sl@0 | 64 |
\@internalComponent \ |
| sl@0 | 65 |
*/"; |
| sl@0 | 66 |
|
| sl@0 | 67 |
$infile = "ls.txt"; |
| sl@0 | 68 |
#$logfile = "sample.dosc"; |
| sl@0 | 69 |
$cmd = "ls | grep -v \\. > ls.txt"; |
| sl@0 | 70 |
$cmd2 = "rm ls.txt"; |
| sl@0 | 71 |
|
| sl@0 | 72 |
#open(LOGFILE, ">$logfile"); |
| sl@0 | 73 |
|
| sl@0 | 74 |
# take dir list |
| sl@0 | 75 |
system $cmd; |
| sl@0 | 76 |
|
| sl@0 | 77 |
#open ls.txt and read lines |
| sl@0 | 78 |
open(INFILE, $infile); |
| sl@0 | 79 |
@lines=<INFILE>; |
| sl@0 | 80 |
|
| sl@0 | 81 |
foreach $filename (@lines) #$filename = @lines[1]; |
| sl@0 | 82 |
{
|
| sl@0 | 83 |
#print "$filename\n"; |
| sl@0 | 84 |
$l2 = "$l1"; |
| sl@0 | 85 |
$l2 =~ s/FILENAME/$filename/; #replace FILENAME with header file name |
| sl@0 | 86 |
#print LOGFILE "-----------\n"; |
| sl@0 | 87 |
#print "$l2\n"; |
| sl@0 | 88 |
#print LOGFILE "----\n"; |
| sl@0 | 89 |
|
| sl@0 | 90 |
#print LOGFILE "$l2\n"; |
| sl@0 | 91 |
#print LOGFILE "-----------\n"; |
| sl@0 | 92 |
#print LOGFILE $filename; |
| sl@0 | 93 |
$filename =~ s/\n/\.dosc/; |
| sl@0 | 94 |
#print "$filename\n"; |
| sl@0 | 95 |
|
| sl@0 | 96 |
open (OUTFILE, ">$filename"); |
| sl@0 | 97 |
print OUTFILE $l2; |
| sl@0 | 98 |
close (OUTFILE); |
| sl@0 | 99 |
} |
| sl@0 | 100 |
|
| sl@0 | 101 |
#clean the ls.txt file |
| sl@0 | 102 |
close (INFILE); |
| sl@0 | 103 |
# system $cmd2; |
| sl@0 | 104 |
|
| sl@0 | 105 |
#print LOGFILE "$l1"; |
| sl@0 | 106 |
#print LOGFILE @lines; |
| sl@0 | 107 |
#close (LOGFILE); |
| sl@0 | 108 |
} |
| sl@0 | 109 |
|
| sl@0 | 110 |
|
| sl@0 | 111 |
|
| sl@0 | 112 |
|
| sl@0 | 113 |
|
| sl@0 | 114 |
|
| sl@0 | 115 |