source: branches/gsoc08-framework/MacPorts_Framework/build/MPFMidtermRelease/MacPorts.framework/Versions/A/Resources/init.tcl.original @ 38249

Last change on this file since 38249 was 38249, checked in by armahg@…, 9 years ago

Added build products directory and MidTerm release .dmg and .zip files

File size: 1.6 KB
Line 
1#catch {source \
2#       [file join "/Library/Tcl" macports1.0 macports_fastload.tcl]}
3
4#Trying my own MacPorts build rather than default one on the system
5catch {source \
6        [file join "/Users/Armahg/macportsbuild/build1/Library/Tcl" macports1.0 macports_fastload.tcl]}
7
8
9package require macports
10
11# ui_options accessor
12proc ui_isset {val} {
13        global ui_options
14        if {[info exists ui_options($val)]} {
15                if {$ui_options($val) == "yes"} {
16                        return 1
17                }
18        }
19        return 0
20}
21
22# UI Callback
23proc ui_prefix {priority} {
24    switch $priority {
25        debug {
26                return "DEBUG: "
27        }
28        error {
29                return "Error: "
30        }
31        warn {
32                return "Warning: "
33        }
34        default {
35                return ""
36        }
37    }
38}
39
40proc ui_channels {priority} {
41    global logfd
42    switch $priority {
43        debug {
44            if {[ui_isset ports_debug]} {
45                return {stderr}
46            } else {
47                return {}
48            }
49        }
50        info {
51            if {[ui_isset ports_verbose]} {
52                return {stdout}
53            } else {
54                return {}
55                        }
56                }
57        msg {
58            if {[ui_isset ports_quiet]} {
59                return {}
60                        } else {
61                                return {stdout}
62                        }
63                }
64        error {
65                return {stderr}
66        }
67        default {
68                return {stdout}
69        }
70    }
71}
72
73
74# Initialize dport
75# This must be done following parse of global options, as some options are
76# evaluated by dportinit.
77if {[catch {mportinit ui_options global_options global_variations} result]} {
78        global errorInfo
79        puts "$errorInfo"
80        fatal "Failed to initialize ports system, $result"
81}
82
83
Note: See TracBrowser for help on using the repository browser.