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
304a8f93
Commit
304a8f93
authored
Oct 14, 2016
by
Maxime Perrotin
Browse files
Add vhdl launch script
parent
682707d7
Changes
1
Hide whitespace changes
Inline
Side-by-side
TASTE-linux/config/externalTools/vhdl.tcl
0 → 100755
View file @
304a8f93
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
.
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