Merge branch 'master' of https://gitrepos.estec.esa.int/taste/ellidiss-release

TASTE-linux/config/IVConfig.ini

@@ -24,7 +24,7 @@ namespace eval IVConfig {
         "editableColor" "orange" \
         "emptyPercent" 0.9 \
         "removeDialogBox" "false" \
-        "asn2aadlPath" "./bin/asn2aadl.exe" \
+        "asn2aadlPath" "asn2aadlPlus" \
         "selectionPrecision" 2 \
         "minInterfaceSize" 2 \
         "maxInterfaceSize" 40 \

TASTE-linux/config/externalTools/cleanup.tcl

+package provide cleanup 0.1 
+# Delete output (binary) directory
+lappend auto_path .
+namespace eval cleanup {
+    
+    # Graphical name of the operation
+    proc getLabel {} {
+        return "Cleanup output (binary) directory"
+    }
+    
+    # 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 "alwayson" ]
+    }
+    
+    # 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 cleanup { args } {
+        set params [lindex $args 0]
+        set aadlFilePath [Parameter::getParameter $params aadlFilePath]
+        set aadlId [Parameter::getParameter $params id]
+        return [cleanup_internal $aadlFilePath $aadlId]
+    }
+    
+    # synchronous call
+    proc cleanup_internal { aadlFilePath aadlId } {    
+        set initialPath [pwd]
+        cd [file dirname $aadlFilePath]
+        
+        set errNumb [catch { exec -ignorestderr {*}[auto_execok "bash"] "-c" "rm -rf binary*"} ]
+        
+        set msg "Output directory was removed."
+        
+        cd $initialPath
+        return [list $errNumb $msg]
+    } 
+}

TASTE-linux/config/externalTools/generate_database.tcl

+package provide generate_database 0.1 
+
+lappend auto_path .
+namespace eval generate_database {
+    
+    # Graphical name of the operation
+    proc getLabel {} {
+        return "Generate database"
+    }
+    
+    # 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
+    # FIXME - it should be active all the time
+    proc getApplyTo {} {
+        return [list "alwayson" ]
+    }
+    
+    # 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 generate_database { args } {
+        set params [lindex $args 0]
+        set aadlFilePath [Parameter::getParameter $params aadlFilePath]
+        set aadlId [Parameter::getParameter $params id]
+        return [generate_database_internal $aadlFilePath $aadlId]
+    }
+    
+    # synchronous call
+    proc generate_database_internal { aadlFilePath aadlId } {    
+        set initialPath [pwd]
+        cd [file dirname $aadlFilePath]
+        set msg ""
+        set ::env(FORCE) 1
+        set errNumb [catch { exec -ignorestderr {*}[auto_execok "taste-create-database"] } ]
+        if { $errNumb == 0 } {
+           set msg "Everything went fine!"
+           unset ::env(FORCE)
+        } else {
+           set msg "Some errors were reported - check the console"
+        }
+                
+        cd $initialPath
+        return [list $errNumb $msg]
+    } 
+    
+}

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]
+    } 
+    
+}