URL
https://opencores.org/ocsvn/an-fpga-implementation-of-low-latency-noc-based-mpsoc/an-fpga-implementation-of-low-latency-noc-based-mpsoc/trunk
Subversion Repositories an-fpga-implementation-of-low-latency-noc-based-mpsoc
Compare Revisions
- This comparison shows the changes necessary to convert path
/an-fpga-implementation-of-low-latency-noc-based-mpsoc/trunk/mpsoc/perl_gui/lib/tcl
- from Rev 38 to Rev 48
- ↔ Reverse comparison
Rev 38 → Rev 48
/0.tcl
0,0 → 1,17
proc main {} { |
|
open_hw |
connect_hw_server |
open_hw_target |
connect |
puts "*RESULT:$devices" |
|
exit |
} |
|
if {[catch {main} msg options]} { |
puts stderr "unexpected script error: $msg" |
|
# Reserve code 1 for "expected" error exits... |
exit 2 |
} |
/prog_mem_xsct.tcl
0,0 → 1,26
#!/usr/bin/tclsh |
|
|
proc filehexdump filename { |
set fp [open $filename] |
fconfigure $fp -translation binary |
#set n 0 |
while {![eof $fp]} { |
set bytes [read $fp 4] |
puts [hexdump $bytes] |
puts "\n" |
|
#regsub -all {[^\x20-\xfe]} $bytes . ascii |
#puts [format "%04X %-48s %-16s" $n [hexdump $bytes] $ascii] |
#incr n 16 |
} |
close $fp |
} |
proc hexdump string { |
binary scan $string H* hex |
regexp -all -inline ........ $hex |
} |
|
|
|
filehexdump "ram0.bin" |
prog_mem_xsct.tcl
Property changes :
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property
Index: ram0.bin
===================================================================
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Index: ram0.bin
===================================================================
--- ram0.bin (nonexistent)
+++ ram0.bin (revision 48)
ram0.bin
Property changes :
Added: svn:mime-type
## -0,0 +1 ##
+application/octet-stream
\ No newline at end of property
Index: vivado_get_boards.tcl
===================================================================
--- vivado_get_boards.tcl (nonexistent)
+++ vivado_get_boards.tcl (revision 48)
@@ -0,0 +1,21 @@
+proc main {} {
+ set l [llength $::argv ]
+ if {$l > 0} {
+ set path [lindex $::argv 0]
+ puts "Set repo path: $path"
+ set_param board.repoPaths [list "$path"]
+ }
+
+ puts [get_board_parts]
+
+ exit
+
+}
+
+if {[catch {main} msg options]} {
+ puts stderr "unexpected script error: $msg"
+
+ # Reserve code 1 for "expected" error exits...
+ exit 2
+}
+
Index: vivado_get_hw_device.tcl
===================================================================
--- vivado_get_hw_device.tcl (nonexistent)
+++ vivado_get_hw_device.tcl (revision 48)
@@ -0,0 +1,17 @@
+proc main {} {
+ # ... put the real main code in here ...
+ open_hw
+ connect_hw_server
+ open_hw_target
+ set devices [get_hw_devices]
+ puts "*RESULT:$devices"
+
+ exit
+}
+
+if {[catch {main} msg options]} {
+ puts stderr "unexpected script error: $msg"
+
+ # Reserve code 1 for "expected" error exits...
+ exit 2
+}
Index: vivado_get_part.tcl
===================================================================
--- vivado_get_part.tcl (nonexistent)
+++ vivado_get_part.tcl (revision 48)
@@ -0,0 +1,40 @@
+proc main {} {
+
+
+ if { $::argc == 0 } {
+ puts "The script requires board_part to be input."
+ puts "Please try again."
+ exit
+ }
+
+
+
+ if { $::argc >1 } {
+ set path [lindex $::argv 1]
+ set_param board.repoPaths [list "$path"]
+ }
+
+ set board_part [lindex $::argv 0]
+
+ create_project -force "$::env(PRONOC_WORK)/tmp"
+
+ set_property "board_part" $board_part [current_project]
+ set parts [get_parts [get_property PART_NAME [current_board_part]]]
+ puts "*RESULT:$parts"
+
+
+ exit
+}
+
+
+if {[catch {main} msg options]} {
+ puts stderr "unexpected script error: $msg"
+
+ # Reserve code 1 for "expected" error exits...
+ exit 2
+}
+
+
+
+
+