fix : compilation , tcl commands

* fix : compilation

* fix tcl commands

* Update Network.cc

Author: markram1729

include/sta/Sta.hh

@@ -298,6 +298,8 @@ public:
   void removeClock(Clock *clk);
   // Update period/waveform for generated clocks from source pin clock.
   void updateGeneratedClks();
+  // Mark that generated clocks need to be updated.
+  void setUpdateGenclks();
   // True if pin is defined as a clock source (pin may be hierarchical).
   bool isClockSrc(const Pin *pin) const;
   // Propagated (non-ideal) clocks.

liberty/LibertyReader.cc

@@ -3269,7 +3269,7 @@ LibertyReader::visitDividedBy(LibertyAttr *attr)
   int value;
   getAttrInt(attr, value, exists);
   if (exists) {
-    if (!isPowerOfTwo(value)) {
+    if (!isPowerofTwo(value)) {
       libError(1234, attr, "divided_by must be a power of two.");
     }
     generated_clock_->setDividedBy(value);
@@ -3283,7 +3283,7 @@ LibertyReader::visitMultipliedBy(LibertyAttr *attr)
   int value;
   getAttrInt(attr, value, exists);
   if (exists) {
-    if (!isPowerOfTwo(value)) {
+    if (!isPowerofTwo(value)) {
       libError(1234, attr, "multiplied_by must be a power of two.");
     }
     generated_clock_->setMultipliedBy(value);

network/Network.cc

@@ -53,7 +53,7 @@ Network::clear()
 {
   default_liberty_ = nullptr;
   clearNetDrvrPinMap();
-  generated_clock_pins_to_cell_.clear();
+  generated_clock_pins_to_cells_.clear();
 }
 
 bool
@@ -1224,12 +1224,13 @@ Network::setPathEscape(char escape)
   escape_ = escape;
 }
 
-void Network::addGeneratedClockPintoCell(const char *pinName, LibertyCell *cell)
+void Network::addGeneratedClockPinToCell(const char *pinName, LibertyCell *cell)
 {
-	generated_clock_pins_to_cell_[pinName]=cell;
+	generated_clock_pins_to_cells_[pinName]=cell;
 }
 
 
+
 ////////////////////////////////////////////////////////////////
 
 typedef Vector<InstanceChildIterator *> InstanceChildIteratorSeq; 
@@ -2225,4 +2226,6 @@ NetSet::intersects(const NetSet *set1,
   return Set<const Net*, NetIdLess>::intersects(set1, set2, NetIdLess(network));
 }
 
+
+
 } // namespace

sdc/Clock.cc

@@ -400,7 +400,7 @@ Clock::generate(const Clock *src_clk)
     waveform_->push_back((*src_wave)[1]);
   }
   else if (divide_by_ > 1) {
-    if (isPowerOfTwo(divide_by_)) {
+    if (isPowerofTwo(divide_by_)) {
       period_ = src_clk->period() * divide_by_;
       const FloatSeq *src_wave = src_clk->waveform();
       float rise = (*src_wave)[0];
@@ -481,7 +481,7 @@ Clock::generateEdgesClk(const Clock *src_clk)
 }
 
 bool
-isPowerOfTwo(int i)
+isPowerofTwo(int i)
 {
   return (i & (i - 1)) == 0;
 }

search/Sta.cc

@@ -3557,7 +3557,7 @@ Sta::updateGeneratedClks()
 }
 
 void 
-Sta::setUpdateGenClks()
+Sta::setUpdateGenclks()
 {
 	update_genclks_ = true;
 }

tcl/CmdArgs.tcl

@@ -935,6 +935,37 @@ proc get_clocks_warn { arg_name arglist } {
   return $clks
 }
 
+# Get attribute
+sta::define_cmd_args "get_attribute" {args}
+
+proc get_attribute {args} {
+  sta::parse_key_args "get_attribute" args keys {} flags {-quiet}
+  set quiet [info exists flags(-quiet)]
+  set arg1 [lindex $args 0]
+  set arg2 [lindex $args 1]
+
+  # Suppress unknown property warning
+  if { $quiet } {
+    suppress_msg 9000
+  }
+  if { [sta::is_object $arg1] } {
+    set result [get_property $arg1 $arg2]
+  } elseif { [sta::is_object $arg2] } {
+    set result [get_property $arg2 $arg1]
+  } else {
+    if { $quiet } {
+      unsuppress_msg 9000
+    }
+    error "get_attribute: invalid object $arg1 or $arg2"
+  }
+  # Re-enable warning after the call
+  if { $quiet } {
+    unsuppress_msg 9000
+  }
+  return $result
+}
+
+
 proc get_net_arg { arg_name arg } {
   set net "NULL"
   if {[llength $arg] > 1} {

tcl/CmdUtil.tcl

@@ -269,16 +269,26 @@ proc report_object_names { objects } {
 define_cmd_args "get_name" {object}
 define_cmd_args "get_full_name" {object}
 
+#Get Object name
+interp alias {} get_object_name {} get_full_name
+
 ################################################################
 
 proc get_name { object } {
   return [get_object_property $object "name"]
 }
 
 proc get_full_name { object } {
+  if { [llength $object] > 1 } {
+    foreach obj $object {
+      lappend full_names [get_full_name $obj]
+    }
+    return $full_names
+  }
   return [get_object_property $object "full_name"]
 }
 
+
 proc sort_by_name { objects } {
   return [lsort -command name_cmp $objects]
 }

test/generated_clock.tcl

@@ -8,7 +8,7 @@ create_clock -name clk2 -period 100 [get_ports CLK_IN_2]
 puts "Number of clocks: [ llength [get_clocks]]"
 
 # Report all clock periods
-foreach_in_collection clk [get_clocks] {
+foreach clk [get_clocks] {
   puts "[get_object_name $clk] period: [get_attribute $clk period]"
 }
 

util/StringUtil.cc

@@ -265,7 +265,7 @@ trimLeft(string &str)
 }
 
 void
-trim(strin &str)
+trim(string &str)
 {
   trimLeft(str);
   trimRight(str);