l2-l3.tcl

smartbits二次开发示例代码

##############################################################################################
# L2-L3.tcl                                                                                  #
#                                                                                            #
# - Demonstrates the process of switching from L2 to L3 on a 7710 card                       #
# - Creating any stream with NULL as the structure, will switch to Layer 2 mode              #
# - Creating L3 streams switches to L3 mode a procedure show_packet is used to display       #
#   the contents of the packets to show the mode is changing from L2 to L3                   #
# - In L2 mode the packets with VFD data (in this example, the Destination MAC               #
#   is set to all 2's) are transmitted.  In L3 mode, the streams on the                      #
#   card (in this example, with the MAC address as all 3's).                                 #
# - In L2 mode the 2's packets are sent.                                                     #
# - In L3 mode the 3's packets are sent                                                      #
# - Switching modes will undo other transmission parameters such as Transmit mode            #
#   so they must be reset after mode switch.  This is why HTTransmitMode and                 #
#   HTBurstCount are invoked before each HTRun command.                                      #
#                                                                                            #
# NOTE: This script works on the following cards:                                            #
#       - L3-67XX                                                                            #
#       - ML-7710                                                                            #
#       - ML-5710                                                                            #
#       - LAN-6101A                                                                          #
#                                                                                            #
##############################################################################################


if  {$tcl_platform(platform) == "windows"} {
      set libPath "../../../../tcl/tclfiles/et1000.tcl"
} else {
         set libPath "../../../../include/et1000.tcl"
}

# if it is not loaded, try to source it at the default path
if { ! [info exists __ET1000_TCL__] } {
     if {[file exists $libPath]} {
          source $libPath
   } else {   
               
            # Enter the location of the "et1000.tcl" file or enter "Q" or "q" to quit
            while {1} {
         
                        puts "Could not find the file $libPath."
                        puts "Enter the path of et1000.tcl, or q to exit." 
          
                        gets stdin libPath
                        if {$libPath == "q" || $libPath == "Q"} {
                             exit
                        } 
                        if {[file exists $libPath]} {
	                     source $libPath
                             break
                        } 
       
            } 
   }
}

# If chassis is not currently linked prompt for IP and link  
if {[ETGetLinkStatus] < 0} {
     puts "SmartBits not linked - Enter chassis IP address"
     gets stdin ipaddr
     set retval [NSSocketLink $ipaddr 16385 $RESERVE_NONE]  
     if {$retval < 0 } {
	  puts "Unable to connect to $ipaddr. Please try again."
	  exit
     }
}

#Declare variables
set iHub 0
set iSlot 0
set iPort 0

set iHub2 0
set iSlot2 1
set iPort2 0
set DATA_LENGTH 60
set BURST_SIZE 5

# RESERVE CARDS
LIBCMD HTSlotReserve $iHub $iSlot
LIBCMD HTSlotReserve $iHub2 $iSlot2

# RESET CARDS 
LIBCMD HTResetPort $::RESET_FULL $iHub $iSlot $iPort
LIBCMD HTResetPort $::RESET_FULL $iHub2 $iSlot2 $iPort2	

#Pause for 1 second
after 1000

######################################################################################
# Show_packet                                                                        #
# - Displays the contents of NUM_PACKETS formatted in readable form                  #
######################################################################################

proc show_packet { NUM_PACKETS } {

global iHub2 iSlot2 iPort2 DATA_LENGTH NS_CAPTURE_DATA_INFO

LIBCMD HTSetCommand $::NS_CAPTURE_STOP 0 0 0 0 $iHub2 $iSlot2 $iPort2

struct_new capData NSCaptureDataInfo
for {set i 0} {$i < $NUM_PACKETS} {incr i} {
         set capData(ulFrameIndex)      $i
         LIBCMD HTGetStructure $NS_CAPTURE_DATA_INFO 0 0 0 capData 0 $iHub2 $iSlot2 $iPort2
         for {set j 0} {$j < [expr $DATA_LENGTH + 4]} {incr j} {
               
               #Declare a variable
               set iData 0

              
               if {[expr $j % 16] == 0} {
                    puts ""
                    puts -nonewline [format "%4i:   " $j]
	       }
                    #Convert character to integer. 
                    #Function declared in the misc.tcl file
		    set iData [ConvertCtoI $capData(ucData.$j.uc)]
		    
                    puts -nonewline [format " %02X" $iData]
                                   
         }

         puts ""

	 if {$i < [expr $NUM_PACKETS - 1]} {

	      puts ""
	      puts "Press ENTER to display packet [expr $i + 2]"
	      gets stdin response

	 } else {
	          puts "End of captured data!"
	 }
 }

#Unset the structure
unset capData

}

###################################################################################################
# reset_capture   start capture                                                                   #
###################################################################################################

proc reset_capture { } {

global iHub2 iSlot2 iPort2 NS_CAPTURE_SETUP NS_CAPTURE_START

# Capture set up
struct_new cap NSCaptureSetup
set cap(ulCaptureMode)   $::CAPTURE_MODE_FILTER_ON_EVENTS
set cap(ulCaptureLength) $::CAPTURE_LENGTH_ENTIRE_FRAME
set cap(ulCaptureEvents) $::CAPTURE_EVENTS_ALL_FRAMES
LIBCMD HTSetStructure $::NS_CAPTURE_SETUP 0 0 0 cap 0 $iHub2 $iSlot2 $iPort2
unset cap

# Start capture
LIBCMD HTSetCommand $::NS_CAPTURE_START 0 0 0 0 $iHub2 $iSlot2 $iPort2

}



####################################################################################################
# Layer 2 setup                                                                                    #
# using NULL as structure reference will set card to layer 2 mode                                  #
# We know it's an L2 frame because the Dest MAC is all 2's                                         #
####################################################################################################

