Subversion Repositories sv_dir_tb

## package requires

## package requires

package require Iwidgets 4.0

package require Iwidgets 4.0

## set the current version info

## set the current version info

## put up a title on the main window boarder

## put up a title on the main window boarder

wm title . "SV TB Gen $version"

wm title . "SV TB Gen $version"

## the location of the template by default

## the location of the template by default

set template "./tb_mod_template.sv"

set template "./tb_mod_template.sv"

    puts $tfh "  tb_mod prg_inst\(theif\)\;"

    puts $tfh "  tb_mod prg_inst\(theif\)\;"

    puts $tfh ""

    puts $tfh ""

    puts $tfh "endmodule"

    puts $tfh "endmodule"

    close $tfh

    close $tfh

############################################################################

############################################################################

##  generate the interface file.

##  generate the interface file.

    set ifn $destin_text

    set ifn $destin_text

    append ifn "/dut_if.sv"

    append ifn "/dut_if.sv"

    set ifh [open $ifn w]

    set ifh [open $ifn w]

    puts $ifh "  \)\;"

    puts $ifh "  \)\;"

    puts $ifh ""

    puts $ifh ""

    puts $ifh "endinterface"

    puts $ifh "endinterface"

    close $ifh

    close $ifh

##########################################################################

##########################################################################

##   generate the tb_prg  file from template.

##   generate the tb_prg  file from template.

    set prg_gen [$mo_sel get]

    set prg_gen [$mo_sel get]

    if {$prg_gen == "No mod"} {

    if {$prg_gen == "No mod"} {

                    return

                    return

                }

                }

    set tpl_fh [open $template r]

    set tpl_fh [open $template r]

    set tpl_lst {}

    set tpl_lst {}

    set hfound 0

    set hfound 0

            break

            break

        }

        }

        incr idx

        incr idx

    }

    }

    set idx 0

    set idx 0

    foreach l $tpl_lst {

    foreach l $tpl_lst {

        set ent_pt [string first ">>drive sigs" $l]

        set ent_pt [string first ">>drive sigs" $l]

        if {$ent_pt == 0} {

        if {$ent_pt == 0} {

            set tpl_lst [lreplace $tpl_lst $idx $idx]

            set tpl_lst [lreplace $tpl_lst $idx $idx]

        }

        }

        incr idx

        incr idx

    }

    }

    write_header $pfh

    write_header $pfh

    close $pfh

    close $pfh

}

}

## end ttb_gen

## end ttb_gen

#################################################

#################################################

##  show  about message

##  show  about message