Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
E
ellidiss-release
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
10
Issues
10
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
TASTE
ellidiss-release
Commits
d21665f6
Commit
d21665f6
authored
Nov 21, 2016
by
Maxime Perrotin
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Remove build_ada.tcl
Only support the C runtime for the time being
parent
fcdc52dc
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
0 additions
and
52 deletions
+0
-52
TASTE-linux/config/externalTools/build_ada.tcl
TASTE-linux/config/externalTools/build_ada.tcl
+0
-52
No files found.
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
Markdown
is supported
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