luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

do not try to preview generator scripts

This commit is contained in:
stefan schippers 2023-04-23 10:29:01 +02:00
parent 0d86960df0
commit 70ef115a13
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/xschem.tcl
View File

@ -2355,11 +2355,13 @@ proc is_xschem_file {f} {
set ret 0
set score 0
set instances 0
set nline 0
if {$a} {
puts stderr "Can not open file $f"
} else {
fconfigure $fd -translation binary
while { [gets $fd line] >=0 } {
if { $nline == 0 && [regexp {^#!} $line] } { break } ;# this is a script. not an xschem file
if { [regexp {^[TKGVSE] \{} $line] } { incr score }
if { [regexp {^[BL] +[0-9]+ +[-0-9.eE]+ +[-0-9.eE]+ +[-0-9.eE]+ +[-0-9.eE]+ +\{} $line] } {incr score}
if { [regexp {^N +[-0-9.eE]+ +[-0-9.eE]+ +[-0-9.eE]+ +[-0-9.eE]+ +\{} $line] } {incr score}
@ -2367,6 +2369,7 @@ proc is_xschem_file {f} {
if { [regexp "^v\[ \t\]+\{xschem\[ \t\]+version\[ \t\]*=.*\[ \t\]+file_version\[ \t\]*=" $line] } {
set ret 1
}
incr nline
}
if { $score > 4 } { set ret 1} ;# Heuristic decision :-)
if { $ret } {