Commit 92918c74 authored by Jerome Legrand's avatar Jerome Legrand
parents 37602c6b a3e697ae
......@@ -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 \
......
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]
}
}
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]
}
}
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]
}
}
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