Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
ellidiss-release
Commits
92918c74
Commit
92918c74
authored
Oct 28, 2016
by
Jerome Legrand
Browse files
Merge branch 'master' of
https://gitrepos.estec.esa.int/taste/ellidiss-release
parents
37602c6b
a3e697ae
Changes
4
Hide whitespace changes
Inline
Side-by-side
TASTE-linux/config/IVConfig.ini
View file @
92918c74
...
...
@@ -24,7 +24,7 @@ namespace eval IVConfig {
"editableColor"
"orange"
\
"emptyPercent"
0.9
\
"removeDialogBox"
"false"
\
"asn2aadlPath"
"
./bin/
asn2aadl
.exe
"
\
"asn2aadlPath"
"asn2aadl
Plus
"
\
"selectionPrecision"
2
\
"minInterfaceSize"
2
\
"maxInterfaceSize"
40
\
...
...
TASTE-linux/config/externalTools/cleanup.tcl
0 → 100755
View file @
92918c74
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
0 → 100644
View file @
92918c74
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
0 → 100755
View file @
92918c74
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
]
/
$aadl
Id"
]
]
}
{
cd
[
file normalize
"
[
pwd
]
/
$aadl
Id/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
$aadl
FilePath
\"
"
}
cd $initialPath
return
[
list $errNumb $msg
]
}
}
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment