Subversion Repositories csa

quit -sim

vlib work

vmap work work

puts {

          ModelSimSE general compile script version 1.1

            Copyright (c) Doulos June 2004, SD

}

# Simply change the project settings in this section

# for each new project. There should be no need to

# modify the rest of the script.

set library_file_list {

                                        ../rtl/decrypt.v

                                        ../rtl/key_cnt.v

                                        ../rtl/key_perm.v

                                        ../rtl/block_decypher.v

                                        ../rtl/block_perm.v

                                        ../rtl/block_sbox.v

                                        ../rtl/key_schedule.v

                                        ../rtl/stream_cypher.v

                                        ../rtl/stream_iteration.v

                                        ../rtl/stream_8bytes.v

                                        ../rtl/sboxes.v

                                        ../rtl/sbox1.v

                                        ../rtl/sbox2.v

                                        ../rtl/sbox3.v

                                        ../rtl/stream_byte.v

                                        ../rtl/sbox4.v

                                        ../rtl/sbox5.v

                                        ../rtl/sbox6.v

                                        ../rtl/sbox7.v

                                        ../rtl/group_decrypt.v

                                        ../bench/group_decrypt_tb.v

}

set top_level              work.group_decrypt_tb

set wave_radices {

                                   hexadecimal {data q}

}

# After sourcing the script from ModelSim for the

# first time use these commands to recompile.

proc r  {} {uplevel #0 source compile.tcl}

proc rr {} {global last_compile_time

            set last_compile_time 0

            r                            }

proc q  {} {quit -force                  }

#Does this installation support Tk?

set tk_ok 1

if [catch {package require Tk}] {set tk_ok 0}

# Prefer a fixed point font for the transcript

set PrefMain(font) {Courier 10 roman normal}

# Compile out of date files

set time_now [clock seconds]

if [catch {set last_compile_time}] {

  set last_compile_time 0

}

  vlib work

  vmap work work

  foreach file $library_file_list {

#    if { $last_compile_time < [file mtime $file] } {

      if [regexp {.vhdl?$} $file] {

        vcom -93 $file

      } else {

        vlog $file

      }

      set last_compile_time 0

#    }

  }

set last_compile_time $time_now

# Load the simulation

vsim $top_level -pli ../bench/csa_pli.sl

add wave -r /*

radix -hexadecimal

# Run the simulation

run -all