OpenCores
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 +} + + + + +

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.