URL https://opencores.org/ocsvn/aes-128-ecb-encoder/aes-128-ecb-encoder/trunk

Subversion Repositories aes-128-ecb-encoder

[/] [aes-128-ecb-encoder/] [trunk/] [fpga/] [aes128_ecb_2017/] [aes128_ecb.runs/] [impl_1/] [aes128_ecb_fpga_wrap.tcl] - Blame information for rev 2

Details | Compare with Previous | View Log


# 
# Report generation script generated by Vivado
# 
 
proc create_report { reportName command } {
  set status "."
  append status $reportName ".fail"
  if { [file exists $status] } {
    eval file delete [glob $status]
  }
  send_msg_id runtcl-4 info "Executing : $command"
  set retval [eval catch { $command } msg]
  if { $retval != 0 } {
    set fp [open $status w]
    close $fp
    send_msg_id runtcl-5 warning "$msg"
  }
}
proc start_step { step } {
  set stopFile ".stop.rst"
  if {[file isfile .stop.rst]} {
    puts ""
    puts "*** Halting run - EA reset detected ***"
    puts ""
    puts ""
    return -code error
  }
  set beginFile ".$step.begin.rst"
  set platform "$::tcl_platform(platform)"
  set user "$::tcl_platform(user)"
  set pid [pid]
  set host ""
  if { [string equal $platform unix] } {
    if { [info exist ::env(HOSTNAME)] } {
      set host $::env(HOSTNAME)
    }
  } else {
    if { [info exist ::env(COMPUTERNAME)] } {
      set host $::env(COMPUTERNAME)
    }
  }
  set ch [open $beginFile w]
  puts $ch "<?xml version=\"1.0\"?>"
  puts $ch "<ProcessHandle Version=\"1\" Minor=\"0\">"
  puts $ch "    <Process Command=\".planAhead.\" Owner=\"$user\" Host=\"$host\" Pid=\"$pid\">"
  puts $ch "    </Process>"
  puts $ch "</ProcessHandle>"
  close $ch
}
 
proc end_step { step } {
  set endFile ".$step.end.rst"
  set ch [open $endFile w]
  close $ch
}
 
proc step_failed { step } {
  set endFile ".$step.error.rst"
  set ch [open $endFile w]
  close $ch
}
 
 
start_step write_bitstream
set ACTIVE_STEP write_bitstream
set rc [catch {
  create_msg_db write_bitstream.pb
  set_param xicom.use_bs_reader 1
  open_checkpoint aes128_ecb_fpga_wrap_routed.dcp
  set_property webtalk.parent_dir /home/user/aes128/fpga/aes128_ecb_2017/aes128_ecb.cache/wt [current_project]
  set_property XPM_LIBRARIES XPM_CDC [current_project]
  catch { write_mem_info -force aes128_ecb_fpga_wrap.mmi }
  write_bitstream -force aes128_ecb_fpga_wrap.bit
  catch {write_debug_probes -quiet -force aes128_ecb_fpga_wrap}
  catch {file copy -force aes128_ecb_fpga_wrap.ltx debug_nets.ltx}
  close_msg_db -file write_bitstream.pb
} RESULT]
if {$rc} {
  step_failed write_bitstream
  return -code error $RESULT
} else {
  end_step write_bitstream
  unset ACTIVE_STEP
}
 

Line No.	Rev	Author	Line
1	2	vv_gulyaev	`#`
2			`# Report generation script generated by Vivado`
3			`#`
4
5			`proc create_report { reportName command } {`
6			`set status "."`
7			`append status $reportName ".fail"`
8			`if { [file exists $status] } {`
9			`eval file delete [glob $status]`
10			`}`
11			`send_msg_id runtcl-4 info "Executing : $command"`
12			`set retval [eval catch { $command } msg]`
13			`if { $retval != 0 } {`
14			`set fp [open $status w]`
15			`close $fp`
16			`send_msg_id runtcl-5 warning "$msg"`
17			`}`
18			`}`
19			`proc start_step { step } {`
20			`set stopFile ".stop.rst"`
21			`if {[file isfile .stop.rst]} {`
22			`puts ""`
23			`puts "* Halting run - EA reset detected *"`
24			`puts ""`
25			`puts ""`
26			`return -code error`
27			`}`
28			`set beginFile ".$step.begin.rst"`
29			`set platform "$::tcl_platform(platform)"`
30			`set user "$::tcl_platform(user)"`
31			`set pid [pid]`
32			`set host ""`
33			`if { [string equal $platform unix] } {`
34			`if { [info exist ::env(HOSTNAME)] } {`
35			`set host $::env(HOSTNAME)`
36			`}`
37			`} else {`
38			`if { [info exist ::env(COMPUTERNAME)] } {`
39			`set host $::env(COMPUTERNAME)`
40			`}`
41			`}`
42			`set ch [open $beginFile w]`
43			`puts $ch "<?xml version=\"1.0\"?>"`
44			`puts $ch "<ProcessHandle Version=\"1\" Minor=\"0\">"`
45			`puts $ch " <Process Command=\".planAhead.\" Owner=\"$user\" Host=\"$host\" Pid=\"$pid\">"`
46			`puts $ch " </Process>"`
47			`puts $ch "</ProcessHandle>"`
48			`close $ch`
49			`}`
50
51			`proc end_step { step } {`
52			`set endFile ".$step.end.rst"`
53			`set ch [open $endFile w]`
54			`close $ch`
55			`}`
56
57			`proc step_failed { step } {`
58			`set endFile ".$step.error.rst"`
59			`set ch [open $endFile w]`
60			`close $ch`
61			`}`
62
63
64			`start_step write_bitstream`
65			`set ACTIVE_STEP write_bitstream`
66			`set rc [catch {`
67			`create_msg_db write_bitstream.pb`
68			`set_param xicom.use_bs_reader 1`
69			`open_checkpoint aes128_ecb_fpga_wrap_routed.dcp`
70			`set_property webtalk.parent_dir /home/user/aes128/fpga/aes128_ecb_2017/aes128_ecb.cache/wt [current_project]`
71			`set_property XPM_LIBRARIES XPM_CDC [current_project]`
72			`catch { write_mem_info -force aes128_ecb_fpga_wrap.mmi }`
73			`write_bitstream -force aes128_ecb_fpga_wrap.bit`
74			`catch {write_debug_probes -quiet -force aes128_ecb_fpga_wrap}`
75			`catch {file copy -force aes128_ecb_fpga_wrap.ltx debug_nets.ltx}`
76			`close_msg_db -file write_bitstream.pb`
77			`} RESULT]`
78			`if {$rc} {`
79			`step_failed write_bitstream`
80			`return -code error $RESULT`
81			`} else {`
82			`end_step write_bitstream`
83			`unset ACTIVE_STEP`
84			`}`
85

Browse

Tools

Subversion Repositories aes-128-ecb-encoder

[/] [aes-128-ecb-encoder/] [trunk/] [fpga/] [aes128_ecb_2017/] [aes128_ecb.runs/] [impl_1/] [aes128_ecb_fpga_wrap.tcl] - Blame information for rev 2