URL
https://opencores.org/ocsvn/sv_dir_tb/sv_dir_tb/trunk
Subversion Repositories sv_dir_tb
Compare Revisions
- This comparison shows the changes necessary to convert path
/sv_dir_tb
- from Rev 3 to Rev 2
- ↔ Reverse comparison
Rev 3 → Rev 2
/trunk/tb_gen/tb_gen.tcl
32,7 → 32,7
package require Iwidgets 4.0 |
|
## set the current version info |
set version "Beta 1.1" |
set version "Beta 1.0" |
## put up a title on the main window boarder |
wm title . "SV TB Gen $version" |
|
602,7 → 602,6
puts $tfh "endmodule" |
|
close $tfh |
$p_view step |
############################################################################ |
## generate the interface file. |
set ifn $destin_text |
656,15 → 655,12
puts $ifh "endinterface" |
close $ifh |
|
$p_view step |
########################################################################## |
## generate the tb_prg file from template. |
set prg_gen [$mo_sel get] |
if {$prg_gen == "No mod"} { |
$p_view step |
$p_view step |
return |
} |
return |
} |
set tpl_fh [open $template r] |
set tpl_lst {} |
set hfound 0 |
702,12 → 698,6
incr idx |
} |
|
#foreach l $tpl_lst { |
# puts $l |
#} |
|
|
$p_view step |
set idx 0 |
foreach l $tpl_lst { |
set ent_pt [string first ">>drive sigs" $l] |
736,11 → 726,10
} |
|
write_header $pfh |
foreach l $tpl_lst { |
puts $pfh $l |
} |
#foreach l $tpl_lst { |
# puts $pfh $l |
#} |
|
$p_view step |
close $pfh |
} |
## end ttb_gen |
748,7 → 737,7
## show about message |
proc show_about {} { |
global version |
|
|
set msg "Copyright 2014 Ken Campbell\n |
Version $version\n |
Licensed under the Apache License, Version 2.0 (the \"License\"); You may not use this file except in compliance with the License. You may obtain a copy of the License at\n |