librelane 2.4.0.dev8__py3-none-any.whl → 3.0.0.dev22__py3-none-any.whl

librelane/flows/sequential.py

@@ -26,6 +26,7 @@ from typing import (
     Union,
 )
 
+from deprecated.sphinx import deprecated
 from rapidfuzz import process, fuzz, utils
 
 from .flow import Flow, FlowException, FlowError
@@ -40,6 +41,10 @@ from ..steps import (
 )
 
 Substitution = Union[str, Type[Step], None]
+SubstitutionsObject = Union[
+    Dict[str, Substitution],
+    List[Tuple[str, Substitution]],
+]
 
 
 class SequentialFlow(Flow):
@@ -69,20 +74,53 @@ class SequentialFlow(Flow):
     :cvar gating_config_vars: A mapping from step ID (wildcards) to lists of
         Boolean variable names. All Boolean variables must be True for a step with
         a specific ID to execute.
+
+    :cvar Substitutions: Consumed by the subclass initializer - allows for a
+        quick interface where steps can be removed, replaced, appended or
+        prepended. After subclass intialization, it is set to ``None``, and
+        a new subclass must be created to modify substitutions further.
+
+        The list of substitutions may be specified as either a dictionary
+        or a list of tuples: while the former is more terse, the latter is
+        allows using the same key more than once.
+
+        The substitutions are mappings from Step IDs or objects to Step IDs,
+        objects, or ``None``. In case of ``None``, the step in question is
+        removed.
+
+        In case the key is specified as a string, you may add ``-`` as a prefix
+        to the Step ID to indicate you want to insert a step before the step
+        in question, and similary ``+`` indicates you want to insert a step
+        after the step in question. You may not prepend or append ``None``.
+
+        Step IDs are made unique after every substitution, i.e., whenever the
+        substitution occurs, the first instance of a Step in a sequential flow
+        shall have its ID unadulterated, while the next instance will have
+        ``-1``, the one after ``-2``, etc. If ``-1`` is removed, the previous
+        ``-2`` shall become ``-1``, for example.
     """
 
-    Substitutions: Optional[Dict[str, Union[str, Type[Step], None]]] = None
+    Substitutions: Optional[SubstitutionsObject] = None
     gating_config_vars: Dict[str, List[str]] = {}
 
+    def __init__(
+        self,
+        *args,
+        **kwargs,
+    ):
+        self.Steps = self.Steps.copy()  # Break global reference
+        super().__init__(*args, **kwargs)
+
+    # ---
+
     def __init_subclass__(Self, scm_type=None, name=None, **kwargs):
         Self.Steps = Self.Steps.copy()  # Break global reference
         Self.config_vars = Self.config_vars.copy()
         Self.gating_config_vars = Self.gating_config_vars.copy()
-        if substitute := Self.Substitutions:
-            for key, item in substitute.items():
-                Self.__substitute_step(Self, key, item)
-
         Self.__normalize_step_ids(Self)
+        if Self.Substitutions:
+            Self.__substitute_in_place(Self, Self.Substitutions)
+            Self.Substitutions = None
 
         # Validate Gating Config Vars
         variables_by_name = {}
@@ -108,7 +146,7 @@ class SequentialFlow(Flow):
                     )
 
     @classmethod
-    def make(Self, step_ids: List[str]) -> Type[SequentialFlow]:
+    def Make(Self, step_ids: List[str]) -> Type[SequentialFlow]:
         Step_list = []
         for name in step_ids:
             step = Step.factory.get(name)
@@ -123,9 +161,16 @@ class SequentialFlow(Flow):
         return CustomSequentialFlow
 
     @classmethod
-    def Substitute(
-        Self, Substitutions: Dict[str, Substitution]
-    ) -> Type[SequentialFlow]:
+    @deprecated(
+        "use .Make",
+        version="3.0.0",
+        action="once",
+    )
+    def make(Self, step_ids: List[str]) -> Type[SequentialFlow]:
+        return Self.Make(step_ids)
+
+    @classmethod
+    def Substitute(Self, Substitutions: SubstitutionsObject) -> Type[SequentialFlow]:
         """
         Convenience method to quickly subclass a sequential flow and add
         Substitutions to it.
