[80738] branches/gsoc11-rev-upgrade/base/src/libmachista1.0/tests/test.tcl

[cal at macports.org]

Revision: 80738
          http://trac.macports.org/changeset/80738
Author:   cal at macports.org
Date:     2011-07-16 11:55:40 -0700 (Sat, 16 Jul 2011)
Log Message:
-----------
rev-upgrade: Tcl example script for using machista from Tcl

Added Paths:
-----------
    branches/gsoc11-rev-upgrade/base/src/libmachista1.0/tests/test.tcl

Added: branches/gsoc11-rev-upgrade/base/src/libmachista1.0/tests/test.tcl
===================================================================
--- branches/gsoc11-rev-upgrade/base/src/libmachista1.0/tests/test.tcl	                        (rev 0)
+++ branches/gsoc11-rev-upgrade/base/src/libmachista1.0/tests/test.tcl	2011-07-16 18:55:40 UTC (rev 80738)
@@ -0,0 +1,34 @@
+load machista.dylib
+
+if {$argc < 1} {
+	puts "Usage: $argv0 filename"
+	exit 1
+}
+set h [machista::create_handle]
+
+for {set i 0} {$i < $argc} {incr i} {
+	puts [lindex $argv $i]
+	set rlist [machista::parse_file $h [lindex $argv $i]]
+	if {[lindex $rlist 0] == $machista::MACHO_SUCCESS} {
+		set r [lindex $rlist 1]
+		set a [$r cget -mt_archs]
+		while {$a != "NULL"} {
+			puts "	Architecture: [$a cget -mat_arch]"
+			puts "		         install name: [$a cget -mat_install_name]"
+			puts "		      current version: [machista::format_dylib_version [$a cget -mat_version]]"
+			puts "		compatibility version: [machista::format_dylib_version [$a cget -mat_comp_version]]"
+	
+			set l [$a cget -mat_loadcmds]
+			while {$l != "NULL"} {
+				puts "			[$l cget -mlt_install_name] (current version [machista::format_dylib_version [$l cget -mlt_version]], compatibility version [machista::format_dylib_version [$l cget -mlt_comp_version]])"
+				set l [$l cget -next]
+			}
+	
+			set a [$a cget -next]
+		}
+	} else {
+		puts "An error occured: [machista::strerror [lindex $rlist 0]]"
+	}
+}
+machista::destroy_handle $h
+
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110716/688af185/attachment.html>