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
/
- from Rev 2 to Rev 3
- ↔ Reverse comparison
Rev 2 → Rev 3
/sv_dir_tb/trunk/tb_gen/tb_gen.tcl
32,7 → 32,7
package require Iwidgets 4.0 |
|
## set the current version info |
set version "Beta 1.0" |
set version "Beta 1.1" |
## put up a title on the main window boarder |
wm title . "SV TB Gen $version" |
|
602,6 → 602,7
puts $tfh "endmodule" |
|
close $tfh |
$p_view step |
############################################################################ |
## generate the interface file. |
set ifn $destin_text |
655,12 → 656,15
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"} { |
return |
} |
$p_view step |
$p_view step |
return |
} |
set tpl_fh [open $template r] |
set tpl_lst {} |
set hfound 0 |
698,6 → 702,12
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] |
726,10 → 736,11
} |
|
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 |
737,7 → 748,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 |