util::join_location (public)

 util::join_location [ -noabbrev ] [ -proto proto ] \
    [ -hostname hostname ] [ -port port ]

Defined in packages/acs-tcl/tcl/utilities-procs.tcl

Join hostname and port and use IP-literal notation when necessary. The function is the inverse function of util::split_location.

Switches:

-noabbrev (optional, boolean)

when specified, the location is joined as requested. Otherwise, default ports are omitted from the result.

-proto (optional)

-hostname (optional)

-port (optional)

Returns:

location consisting of hostname and optionally port

Author:

Gustaf Neumann

See Also:

• util::split_location

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

Testcases:

util__split_and_join_location

Source code:

    set result ""
    if {$proto ne ""} {
        append result $proto://
        #
        # When the specified port is equal to the default port, omit
        # it from the result.
        #
        if {!$noabbrev_p
            && $port ne ""
            && $port eq [dict get {http 80 https 443 udp "" smtp ""} $proto]
        } {
            set port ""
        }
    }
    if {[string match *:* $hostname]} {
        append result "\[$hostname\]"
    } else {
        append result $hostname
    }
    if {$port ne ""} {
        append result :$port
    }
    return $result

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/acs-tcl/tcl/utilities-procs.xql