pm5337_line_sonet_alarms.tcl

用于EOS芯片的驱动程序, 供参考 参考

proc LINE_SONET_LO_RDI_Config {devID interface PSLURDI_enable
      PSLMRDI_enable UNEQRDI_enable TIURDI_enable TIMRDI_enable
      {stm1 -1} {tug3 -1} {tug2 -1} {tu -1}} {
  
  source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl  
  
  ###############################################################
  ##### Configure ALL tributaries to have same alarms       #####
  ###############################################################
  # Defining block name   
  if {$interface == 1} {
    set RTOP336 "LINE_SONET::LOPP::RTOP336_1"
  } elseif {$interface == 2} {
    set RTOP336 "LINE_SONET::LOPP::RTOP336_2"
  }
  
  if {$devID != -1} {
      
    if {$stm1 == -1 && $tug3 == -1 && $tug2 == -1 && $tu == -1} {
      for {set stm1 1} {$stm1 <= 4} {incr stm1} {
        for {set tug3 1} {$tug3 <= 3} {incr tug3} {
          for {set tug2 1} {$tug2 <= 7} {incr tug2} { 
            for { set tu 1} {$tu <= 4} {incr tu} {
                
              set orig_value [admindrd $devID $RTOP336 0x1684 $stm1 $tug3 $tug2 $tu]
               
              set value [expr [expr $PSLURDI_enable << 7]|[expr $PSLMRDI_enable << 6]|\
                          [expr $UNEQRDI_enable << 5]|[expr $TIURDI_enable << 4]|\
                          [expr $TIMRDI_enable << 3]|[expr $orig_value & 0xFF00]]
                          
              admindwr $devID LINE_SONET::LOPP::RTOP336_1 $value 0x1684 $stm1 $tug3 $tug2 $tu
                                       
            }
          }
        }
      }    
      
    ###############################################################
    ##### Configure Specific Tributary                        #####
    ###############################################################
    } else {
      
      set orig_value [admindrd $devID $RTOP336 0x2 $stm1 $tug3 $tug2 $tu]
      
      set value [expr [expr $PSLURDI_enable << 7]|[expr $PSLMRDI_enable << 6]|\
                [expr $UNEQRDI_enable << 5]|[expr $TIURDI_enable << 4]|\
                [expr $TIMRDI_enable << 3]|[expr $orig_value & 0xFF00]]
                  
      admindwr $devID $RTOP336 $value 0x1684 $stm1 $tug3 $tug2 $tu
        
    }      
  }
  
  if {$devID == -1} {
    puts "Configuring RDI-V alarms, see LINE_SONET_LO_RDI_Config for example <br>"    
  }  
}

#------------------------------------------------------------------------------
# SCRIPT NAME: LINE_SONET_LO_RFI_Config

# DESCRIPTION: 	This procedure enables the RFI consequence alarms
#
# PARAMETERS :	devID
#               interface - 1, 2
#               PSLURFI_enable - 1 (enable), 0 (disable)
#               PSLMRFI_enable - 1 (enable), 0 (disable)
#               PSLURFI_enable - 1 (enable), 0 (disable)
#               TIURFI_enable  - 1 (enable), 0 (disable)
#               TIMRFI_enable  - 1 (enable), 0 (disable)
#		stm1 - 1~4 (STS-3/STM1 #1~#4) [optional]
#		tug3 -1~3 (TUG3 #1~#3) [optional]
#		tug2 - 1~7 (TUG2 #1~#7) [optional]
#		tu - 1~4 (TU #1~#4) [optional]
#		
#  NOTE : 1. If no specific tributary is specified, then the alarm is
#            is set for ALL the tributaries.
#
#         2. Because read-modify-write procedure is performed in this script
#            when devID is set to -1, this procedure will not display the
#            read/write sequence.
#
#------------------------------------------------------------------------------

