[25876] trunk/base/src/registry1.0/receipt_flat.tcl
source_changes at macosforge.org
source_changes at macosforge.org
Mon Jun 4 01:37:36 PDT 2007
Revision: 25876
http://trac.macosforge.org/projects/macports/changeset/25876
Author: boeyms at macports.org
Date: 2007-06-04 01:37:35 -0700 (Mon, 04 Jun 2007)
Log Message:
-----------
base/sre/registry1.0/receipt_flat.tcl:
* Whitespace changes only (most of the file uses tab characters, so I'm making
it tab characters only).
Modified Paths:
--------------
trunk/base/src/registry1.0/receipt_flat.tcl
Modified: trunk/base/src/registry1.0/receipt_flat.tcl
===================================================================
--- trunk/base/src/registry1.0/receipt_flat.tcl 2007-06-04 08:11:37 UTC (rev 25875)
+++ trunk/base/src/registry1.0/receipt_flat.tcl 2007-06-04 08:37:35 UTC (rev 25876)
@@ -68,31 +68,31 @@
# portversion the version for this port, 0 if unknown.
# return the path to the file or "" if the file couldn't be found.
proc get_head_entry_receipt_path {portname portversion} {
- global darwinports::registry.path
+ global darwinports::registry.path
- # regex match case
- if {$portversion == 0} {
+ # regex match case
+ if {$portversion == 0} {
set x [glob -nocomplain [file join ${darwinports::registry.path} receipts ${portname}-*]]
if {[string length $x]} {
- set matchfile [lindex $x 0]
+ set matchfile [lindex $x 0]
# Remove trailing .bz2, if any.
regexp {(.*)\.bz2$} $matchfile match matchfile
} else {
- set matchfile ""
+ set matchfile ""
}
- } else {
+ } else {
set matchfile [file join ${darwinports::registry.path} receipts ${portname}-${portversion}]
- }
+ }
- # Might as well bail out early if no file to match
- if {![string length $matchfile]} {
+ # Might as well bail out early if no file to match
+ if {![string length $matchfile]} {
return ""
- }
+ }
- if {[file exists $matchfile] || [file exists ${matchfile}.bz2]} {
+ if {[file exists $matchfile] || [file exists ${matchfile}.bz2]} {
return $matchfile
- }
- return ""
+ }
+ return ""
}
##
@@ -452,15 +452,15 @@
} else {
set query_path [file join ${darwinports::registry.path} receipts ${name}-*]
}
- set receiptglob [glob -nocomplain -types f ${query_path}]
- foreach receipt_file $receiptglob {
+ set receiptglob [glob -nocomplain -types f ${query_path}]
+ foreach receipt_file $receiptglob {
set theFileName [file tail $receipt_file]
- # Remark: these regexes do not always work.
- set theName ""
- if { $name == "" } {
+ # Remark: these regexes do not always work.
+ set theName ""
+ if { $name == "" } {
regexp {^(.*)-(.*)$} $theFileName match theName version
- } else {
+ } else {
regexp "^($name)-(.*)\$" $theFileName match theName version
}
@@ -693,7 +693,7 @@
set dep_map [read $map_handle]
close $map_handle
} else {
- set dep_map [list]
+ set dep_map [list]
}
if { ![llength $dep_map] > 0 } {
set dep_map [list]
@@ -758,10 +758,10 @@
puts $map_handle $dep_map
close $map_handle
- # don't both checking for presence, file delete doesn't error if file doesn't exist
- file delete ${map_file} ${map_file}.bz2
+ # don't both checking for presence, file delete doesn't error if file doesn't exist
+ file delete ${map_file} ${map_file}.bz2
- file rename ${map_file}.tmp ${map_file}
+ file rename ${map_file}.tmp ${map_file}
if { [file exists ${map_file}] && [file exists ${registry::autoconf::bzip2_path}] && ![info exists registry.nobzip] } {
system "${registry::autoconf::bzip2_path} -f ${map_file}"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070604/d1721a25/attachment.html
More information about the macports-changes
mailing list