sl@0: #!C:\Perl\bin
sl@0: 
sl@0: &do_c_header;
sl@0: #&do_cpp_header;
sl@0: 
sl@0: 
sl@0: 
sl@0: #end of sub calls
sl@0: 
sl@0: 
sl@0: sub do_c_header
sl@0: {
sl@0: $l1="/**   \
sl@0: \@file   FILENAME	\
sl@0: \@internalComponent \
sl@0: */";
sl@0: 
sl@0: 	$infile = "ls.txt";
sl@0: 	#$logfile = "sample.dosc";
sl@0: 	$cmd = "ls *.h > ls.txt";
sl@0: 	$cmd2 = "rm ls.txt";
sl@0: 
sl@0: 	#open(LOGFILE, ">$logfile");	
sl@0: 
sl@0: 	# take dir list
sl@0: 	system $cmd;
sl@0: 
sl@0: 	#open ls.txt and read lines
sl@0: 	open(INFILE, $infile);	
sl@0: 	@lines=<INFILE>;
sl@0: 
sl@0: 	foreach $filename (@lines)	#$filename = @lines[1];
sl@0: 	{
sl@0: 		#print LOGFILE "$filename\n";
sl@0: 		$l2 = "$l1";
sl@0: 		#print LOGFILE "-----------\n";
sl@0: 		#print LOGFILE "$l2\n";
sl@0: 		#print LOGFILE "----\n";
sl@0: 		$l2 =~ s/FILENAME/$filename/; 			#replace FILENAME with header file name
sl@0: 		#print LOGFILE "$l2\n";
sl@0: 		#print LOGFILE "-----------\n";
sl@0: 		$filename =~ s/\.h/.dosc/; 				#rename .h to .dosc
sl@0: 		#print LOGFILE $filename;
sl@0: 		
sl@0: 		open (OUTFILE, ">$filename");	
sl@0: 		print OUTFILE $l2;
sl@0: 		close (OUTFILE);
sl@0: 	}
sl@0: 
sl@0: 
sl@0: 	#clean the ls.txt file
sl@0: 	close (INFILE);
sl@0: 	system $cmd2;
sl@0: 
sl@0: 	#print LOGFILE "$l1";
sl@0: 	#print LOGFILE @lines;
sl@0: 	#close (LOGFILE);
sl@0: }
sl@0: 
sl@0: sub do_cpp_header
sl@0: {
sl@0: $l1="/**   \
sl@0: \@file   FILENAME	\
sl@0: \@internalComponent \
sl@0: */";
sl@0: 
sl@0: 	$infile = "ls.txt";
sl@0: 	#$logfile = "sample.dosc";
sl@0: 	$cmd = "ls | grep -v \\. > ls.txt";
sl@0: 	$cmd2 = "rm ls.txt";
sl@0: 
sl@0: 	#open(LOGFILE, ">$logfile");	
sl@0: 
sl@0: 	# take dir list
sl@0: 	system $cmd;
sl@0: 
sl@0: 	#open ls.txt and read lines
sl@0: 	open(INFILE, $infile);	
sl@0: 	@lines=<INFILE>;
sl@0: 
sl@0: 	foreach $filename (@lines)	#$filename = @lines[1];
sl@0: 	{
sl@0: 		#print "$filename\n";  
sl@0: 		$l2 = "$l1";
sl@0: 		$l2 =~ s/FILENAME/$filename/; 			#replace FILENAME with header file name
sl@0: 		#print LOGFILE "-----------\n";
sl@0: 		#print "$l2\n";
sl@0: 		#print LOGFILE "----\n";
sl@0: 		
sl@0: 		#print LOGFILE "$l2\n";
sl@0: 		#print LOGFILE "-----------\n";
sl@0: 		#print LOGFILE $filename;
sl@0: 		$filename =~ s/\n/\.dosc/;
sl@0: 		#print "$filename\n";
sl@0: 		
sl@0: 		open (OUTFILE, ">$filename");	
sl@0: 		print OUTFILE $l2;
sl@0: 		close (OUTFILE);
sl@0: 	}
sl@0: 
sl@0: 	#clean the ls.txt file
sl@0: 	close (INFILE);
sl@0: #	system $cmd2;
sl@0: 
sl@0: 	#print LOGFILE "$l1";
sl@0: 	#print LOGFILE @lines;
sl@0: 	#close (LOGFILE);
sl@0: }
sl@0: 
sl@0: 
sl@0: 
sl@0: 
sl@0: 
sl@0: 
sl@0: