Add vhdl launch script

TASTE-linux/config/externalTools/vhdl.tcl

+package provide vhdl 0.1 
+# C code editor (using Kate)
+lappend auto_path .
+namespace eval vhdl {
+    
+    # Graphical name of the operation
+    proc getLabel {} {
+        return "Edit VHDL"
+    }
+    
+    # Name of the application this script can be used with
+    # shall be either InterfaceView or DeploymentView
+    proc getApplication {} {
+        return "InterfaceView"
+    }
+    
+    # Names of  the object this script can be used on
+    proc getApplyTo {} {
+        return [list { "Function" {"Source_Language" "VHDL"} }  ]
+    }
+    
+    # List of way to manage output in the Framework
+    # Could be an empty list or one or both of 'dialogBox' and 'statusBar'
+    proc getOutputManagement {} {
+        return [list statusBar]
+    }
+    
+    proc vhdl { args } {
+        set params [lindex $args 0]
+        set aadlFilePath [Parameter::getParameter $params aadlFilePath]
+        set aadlId [Parameter::getParameter $params id]
+        return [vhdl_internal $aadlFilePath $aadlId]
+    }
+    
+    #  the line "exec {*}[auto_execok $::installationPath/config/externalTools/test.bat]"
+    #  ask the current OS which software is to be used to open the file test.bat
+    #  to launch using the absolute path, read the template2.tcl_
+    
+    # synchronous call
+    proc vhdl_internal { aadlFilePath aadlId } {    
+        set initialPath [pwd]
+        cd [file dirname $aadlFilePath]
+        set msg ""
+        
+        set errNumb [catch { exec -ignorestderr {*}[auto_execok "taste-generate-skeletons"] } ]
+        
+        set aadlId [string tolower $aadlId 0 end]
+        
+        if { $errNumb == 0 && [file exists [file normalize "[pwd]/$aadlId" ] ] } {
+            cd [file normalize "[pwd]/$aadlId/TASTE-VHDL-XISE" ]
+            set errNumb [catch { exec -ignorestderr {*}[auto_execok ise] "Example1.xise" & } ]
+            if { $errNumb == 0 } {
+            } else {
+                set msg "Error - Make sure Xilinx ISE is installed!"
+            }
+        } else {
+            set msg "Error in execution of \"taste-generate-skeletons $aadlFilePath\""
+        }
+        
+        cd $initialPath
+        return [list $errNumb $msg]
+    } 
+    
+}