*! gcglobals 0.5.2 2009-05-25 scott long
*   - minor formatting

//  list gc globals

capture program drop gcglobals
program define gcglobals, rclass

    version 9
    syntax , /// 
        [   all  /// list all
            gcsetup /// list from gcsetup
            gcmodel /// list from gcmodel
        ]

if "`all'"=="all" {
    local gcsetup "gcsetup"
}

//  GCSETUP globals

if "`gcsetup'"=="gcsetup" {
    di _new "These globals were created:"
    di _new "   \$grpvar:       $grpvar"
    di      "   \$gr0var:       $gr0var"
    di      "   \$gr0label:     $gr0label"
    di      "   \$gr1var:       $gr1var"
    di      "   \$gr1label:     $gr1label"
} // gcsetup

//  GCMODEL globals

if "`gcmodel'"=="gcmodel" {
    if "$modellabel"!="" {
        local tmp "$modellabel"
        di _new "Current model: `tmp'"
    }
    if "`if'"!="" | "`in'"!="" {
        di _new "Sample selected by: `if' `in'"
    }
    di _new "These globals are defined:"
    di _new "RHS variable lists:"
    di _new "   \$rhsgr0:       $rhsgr0"
    di      "   \$rhsgr1:       $rhsgr1"
    di      "   \$rhsinteract:  \$rhsgr0 + \$rhsgr1"
    di      "   \$rhsnoint:     $rhsnoint"
    
    di _new "Group variables set to 1"
    di _new "   \$grp:          $grp"
    di      "   \$gr0:          $gr0"
    di      "   \$gr1:          $gr1"
    
    di _new "RHS variables set to grand means:"
    di _new "   \$xallmng:      $xallmng"
    di      "   \$xgr0mng:      $xgr0mng"
    di      "   \$xgr1mng:      $xgr1mng"
    
    di _new "RHS variables set to group 0 means:"
    di _new "   \$xallmn0:      $xallmn0"
    di      "   \$xgr0mn0:      $xgr0mn0"
    di      "   \$xgr1mn0:      $xgr1mn0"
    
    di _new "RHS variables set to group 1 means:"
    di _new "   \$xallmn1:      $xallmn1"
    di      "   \$xgr0mn1:      $xgr0mn1"
    di      "   \$xgr1mn1:      $xgr1mn1"

/*
    if "`svy'"!="svy" {
        local tmpsvy "not "
    }
    if "`svy'"=="svy" {
        di _new "Survey means are used."
    }
*/

} // gcmodel

end
exit

* gcglobals 0.5.0 2009-05-22 jsl list globals
* gcglobals 0.5.1 2009-05-25 scott long