mime::addr_end (private)

 mime::addr_end token

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

Validate the end of an address using internal MIME parser state. Invalid trailing syntax raises an error.

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

    switch -- $state(lastC) {
        LX_SEMICOLON {
            if {[incr state(glevel) -1] < 0} {
                return -code 7 "extraneous semi-colon"
            }
        }

        LX_COMMA
            -
        LX_END {
        }

        default {
            return -code 7 [format "junk after local@domain (found %s)"  $state(buffer)]
        }
    }

XQL Not present:

Generic, PostgreSQL, Oracle