LIBCMD HTSetStructure $L3_DEFINE_IP_STREAM 0 0 0 NULL 0 $iHub $iSlot $iPort
puts "      #####################################"
puts "      ##        LAYER 2 MODE             ##"
puts "      ##   Destination MAC is all 2's    ##"
puts "      #####################################"

reset_capture

# Set Layer 2 VFD on first six bytes
struct_new vfdstruct HTVFDStructure
set vfdstruct(Configuration) $HVFD_STATIC
set vfdstruct(Range) 6
set vfdstruct(Offset) 0

struct_new vfd1Data Int*6
	set vfd1Data(0.i) 0x22
	set vfd1Data(1.i) 0x22
	set vfd1Data(2.i) 0x22
	set vfd1Data(3.i) 0x22
	set vfd1Data(4.i) 0x22
	set vfd1Data(5.i) 0x22

set vfdstruct(Data) vfd1Data
set vfdstruct(DataCount) 10
LIBCMD HTVFD $HVFD_1 vfdstruct $iHub $iSlot $iPort
unset vfd1Data
unset vfdstruct

#send one burst
LIBCMD HTTransmitMode $SINGLE_BURST_MODE $iHub $iSlot $iPort
LIBCMD HTBurstCount $BURST_SIZE $iHub $iSlot $iPort
LIBCMD HTRun $HTRUN $iHub $iSlot $iPort

#Pause for 1 second
after 1000

puts ""
puts "Layer 2 Packet Capture"
show_packet $BURST_SIZE

#####################################################
# Layer 3 setup                                     #
# Set up layer 3 stream with first 6 bytes all 3    #
#####################################################
puts "      #####################################"
puts "      ##        LAYER 3 MODE             ##"
puts "      ##   Destination MAC is all 3's    ##"
puts "      #####################################"

reset_capture

struct_new streamIP StreamIP
        set streamIP(ucActive) [format %c 1]
        set streamIP(ucProtocolType) [format %c $L3_STREAM_IP]
        set streamIP(uiFrameLength) $DATA_LENGTH
        set streamIP(ucTagField) [format %c 1]
        set streamIP(DestinationMAC.0.uc) [format %c 0x33]
        set streamIP(DestinationMAC.1.uc) [format %c 0x33]
        set streamIP(DestinationMAC.2.uc) [format %c 0x33]
        set streamIP(DestinationMAC.3.uc) [format %c 0x33]
        set streamIP(DestinationMAC.4.uc) [format %c 0x33]
        set streamIP(DestinationMAC.5.uc) [format %c 0x33]
	set streamIP(SourceMAC.0.uc) [format %c 0]
        set streamIP(SourceMAC.1.uc) [format %c 0]
        set streamIP(SourceMAC.2.uc) [format %c 0]
        set streamIP(SourceMAC.3.uc) [format %c 0]
        set streamIP(SourceMAC.4.uc) [format %c 0]
        set streamIP(SourceMAC.5.uc) [format %c 1]
        set streamIP(TimeToLive) [format %c 10]
        set streamIP(DestinationIP.0.uc) [format %c 192]
        set streamIP(DestinationIP.1.uc) [format %c 158]
        set streamIP(DestinationIP.2.uc) [format %c 100]
        set streamIP(DestinationIP.3.uc) [format %c 1]
        set streamIP(SourceIP.0.uc) [format %c 192]
        set streamIP(SourceIP.1.uc) [format %c 148]
        set streamIP(SourceIP.2.uc) [format %c 100]
        set streamIP(SourceIP.3.uc) [format %c 1]
        set streamIP(Netmask.0.uc) [format %c 255]
        set streamIP(Netmask.1.uc) [format %c 255]
        set streamIP(Netmask.2.uc) [format %c 255]
        set streamIP(Netmask.3.uc) [format %c 0]
        set streamIP(Gateway.0.uc) [format %c 192]
        set streamIP(Gateway.1.uc) [format %c 148]
        set streamIP(Gateway.2.uc) [format %c 100]
        set streamIP(Gateway.3.uc) [format %c 1]

#sending streams to card will set it in layer 3 mode
puts ""

LIBCMD HTSetStructure $L3_DEFINE_IP_STREAM 0 0 0 streamIP 0 $iHub $iSlot $iPort
puts "Creating layer 3 stream"

puts "Done!"
after 1000
unset streamIP

# send mode and send a burst
LIBCMD HTTransmitMode $SINGLE_BURST_MODE $iHub $iSlot $iPort
LIBCMD HTBurstCount $BURST_SIZE $iHub $iSlot $iPort
LIBCMD HTRun $HTRUN $iHub $iSlot $iPort

#Pause for 1 second
after 1000

puts ""
puts "Layer 3 Packet Capture"

show_packet $BURST_SIZE

#################################################################################
# Back to Layer 2                                                               #
#################################################################################
puts "      #####################################"
puts "      ##      LAYER 2 MODE AGAIN         ##"
puts "      ##   Destination MAC is all 2's    ##"
puts "      #####################################"
LIBCMD HTSetStructure $L3_DEFINE_IP_STREAM 0 0 0 NULL 0 $iHub $iSlot $iPort
puts "Back to Layer 2"

reset_capture

#Send one burst
LIBCMD HTTransmitMode $SINGLE_BURST_MODE $iHub $iSlot $iPort
LIBCMD HTBurstCount $BURST_SIZE $iHub $iSlot $iPort
LIBCMD HTRun $HTRUN $iHub $iSlot $iPort

#Pause for 1 second
after 1000

puts ""
puts "Layer 2 Packet Capture"
show_packet $BURST_SIZE

#Unlinking from the chassis
puts "Unlinking from the chassis now.."
ETUnLink
puts "DONE!"