Ticket #47442: patch-base-environment-action-mode.diff

File patch-base-environment-action-mode.diff, 5.3 KB (added by pixilla (Bradley Giesbrecht), 10 years ago)

  • doc/port.1

     
    462462Debug mode, generate debugging messages, implies \-v
    463463.RE
    464464.PP
     465\-e
     466.RS 4
     467Enviroment mode, generates environment messages
     468.RE
     469.PP
    465470\-q
    466471.RS 4
    467472Quiet mode, suppress informational messages to a minimum, implies \-N

  • doc/port.1.txt

     
    129129-d::
    130130    Debug mode, generate debugging messages, implies -v
    131131
     132-e::
     133    Enviroment mode, generates environment messages
     134
    132135-q::
    133136    Quiet mode, suppress informational messages to a minimum, implies -N
    134137

  • src/macports1.0/macports.tcl

     
    9393    return ${macports::autoconf::macports_version}
    9494}
    9595
     96##
     97# Return the port environment variables.
     98proc macports::environment {} {
     99    set mpenv {}
     100    if {![macports::ui_isset ports_quiet]} {
     101        lappend mpenv "$macports::ui_prefix port_cmd_version:  ${macports::autoconf::macports_version}"
     102    } else {
     103        lappend mpenv "port_cmd_version  ${macports::autoconf::macports_version}"
     104    }
     105    if {[info exists macports::bootstrap_options]} {
     106        foreach bootstrap_option [lsort $macports::bootstrap_options] {
     107            if {[info exists macports::$bootstrap_option]} {
     108                if {![macports::ui_isset ports_quiet]} {
     109                    lappend mpenv "$macports::ui_prefix bootstrap_options: $bootstrap_option: [set macports::$bootstrap_option]"
     110                } else {
     111                    lappend mpenv "bootstrap_options $bootstrap_option [set macports::$bootstrap_option]"
     112                }
     113            }
     114        }
     115    }
     116    if {[info exists macports::sources]} {
     117        foreach source $macports::sources {
     118            if {![macports::ui_isset ports_quiet]} {
     119                lappend mpenv "$macports::ui_prefix port_tree_sources: $source"
     120            } else {
     121                lappend mpenv "port_tree_sources $source"
     122            }
     123        }
     124    }
     125    if {[info exists macports::global_variations]} {
     126        set gvl {}
     127        foreach {variation mode} [array get macports::global_variations] {
     128            lappend gvl $mode$variation
     129        }
     130        if {![macports::ui_isset ports_quiet]} {
     131            lappend mpenv "$macports::ui_prefix global_variations: [join $gvl { }]"
     132        } else {
     133            lappend mpenv "global_variations [join $gvl { }]"
     134        }
     135    }
     136    ui_msg "[join $mpenv \n]"
     137    return 0
     138}
     139
    96140# Provided UI instantiations
    97141# For standard messages, the following priorities are defined
    98142#     debug, info, msg, warn, error
    … …  
    697741                    if {[lsearch -exact $bootstrap_options $option] >= 0} {
    698742                        set macports::$option [string trim $val]
    699743                        global macports::$option
     744                        if {[info exists macports::ui_options(ports_env)]} {
     745                            ui_msg "$macports::ui_prefix $file: ${option}: [set macports::$option]"
     746                        }
    700747                    }
    701748                }
    702749            }
    … …  
    713760                if {[lsearch -exact $user_options $option] >= 0} {
    714761                    set macports::$option $val
    715762                    global macports::$option
     763                    if {[info exists macports::ui_options(ports_env)]} {
     764                        ui_msg "$macports::ui_prefix user: ${option}: [set macports::$option]"
     765                    }
    716766                }
    717767            }
    718768        }
    … …  
    740790                    }
    741791                }
    742792                lappend sources [concat [list $url] $flags]
     793                if {[info exists macports::ui_options(ports_env)]} {
     794                    ui_msg "$macports::ui_prefix $sources_conf: [lindex $sources end]"
     795                }
    743796            } else {
    744797                ui_warn "$sources_conf specifies invalid source '$line', ignored."
    745798            }

  • src/port/port.tcl

     
    28122812}
    28132813
    28142814
     2815proc action_environment { action portlist opts } {
     2816    set status [macports::environment]
     2817    return $status
     2818}
     2819
     2820
    28152821proc action_platform { action portlist opts } {
    28162822    if {![macports::ui_isset ports_quiet]} {
    28172823        puts -nonewline "Platform: "
    … …  
    42414247    diagnose    [list action_diagnose       [ACTION_ARGS_NONE]] \
    42424248    \
    42434249    version     [list action_version        [ACTION_ARGS_NONE]] \
     4250    environment [list action_environment    [ACTION_ARGS_NONE]] \
    42444251    platform    [list action_platform       [ACTION_ARGS_NONE]] \
    42454252    \
    42464253    uninstall   [list action_uninstall      [ACTION_ARGS_PORTS]] \
    … …  
    44984505            set opts [string range $arg 1 end]
    44994506            foreach c [split $opts {}] {
    45004507                switch -- $c {
     4508                    e {
     4509                        set ui_options(ports_env) yes
     4510                    }
    45014511                    v {
    45024512                        set ui_options(ports_verbose) yes
    45034513                    }