read_sdc check for zlib (missing in centos7/tcl5)
Signed-off-by: James Cherry <cherry@parallaxsw.com>
This commit is contained in:
parent
7fbe386d35
commit
3095912a6c
|
|
@ -72,6 +72,9 @@ proc source_ { filename echo verbose } {
|
||||||
if [catch {open $filename r} stream] {
|
if [catch {open $filename r} stream] {
|
||||||
sta_error 340 "cannot open '$filename'."
|
sta_error 340 "cannot open '$filename'."
|
||||||
} else {
|
} else {
|
||||||
|
if { [info commands zlib] == "" } {
|
||||||
|
sta_error 339 "tcl version > 8.6 required for zlib support."
|
||||||
|
}
|
||||||
if { [file extension $filename] == ".gz" } {
|
if { [file extension $filename] == ".gz" } {
|
||||||
zlib push gunzip $stream
|
zlib push gunzip $stream
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue