zcy
/
pluto_hdl_adi
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

scripts/adi_ip_alt.tcl: Script is case insensitive for its arguments

main
Istvan Csomortani 2016-10-18 11:25:06 +03:00
parent 918ce45e2a
commit ecc0addb8c
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
library/scripts/adi_ip_alt.tcl
View File

@ -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