mime::addr_phrase (private)

 mime::addr_phrase token

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

Parse an address phrase 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

    while {1} {
        switch -- [parselexeme $token] {
            LX_ATOM
                -
            LX_QSTRING {
                append state(phrase) " " $state(buffer)
            }

            default {
                break
            }
        }
    }

    switch -- $state(lastC) {
        LX_LBRACKET {
            return [addr_routeaddr $token]
        }

        LX_COLON {
            return [addr_group $token]
        }

        LX_DOT {
            append state(phrase) $state(buffer)
            return [addr_phrase $token]
        }

        default {
            return -code 7  [format "found phrase instead of mailbox (%s%s)"  $state(phrase) $state(buffer)]
        }
    }

XQL Not present:

Generic, PostgreSQL, Oracle