proc graph_tag_nodes: better tagging of multi-line nodes that use escaped newlines

2025-09-22 12:06:12 +02:00 · 2025-09-22 12:06:12 +02:00 · bd0e07fbe7
parent 35d7c53cbe
commit bd0e07fbe7
1 changed files with 2 additions and 0 deletions
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@ -3173,6 +3173,8 @@ proc graph_tag_nodes {txt} {


  set start 0
+  # transform escaped newlines into two spaces, so tagging of multiline nodes is simpler
+  regsub -all "\\\\\n" $txt {  } txt
  if {[regexp {^tcleval\(} $txt]} {
    set start 8
    regsub {\)[ \n]*$} $txt {} txt