From 336a7aa2098b6c076f07ae61f5db6f10cad4fc1c Mon Sep 17 00:00:00 2001 From: Tim Edwards Date: Fri, 29 May 2020 17:13:38 -0400 Subject: [PATCH] Added missing close-bracket in the readspice script, and corrected a diagnostic error output in the port command. --- commands/CmdLQ.c | 4 ++-- tcltk/readspice.tcl | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/commands/CmdLQ.c b/commands/CmdLQ.c index a038da62..2c6fda11 100644 --- a/commands/CmdLQ.c +++ b/commands/CmdLQ.c @@ -1394,9 +1394,9 @@ CmdPort(w, cmd) if (lab == NULL) { if (StrIsInt(cmd->tx_argv[1])) - TxError("No label found with name %s.\n", cmd->tx_argv[1]); + TxError("No label found with index %s.\n", cmd->tx_argv[1]); else - TxError("No port found with index %s.\n", cmd->tx_argv[1]); + TxError("No port found with name %s.\n", cmd->tx_argv[1]); return; } argstart = 2; diff --git a/tcltk/readspice.tcl b/tcltk/readspice.tcl index a282cf39..66e116ed 100644 --- a/tcltk/readspice.tcl +++ b/tcltk/readspice.tcl @@ -117,11 +117,11 @@ proc readspice {netfile} { # is by no means exhaustive. if {$pinidx == ""} { - set testpin [string map {\[ < \] >]} $pin + set testpin [string map {\[ < \] >]} $pin] set pinidx [port $testpin index] } if {$pinidx == ""} { - set testpin [string map {< \[ > \]} $pin + set testpin [string map {< \[ > \]} $pin] set pinidx [port $testpin index] }