@@ -136,20 +181,19 @@ class SequentialFlow(Flow):
         """
         return type(Self.__name__ + "'", (Self,), {"Substitutions": Substitutions})
 
-    def __init__(
-        self,
-        *args,
-        Substitute: Optional[Dict[str, Union[str, Type[Step], None]]] = None,
-        **kwargs,
+    @staticmethod
+    def __substitute_in_place(
+        target: Type[SequentialFlow],
+        Substitutions: Optional[SubstitutionsObject],
     ):
-        self.Steps = self.Steps.copy()  # Break global reference
-
-        if substitute := Substitute:
-            for key, item in substitute.items():
-                self.__substitute_step(self, key, item)
-            self.__normalize_step_ids(self)
-
-        super().__init__(*args, **kwargs)
+        if Substitutions is None:
+            return Substitutions
+        if isinstance(Substitutions, dict):
+            for key, item in Substitutions.items():
+                target.__substitute_step(target, key, item)
+        else:
+            for key, item in Substitutions:
+                target.__substitute_step(target, key, item)
 
     @staticmethod
     def __substitute_step(
@@ -189,23 +233,23 @@ class SequentialFlow(Flow):
         if with_step is None:
             for index in reversed(step_indices):
                 del target.Steps[index]
-            return
-
-        if isinstance(with_step, str):
-            with_step_opt = Step.factory.get(with_step)
-            if with_step_opt is None:
-                raise FlowException(
-                    f"Could not {mode} '{id}' with '{with_step}': no replacement step with ID '{with_step}' found."
-                )
-            with_step = with_step_opt
+        else:
+            if isinstance(with_step, str):
+                with_step_opt = Step.factory.get(with_step)
+                if with_step_opt is None:
+                    raise FlowException(
+                        f"Could not {mode} '{id}' with '{with_step}': no replacement step with ID '{with_step}' found."
+                    )
+                with_step = with_step_opt
 
-        for i in step_indices:
-            if mode == "replace":
-                target.Steps[i] = with_step
-            elif mode == "append":
-                target.Steps.insert(i + 1, with_step)
-            elif mode == "prepend":
-                target.Steps.insert(i, with_step)
+            for i in step_indices:
+                if mode == "replace":
+                    target.Steps[i] = with_step
+                elif mode == "append":
+                    target.Steps.insert(i + 1, with_step)
+                elif mode == "prepend":
+                    target.Steps.insert(i, with_step)
+        target.__normalize_step_ids(target)
 
     @staticmethod
     def __normalize_step_ids(target: Union[SequentialFlow, Type[SequentialFlow]]):
@@ -213,14 +257,15 @@ class SequentialFlow(Flow):
 
         for i, step in enumerate(target.Steps):
             counter = 0
-            id = step.id
+            imp_id = step.get_implementation_id()
+            id = imp_id
             if (
                 id == NotImplemented
             ):  # Will be validated later by initialization: ignore for now
                 continue
             while id in ids_used:
                 counter += 1
-                id = f"{step.id}-{counter}"
+                id = f"{imp_id}-{counter}"
             if id != step.id:
                 target.Steps[i] = step.with_id(id)
             ids_used.add(id)

librelane/plugins.py

@@ -1,4 +1,4 @@
-# Copyright 2023 Efabless Corporation
+# Copyright 2024 Efabless Corporation
 #
 # Licensed under the Apache License, Version 2.0 (the "License");
 # you may not use this file except in compliance with the License.

librelane/scripts/magic/common/read.tcl

@@ -55,8 +55,8 @@ proc read_extra_gds {} {
     set old_readonly [gds readonly]
     gds rescale false
     gds readonly true
-    if {  [info exist ::env(EXTRA_GDS_FILES)] } {
-        set gds_files_in $::env(EXTRA_GDS_FILES)
+    if {  [info exist ::env(EXTRA_GDS)] } {
+        set gds_files_in $::env(EXTRA_GDS)
         foreach gds_file $gds_files_in {
             puts "> gds read $gds_file"
             gds read $gds_file

librelane/scripts/magic/gds/extras_mag.tcl

@@ -25,8 +25,8 @@ if { $::env(MAGIC_GDS_POLYGON_SUBCELLS) } {
 	gds polygon subcells true
 }
 
-if {  [info exist ::env(EXTRA_GDS_FILES)] } {
-	set gds_files_in $::env(EXTRA_GDS_FILES)
+if { [info exist ::env(EXTRA_GDS)] } {
+	set gds_files_in $::env(EXTRA_GDS)
 	foreach gds_file $gds_files_in {
 		gds read $gds_file
 

librelane/scripts/odbpy/diodes.py

@@ -330,8 +330,8 @@ class DiodeInserter:
     "--threshold",
     "threshold_microns",
     type=Decimal,
-    default=None,
-    help="Minimum Manhattan distance of a net to be considered an antenna risk requiring a diode. By default, the value used is 200 * the minimum site width.",
+    required=True,
+    help="Minimum Manhattan distance of a net to be considered an antenna risk requiring a diode.",
 )
 @click_odb
 def place(

librelane/scripts/openroad/common/dpl.tcl

@@ -15,7 +15,7 @@ source $::env(SCRIPTS_DIR)/openroad/common/dpl_cell_pad.tcl
 
 remove_fillers
 
-detailed_placement\
+log_cmd detailed_placement\
     -max_displacement [subst { $::env(PL_MAX_DISPLACEMENT_X) $::env(PL_MAX_DISPLACEMENT_Y) }]
 
 if { [info exists ::env(PL_OPTIMIZE_MIRRORING)] && $::env(PL_OPTIMIZE_MIRRORING) } {

librelane/scripts/openroad/common/grt.tcl

@@ -26,7 +26,7 @@ lappend arg_list -verbose
 if { $::env(GRT_ALLOW_CONGESTION) == 1 } {
     lappend arg_list -allow_congestion
 }
-puts $arg_list
-global_route {*}$arg_list
 
-write_guide $::env(STEP_DIR)/after_grt.guide
+log_cmd global_route {*}$arg_list
+
+write_guide $::env(STEP_DIR)/after_grt.guide

librelane/scripts/openroad/common/io.tcl

@@ -1,4 +1,4 @@
-# Copyright 2022-2024 Efabless Corporation
+# Copyright 2022-2025 Efabless Corporation
 #
 # Licensed under the Apache License, Version 2.0 (the "License");
 # you may not use this file except in compliance with the License.
@@ -125,14 +125,14 @@ proc read_current_netlist {args} {
         flags {-powered}
 
     if { [info exists flags(-powered)] } {
-        puts "Reading top-level powered netlist at '$::env(CURRENT_POWERED_NETLIST)'…"
-        if {[catch {read_verilog $::env(CURRENT_POWERED_NETLIST)} errmsg]} {
+        puts "Reading top-level powered netlist at '$::env(CURRENT_PNL)'…"
+        if {[catch {read_verilog $::env(CURRENT_PNL)} errmsg]} {
             puts stderr $errmsg
             exit 1
         }
     } else {
-        puts "Reading top-level netlist at '$::env(CURRENT_NETLIST)'…"
-        if {[catch {read_verilog $::env(CURRENT_NETLIST)} errmsg]} {
+        puts "Reading top-level netlist at '$::env(CURRENT_NL)'…"
+        if {[catch {read_verilog $::env(CURRENT_NL)} errmsg]} {
             puts stderr $errmsg
             exit 1
         }
@@ -153,7 +153,7 @@ proc read_timing_info {args} {
         return
     }
     set corner_name $::env(_CURRENT_CORNER_NAME)
-    define_corners $corner_name
+    log_cm define_corners $corner_name
 
     puts "Reading timing models for corner $corner_name…"
 
@@ -240,31 +240,35 @@ proc read_spefs {} {
 }
 
 proc read_pnr_libs {args} {
-    # _PNR_LIBS contains all libs and extra libs but with known-bad cells
-    # excluded, so OpenROAD can use cells by functionality and come up
-    # with a valid design.
-
-    # If there are ANY libs already read- just leave
-    if { [get_libs -quiet *] != {} } {
-        return
-    }
-
-    define_corners $::env(DEFAULT_CORNER)
-
-    foreach lib $::env(_PNR_LIBS) {
-        puts "Reading library file at '$lib'…"
-        read_liberty $lib
-    }
-    if { [info exists ::env(_MACRO_LIBS) ] } {
-        foreach macro_lib $::env(_MACRO_LIBS) {
-            puts "Reading macro library file at '$macro_lib'…"
-            read_liberty $macro_lib
+    set i "0"
+    set tc_key "_LIB_CORNER_$i"
+    set corner_names [list]
+    while { [info exists ::env($tc_key)] } {
+        set corner_name [lindex $::env($tc_key) 0]
+        set corner_libs [lreplace $::env($tc_key) 0 0]
+        set corner($corner_name) $corner_libs
+        incr i
+        set tc_key "_LIB_CORNER_$i"
+        lappend corner_names $corner_name
+    }
+
+    define_corners {*}[array name corner]
+
+    foreach corner_name [array name corner] {
+        puts "Reading timing models for corner $corner_name…"
+
+        set corner_models $corner($corner_name)
+        foreach model $corner_models {
+            puts "Reading timing library for the '$corner_name' corner at '$model'…"
+            read_liberty -corner $corner_name $model
         }
-    }
-    if { [info exists ::env(EXTRA_LIBS) ] } {
-        foreach extra_lib $::env(EXTRA_LIBS) {
-            puts "Reading extra library file at '$extra_lib'…"
-            read_liberty $extra_lib
+
+        if { [info exists ::env(EXTRA_LIBS) ] } {
+            puts "Reading explicitly-specified extra libs for $corner_name…"
+            foreach extra_lib $::env(EXTRA_LIBS) {
+                puts "Reading extra timing library for the '$corner_name' corner at '$extra_lib'…"
+                read_liberty -corner $corner_name $extra_lib
+            }
         }
     }
 }
@@ -302,6 +306,7 @@ proc read_current_odb {args} {
         keys {}\
         flags {}
 
+    read_pnr_libs
     puts "Reading OpenROAD database at '$::env(CURRENT_ODB)'…"
     if { [ catch {read_db $::env(CURRENT_ODB)} errmsg ]} {
         puts stderr $errmsg
@@ -311,7 +316,6 @@ proc read_current_odb {args} {
     set_global_vars
 
     # Read supporting views (if applicable)
-    read_pnr_libs
     read_current_sdc
     set_dont_use_cells
 }
@@ -402,32 +406,32 @@ proc write_views {args} {
         write_db $::env(SAVE_ODB)
     }
 
-    if { [info exists ::env(SAVE_NETLIST)] } {
-        puts "Writing netlist to '$::env(SAVE_NETLIST)'…"
-        write_verilog $::env(SAVE_NETLIST)
+    if { [info exists ::env(SAVE_NL)] } {
+        puts "Writing netlist to '$::env(SAVE_NL)'…"
+        write_verilog $::env(SAVE_NL)
     }
 
-    if { [info exists ::env(SAVE_POWERED_NETLIST)] } {
-        puts "Writing powered netlist to '$::env(SAVE_POWERED_NETLIST)'…"
-        write_verilog -include_pwr_gnd $::env(SAVE_POWERED_NETLIST)
+    if { [info exists ::env(SAVE_PNL)] } {
+        puts "Writing powered netlist to '$::env(SAVE_PNL)'…"
+        write_verilog -include_pwr_gnd $::env(SAVE_PNL)
     }
 
-    if { [info exists ::env(SAVE_POWERED_NETLIST_SDF_FRIENDLY)] } {
+    if { [info exists ::env(SAVE_SDF_PNL)] } {
         set exclude_cells "[get_timing_excluded_cells]"
-        puts "Writing nofill powered netlist to '$::env(SAVE_POWERED_NETLIST_SDF_FRIENDLY)'…"
+        puts "Writing nofill powered netlist to '$::env(SAVE_SDF_PNL)'…"
         puts "Excluding $exclude_cells"
         write_verilog -include_pwr_gnd \
-            -remove_cells "$exclude_cells"\
-            $::env(SAVE_POWERED_NETLIST_SDF_FRIENDLY)
+            -remove_cells "[get_timing_excluded_cells]"\
+            $::env(SAVE_SDF_PNL)
     }
 
-    if { [info exists ::env(SAVE_POWERED_NETLIST_NO_PHYSICAL_CELLS)] } {
+    if { [info exists ::env(SAVE_LOGICAL_PNL)] } {
         set exclude_cells "[get_physical_cells]"
-        puts "Writing nofilldiode powered netlist to '$::env(SAVE_POWERED_NETLIST_NO_PHYSICAL_CELLS)'…"
+        puts "Writing nofilldiode powered netlist to '$::env(SAVE_LOGICAL_PNL)'…"
         puts "Excluding $exclude_cells"
         write_verilog -include_pwr_gnd \
-            -remove_cells "$exclude_cells"\
-            $::env(SAVE_POWERED_NETLIST_NO_PHYSICAL_CELLS)
+            -remove_cells "[get_physical_cells]"\
+            $::env(SAVE_LOGICAL_PNL)
     }
 
     if { [info exists ::env(SAVE_OPENROAD_LEF)] } {
@@ -538,3 +542,117 @@ if { [namespace exists utl] } {
         puts "%OL_METRIC $metric $value"
     }
 }
+
+proc exit_unless_gui {{status 0}} {
+    if { ![info exists ::env(_OPENROAD_GUI)] || !$::env(_OPENROAD_GUI) } {
+        exit $status
+    }
+}
+
+proc find_unfixed_macros {} {
+    set macros [list]
+
+    foreach inst [$::block getInsts] {
+        set inst_master [$inst getMaster]
+
+        # BLOCK means MACRO cells
+        if { ![string match [$inst_master getType] "BLOCK"] } {
+            continue
+        }
+
+        if { [$inst isFixed] } {
+            continue
+        }
+
+        lappend macros $inst
+    }
+    return $macros
+}
+
+proc get_layers {args} {
+    sta::parse_key_args "get_layers" args \
+        keys {-types -map}\
+        flags {-constrained}
+
+    if { ![info exists keys(-types)] } {
+        puts "\[ERROR\] Invalid usage of get_layers: -types is required."
+    }
+
+    set layers [$::tech getLayers]
+    set result [list]
+    set adding [expr ![info exists flags(-constrained)]]
+    foreach layer $layers {
+        set name [$layer getName]
+        if {"$::env(RT_MIN_LAYER)" == "$name"} {
+            set adding 1
+        }
+        if { [lsearch $keys(-types) [$layer getType]] != -1 && $adding} {
+            lappend result $layer
+        }
+
+        if {"$::env(RT_MAX_LAYER)" == "$name"} {
+            set adding [info exists flags(-constrained)]
+        }
+
+    }
+    if { [info exists keys(-map)] } {
+        set result [lmap layer $result "\$layer $keys(-map)"]
+    }
+    return $result
+}
+
+proc append_if_exists_argument {list_arg glob_variable_name option} {
+    upvar $list_arg local_array
+    if [info exists ::env($glob_variable_name) ] {
+        lappend local_array $option $::env($glob_variable_name)
+    }
+}
+
+proc append_if_flag {list_arg glob_variable_name flag} {
+    upvar $list_arg local_array
+    if { [info exists ::env($glob_variable_name)] && $::env($glob_variable_name) } {
+        lappend local_array $flag
+    }
+}
+proc append_if_not_flag {list_arg glob_variable_name flag} {
+    upvar $list_arg local_array
+    if { [info exists ::env($glob_variable_name)] && !$::env($glob_variable_name) } {
+        lappend local_array $flag
+    }
+}
+
+# Code below adapted from OpenROAD Flow Scripts under the following license:
+#
+# BSD 3-Clause License
+#
+# Copyright (c) 2018-2023, The Regents of the University of California
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+
+# * Redistributions of source code must retain the above copyright notice, this
+#   list of conditions and the following disclaimer.
+#
+# * Redistributions in binary form must reproduce the above copyright notice,
+#   this list of conditions and the following disclaimer in the documentation
+#   and/or other materials provided with the distribution.
+#
+# * Neither the name of the copyright holder nor the names of its
+#   contributors may be used to endorse or promote products derived from
+#   this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+proc log_cmd {cmd args} {
+    puts "+ $cmd [join $args " "]"
+    return [$cmd {*}$args]
+}

librelane/scripts/openroad/common/resizer.tcl

@@ -1,4 +1,4 @@
-# Copyright 2022-2023 Efabless Corporation
+# Copyright 2022-2024 Efabless Corporation
 #
 # Licensed under the Apache License, Version 2.0 (the "License");
 # you may not use this file except in compliance with the License.
@@ -11,45 +11,6 @@
 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 # See the License for the specific language governing permissions and
 # limitations under the License.
-proc load_rsz_corners {args} {
-    set i "0"
-    set tc_key "RSZ_CORNER_$i"
-    while { [info exists ::env($tc_key)] } {
-        set corner_name [lindex $::env($tc_key) 0]
-        set corner_libs [lreplace $::env($tc_key) 0 0]
-
-        set corner($corner_name) $corner_libs
-
-        incr i
-        set tc_key "RSZ_CORNER_$i"
-    }
-
-    if { $i == "0" } {
-        puts stderr "\[WARNING\] No resizer-specific timing information read."
-        return
-    }
-
-    define_corners {*}[array name corner]
-
-    foreach corner_name [array name corner] {
-        puts "Reading timing models for corner $corner_name…"
-
-        set corner_models $corner($corner_name)
-        foreach model $corner_models {
-            puts "Reading timing library for the '$corner_name' corner at '$model'…"
-            read_liberty -corner $corner_name $model
-        }
-
-        if { [info exists ::env(EXTRA_LIBS) ] } {
-            puts "Reading explicitly-specified extra libs for $corner_name…"
-            foreach extra_lib $::env(EXTRA_LIBS) {
-                puts "Reading extra timing library for the '$corner_name' corner at '$extra_lib'…"
-                read_liberty -corner $corner_name $extra_lib
-            }
-        }
-    }
-}
-
 proc set_dont_touch_objects {args} {
     set rx $::env(RSZ_DONT_TOUCH_RX)
     if { $rx != {^$} } {

librelane/scripts/openroad/common/set_global_connections.tcl

@@ -45,7 +45,7 @@ proc set_global_connections {} {
 
             if { $power_pin == "" || $ground_pin == "" } {
                 puts "PDN_MACRO_CONNECTIONS missing power and ground pin names"
-                exit -1
+                exit_unless_gui 1
             }
 
             set matched 0
@@ -57,7 +57,7 @@ proc set_global_connections {} {
             }
             if { $matched != 1 } {
                 puts "\[ERROR\] No match found for regular expression '$instance_name' defined in PDN_MACRO_CONNECTIONS."
-                exit 1
+                exit_unless_gui 1
             }
 
             add_global_connection \

librelane/scripts/openroad/common/set_power_nets.tcl

@@ -17,7 +17,7 @@ if { [info exists ::env(VDD_NETS)] || [info exists ::env(GND_NETS)] } {
     # current assumption: they cannot have a common ground
     if { ! [info exists ::env(VDD_NETS)] || ! [info exists ::env(GND_NETS)] } {
         puts stderr "\[ERROR\] VDD_NETS and GND_NETS must *both* either be defined or undefined"
-        exit -1
+        exit_unless_gui 1
     }
     set ::env(VDD_NET) [lindex $::env(VDD_NETS) 0]
     set ::env(GND_NET) [lindex $::env(GND_NETS) 0]