Shell Programming and Scripting

$ cat nheader.h
//****************************************************************************
//
// sample.h       file definition
//
//****************************************************************************
//
//	
//
//

#ifndef ONE_H
#include <one.h>
#endif

abc
class sample_def:public user
{
	public:
//start of record layout--------------------------------------------------------
	char  name[23];		// Name 
	char  address[125]; 	// relevant address
	short age;  		// age
	short entries;		// no. of entries

	struct one
		{
			short age;		// end date
			float salary;		// min margin
		}value[10];

//end of record layout--------------------------------------------------------
	char  end;			// end of the record

/*********************************/
char *disp(char *two)
/*********************************/
{   
	return;
}

};


$

$ perl readhead.pl
$ 
$ cat nheader.csv
Name of the file: nheader.h
Id,Type,Size
name,char,23
address,char,125
age,short,2
entries,short,2
StructID,Type,Size
age,short,2
salary,float,4
$

#!/usr/bin/perl

use strict;
use warnings;

my @array1;
my @array2;
my $start=0;
my @elements;
my $size='';

my $infile='nheader.h';
my $outfile='nheader.csv';

open(INF,$infile) or die "Error opening infile $infile: $!\n";
my @array=<INF>;
close(INF);

foreach (@array) {
chomp;
push @array1, "$_\n" if $_ !~ /^\/\// && $_ !~ /^#/ && $_ !~ /^$/;
}

EXIT: foreach (@array1) {
chomp;

if ($_ =~ /_def:/)
{
$start=1;
next;
}
elsif ($start != 1)
{
next;
}
elsif ($_ =~ /}/)
{
last EXIT;
}
else
{
push @array2, "$_\n" if $_ !~ /{/ && $_ !~ /:/;
}

}

open(OUT,">$outfile") or die "Error opening outfile $outfile: $!\n";

print OUT "Name of the file: $infile\n";
print OUT "Id,Type,Size\n";

foreach (@array2) {
chomp;
$_ =~ s/\t//g;
$_ =~ s/;.*//g;
$_ =~ s/  / /g;

if ($_ =~ /\[/) {
@elements = split(/ /, $_);
my $type = $elements[0];
my $name = $elements[1];
my $size = $elements[1];
$name =~ s/\[.*//;
$size =~ s/.*\[//;
$size =~ s/\].*//;
print OUT "$name,$type,$size\n";
}
else {
@elements = split(/ /, $_);
if ($elements[0] eq "struct") {
print OUT "StructID,Type,Size\n";
next; }
if ($elements[0] eq "char") {
$size = 1; }
if ($elements[0] eq "short") {
$size = 2; }
if ($elements[0] eq "float") {
$size = 4; }
print OUT "$elements[1],$elements[0],$size\n";
}
}

close(OUT);

# !/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);