Merge pull request The-OpenROAD-Project#3774 from The-OpenROAD-Projec…

…t-staging/grt-layer-underscore

grt: generalize layer name regex in layer range parsing

src/grt/src/GlobalRouter.tcl

@@ -42,7 +42,7 @@ proc set_global_routing_layer_adjustment { args } {
     if {$layer == "*"} {
       sta::check_positive_float "adjustment" $adj
       grt::set_capacity_adjustment $adj
-    } elseif [regexp -all {([a-zA-Z0-9]+)-([a-zA-Z0-9]+)} $layer] {
+    } elseif [regexp -all {([^-]+)-([^_]+)} $layer] {
       lassign [grt::parse_layer_range "set_global_routing_layer_adjustment" $layer] first_layer last_layer
       for {set l $first_layer} {$l <= $last_layer} {incr l} {
         grt::check_routing_layer $l
@@ -491,7 +491,7 @@ proc parse_layer_name { layer_name } {
 }
 
 proc parse_layer_range { cmd layer_range } {
-  if [regexp -all {([a-zA-Z0-9]+)-([a-zA-Z0-9]+)} $layer_range - min_layer_name max_layer_name] {
+  if [regexp -all {([^-]+)-([^-]+)} $layer_range - min_layer_name max_layer_name] {
     set min_layer [parse_layer_name $min_layer_name]
     set max_layer [parse_layer_name $max_layer_name]