--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/genericopenlibs/cppstdlib/stl/src/gen_dosc.pl	Fri Jun 04 16:20:51 2010 +0100
@@ -0,0 +1,130 @@
+#
+# Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+#
+# Initial Contributors:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description: 
+#
+#!C:\Perl\bin
+
+&do_c_header;
+#&do_cpp_header;
+
+
+
+#end of sub calls
+
+
+sub do_c_header
+{
+$l1="/**   \
+\@file   FILENAME	\
+\@internalComponent \
+*/";
+
+	$infile = "ls.txt";
+	#$logfile = "sample.dosc";
+	$cmd = "ls *.h > ls.txt";
+	$cmd2 = "rm ls.txt";
+
+	#open(LOGFILE, ">$logfile");	
+
+	# take dir list
+	system $cmd;
+
+	#open ls.txt and read lines
+	open(INFILE, $infile);	
+	@lines=<INFILE>;
+
+	foreach $filename (@lines)	#$filename = @lines[1];
+	{
+		#print LOGFILE "$filename\n";
+		$l2 = "$l1";
+		#print LOGFILE "-----------\n";
+		#print LOGFILE "$l2\n";
+		#print LOGFILE "----\n";
+		$l2 =~ s/FILENAME/$filename/; 			#replace FILENAME with header file name
+		#print LOGFILE "$l2\n";
+		#print LOGFILE "-----------\n";
+		$filename =~ s/\.h/.dosc/; 				#rename .h to .dosc
+		#print LOGFILE $filename;
+		
+		open (OUTFILE, ">$filename");	
+		print OUTFILE $l2;
+		close (OUTFILE);
+	}
+
+
+	#clean the ls.txt file
+	close (INFILE);
+	system $cmd2;
+
+	#print LOGFILE "$l1";
+	#print LOGFILE @lines;
+	#close (LOGFILE);
+}
+
+sub do_cpp_header
+{
+$l1="/**   \
+\@file   FILENAME	\
+\@internalComponent \
+*/";
+
+	$infile = "ls.txt";
+	#$logfile = "sample.dosc";
+	$cmd = "ls | grep -v \\. > ls.txt";
+	$cmd2 = "rm ls.txt";
+
+	#open(LOGFILE, ">$logfile");	
+
+	# take dir list
+	system $cmd;
+
+	#open ls.txt and read lines
+	open(INFILE, $infile);	
+	@lines=<INFILE>;
+
+	foreach $filename (@lines)	#$filename = @lines[1];
+	{
+		#print "$filename\n";  
+		$l2 = "$l1";
+		$l2 =~ s/FILENAME/$filename/; 			#replace FILENAME with header file name
+		#print LOGFILE "-----------\n";
+		#print "$l2\n";
+		#print LOGFILE "----\n";
+		
+		#print LOGFILE "$l2\n";
+		#print LOGFILE "-----------\n";
+		#print LOGFILE $filename;
+		$filename =~ s/\n/\.dosc/;
+		#print "$filename\n";
+		
+		open (OUTFILE, ">$filename");	
+		print OUTFILE $l2;
+		close (OUTFILE);
+	}
+
+	#clean the ls.txt file
+	close (INFILE);
+#	system $cmd2;
+
+	#print LOGFILE "$l1";
+	#print LOGFILE @lines;
+	#close (LOGFILE);
+}
+
+
+
+
+
+
+