# !/usr/bin/perl -w
# RB -- To print all the information of the data types and their sizes

use strict;
use warnings;

my @files = glob("*.h");                    #Get the list of all the header files in the directory
my $filename;
my($buffer) = "";
my $find = "_def:";                            #Read all the files which contain _def: (header files mapped to data files)
my $count = 0;
my @result;
my $recend="recend";                        #Read only till recend is encountered in the file
my $datafile = "DataFile_Information.csv";    #Output file
my $filecount = 0;
my $mVal;
my $size=1;
my $i;
my @comments;                                #Comments are populated seperately into this array
my $file;
my $comment_buffer;


open (FH, ">$datafile") or die "$!";

foreach $file (@files)
{
    $count = 0;
    ProcessHeaderFile($file);
}

print "\n\nSuccessfully processed $filecount files in the directory \n\n";


#Main subroutine to process each of the header file
#Only the ones which are mapped to the data file are read

sub ProcessHeaderFile
{
    $filename = $_[0];
    open(FILE, $filename) or die("Error reading file, stopped");
    my @inputfile = <FILE>;
    close(FILE);

    for(@inputfile)
    {
        if($_=~ /$find/)
        {
            $count = 1;
            $filecount += 1;
        }
    }
    
    open(FILE, $filename) or die("Error reading file, stopped");
    
    if ($count == 1)
    {
        print FH "\n\n\U ***** Filename: $filename *****\n\n";
        print FH "Id,Type,Size,Comments\n";
        until(eof FILE)
        {
            @comments="";
            
            $buffer = readline( *FILE );
            $comment_buffer = $buffer;

            if($buffer =~ /$recend/)
            {
                return;
            }
            
            if ($buffer =~ m/char|short|int|float|BYTE|struct/i)
            {
                
                @comments = split('//',$comment_buffer);
                if(!($comments[1]))
                {
                    $comments[1] = ",";
                }

                #split the entire line to get the required values in a formatted way        
                chomp($buffer);
                $buffer =~ s/\]//g;
                $buffer =~ s/\[/,/g;
                $buffer =~ s/;/,/;
                $buffer =~ s/\//,/;
                $buffer =~ s/\//,/;
                $buffer =~ s/ /,/;
                $buffer =~ s/\t/,/g;
                $buffer =~ s/^,+//; #Remove leading comma's
                $buffer =~ s/[,][,]*/,/g; #Remove extra comma's
                $buffer =~ s/ //g;
        
                @result  = split ',',$buffer;

                my $bool = 1;
                if ($result[0] eq "char")
                {
                    $mVal = 1;
                }
                elsif ($result[0] eq "short")
                {
                    $mVal = 2;
                }
                elsif ($result[0] eq "int")
                {
                    $mVal = 4;
                }
                elsif ($result[0] eq "float")
                {
                    $mVal = 4;
                }
                elsif ($result[0] eq "BYTE")
                {
                    $mVal = 1;
                }
                elsif ($result[0] eq "struct")
                {
                    $mVal = 0;
                    print FH "StructID,Type,Size,Comments\n";
                }
                else
                {
                    $bool = 0;
                }

                if($bool)
                {
                    $size = 1;
                
                    foreach $i (@result)
                    {
                        if ($i =~ m/^-?\d+$/)
                        {
                            $size = $size * $i;
                        }
                        else
                        {
                                $size = $mVal;
                        }
                    }
                    
                    $size = $size * $mVal;

                    #Print the final values to the output file
                    print FH "$result[1],$result[0],$size,$comments[1] \n";
                }
                else
                {
                    print FH ",,,@result \n";
                }
            }        
        }
    }
close(FILE);
}
close(FH);