Automation of Electronic Change configuration (ECO) script generator to create netlist

This script is my hobby project which generates netlist for a given logical expression in verilog,
1. Parses the given logical expression
2. Imports gate strength from environment variable
3. Opens GATE_TABLE and identifies the required gate
4. Generates a netlist

The script is not modular and doesn't use powerful perl capability to parse input expressions.So it may require further fine tuning.

#################################################################################
#!/usr/bin/perl                                                                                                                                         #
#Author: chandrashekarbs.1985@gmail.com                                                                                        #
###############################################################################
sub search_strength{

#print "$search\n";
$min = @temp_search[0];
foreach $j(0 .. $search-1){
$min = @temp_search[0];
 if(@temp_search[$j] < $min){
  $min = @temp_search[$j];
#  print"$min\n";
  $index_search = $j;
 }
}

 $exist_strength1 = 0;
 $exist_strength2 = 0;
#print $index_search,"hi\n";
#print @temp_search,"tmp_search\n";
#print @temp_search_gate,"\n";

return (@temp_search_gate[$index_search]);
}


sub sub_search_parser{

local ($temp1);
$_ = @_[0];
#print "sub_search_parser$_\n";
s/ //g;
$gate = $_;
@gate_search = split /,/, $gate;

$gate_table = $ENV{'GATE_TABLE'}; #FILE OPEN USING ENVIRONMENT VARIABLE
$script_format = $ENV{'SCRIPT_FORMAT'};
open(GATE, $gate_table) or die "unable to open file";
$strength_available = 0; 

$found = 0;

while(($_ = ) && ($count == 1)){

 chomp($_);
s/ //g;
  @gate_table = split /,/, $_;
#  #print @gate_table[1],"\n",$strength,"\n";
 if(($gate_table[0]=~ /(@gate_search[0])/i)&&(@gate_table[1] =~ /$strength$/))
  {
#  print "hi goin for available strength\n";
  @gate_table = split /,/, $_;
  $strength_available = 1; 
  if(@gate_table[2] =~ /@gate_search[1]/){  #GATE SEARCH
   #print "\n\nFOUND\t ",$_,"\n";
   $found = 1;
   @script_info[0] = @gate_table[1];
 
   $inputs = @inputs_search = split /-/, @gate_search[2];
    @inputs_table = split /-/,@gate_table[3];
   #print @gate_search[2],"\n",@gate_table[3],"\n";
   for($i = 0 ; $i < $inputs;$i++){
    $script = join "-",@inputs_search[$i],@inputs_table[$i];
    @temp[$i]  = $script;
   }
  if(!(@gate_search[0] =~ /INV/i)){

   $_ = join "*", @temp;#MAPPINNG OUTPUTS OF GATE_SEARCH WITH GATE_TABLE
   s/ //g;
   @script_info[1] = $_;
   $_ = join "-", @gate_search[3],@gate_table[4];
   s/ //g;
   @script_info[2] = $_;
   $gate = join ",", @script_info;
   #print "\n\n",$gate,"\n";
   
  }

  else{
   $_ = join "-", @gate_search[3],@gate_table[4];
   s/ //g;
   #print "inv hino strength @script_info[0]\n";
   $_ = join ",", @script_info[0],@temp[0],$_;
   s/ //g;
   $gate = $_;
   #print $gate;

  }


  }

 }

}
 close (GATE);

open(GATE, $gate_table) or die "unable to open file";
 while(($_ = ) && ($count == 1) && !$strength_available){
 chomp($_);
s/ //g;
  @gate_table = split /,/, $_;
#$search = 0;
$exist_strength2 = 0;
  #print "exist_strength1\n","hi goin for default strength\n";

 if($_ =~ /(@gate_search[0])/i)
  {
  #print "exist_strength1\n","hi goin for default strength\n";
   
  if(!(@gate_search[0] =~ /MUX/i)){
   @temp_strength = split/x/,@gate_table[1];
   $exist_strength1 = @temp_strength[1];
   @temp_search_gate[$k] = @gate_table[1];
   $k++;
   if(!$strength){
 
    if($exist_strength1 >= $exist_strength2){
    $max_strength = @gate_table[1];
    }
   }
   else
   {
    $exist_strength2 = $strength;
   #print "$exist_strength1 asdsa\n";
   #print "$exist_strength2 sadsad\n";
    if($strength > $exist_strength1){
     @temp_search[$search++] = $strength - $exist_strength1;
    }
    else{
     @temp_search[$search++] = $exist_strength1 - $strength;
    }
   }
  #print @temp_search,"\n";
  }
  if((@gate_search[0] =~ /MUX/i)){
   @temp_strength = split/x/,@gate_table[1];
   $exist_strength1 = @temp_strength[2];
   @temp_search_gate[$k] = @gate_table[1];
   $k++;

   if(!$strength){
   #print "$exist_strength1\n","hi goin for default strength\n";
 
    if($exist_strength1 >= $exist_strength2){
    $max_strength = @gate_table[1];
    }
   }
   else
   {
    $exist_strength2 = $strength;
    if($strength > $exist_strength1){
   #print "$exist_strength1 asdsa\n";
   #print "$exist_strength2 sadsad\n";
   #print "$strength sadsad\n";
     @temp_search[$search++] = $exist_strength2 - $exist_strength1;
    #$search = $search +1;
    }
    else{
   #print "$exist_strength1\n","hi goin for default strength\n";
     @temp_search[$search++] = $exist_strength1 - $exist_strength2;
    #$search = $search +1;
    }
   }
 
  }
 
  @gate_table = split /\,/, $_;
  if(@gate_table[2] =~ /@gate_search[1]/){  #GATE SEARCH
#   if($strength)
#   {
#   @gate_table[1] = &search_strength();
# 
#   }
  #else{
   @gate_table[1] = $max_strength;
  #} #print"$max_strength\n";
   #print "\n\nFOUND\t ",$_,"\n";
   $found = 1;
   @script_info[0] = @gate_table[1];
 
  $inputs = @inputs_search = split /-/, @gate_search[2];
  @inputs_table = split /-/,@gate_table[3];
  #print @gate_search[2],"\n",@gate_table[3],"\n";
   for($i = 0 ; $i < $inputs;$i++){
    $script = join "-",@inputs_search[$i],@inputs_table[$i];
    @temp[$i]  = $script;
  }
  if(!(@gate_search[0] =~ /INV/i)){
   if(!$strength_available)
   {
   @script_info[0] = &search_strength();
}
   $_ = join "*", @temp;#MAPPINNG OUTPUTS OF GATE_SEARCH WITH GATE_TABLE
  s/ //g;
   @script_info[1] = $_;
   $_ = join "-", @gate_search[3],@gate_table[4];
   s/ //g;
   @script_info[2] = $_;
   $gate = join ",", @script_info;
   #print "\n",$gate,"\n";
   
  }

  else{
   $_ = join "-", @gate_search[3],@gate_table[4];
   s/ //g;
   #print "inv hi@script_info,@gate_table\n";
   $_ = join ",", @script_info[0],@temp[0],$_;
   s/ //g;
   $gate = $_;
   #print $gate,"\n";

  }


  }

 }


}
   #if($strength && !strength_available)
   if(!$strength_available)
   {
   @script_info[0] = &search_strength();
   }
 close(GATE);
$exist_strength1 = 0;
$exist_strength2 = 0;
#print @temp_search,"\n";
#print "$max_strength\n\n";
if((!$found) ){

  print "\n\nNOT FOUND\n\n";
  die "\nEXITING......\n"
}
else {

 open(SCRIPT,$script_format);  # open the file to read format
 while($_ =

Comments

Post a Comment

Popular posts from this blog

Getting backtrace during stack corruption

As we know , if program crashes and if it results in stack corruption, GDB will never give backtrace of the crashes.Even coredump does not help. Consider the below situation of stack corruption, Is it possible to make out anything useful from this for debugging?No Program received signal SIGSEGV , Segmentation fault . 0x00000002 in ?? () ( gdb ) bt #0 0x00000002 in ?? () #1 0x00000001 in ?? () #2 0xbffff284 in ?? () Backtrace stopped : previous frame inner to this frame ( corrupt stack ?) ( gdb ) Those bogus adresses (0x00000002 and the like) are actually PC values, not SP values. Now, when you get this kind of SEGV, with a bogus (very small) PC address, 99% of the time it's due to calling through a bogus function pointer. Note that virtual calls in C++ are implemented via function pointers, so any problem with a virtual call can manifest in the same way. An indirect call instruction just pushes the PC after the call onto the stack and then sets the PC
Read more

Analyzing Crash dumps in Linux using GDB

GDB is a common tool for debugging applications in Linux development environment. Before generating the core dump use -g compiler option for compiling the application for enabling debugging symbols. 1. set ulimit -c unlimited  in cmd to enable core dump. 2. Then run the application, after application crashes it generates code dump with core.pid file name. 3. Load the application in gdb ex: gdb <path to application> 4. In this step load the core dump by using core-file <path to core dump> command 5.Just use bt for getting the backtrace of the crash which will give you exact location where app has crashed. Use GDB instead of logging which will save your time for debugging !!!!
Read more

.b4s playlist parser WINAMP XML PlaylistFormat

More info on this file format is at http://filext.com/file-extension/B4S This can be parsed using following xml based parser application. /* .b4s parser Application */ /*Author:chandrashekar bs*/ /*email:buggs.cancerion@gmail.com/chandragoan@gmail.com*/ /* I have not added <> for including files because of in google blogs since <> are interprested as htnl syntaxes and content within thos are not appeared*/ #include iostream #include string.h #include libxml/parser.h #include libxml/xinclude.h #include libxml/tree.h #include libxml/xmlIO.h int main(int argc, char **argv) {     xmlDocPtr doc;     xmlNodePtr nodePtr;     xmlNodePtr rootnodePtr;     xmlChar *xmlbuff;     int loopcount1, loopcount2, loopcount3, loopcount4;         loopcount1=loopcount2=loopcount3=loopcount4=0;     if(argc !=2)     {         printf("Usage %s: Enter valid b4s playlist file",argv[1]);     }     char *filename = (char *)argv[1];     doc = xmlParseFile((c
Read more