Skip to content
Permalink
Browse files

Cleanup the remaining uses of dportinit to use revised api.

git-svn-id: https://svn.macports.org/repository/macports/trunk/base@14673 d073be05-634f-4543-b044-5fe20cf6d1d6
  • Loading branch information
jdberry committed Oct 17, 2005
1 parent d1a8270 commit 81d6fee9a2d8b6bc9bed6ab51ccda7f8da495c0d
Showing with 15 additions and 8 deletions.
  1. +5 −2 src/portmgr/dpkgall.tcl
  2. +3 −2 src/portmgr/mpkgall.tcl
  3. +3 −2 src/portmgr/packageall.tcl
  4. +4 −2 src/portmgr/rpmall.tcl
@@ -1,6 +1,6 @@
#!/usr/bin/env tclsh8.4
# dpkgbuild.tcl
# $Id: dpkgall.tcl,v 1.16 2005/08/27 00:07:32 pguyot Exp $
# $Id: dpkgall.tcl,v 1.17 2005/10/17 13:32:24 jberry Exp $
#
# Copyright (c) 2004 Landon Fuller <landonf@opendarwin.org>
# Copyright (c) 2003 Kevin Van Vechten <kevin@opendarwin.org>
@@ -290,7 +290,10 @@ proc main {argc argv} {
}
# Initialize System
dportinit
array set ui_options {}
array set options {}
array set variations {}
dportinit ui_options options variations
# If -i was specified, install base system and exit
if {$initialize_flag == "true"} {
@@ -1,6 +1,6 @@
#!/usr/bin/env tclsh
# mpkgall.tcl
# $Id: mpkgall.tcl,v 1.9 2005/08/27 00:07:32 pguyot Exp $
# $Id: mpkgall.tcl,v 1.10 2005/10/17 13:32:24 jberry Exp $
#
# Copyright (c) 2003 Kevin Van Vechten <kevin@opendarwin.org>
# Copyright (c) 2002 Apple Computer, Inc.
@@ -34,6 +34,7 @@ package require darwinports

# globals
set portdir .
array set ui_options {}

proc ui_prefix {priority} {
return ""
@@ -215,7 +216,7 @@ array set options [list]
array set variations [list]
# set ui_options(ports_verbose) yes

if {[catch {dportinit} result]} {
if {[catch {dportinit ui_options options variations} result]} {
puts "Failed to initialize ports system, $result"
exit 1
}
@@ -1,6 +1,6 @@
#!/usr/bin/env tclsh
# packageall.tcl
# $Id: packageall.tcl,v 1.20 2005/08/27 00:07:32 pguyot Exp $
# $Id: packageall.tcl,v 1.21 2005/10/17 13:32:24 jberry Exp $
#
# Copyright (c) 2003 Kevin Van Vechten <kevin@opendarwin.org>
# Copyright (c) 2002 Apple Computer, Inc.
@@ -36,6 +36,7 @@ package require darwinports
set portdir .

# UI Instantiations
array set ui_options {}
# ui_options(ports_debug) - If set, output debugging messages.
# ui_options(ports_verbose) - If set, output info messages (ui_info)
# ui_options(ports_quiet) - If set, don't output "standard messages"
@@ -199,7 +200,7 @@ array set options [list]
array set variations [list]
# set ui_options(ports_verbose) yes

if {[catch {dportinit} result]} {
if {[catch {dportinit ui_options options variations} result]} {
puts "Failed to initialize ports system, $result"
exit 1
}
@@ -1,6 +1,6 @@
#!/usr/bin/env tclsh
# rpmall.tcl
# $Id: rpmall.tcl,v 1.8 2005/08/27 00:07:32 pguyot Exp $
# $Id: rpmall.tcl,v 1.9 2005/10/17 13:32:24 jberry Exp $
#
# Copyright (c) 2003 Benjamin Reed <ranger@befunk.com>
# Copyright (c) 2003 Kevin Van Vechten <kevin@opendarwin.org>
@@ -37,6 +37,7 @@ package require darwinports
set portdir .

# UI Instantiations
array set ui_options {}
# ui_options(ports_debug) - If set, output debugging messages.
# ui_options(ports_verbose) - If set, output info messages (ui_info)
# ui_options(ports_quiet) - If set, don't output "standard messages"
@@ -202,12 +203,13 @@ proc fatal args {
# Main
array set options [list]
array set variations [list]

# set ui_options(ports_verbose) yes
if {![file exists /usr/bin/sw_vers]} {
set variations(puredarwin) "+"
}

if {[catch {dportinit} result]} {
if {[catch {dportinit ui_options options variations} result]} {
puts "Failed to initialize ports system, $result"
exit 1
}

0 comments on commit 81d6fee

Please sign in to comment.
You can’t perform that action at this time.