mirror of
https://github.com/macports/pallet.git
synced 2026-07-12 18:18:47 -07:00
Kyle Sammons
365326ca6e
git-svn-id: https://svn.macports.org/repository/macports/branches/gsoc15-pallet@143487 d073be05-634f-4543-b044-5fe20cf6d1d6
121 lines
3.4 KiB
Tcl
121 lines
3.4 KiB
Tcl
package require macports
|
|
package require simplelog
|
|
|
|
proc ui_init {priority prefix channels message} {
|
|
switch $priority {
|
|
msg {
|
|
set nottype "MPMsgNotification"
|
|
}
|
|
debug {
|
|
set nottype "MPDebugNotification"
|
|
puts "Recieved Debug init"
|
|
}
|
|
warn {
|
|
set nottype "MPWarnNotification"
|
|
|
|
}
|
|
error {
|
|
set nottype "MPErrorNotification"
|
|
puts "Recieved Error"
|
|
}
|
|
info {
|
|
set nottype "MPInfoNotification"
|
|
puts "Recieved Info"
|
|
}
|
|
default {
|
|
set nottype "MPDefaultNotification"
|
|
}
|
|
}
|
|
|
|
proc ::ui_$priority {message} [subst {
|
|
simplelog "$nottype $channels($priority) $prefix" "\$message"
|
|
ui_message $priority $prefix "" "\$message"
|
|
}]
|
|
}
|
|
|
|
|
|
#Wrapping the following API routines to catch errors
|
|
#and log error Information in a similar fashion to code
|
|
#in macports.tcl. Note optionslist is not being used for now
|
|
set mp_empty_list [list]
|
|
proc test {} {
|
|
puts "TEST"
|
|
}
|
|
proc mportuninstall {portname {version ""} {revision ""} {variants 0} {optionslist ""} } {
|
|
if {[catch {registry_uninstall::uninstall $portname $version $revision $variants [array get options]} result]} {
|
|
|
|
global errorInfo
|
|
ui_debug "$errorInfo"
|
|
ui_error "Uninstall $portname ${version}_${revision}${variants} failed: $result"
|
|
return 1
|
|
}
|
|
}
|
|
proc mportuninstall_composite {portname {v ""} {optionslist ""} } {
|
|
if {[catch {registry_uninstall::uninstall_composite $portname $v [array get options]} result]} {
|
|
|
|
global errorInfo
|
|
ui_debug "$errorInfo"
|
|
ui_error "Uninstall $portname $v failed: $result"
|
|
return 1
|
|
}
|
|
}
|
|
|
|
proc mportactivate {portname {version ""} {revision ""} {variants 0} {optionslist ""}} {
|
|
if {[catch {portimage::activate $portname $version $revision $variants $optionslist} result]} {
|
|
|
|
global errorInfo
|
|
ui_debug "$errorInfo"
|
|
ui_error "Activate $portname ${version}_${revision}${variants} failed: $result"
|
|
return 1
|
|
}
|
|
}
|
|
proc mportactivate_composite {portname {v ""} {optionslist ""}} {
|
|
if {[catch {portimage::activate_composite $portname $v $optionslist} result]} {
|
|
|
|
global errorInfo
|
|
ui_debug "$errorInfo"
|
|
ui_error "Activate $portname $v failed: $result"
|
|
return 1
|
|
}
|
|
}
|
|
|
|
proc mportdeactivate {portname {version ""} {revision ""} {variants 0} {optionslist ""} } {
|
|
if {[catch {portimage::deactivate $portname $version $revision $variants $optionslist} result]} {
|
|
|
|
global errorInfo
|
|
ui_debug "$errorInfo"
|
|
ui_error "Deactivate $portname ${version}_${revision}${variants} failed: $result"
|
|
return 1
|
|
}
|
|
}
|
|
proc mportdeactivate_composite {portname {v ""} {optionslist ""} } {
|
|
if {[catch {portimage::deactivate_composite $portname $v $optionslist} result]} {
|
|
|
|
global errorInfo
|
|
ui_debug "$errorInfo"
|
|
ui_error "Deactivate $portname $v failed: $result"
|
|
return 1
|
|
}
|
|
}
|
|
|
|
proc mportupgrade {portname} {
|
|
array set depscache {}
|
|
if {[catch {macports::upgrade $portname "port:$portname" [array get global_variations] [array get variations] [array get options] depscache} result]} {
|
|
|
|
global errorInfo
|
|
ui_debug "$errorInfo"
|
|
ui_error "Upgrade $portname failed: $result"
|
|
return 1
|
|
}
|
|
}
|
|
|
|
# Initialize dport
|
|
# This must be done following parse of global options, as some options are
|
|
# evaluated by dportinit.
|
|
|
|
if {[catch {mportinit ui_options global_options global_variations} result]} {
|
|
global errorInfo
|
|
puts "$errorInfo"
|
|
fatal "Failed to initialize ports system, $result"
|
|
}
|