Changeset 38506 for trunk/base/src

Timestamp:

07/23/08 02:43:14 (4 months ago)

Author:

rhwood@…

Message:

Armahg's patch to macports::ui_init for the GSOC08 frameworks project.

This patch allows users of the Tcl API for MacPorts to define custom ui_*
procedures message handling mechanisms.

Closes #15913, committing per email and IRC conversation.

Files:

• trunk/base/src/macports1.0/macports.tcl (modified) (2 diffs)

trunk/base/src/macports1.0/macports.tcl

@@ -77 +77 @@
 #     no message.
 # if these functions are not provided, defaults are used.
+# Clients of the library may optionally provide ui_init with the following
+# prototype.
+#     proc ui_init {priority prefix channels message}
+# ui_init needs to correctly define the proc ::ui_$priority {message} or throw
+# an error.
+# if this function is not provided or throws an error, default procedures for
+# ui_$priority are defined.
 
 # ui_options accessor
@@ -119 +126 @@
         }
 
-        if {$nbchans == 1} {
-            set chan [lindex $channels 0]
-            proc ::ui_$priority {str} [subst { puts $chan "$prefix\$str" }]
-        } else {
-            proc ::ui_$priority {str} [subst {
-                foreach chan \$channels {
-                    puts $chan "$prefix\$str"
-                }
-            }]
+        try {
+            ::ui_init $priority $prefix $channels $message
+        } catch * {
+            if {$nbchans == 1} {
+                set chan [lindex $channels 0]
+                proc ::ui_$priority {str} [subst { puts $chan "$prefix\$str" }]
+            } else {
+                proc ::ui_$priority {str} [subst {
+                    foreach chan \$channels {
+                        puts $chan "$prefix\$str"
+                    }
+                }]
+            }
         }