odb: move user code to user code section and ensure correct argument reading

Signed-off-by: Arthur Koucher <arthurkoucher@precisioninno.com>

Author: AcKoucher

src/odb/include/odb/db.h

@@ -7592,8 +7592,6 @@ class dbDatabase : public dbObject
 
   dbChip* findChip(const char* name) const;
 
-  bool hasHierarchicalChip() const;
-
   dbSet<dbProperty> getProperties() const;
 
   dbSet<dbChipInst> getChipInsts() const;
@@ -7621,6 +7619,8 @@ class dbDatabase : public dbObject
   void setHierarchy(bool value);
   bool hasHierarchy() const;
 
+  bool hasHierarchicalChip() const;
+
   void setTopChip(dbChip* chip);
   ///
   /// Return the libs contained in the database. A database can contain

src/odb/src/db/dbDatabase.cpp

@@ -704,17 +704,6 @@ dbChip* dbDatabase::findChip(const char* name) const
   return (dbChip*) obj->chip_hash_.find(name);
 }
 
-bool dbDatabase::hasHierarchicalChip() const
-{
-  for (dbChip* chip : getChips()) {
-    if (chip->getChipType() == dbChip::ChipType::HIER) {
-      return true;
-    }
-  }
-
-  return false;
-}
-
 dbSet<dbProperty> dbDatabase::getProperties() const
 {
   _dbDatabase* obj = (_dbDatabase*) this;
@@ -934,6 +923,17 @@ bool dbDatabase::hasHierarchy() const
   return db->hierarchy_;
 }
 
+bool dbDatabase::hasHierarchicalChip() const
+{
+  for (dbChip* chip : getChips()) {
+    if (chip->getChipType() == dbChip::ChipType::HIER) {
+      return true;
+    }
+  }
+
+  return false;
+}
+
 void dbDatabase::read(std::istream& file)
 {
   _dbDatabase* db = (_dbDatabase*) this;

src/odb/src/swig/tcl/odb.tcl

@@ -1233,7 +1233,7 @@ proc set_extraction_rules_file { args } {
     utl::error ODB 477 "Could not set extraction rules file. Tech not found."
   }
 
-  $tech setExtractionRulesFile $args
+  $tech setExtractionRulesFile [lindex $args 0]
 }
 
 namespace eval odb {