1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/os/ossrv/genericopenlibs/cppstdlib/stl/src/gen_dosc.pl	Fri Jun 15 03:10:57 2012 +0200
     1.3 @@ -0,0 +1,115 @@
     1.4 +#!C:\Perl\bin
     1.5 +
     1.6 +&do_c_header;
     1.7 +#&do_cpp_header;
     1.8 +
     1.9 +
    1.10 +
    1.11 +#end of sub calls
    1.12 +
    1.13 +
    1.14 +sub do_c_header
    1.15 +{
    1.16 +$l1="/**   \
    1.17 +\@file   FILENAME	\
    1.18 +\@internalComponent \
    1.19 +*/";
    1.20 +
    1.21 +	$infile = "ls.txt";
    1.22 +	#$logfile = "sample.dosc";
    1.23 +	$cmd = "ls *.h > ls.txt";
    1.24 +	$cmd2 = "rm ls.txt";
    1.25 +
    1.26 +	#open(LOGFILE, ">$logfile");	
    1.27 +
    1.28 +	# take dir list
    1.29 +	system $cmd;
    1.30 +
    1.31 +	#open ls.txt and read lines
    1.32 +	open(INFILE, $infile);	
    1.33 +	@lines=<INFILE>;
    1.34 +
    1.35 +	foreach $filename (@lines)	#$filename = @lines[1];
    1.36 +	{
    1.37 +		#print LOGFILE "$filename\n";
    1.38 +		$l2 = "$l1";
    1.39 +		#print LOGFILE "-----------\n";
    1.40 +		#print LOGFILE "$l2\n";
    1.41 +		#print LOGFILE "----\n";
    1.42 +		$l2 =~ s/FILENAME/$filename/; 			#replace FILENAME with header file name
    1.43 +		#print LOGFILE "$l2\n";
    1.44 +		#print LOGFILE "-----------\n";
    1.45 +		$filename =~ s/\.h/.dosc/; 				#rename .h to .dosc
    1.46 +		#print LOGFILE $filename;
    1.47 +		
    1.48 +		open (OUTFILE, ">$filename");	
    1.49 +		print OUTFILE $l2;
    1.50 +		close (OUTFILE);
    1.51 +	}
    1.52 +
    1.53 +
    1.54 +	#clean the ls.txt file
    1.55 +	close (INFILE);
    1.56 +	system $cmd2;
    1.57 +
    1.58 +	#print LOGFILE "$l1";
    1.59 +	#print LOGFILE @lines;
    1.60 +	#close (LOGFILE);
    1.61 +}
    1.62 +
    1.63 +sub do_cpp_header
    1.64 +{
    1.65 +$l1="/**   \
    1.66 +\@file   FILENAME	\
    1.67 +\@internalComponent \
    1.68 +*/";
    1.69 +
    1.70 +	$infile = "ls.txt";
    1.71 +	#$logfile = "sample.dosc";
    1.72 +	$cmd = "ls | grep -v \\. > ls.txt";
    1.73 +	$cmd2 = "rm ls.txt";
    1.74 +
    1.75 +	#open(LOGFILE, ">$logfile");	
    1.76 +
    1.77 +	# take dir list
    1.78 +	system $cmd;
    1.79 +
    1.80 +	#open ls.txt and read lines
    1.81 +	open(INFILE, $infile);	
    1.82 +	@lines=<INFILE>;
    1.83 +
    1.84 +	foreach $filename (@lines)	#$filename = @lines[1];
    1.85 +	{
    1.86 +		#print "$filename\n";  
    1.87 +		$l2 = "$l1";
    1.88 +		$l2 =~ s/FILENAME/$filename/; 			#replace FILENAME with header file name
    1.89 +		#print LOGFILE "-----------\n";
    1.90 +		#print "$l2\n";
    1.91 +		#print LOGFILE "----\n";
    1.92 +		
    1.93 +		#print LOGFILE "$l2\n";
    1.94 +		#print LOGFILE "-----------\n";
    1.95 +		#print LOGFILE $filename;
    1.96 +		$filename =~ s/\n/\.dosc/;
    1.97 +		#print "$filename\n";
    1.98 +		
    1.99 +		open (OUTFILE, ">$filename");	
   1.100 +		print OUTFILE $l2;
   1.101 +		close (OUTFILE);
   1.102 +	}
   1.103 +
   1.104 +	#clean the ls.txt file
   1.105 +	close (INFILE);
   1.106 +#	system $cmd2;
   1.107 +
   1.108 +	#print LOGFILE "$l1";
   1.109 +	#print LOGFILE @lines;
   1.110 +	#close (LOGFILE);
   1.111 +}
   1.112 +
   1.113 +
   1.114 +
   1.115 +
   1.116 +
   1.117 +
   1.118 +