--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/genericopenlibs/cppstdlib/stl/src/gen_dosc.pl Tue Feb 02 02:01:42 2010 +0200
@@ -0,0 +1,115 @@
+#!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);
+}
+
+
+
+
+
+
+