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
2f1a6812
Commit
2f1a6812
authored
Oct 14, 2016
by
Maxime Perrotin
Browse files
Add cleanup script in external tools (from v1.3)
parent
6dbba410
Changes
1
Hide whitespace changes
Inline
Side-by-side
TASTE-linux/config/externalTools/cleanup.tcl
0 → 100755
View file @
2f1a6812
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
]
}
}
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