Changeset 46778


Ignore:
Timestamp:
Feb 12, 2009, 10:36:18 PM (8 years ago)
Author:
ryandesign@…
Message:

portlint.tcl: expand tabs to spaces, and make spaces consistent at 4 spaces per indentation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portlint.tcl

    r42662 r46778  
    1616
    1717set lint_portsystem \
    18         "1.0"
     18    "1.0"
    1919
    2020set lint_platforms [list \
    21         "macosx" \
    22         "darwin" \
    23         "freebsd" \
    24         "openbsd" \
    25         "netbsd" \
    26         "linux" \
    27         "sunos" \
    28         ]
     21    "macosx" \
     22    "darwin" \
     23    "freebsd" \
     24    "openbsd" \
     25    "netbsd" \
     26    "linux" \
     27    "sunos" \
     28    ]
    2929
    3030set lint_categories [list \
    31         "aqua" \
    32         "archivers" \
    33         "audio" \
    34         "benchmarks" \
    35         "cad" \
    36         "comms" \
    37         "cross" \
    38         "databases" \
    39         "devel" \
    40         "editors" \
    41         "emulators" \
    42         "erlang" \
    43         "finance" \
    44         "fuse" \
    45         "games" \
    46         "genealogy" \
    47         "gis" \
    48         "gnome" \
    49         "gnustep" \
    50         "graphics" \
    51         "iphone" \
    52         "irc" \
    53         "java" \
    54         "kde" \
    55         "lang" \
    56         "mail" \
    57         "math" \
    58         "multimedia" \
    59         "net" \
    60         "news" \
    61         "office" \
    62         "palm" \
    63         "perl" \
    64         "print" \
    65         "python" \
    66         "ruby" \
    67         "science" \
    68         "security" \
    69         "shells" \
    70         "sysutils" \
    71         "tex" \
    72         "textproc" \
    73         "www" \
    74         "x11" \
    75         "xfce" \
    76         "zope" \
    77         ]
     31    "aqua" \
     32    "archivers" \
     33    "audio" \
     34    "benchmarks" \
     35    "cad" \
     36    "comms" \
     37    "cross" \
     38    "databases" \
     39    "devel" \
     40    "editors" \
     41    "emulators" \
     42    "erlang" \
     43    "finance" \
     44    "fuse" \
     45    "games" \
     46    "genealogy" \
     47    "gis" \
     48    "gnome" \
     49    "gnustep" \
     50    "graphics" \
     51    "iphone" \
     52    "irc" \
     53    "java" \
     54    "kde" \
     55    "lang" \
     56    "mail" \
     57    "math" \
     58    "multimedia" \
     59    "net" \
     60    "news" \
     61    "office" \
     62    "palm" \
     63    "perl" \
     64    "print" \
     65    "python" \
     66    "ruby" \
     67    "science" \
     68    "security" \
     69    "shells" \
     70    "sysutils" \
     71    "tex" \
     72    "textproc" \
     73    "www" \
     74    "x11" \
     75    "xfce" \
     76    "zope" \
     77    ]
    7878
    7979set lint_required [list \
    80         "name" \
    81         "version" \
    82         "description" \
    83         "long_description" \
    84         "categories" \
    85         "maintainers" \
    86         "platforms" \
    87         "homepage" \
    88         "master_sites" \
    89         "checksums" \
    90         ]
     80    "name" \
     81    "version" \
     82    "description" \
     83    "long_description" \
     84    "categories" \
     85    "maintainers" \
     86    "platforms" \
     87    "homepage" \
     88    "master_sites" \
     89    "checksums" \
     90    ]
    9191
    9292set lint_optional [list \
    93         "epoch" \
    94         "revision" \
    95         "worksrcdir" \
    96         "distname" \
    97         "use_automake" \
    98         "use_autoconf" \
    99         "use_configure" \
    100         ]
     93    "epoch" \
     94    "revision" \
     95    "worksrcdir" \
     96    "distname" \
     97    "use_automake" \
     98    "use_autoconf" \
     99    "use_configure" \
     100    ]
    101101
    102102set lint_variants [list \
    103         "universal" \
    104         "docs" \
    105         "aqua" \
    106         "x11" \
    107         ]
     103    "universal" \
     104    "docs" \
     105    "aqua" \
     106    "x11" \
     107    ]
    108108
    109109
     
    147147
    148148proc lint_main {args} {
    149         global UI_PREFIX portname portpath porturl ports_lint_nitpick
    150         set portfile ${portpath}/Portfile
    151         set portdirs [split ${portpath} /]
    152         set last [llength $portdirs]
    153         incr last -1
    154         set portdir [lindex $portdirs $last]
    155         incr last -1
    156         set portcatdir [lindex $portdirs $last]
    157 
    158         set warnings 0
    159         set errors 0
     149    global UI_PREFIX portname portpath porturl ports_lint_nitpick
     150    set portfile ${portpath}/Portfile
     151    set portdirs [split ${portpath} /]
     152    set last [llength $portdirs]
     153    incr last -1
     154    set portdir [lindex $portdirs $last]
     155    incr last -1
     156    set portcatdir [lindex $portdirs $last]
     157
     158    set warnings 0
     159    set errors 0
    160160
    161161    ###################################################################
     
    234234        if {[string match "PortSystem*" $line]} {
    235235            if {$seen_portsystem} {
    236                  ui_error "Line $lineno repeats PortSystem information"
    237                  incr errors
     236                ui_error "Line $lineno repeats PortSystem information"
     237                incr errors
    238238            }
    239239            regexp {PortSystem\s+([0-9.]+)} $line -> portsystem
    240240            if {![info exists portsystem]} {
    241                  ui_error "Line $lineno has unrecognized PortSystem"
    242                  incr errors
     241                ui_error "Line $lineno has unrecognized PortSystem"
     242                incr errors
    243243            }
    244244            set seen_portsystem true
     
    248248        if {[string match "PortGroup*" $line]} {
    249249            if {$seen_portgroup} {
    250                  ui_error "Line $lineno repeats PortGroup information"
    251                  incr errors
     250                ui_error "Line $lineno repeats PortGroup information"
     251                incr errors
    252252            }
    253253            regexp {PortGroup\s+([a-z0-9]+)\s+([0-9.]+)} $line -> portgroup portgroupversion
    254254            if {![info exists portgroup]} {
    255                  ui_error "Line $lineno has unrecognized PortGroup"
    256                  incr errors
     255                ui_error "Line $lineno has unrecognized PortGroup"
     256                incr errors
    257257            }
    258258            set seen_portgroup true
     
    279279            regexp {variant\s+(\w+)} $line -> variantname
    280280            if {[info exists variantname]} {
    281                  lappend local_variants $variantname
     281                lappend local_variants $variantname
    282282            }
    283283        }
     
    333333        }
    334334
    335        if {$var == "master_sites" && ${fetch.type} != "standard"} {
    336              ui_info "OK: $var not required for fetch.type ${fetch.type}"
    337              continue
    338        }
    339        
    340        if {![info exists $var]} {
     335        if {$var == "master_sites" && ${fetch.type} != "standard"} {
     336            ui_info "OK: $var not required for fetch.type ${fetch.type}"
     337            continue
     338        }
     339
     340        if {![info exists $var]} {
    341341            ui_error "Missing required variable: $req_var"
    342342            incr errors
     
    347347
    348348    foreach opt_var $lint_optional {
    349        if {$opt_var == "epoch"} {
     349        if {$opt_var == "epoch"} {
    350350            set var "portepoch"
    351351        } elseif {$opt_var == "revision"} {
     
    353353        } else {
    354354            set var $opt_var
    355        }
    356        if {[info exists $var]} {
     355        }
     356        if {[info exists $var]} {
    357357            # TODO: check whether it was seen (or default)
    358358            ui_info "OK: Found optional variable: $opt_var"
    359        }
     359        }
    360360    }
    361361
    362362    if {[info exists platforms]} {
    363363        foreach platform $platforms {
    364            if {[lsearch -exact $lint_platforms $platform] == -1} {
     364            if {[lsearch -exact $lint_platforms $platform] == -1} {
    365365                ui_error "Unknown platform: $platform"
    366366                incr errors
     
    514514    ###################################################################
    515515
    516         ui_msg "$UI_PREFIX [format [msgcat::mc "%d errors and %d warnings found."] $errors $warnings]"
    517 
    518         return {$errors > 0}
     516    ui_msg "$UI_PREFIX [format [msgcat::mc "%d errors and %d warnings found."] $errors $warnings]"
     517
     518    return {$errors > 0}
    519519}
Note: See TracChangeset for help on using the changeset viewer.