!
! RMIF ADDC warning message test case
!
! This is a shell for running through the 5 likely "ADDC" message scenarios. See
! test_rmif_addc_client.mm for an explanation of the scenarios.
!
! @bug     1057
! @author  Jim Roush
! @since   NeXtMidas 2.5.1
!
startmacro
  switch DEBUG         debug        GET DEF=false    SDEF=true
  switch DEBUGSERVER   debugs       GET DEF=^debug   SDEF=true
  switch DEBUGCLIENT   debugc       GET DEF=^debug   SDEF=true
  switch VERBOSE       verbose      GET DEF=false    SDEF=true
  switch VERBOSESERVER verboses     GET DEF=^verbose SDEF=true
  switch VERBOSECLIENT verbosec     GET DEF=^verbose SDEF=true
  switch STATEM        statemachine GET DEF=false    SDEF=true

  timer set

  %test_rmif_addc_cntrl/STATEM=^statemachine/DEBUG=^debug/DEBUGSERVER=^debugs/DEBUGCLIENT=^debugc/VERBOSESERVER=^verboses/VERBOSECLIENT=^verbosec 1
  %test_rmif_addc_cntrl/STATEM=^statemachine/DEBUG=^debug/DEBUGSERVER=^debugs/DEBUGCLIENT=^debugc/VERBOSESERVER=^verboses/VERBOSECLIENT=^verbosec 2
  if /SCENARIO3 then
     %test_rmif_addc_cntrl/STATEM=^statemachine/DEBUG=^debug/DEBUGSERVER=^debugs/DEBUGCLIENT=^debugc/VERBOSESERVER=^verboses/VERBOSECLIENT=^verbosec 3
  else
     INFO "Skipping SCENARIO 3 ----------------------------------------*"
     INFO "Use /SCENARIO3 switch to include SCENARIO 3 ----------------*"
  endif
  %test_rmif_addc_cntrl/STATEM=^statemachine/DEBUG=^debug/DEBUGSERVER=^debugs/DEBUGCLIENT=^debugc/VERBOSESERVER=^verboses/VERBOSECLIENT=^verbosec 4
  %test_rmif_addc_cntrl/STATEM=^statemachine/DEBUG=^debug/DEBUGSERVER=^debugs/DEBUGCLIENT=^debugc/VERBOSESERVER=^verboses/VERBOSECLIENT=^verbosec 5

  timer elapse
endmacro

!******************************************************************************!
procedure processMessage m:msg
  if debug then
    say "^reg.main.name: Got message name=^msg.name fid=^msg.fid info=^msg.info data=^msg.data"
  endif

  if false then ! Your message name goes here
    !
    ! Your message(s) processing goes here
    !
  else
    call processStandardMessages
  endif
return

! These are a set of standard procedures
include standard_rmif_procs.mminc