proc LINE_SONET_LO_RFI_Config {devID interface PSLURFI_enable PSLMRFI_enable 
                               PSLURFI_enable TIURFI_enable TIMRFI_enable
                               {stm1 -1} {tug3 -1} {tug2 -1} {tu -1}} {

  source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl  

  # Defining block name
  if {$interface == 1} {
    set RTOP336 "LINE_SONET::LOPP::RTOP336_1"
  } elseif {$interface == 2} {
    set RTOP336 "LINE_SONET::LOPP::RTOP336_2"
  }
  
  if {$devID != -1} {
          
    ###############################################################
    ##### Configure all tributaries to have same alarms       #####
    ###############################################################
      
    if {$stm1 == -1 && $tug3 == -1 && $tug2 == -1 && $tu == -1} {
      for {set stm1 1} {$stm1 <= 4} {incr stm1} {
        for {set tug3 1} {$tug3 <= 3} {incr tug3} {
          for {set tug2 1} {$tug2 <= 7} {incr tug2} { 
            for { set tu 1} {$tu <= 4} {incr tu} {
                              
              set orig_value [admindrd $devID $RTOP336 0x2 $stm1 $tug3 $tug2 $tu]
                  
              set value [expr [expr $PSLURFI_enable << 15]|[expr $PSLMRFI_enable << 14]|\
                        [expr $PSLURFI_enable << 13]|[expr $TIURFI_enable << 12]|\
                        [expr $TIMRFI_enable << 11]|[expr $orig_value & 0x00FF]]
                           
              admindwr $devID $RTOP336 $value 0x1684 $stm1 $tug3 $tug2 $tu                                              
            }
          }
        }
      }            
        
      ###############################################################
      ##### Configure specified tributary                       #####
      ###############################################################
      
    } else {
            
      set orig_value [admindrd $devID $RTOP336 0x2 $stm1 $tug3 $tug2 $tu]
          
      set value [expr [expr $PSLURFI_enable << 15]|[expr $PSLMRFI_enable << 14]|\
                [expr $PSLURFI_enable << 13]|[expr $TIURFI_enable << 12]|\
                [expr $TIMRFI_enable << 11]|[expr $orig_value & 0x00FF]]\
                   
      admindwr $devID $RTOP336 $value 0x1684 $stm1 $tug3 $tug2 $tu  
    }
   
  }
      
  if {$devID == -1} {
    puts "Configuring RFI-V alarms, see LINE_SONET_LO_RFI_Config for example <br>"    
  }
}

#------------------------------------------------------------------------------
# SCRIPT NAME: LINE_SONET_LO_TAIS_Config

# DESCRIPTION: 	This procedure enables the T-AIS consequence alarms
#
#  PARAMETERS :	devID
#		interface           - 1, 2
#               TU3_CONV_AIS_enable - 1 (enable), 0 (disable)
#               TSD_TAIS_enable     - 1 (enable), 0 (disable)
#               TSF_TAIS_enable     - 1 (enable), 0 (disable)
#               TTI_TAIS_enable     - 1 (enable), 0 (disable)
#               TPDI_TAIS_enable    - 1 (enable), 0 (disable)
#               TUNEQ_TAIS_enable   - 1 (enable), 0 (disable)
#               TPSL_TAIS_enable    - 1 (enable), 0 (disable)
#               TLOP_TAIS_enable    - 1 (enable), 0 (disable)
#               TAIS_TAIS_enable    - 1 (enable), 0 (disable)
#               LOM_TAIS_enable     - 1 (enable), 0 (disable)
#               PAIS_TAIS_enable    - 1 (enable), 0 (disable)
#		            stm1    - 1 to 4 (STS-3/STM1 #1~#4) [optional]
#		            tug3     -1 to 3 (TUG3 #1~#3) [optional]
#		            tug2 - 1~7 (TUG2 #1~#7) [optional]
#		            tu - 1~4 (TU #1~#4) [optional]
#		
#  NOTE : If no specific tributary is specified, then the alarm is
#         is set for ALL the tributaries.
#
#         temp: admindwr $devID subsystem::mtsb::tsb channel iaddr value stm1 tug3 tug2 tu
#               channel - 1 for tributary, 2 for ACFG
#------------------------------------------------------------------------------

