Tcl Source Code

Artifact [dc683d6225]
Login

Artifact dc683d6225d544b57d969dc1448888cbfbfd90c4:

Attachment "jotest.tcl" to ticket [3603557fff] added by jomills 2013-02-06 20:23:30.
proc jotest {TetraModeCommand} {

regexp -expanded {
                ^TETRA_MODE_CMD                                                                             # Message Type
                ([[:blank:]]+)                                                                              # Pad
                (ETS_1_1|ETS_1_2|ETS_2_2)                                                                   # SystemCode
                ([[:blank:]]+)                                                                              # Pad
                (CONTINUOUS|CARRIER|MCCH|TRAFFIC)                                                           # SharingMode
                ([[:blank:]]+)                                                                              # Pad
                ([[:digit:]]{1,2})                                                                          # ColourCode
                ([[:blank:]]+)                                                                              # Pad
                (1|2|3|4|6|9|12|18)                                                                         # TSReservedFrames
                ([[:blank:]]+)                                                                              # Pad
                (PASS|TRUE|FAIL|FALSE)                                                                      # UPlaneDTX
                ([[:blank:]]+)                                                                              # Pad
                (PASS|TRUE|FAIL|FALSE)                                                                      # Frame18Extension
                ([[:blank:]]+)                                                                              # Pad
                ([[:digit:]]{1,4})                                                                          # MCC
                ([[:blank:]]+)                                                                              # Pad
                ([[:digit:]]{1,5})                                                                          # MNC
                ([[:blank:]]+)                                                                              # Pad
                (BOTH|BCAST|ENQRY|NONE)                                                                     # NbrCellBcast
                ([[:blank:]]+)                                                                              # Pad
                (UNKNOWN|LOW|MEDIUM|HIGH)                                                                   # CellServiceLevel
                ([[:blank:]]+)                                                                              # Pad
                (PASS|TRUE|FAIL|FALSE)                                                                      # LateEntryInfo
                ([[:blank:]]+)                                                                              # Pad
                (300|400)                                                                                   # FrequencyBand
                ([[:blank:]]+)                                                                              # Pad
                (NORMAL|REVERSE)                                                                            # ReverseOperation
                ([[:blank:]]+)                                                                              # Pad
                (NONE|\+6\.25|\-6\.25|\+12\.5)                                                              # Offset
                ([[:blank:]]+)                                                                              # Pad
                (10)                                                                                        # DuplexSpacing
                ([[:blank:]]+)                                                                              # Pad
                ([[:digit:]]{1,4})                                                                          # MainCarrierNr
                ([[:blank:]]+)                                                                              # Pad
                (0|1|2|3)                                                                                   # NrCSCCH
                ([[:blank:]]+)                                                                              # Pad
                (15|20|25|30|35|40|45)                                                                      # MSTxPwrMax
                ([[:blank:]]+)                                                                              # Pad
                (\-125|\-120|\-115|\-110|\-105|\-100|\-95|\-90|\-85|\-80|\-75|\-70|\-65|\-60|\-55|\-50)     # RxLevAccessMin
                ([[:blank:]]+)                                                                              # Pad
                (\-53|\-51|\-49|\-47|\-45|\-43|\-41|\-39|\-37|\-35|\-33|\-31|\-29|\-27|\-25|\-23)           # AccessParameter
                ([[:blank:]]+)                                                                              # Pad
                (DISABLE|[[:digit:]]{3,4})                                                                  # RadioDLTimeout
                ([[:blank:]]+)                                                                              # Pad
                (\-[[:digit:]]{2,3})                                                                        # RSSIThreshold
                ([[:blank:]]+)                                                                              # Pad
                ([[:digit:]]{1,5})                                                                          # CCKIdSCKVerNr
                ([[:blank:]]+)                                                                              # Pad
                ([[:digit:]]{1,5})                                                                          # LocationArea
                ([[:blank:]]+)                                                                              # Pad
                ([(1|0)]{16})                                                                               # SubscriberClass
                ([[:blank:]]+)                                                                              # Pad
                ([(1|0)]{12})                                                                               # BSServiceDetails
                ([[:blank:]]+)                                                                              # Pad
                (RANDOMIZE|IMMEDIATE|[[:digit:]]{1,2})                                                      # IMM
                ([[:blank:]]+)                                                                              # Pad
                ([[:digit:]]{1,2})                                                                          # WT
                ([[:blank:]]+)                                                                              # Pad
                ([[:digit:]]{1,2})                                                                          # Nu
                ([[:blank:]]+)                                                                              # Pad
                ([0-1])                                                                                     # FrameLngFctr
                ([[:blank:]]+)                                                                              # Pad
                ([[:digit:]]{1,2})                                                                          # TSPtr
                ([[:blank:]]+)                                                                              # Pad
                ([0-7])                                                                                     # MinPriority
                ([[:blank:]]+)                                                                              # Pad
                (PASS|TRUE|FAIL|FALSE)                                                                      # ExtdSrvcsEnabled
                ([[:blank:]]+)                                                                              # Pad
                (.*)                                                                                        # ConditionalFields
            } [string trim $TetraModeCommand] Match \
                Pad                \
                SystemCode         \
                Pad                \
                SharingMode        \
                Pad                \
                ColourCode         \
                Pad                \
                TSReservedFrames   \
                Pad                \
                UPlaneDTX          \
                Pad                \
                Frame18Extension   \
                Pad                \
                MCC                \
                Pad                \
                MNC                \
                Pad                \
                NbrCellBcast       \
                Pad                \
                CellServiceLevel   \
                Pad                \
                LateEntryInfo      \
                Pad                \
                FrequencyBand      \
                Pad                \
                ReverseOperation   \
                Pad                \
                Offset             \
                Pad                \
                DuplexSpacing      \
                Pad                \
                MainCarrierNr      \
                Pad                \
                NrCSCCH            \
                Pad                \
                MSTxPwrMax         \
                Pad                \
                RxLevAccessMin     \
                Pad                \
                AccessParameter    \
                Pad                \
                RadioDLTimeout     \
                Pad                \
                RSSIThreshold      \
                Pad                \
                CCKIdSCKVerNr      \
                Pad                \
                LocationArea       \
                Pad                \
                SubscriberClass    \
                Pad                \
                BSServiceDetails   \
                Pad                \
                IMM                \
                Pad                \
                WT                 \
                Pad                \
                Nu                 \
                Pad                \
                FrameLngFctr       \
                Pad                \
                TSPtr              \
                Pad                \
                MinPriority        \
                Pad                \
                ExtdSrvcsEnabled   \
                Pad                \
                ConditionalFields
}