42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
if {[file extension $fileName] ne ".eagle"} then {
return false
}
set rootName [file rootname [file tail $fileName]]
if {$rootName eq "keyRing" || \
[string match "keyRing.*" $rootName]} then {
return true
}
return false
}
proc checkAndMatchKeyFile { varName {keyFile ""} } {
|
|
|
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
if {[file extension $fileName] ne ".eagle"} then {
return false
}
set rootName [file rootname [file tail $fileName]]
if {$rootName eq "keyRing" || \
[string match "keyRing*" $rootName]} then {
return true
}
return false
}
proc checkAndMatchKeyFile { varName {keyFile ""} } {
|