44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
proc isScriptFile { fileName } {
switch -exact -- [file extension $fileName] {
.eeagle -
.etcl -
.tcl -
.tk -
.test -
.eagle {
return true
}
.xml {
set uri [object invoke Eagle._Constants.Xml ScriptNamespaceUri]
set data [readFile $fileName]
|
>
|
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
proc isScriptFile { fileName } {
switch -exact -- [file extension $fileName] {
.eeagle -
.etcl -
.tcl -
.tk -
.test -
.ruleSet -
.eagle {
return true
}
.xml {
set uri [object invoke Eagle._Constants.Xml ScriptNamespaceUri]
set data [readFile $fileName]
|