mime::addr_group (private)

 mime::addr_group token

Defined in packages/acs-tcl/tcl/tcllib-doc-procs.tcl

Parse an address group using internal MIME parser state.

Parameters:

token (required)

Internal address-parser token.

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    # FRINK: nocheck
    variable $token
    upvar 0 $token state

    if {[incr state(glevel)] > 1} {
        return -code 7 [format "nested groups not allowed (found %s)"  $state(phrase)]
    }

    set state(group) $state(phrase)
    unset state(phrase)

    set lookahead $state(input)
    while {1} {
        switch -- [parselexeme $token] {
            LX_SEMICOLON
                -
            LX_END {
                set state(glevel) 0
                return 1
            }

            LX_COMMA {
            }

            default {
                set state(input) $lookahead
                return [addr_specification $token]
            }
        }
    }

XQL Not present:

Generic, PostgreSQL, Oracle