proc LINE_SONET_LO_TAIS_Config {devID interface  TU3_CONV_AIS_enable TSD_TAIS_enable 
                  TSF_TAIS_enable TTI_TAIS_enable TPDI_TAIS_enable TUNEQ_TAIS_enable
                  TPSL_TAIS_enable TLOP_TAIS_enable TAIS_TAIS_enable LOM_TAIS_enable 
                  PAIS_TAIS_enable {stm1 -1} {tug3 -1} {tug2 -1} {tu -1}} {                    
     
  source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl       
       
  ###############################################################
  ##### Configure ALL Tributaries to have same alarms       #####
  ###############################################################
  # Defining block name
  if {$interface == 1} {
    set SARCL "LINE_SONET::LOPP::SARCL_1"
  } elseif {$interface == 2} {
    set SARCL "LINE_SONET::LOPP::SARCL_2"
  }
  
  if {$stm1 == -1 && $tug3 == -1 && $tug2 == -1 && $tu == -1} {
    for {set stm1 1} {$stm1 <= 4} {incr stm1} {
      for {set tug3 1} {$tug3 <= 3} {incr tug3} {
        for {set tug2 1} {$tug2 <= 7} {incr tug2} { 
          for { set tu 1} {$tu <= 4} {incr tu} {
           
            set value [expr [expr $TU3_CONV_AIS_enable << 15]|     \
                      [expr $TSD_TAIS_enable << 10]|               \
                      [expr $TSF_TAIS_enable << 9]|                \
                      [expr $TTI_TAIS_enable << 8]|                \
                      [expr $TPDI_TAIS_enable << 7]|               \
                      [expr $TUNEQ_TAIS_enable << 6]|              \
                      [expr $TPSL_TAIS_enable << 5]|               \
                      [expr $TLOP_TAIS_enable << 4]|               \
                      [expr $TAIS_TAIS_enable << 3]|               \
                      [expr $LOM_TAIS_enable << 1]|                \
                      [expr $PAIS_TAIS_enable << 0]]
 
            
            admindwr $devID $SARCL $value 0x0 $stm1 $tug3 $tug2 $tu
            
          }
        }
      }
    }        
  ###############################################################
  ##### Configure Specific Tributary                        #####
  ###############################################################
  } else {
    
    set value [expr [expr $TU3_CONV_AIS_enable << 15]|             \
              [expr $TSD_TAIS_enable << 10]|                       \
              [expr $TSF_TAIS_enable << 9]|                        \
              [expr $TTI_TAIS_enable << 8]|                        \
              [expr $TPDI_TAIS_enable << 7]|                       \
              [expr $TUNEQ_TAIS_enable << 6]|                      \
              [expr $TPSL_TAIS_enable << 5]|                       \
              [expr $TLOP_TAIS_enable << 4]|                       \
              [expr $TAIS_TAIS_enable << 3]|                       \
              [expr $LOM_TAIS_enable << 1]|                        \
              [expr $PAIS_TAIS_enable << 0]]
   
    admindwr $devID $SARCL 0x0 $value $stm1 $tug3 $tug2 $tu    
  }
}

#------------------------------------------------------------------------------
# SCRIPT NAME: LINE_SONET_LO_DAIS_Config

# DESCRIPTION: 	This procedure enables the D-AIS consequence alarms
#
#  PARAMETERS :	devID
#		interface            - 1, 2
#               OPOUT_DAISINS_enable - 1 (enabled) or 0 (disabled) 
#               TSD_DAIS_enable      - 1 (enabled) or 0 (disabled) 
#               TSF_DAIS_enable      - 1 (enabled) or 0 (disabled) 
#               TTI_DAIS_enable      - 1 (enabled) or 0 (disabled) 
#               TPDI_DAIS_enable     - 1 (enabled) or 0 (disabled) 
#               TUNEQ_DAIS_enable    - 1 (enabled) or 0 (disabled) 
#               TPSL_DAIS_enable     - 1 (enabled) or 0 (disabled) 
#               TLOP_DAIS_enable     - 1 (enabled) or 0 (disabled) 
#               TAIS_DAIS_enable     - 1 (enabled) or 0 (disabled) 
#               LOM_DAIS_enable      - 1 (enabled) or 0 (disabled) 
#               PAIS_DAIS_enable     - 1 (enabled) or 0 (disabled) 
#		stm1                 - 1 to 4 (STS-3/STM1 #1~#4) [optional]
#		tug3                 - 1 to 3 (TUG3 #1~#3) [optional]
#		tug2                 - 1 to 7 (TUG2 #1~#7) [optional]
#		tu                   - 1 to 4 (TU #1~#4) [optional]
#		
#  NOTE : If no specific tributary is specified, then the alarm is
#         is set for ALL the tributaries.
#
#         temp: admindwr $devID subsystem::mtsb::tsb channel iaddr value stm1 tug3 tug2 tu
#               channel - 1 for tributary, 2 for ACFG
#
#------------------------------------------------------------------------------

