From ecc0addb8c396fe508beace40360c56296807764 Mon Sep 17 00:00:00 2001
From: Istvan Csomortani <istvan.csomortani@analog.com>
Date: Tue, 18 Oct 2016 11:25:06 +0300
Subject: [PATCH] scripts/adi_ip_alt.tcl: Script is case insensitive for its
 arguments

---
 library/scripts/adi_ip_alt.tcl | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/library/scripts/adi_ip_alt.tcl b/library/scripts/adi_ip_alt.tcl
index 664b1d5d1..f8e36343d 100644
--- a/library/scripts/adi_ip_alt.tcl
+++ b/library/scripts/adi_ip_alt.tcl
@@ -3,26 +3,26 @@
 
 proc ad_alt_intf {type name dir width {arg_1 ""} {arg_2 ""}} {
 
-  if {(($type eq "clock") && ($dir eq "input"))} {
+  if {([string equal -nocase ${type} "clock"]) && ([string equal -nocase ${dir} "input"])} {
     add_interface if_${name} clock sink
     add_interface_port if_${name} ${name} clk ${dir} ${width}
     return
   }
 
-  if {(($type eq "clock") && ($dir eq "output"))} {
+  if {([string equal -nocase ${type} "clock"]) && ([string equal -nocase ${dir} "output"])} {
     add_interface if_${name} clock source
     add_interface_port if_${name} ${name} clk ${dir} ${width}
     return
   }
 
-  if {(($type eq "reset") && ($dir eq "input"))} {
+  if {([string equal -nocase ${type} "reset"]) && ([string equal -nocase ${dir} "input"])} {
     add_interface if_${name} reset sink
     add_interface_port if_${name} ${name} reset ${dir} ${width}
     set_interface_property if_${name} associatedclock ${arg_1}
     return
   }
 
-  if {(($type eq "reset") && ($dir eq "output"))} {
+  if {([string equal -nocase ${type} "reset"]) && ([string equal -nocase ${dir} "output"])} {
     add_interface if_${name} reset source
     add_interface_port if_${name} ${name} reset ${dir} ${width}
     set_interface_property if_${name} associatedclock ${arg_1}
@@ -30,14 +30,14 @@ proc ad_alt_intf {type name dir width {arg_1 ""} {arg_2 ""}} {
     return
   }
 
-  if {(($type eq "reset-n") && ($dir eq "input"))} {
+  if {([string equal -nocase ${type} "reset-n"]) && ([string equal -nocase ${dir} "input"])} {
     add_interface if_${name} reset sink
     add_interface_port if_${name} ${name} reset_n ${dir} ${width}
     set_interface_property if_${name} associatedclock ${arg_1}
     return
   }
 
-  if {(($type eq "reset-n") && ($dir eq "output"))} {
+  if {([string equal -nocase ${type} "reset-n"]) && ([string equal -nocase ${dir} "output"])} {
     add_interface if_${name} reset source
     add_interface_port if_${name} ${name} reset_n ${dir} ${width}
     set_interface_property if_${name} associatedclock ${arg_1}
@@ -45,7 +45,7 @@ proc ad_alt_intf {type name dir width {arg_1 ""} {arg_2 ""}} {
     return
   }
 
-  if {(($type eq "intr") && ($dir eq "output"))} {
+  if {([string equal -nocase ${type} "intr"]) && ([string equal -nocase ${dir} "output"])} {
     add_interface if_${name} interrupt source
     add_interface_port if_${name} ${name} irq ${dir} ${width}
     set_interface_property if_${name} associatedclock ${arg_1}
@@ -57,7 +57,7 @@ proc ad_alt_intf {type name dir width {arg_1 ""} {arg_2 ""}} {
     set remap $name
   }
 
-  if {$type eq "signal"} {
+  if {[string equal -nocase ${type} "signal"]} {
     add_interface if_${name} conduit end
     add_interface_port if_${name} ${name} ${remap} ${dir} ${width}
     return