Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
ellidiss-release
Commits
d21665f6
Commit
d21665f6
authored
Nov 21, 2016
by
Maxime Perrotin
Browse files
Remove build_ada.tcl
Only support the C runtime for the time being
parent
fcdc52dc
Changes
1
Hide whitespace changes
Inline
Side-by-side
TASTE-linux/config/externalTools/build_ada.tcl
deleted
100755 → 0
View file @
fcdc52dc
package provide build_ada 0.1
lappend auto_path .
namespace eval build_ada
{
# Graphical name of the operation
proc getLabel
{}
{
return
"Build the system (in Ada)"
}
# 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 build_ada
{
args
}
{
set params
[
lindex $args 0
]
set aadlFilePath
[
Parameter::getParameter $params aadlFilePath
]
set aadlId
[
Parameter::getParameter $params id
]
return
[
build_internal $aadlFilePath $aadlId
]
}
# synchronous call
proc build_internal
{
aadlFilePath aadlId
}
{
set initialPath
[
pwd
]
cd
[
file dirname $aadlFilePath
]
set msg
""
set errNumb
[
catch
{
exec
[
auto_execok
"taste-build-system"
]
}
]
if
{
$errNumb == 0
}
{
set msg
"Everything went fine!"
}
else
{
set msg
"Some errors were reported - check the console"
}
cd $initialPath
return
[
list $errNumb $msg
]
}
}
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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