#!/usr/bin/perl
use strict;
use warnings;
use Switch;

#Common Variable Initialization
my %DeviceList = ();
my $netlist_file = "/home/abhishek_r/Tool_Development/Voltrace/Perl/netlist.scs";
my @InbuiltDeviceList = ('resistor','capacitor','inductor','vsource','isource');
my @subcktslist =       getSubcktList($netlist_file);
print @subcktslist;

TraceSubcktDevices($netlist_file);

sub getSubcktList{
    my $netlist = $_[0];
    my @subckts = ();
    open(READ_NETLIST, "<$netlist") or die "Couldn't open netlist file for read, $!";

    while(<READ_NETLIST>){
        chomp;
        s/^\s+//;       #To remove leading blanks (if any) in the line
        #ignore line if it contains comments or initializing words for spectre
        switch() {
            case /^[*\/]/i  {next;}
            case /simulator\s+lang/i {next;}
            case /^include/i {next;}
        }
        if(/subckt/i) {
            my $line = $_;
            my @words = split(/\s+/,$line); #Split the read line in $_ with white spaces as delimiter
            my $nameindex = 1;      #Default index where subckt name is usally found
            if(/inline/i){          #To change name index if subckt definition includes inline
                $nameindex = 2;
            }
            push @subckts,$words[$nameindex];
        }
    }
    close(READ_NETLIST);
    return @subckts;
}

sub TraceSubcktDevices{         #Input: (netlist_file, subcktname, key_init) where subcktname is the name of subckt that needs to be traced in the netlist
    my $netlist = $_[0];
    my $subcktname = "hello";
    $subcktname =~ s/^\s*|\s*$//g;  #To remove all leading and training blanks from input subckt name
    my $key_init = $_[2];
    my $skip=0;                     #Default Skip status for netlist line. 0 indicates "don't skip" and is set for TOPLEVEL
    if($subcktname){        #Set skip flag if input subckt name is not blank i.e. the tracing is not required at TOPLEVEL
        $skip = 1;
    }
    open(READ_NETLIST, "<$netlist") or die "Couldn't open netlist file for read, $!";
    while(<READ_NETLIST>){
        $skip = $skip + 1;
        print "Hello";
    }
    close(READ_NETLIST);
}