Commit 31f8af3d authored by Arnaud Schach's avatar Arnaud Schach

Error in merge from Ellidiss. Replace kate by gps once again

parent 00f069e5
......@@ -55,12 +55,12 @@ namespace eval ada_kate {
set aadlId [string tolower $aadlId 0 end]
set fileBaseName [file normalize "[pwd]/$aadlId" ]
if { $errNumb == 0 && [file exists $fileBaseName ] } {
if { [auto_execok kate] == "" } {
if { [auto_execok gps] == "" } {
set errNumb -1
set msg [list "Error in execution of \"kate ${fileBaseName}/${aadlId}.ads ${fileBaseName}/${aadlId}.adb: unknown file kate" ]
set msg [list "Error in execution of \"gps ${fileBaseName}/${aadlId}.ads ${fileBaseName}/${aadlId}.adb: unknown file gps" ]
} else {
ToolsOthers::execAsynchronouslyWithResponse [list "[auto_execok kate] ${fileBaseName}/${aadlId}.ads ${fileBaseName}/${aadlId}.adb" ] \
"::ada_kateres" "Kate error report" "The execution of kate stopped with error"
ToolsOthers::execAsynchronouslyWithResponse [list "[auto_execok gps] ${fileBaseName}/${aadlId}.ads ${fileBaseName}/${aadlId}.adb" ] \
"::ada_kateres" "gps error report" "The execution of gps stopped with error"
}
} elseif { $errNumb != 0 } {
set errNumb -1
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment