Hog Hog2026.2-1
quartus-post-module.tcl
Go to the documentation of this file.
1 # Copyright 2018-2026 The University of Birmingham
2 # Copyright 2018-2026 Max-Planck-Institute for Physics
3 #
4 # Licensed under the Apache License, Version 2.0 (the "License");
5 # you may not use this file except in compliance with the License.
6 # You may obtain a copy of the License at
7 #
8 # http://www.apache.org/licenses/LICENSE-2.0
9 #
10 # Unless required by applicable law or agreed to in writing, software
11 # distributed under the License is distributed on an "AS IS" BASIS,
12 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
13 # See the License for the specific language governing permissions and
14 # limitations under the License.
15 
16 
17 # @file quartus-pre-flow.tcl
18 # The pre synthesis flow checks the status of your git repository and stores into a set of variables that are fed as generics to the HDL project.
19 # This script is automatically integrated into the Quartus workflow by the Create Project script.
20 #
21 
22 ##nagelfar variable quartus
23 
24 set tcl_path [file normalize "[file dirname [info script]]/.."]
25 if {[info procs Msg] == ""} {
26  source $tcl_path/hog.tcl
27 }
28 
29 set stage [lindex $quartus(args) 0]
30 
31 if {[string compare $stage "quartus_map"] == 0 || [string compare $stage "quartus_syn"] == 0} {
32  set script_path [file normalize "$tcl_path/integrated/post-synthesis.tcl"]
33 } elseif {[string compare $stage "quartus_fit"] == 0} {
34  set script_path [file normalize "$tcl_path/integrated/post-implementation.tcl"]
35 } elseif {[string compare $stage "quartus_asm"] == 0} {
36  set script_path [file normalize "$tcl_path/integrated/post-bitstream.tcl"]
37 } else {
38  Msg Info "Unsupported step: $stage"
39  return 0
40 }
41 
42 if {[file exists $script_path]} {
43  source $script_path
44 }