l2.tcl

来自「基于IBM的NPU」· TCL 代码 · 共 68 行

# Sample network processor testcase generator script for layer-2 example
#
catch {

set nptest [ nptools::get_extension nptest ]

lappend auto_path $env(NPTOOLS_HOME)/tcl/nptest

set output_directory l2.dir
set input_directory .
set mem_directory $env(NPTOOLS_HOME)/extra/nptest/memfile_4gs3

#------------------------------------------------------------------------
#  Set up the file generator
#------------------------------------------------------------------------
set testcase [ $nptest create_testcase l2 -version np4gs3c -output_directory $output_directory \
   -input_directory $input_directory -default_memfile_directory $mem_directory ]

#------------------------------------------------------------------------
#  Create TSE memories
#------------------------------------------------------------------------
tse_init_4gs3c $testcase

#------------------------------------------------------------------------
# Create fm ingress tree
#------------------------------------------------------------------------
source "$input_directory/l2_fm_up.tcl"
l2_fm_up $testcase

#------------------------------------------------------------------------
# Create fm egress tree
#------------------------------------------------------------------------
source $input_directory/l2_fm_dn.tcl
l2_fm_down $testcase

puts ""
block_info $testcase

#------------------------------------------------------------------------
#  Generate some packets
#------------------------------------------------------------------------
puts ""
puts "Generate a data frame and a guided cell"

# data packet to MAC DA 0017 7777 7777 source = port 36 bridged to dst port = 23
set pkt0 [ $testcase create_packet -size 64 -source_port 36 -qtype gd ]
$pkt0 set 00177777777766778899AABB -offset 0

# guided traffic to read Etype control register thru CAB
set pkt1 [ $testcase create_packet -size 64 -source_port 39 -qtype gc ]
#         Fci     Corr    Cmd     Addr    Size    Data 
$pkt1 set 0C4800080000000180040006A00110000001000100000000 -offset 0

#------------------------------------------------------------------------
#  For the layer-2 example, the picocode sets up the port table and we
#  don't enable the hardware classifier so no setup is necessary
#------------------------------------------------------------------------

#------------------------------------------------------------------------
#  Load the test case
#------------------------------------------------------------------------
set tc [ $nptest find_testcase l2 ]
$tc load

}
puts "\n$errorInfo"