Changeset 14673 for trunk/base


Ignore:
Timestamp:
Oct 17, 2005, 1:32:24 PM (19 years ago)
Author:
jberry
Message:

Cleanup the remaining uses of dportinit to use revised api.

Location:
trunk/base/src/portmgr
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/base/src/portmgr/dpkgall.tcl

    r13738 r14673  
    11#!/usr/bin/env tclsh8.4
    22# dpkgbuild.tcl
    3 # $Id: dpkgall.tcl,v 1.16 2005/08/27 00:07:32 pguyot Exp $
     3# $Id: dpkgall.tcl,v 1.17 2005/10/17 13:32:24 jberry Exp $
    44#
    55# Copyright (c) 2004 Landon Fuller <landonf@opendarwin.org>
    … …  
    291291
    292292        # Initialize System
    293         dportinit
     293        array set ui_options {}
     294        array set options {}
     295        array set variations {}
     296        dportinit ui_options options variations
    294297
    295298        # If -i was specified, install base system and exit

  • trunk/base/src/portmgr/mpkgall.tcl

    r13738 r14673  
    11#!/usr/bin/env tclsh
    22# mpkgall.tcl
    3 # $Id: mpkgall.tcl,v 1.9 2005/08/27 00:07:32 pguyot Exp $
     3# $Id: mpkgall.tcl,v 1.10 2005/10/17 13:32:24 jberry Exp $
    44#
    55# Copyright (c) 2003 Kevin Van Vechten <kevin@opendarwin.org>
    … …  
    3535# globals
    3636set portdir .
     37array set ui_options {}
    3738
    3839proc ui_prefix {priority} {
    … …  
    216217#       set ui_options(ports_verbose) yes
    217218
    218 if {[catch {dportinit} result]} {
     219if {[catch {dportinit ui_options options variations} result]} {
    219220    puts "Failed to initialize ports system, $result"
    220221    exit 1

  • trunk/base/src/portmgr/packageall.tcl

    r13738 r14673  
    11#!/usr/bin/env tclsh
    22# packageall.tcl
    3 # $Id: packageall.tcl,v 1.20 2005/08/27 00:07:32 pguyot Exp $
     3# $Id: packageall.tcl,v 1.21 2005/10/17 13:32:24 jberry Exp $
    44#
    55# Copyright (c) 2003 Kevin Van Vechten <kevin@opendarwin.org>
    … …  
    3737
    3838# UI Instantiations
     39array set ui_options {}
    3940# ui_options(ports_debug) - If set, output debugging messages.
    4041# ui_options(ports_verbose) - If set, output info messages (ui_info)
    … …  
    200201#       set ui_options(ports_verbose) yes
    201202
    202 if {[catch {dportinit} result]} {
     203if {[catch {dportinit ui_options options variations} result]} {
    203204    puts "Failed to initialize ports system, $result"
    204205    exit 1

  • trunk/base/src/portmgr/rpmall.tcl

    r13738 r14673  
    11#!/usr/bin/env tclsh
    22# rpmall.tcl
    3 # $Id: rpmall.tcl,v 1.8 2005/08/27 00:07:32 pguyot Exp $
     3# $Id: rpmall.tcl,v 1.9 2005/10/17 13:32:24 jberry Exp $
    44#
    55# Copyright (c) 2003 Benjamin Reed <ranger@befunk.com>
    … …  
    3838
    3939# UI Instantiations
     40array set ui_options {}
    4041# ui_options(ports_debug) - If set, output debugging messages.
    4142# ui_options(ports_verbose) - If set, output info messages (ui_info)
    … …  
    203204array set options [list]
    204205array set variations [list]
     206
    205207#       set ui_options(ports_verbose) yes
    206208if {![file exists /usr/bin/sw_vers]} {
    … …  
    208210}
    209211
    210 if {[catch {dportinit} result]} {
     212if {[catch {dportinit ui_options options variations} result]} {
    211213    puts "Failed to initialize ports system, $result"
    212214    exit 1
Note: See TracChangeset for help on using the changeset viewer.