Ignore:
Timestamp:
Mar 30, 2004, 7:55:51 PM (15 years ago)
Author:
toby
Message:

Hook the group code in. No group files just yet...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r5555 r6118  
    11231123        }
    11241124}
     1125
     1126# Use a specified group/version.
     1127proc PortGroup {group version} {
     1128        global portresourcepath
     1129
     1130        set groupFile ${portresourcepath}/group/${group}-${version}.tcl
     1131
     1132        if {[file exists $groupFile]} {
     1133                uplevel "source $groupFile"
     1134        } else {
     1135                ui_warn "Group file could not be located."
     1136        }
     1137}
Note: See TracChangeset for help on using the changeset viewer.