proc LINE_SONET_LO_DAIS_Config {devID interface
       OPOUT_DAISINS_enable TSD_DAIS_enable TSF_DAIS_enable
       TTI_DAIS_enable TPDI_DAIS_enable TUNEQ_DAIS_enable
       TPSL_DAIS_enable TLOP_DAIS_enable TAIS_DAIS_enable
       LOM_DAIS_enable PAIS_DAIS_enable
       {stm1 -1} {tug3 -1} {tug2 -1} {tu -1}} {
  
  source /usr/lib/cgi-bin/apps/tclscripts/PM5337_util.tcl  
  
  ###############################################################
  ##### Configure ALL Tributaries to have same alarms       #####
  ###############################################################
  # Defining block name
  if {$interface == 1} {
    set SARCL "LINE_SONET::LOPP::SARCL_1"
  } elseif {$interface == 2} {
    set SARCL "LINE_SONET::LOPP::SARCL_2"
  }
    
  if {$stm1 == -1 && $tug3 == -1 && $tug2 == -1 && $tu == -1} {
    for {set stm1 1} {$stm1 <= 4} {incr stm1} {
      for {set tug3 1} {$tug3 <= 3} {incr tug3} {
        for {set tug2 1} {$tug2 <= 7} {incr tug2} { 
          for { set tu 1} {$tu <= 4} {incr tu} {
           
            set value [expr [expr $OPOUT_DAISINS_enable << 15]|    \
                      [expr $TSD_DAIS_enable << 10]|               \
                      [expr $TSF_DAIS_enable << 9]|                \
                      [expr $TTI_DAIS_enable << 8]|                \
                      [expr $TPDI_DAIS_enable << 7]|               \
                      [expr $TUNEQ_DAIS_enable << 6]|              \
                      [expr $TPSL_DAIS_enable << 5]|               \
                      [expr $TLOP_DAIS_enable << 4]|               \
                      [expr $TAIS_DAIS_enable << 3]|               \
                      [expr $LOM_DAIS_enable << 1]|                \
                      [expr $PAIS_DAIS_enable << 0]]
  
            admindwr $devID $SARCL $value 0x1 $stm1 $tug3 $tug2 $tu ;#2              
            
          }
        }
      }
    }        
    
  ###############################################################
  ##### Configure Specific Tributary                        #####
  ###############################################################
  } else {
    
    set value [expr [expr $OPOUT_DAISINS_enable << 15]|            \
              [expr $TSD_DAIS_enable << 10]|                       \
              [expr $TSF_DAIS_enable << 9]|                        \
              [expr $TTI_DAIS_enable << 8]|                        \
              [expr $TPDI_DAIS_enable << 7]|                       \
              [expr $TUNEQ_DAIS_enable << 6]|                      \
              [expr $TPSL_DAIS_enable << 5]|                       \
              [expr $TLOP_DAIS_enable << 4]|                       \
              [expr $TAIS_DAIS_enable << 3]|                       \
              [expr $LOM_DAIS_enable << 1]|                        \
              [expr $PAIS_DAIS_enable << 0]]
 

    admindwr $devID $SARCL $value 0x1 $stm1 $tug3 $tug2 $tu ;#2
    
  }
}