Changeset 29188 for trunk/base


Ignore:
Timestamp:
Sep 17, 2007, 7:25:45 AM (12 years ago)
Author:
jmpp@…
Message:

Whitespace changes only.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port/portindex.tcl

    r26177 r29188  
    11#!/bin/sh
    2 #\
     2# -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:et:sw=4:ts=4:sts=4 \
    33exec @TCLSH@ "$0" "$@"
    44
     
    88
    99catch {source \
    10         [file join "@TCL_PACKAGE_DIR@" macports1.0 macports_fastload.tcl]}
     10    [file join "@TCL_PACKAGE_DIR@" macports1.0 macports_fastload.tcl]}
    1111package require macports
    1212package require Pextlib
     
    1616set stats(total) 0
    1717set stats(failed) 0
    18 array set ui_options            [list]
    19 array set global_options        [list]
     18array set ui_options        [list]
     19array set global_options    [list]
    2020array set global_variations [list]
    2121
    2222# Pass global options into mportinit
    2323mportinit ui_options global_options global_variations
    24 
    2524
    2625
     
    3433    global ui_options
    3534    if {[info exists ui_options($val)]} {
    36         if {$ui_options($val) == "yes"} {
    37             return 1
    38         }
     35        if {$ui_options($val) == "yes"} {
     36            return 1
     37        }
    3938    }
    4039    return 0
     
    4544    switch $priority {
    4645        debug {
    47                 return "DEBUG: "
     46            return "DEBUG: "
    4847        }
    4948        error {
    50                 return "Error: "
     49            return "Error: "
    5150        }
    5251        warn {
    53                 return "Warning: "
     52            return "Warning: "
    5453        }
    5554        default {
    56                 return ""
     55            return ""
    5756        }
    5857    }
     
    6362        debug {
    6463            if {[ui_isset ports_debug]} {
    65                 return {stderr}
     64                return {stderr}
    6665            } else {
    67                 return {}
     66                return {}
    6867            }
    6968        }
     
    7372            } else {
    7473                return {}
    75                         }
    76                 }
     74            }
     75        }
    7776        msg {
    7877            if {[ui_isset ports_quiet]} {
    7978                return {}
    80                         } else {
    81                                 return {stdout}
    82                         }
    83                 }
     79            } else {
     80                return {stdout}
     81            }
     82        }
    8483        error {
    85                 return {stderr}
     84            return {stderr}
    8685        }
    8786        default {
    88                 return {stdout}
     87            return {stdout}
    8988        }
    9089    }
     
    10099}
    101100
    102 proc pindex {portdir} { 
     101proc pindex {portdir} { 
    103102    global target fd directory archive outdir stats
    104103    incr stats(total)
    105         global macports::prefix
    106         set save_prefix $prefix
    107         set prefix {\${prefix}}
     104    global macports::prefix
     105    set save_prefix $prefix
     106    set prefix {\${prefix}}
    108107    if {[catch {set interp [mportopen file://[file join $directory $portdir]]} result]} {
    109                 puts stderr "Failed to parse file $portdir/Portfile: $result"
    110                 # revert the prefix.
    111                 set prefix $save_prefix
    112                 incr stats(failed)
     108        puts stderr "Failed to parse file $portdir/Portfile: $result"
     109        # revert the prefix.
     110        set prefix $save_prefix
     111        incr stats(failed)
    113112    } else {
    114                 # revert the prefix.
     113        # revert the prefix.
    115114        set prefix $save_prefix
    116115        array set portinfo [mportinfo $interp]
     
    152151            if {$arg == "-a"} { # Turn on archiving
    153152                set archive 1
    154             } elseif {$arg == "-d"} { # Turn on debug output
    155                 set ui_options(ports_debug) yes
    156             } elseif {$arg == "-o"} { # Set output directory
    157                 incr i
    158                 set outdir [lindex $argv $i]
    159             } else {
    160                 puts stderr "Unknown option: $arg"
    161                 print_usage
    162                 exit 1
    163             }
    164         }
    165         default { set directory $arg }
     153        } elseif {$arg == "-d"} { # Turn on debug output
     154            set ui_options(ports_debug) yes
     155        } elseif {$arg == "-o"} { # Set output directory
     156            incr i
     157            set outdir [lindex $argv $i]
     158        } else {
     159            puts stderr "Unknown option: $arg"
     160            print_usage
     161            exit 1
     162        }
     163    }
     164    default { set directory $arg }
    166165    }
    167166}
Note: See TracChangeset for help on using the changeset viewer.