[66599] trunk/base/src/macports1.0/macports_fastload.tcl.in

[raimue at macports.org]

Revision: 66599
          http://trac.macports.org/changeset/66599
Author:   raimue at macports.org
Date:     2010-04-17 19:06:38 -0700 (Sat, 17 Apr 2010)
Log Message:
-----------
macports1.0/macports_fastload.tcl.in: Add modeline, tabs to spaces

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports_fastload.tcl.in

Modified: trunk/base/src/macports1.0/macports_fastload.tcl.in
===================================================================
--- trunk/base/src/macports1.0/macports_fastload.tcl.in	2010-04-18 00:54:38 UTC (rev 66598)
+++ trunk/base/src/macports1.0/macports_fastload.tcl.in	2010-04-18 02:06:38 UTC (rev 66599)
@@ -1,3 +1,4 @@
+# -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:ft=tcl:et:sw=4:ts=4:sts=4
 # macports_fastload.tcl.in
 # $Id$
 #
@@ -45,39 +46,39 @@
 #
 if { [regexp {\d+\.\d+\.\d+} [info patchlevel]] &&
         ([package vcompare [info patchlevel] 8.4.7] < 0) } {
-	global allpackages
-	if {![info exists allpackages]} {
-		# Only patch once.
-		array set allpackages {}
-		rename package package_native
-		proc package {args} {
-				global allpackages
-				if {([lindex $args 0] == "ifneeded") && ([llength $args] == 4)} {
-						set package_name [lindex $args 1]
-						set package_version [lindex $args 2]
-						set package_key ${package_name}::${package_version}
-						if {![info exists allpackages($package_key)]} {
-								set allpackages($package_key) 1
-								set result [eval package_native $args]
-						} else {
-								set result ""
-						}
-				} else {
-						set result [eval package_native $args]
-				}
-				return $result
-		}
-	}
+    global allpackages
+    if {![info exists allpackages]} {
+        # Only patch once.
+        array set allpackages {}
+        rename package package_native
+        proc package {args} {
+            global allpackages
+            if {([lindex $args 0] == "ifneeded") && ([llength $args] == 4)} {
+                set package_name [lindex $args 1]
+                set package_version [lindex $args 2]
+                set package_key ${package_name}::${package_version}
+                if {![info exists allpackages($package_key)]} {
+                    set allpackages($package_key) 1
+                    set result [eval package_native $args]
+                    } else {
+                        set result ""
+                    }
+            } else {
+                set result [eval package_native $args]
+            }
+            return $result
+        }
+    }
 }
 
 set sharetcldir "@macports_tcl_dir@"
 if {[file exists $sharetcldir]} {
-	foreach dir [glob -directory $sharetcldir *] {
-		catch {source [file join $dir pkgIndex.tcl]}
-	}
+    foreach dir [glob -directory $sharetcldir *] {
+        catch {source [file join $dir pkgIndex.tcl]}
+    }
 }
 
 if { "@SQLITE3_TCL_DIR@" != "" } {
-	set dir "@SQLITE3_TCL_DIR@"
-	catch {source [file join $dir pkgIndex.tcl]}
+    set dir "@SQLITE3_TCL_DIR@"
+    catch {source [file join $dir pkgIndex.tcl]}
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100417/91c68e23/attachment.html>