mime::addr_route (private)

 mime::addr_route token

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

Parse a source route and store it in the 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

    set state(route) @

    while {1} {
        switch -- [parselexeme $token] {
            LX_ATOM
                -
            LX_DLITERAL {
                append state(route) $state(buffer)
            }

            default {
                return -code 7  [format "expecting sub-route in route-part (found %s)"  $state(buffer)]
            }
        }

        switch -- [parselexeme $token] {
            LX_COMMA {
                append state(route) $state(buffer)
                while {1} {
                    switch -- [parselexeme $token] {
                        LX_COMMA {
                        }

                        LX_ATSIGN {
                            append state(route) $state(buffer)
                            break
                        }

                        default {
                            return -code 7  [format "expecting at-sign in route (found %s)"  $state(buffer)]
                        }
                    }
                }
            }

            LX_ATSIGN
                -
            LX_DOT {
                append state(route) $state(buffer)
            }

            LX_COLON {
                append state(route) $state(buffer)
                return
            }

            default {
                return -code 7  [format "expecting colon to terminate route (found %s)"  $state(buffer)]
            }
        }
    }

XQL Not present:

Generic, PostgreSQL, Oracle