Changeset 147361


Ignore:
Timestamp:
Apr 2, 2016, 4:04:00 PM (4 years ago)
Author:
raimue@…
Message:

port: use switch -matchvar from Tcl 8.5

File:
1 edited

Legend:

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

    r146757 r147361  
    12601260
    12611261    set token [lookahead]
    1262     switch -regex -- $token {
     1262    switch -regex -matchvar matchvar -- $token {
    12631263        ^\\)$               -
    12641264        ^\;                 -
     
    12741274        }
    12751275
    1276         ^all(@.*)?$         -
    1277         ^installed(@.*)?$   -
    1278         ^uninstalled(@.*)?$ -
    1279         ^active(@.*)?$      -
    1280         ^inactive(@.*)?$    -
    1281         ^actinact(@.*)?$    -
    1282         ^leaves(@.*)?$      -
    1283         ^outdated(@.*)?$    -
    1284         ^obsolete(@.*)?$    -
    1285         ^requested(@.*)?$   -
    1286         ^unrequested(@.*)?$ -
    1287         ^current(@.*)?$     {
     1276        ^(all)(@.*)?$         -
     1277        ^(installed)(@.*)?$   -
     1278        ^(uninstalled)(@.*)?$ -
     1279        ^(active)(@.*)?$      -
     1280        ^(inactive)(@.*)?$    -
     1281        ^(actinact)(@.*)?$    -
     1282        ^(leaves)(@.*)?$      -
     1283        ^(outdated)(@.*)?$    -
     1284        ^(obsolete)(@.*)?$    -
     1285        ^(requested)(@.*)?$   -
     1286        ^(unrequested)(@.*)?$ -
     1287        ^(current)(@.*)?$     {
    12881288            # A simple pseudo-port name
    12891289            advance
    12901290
    12911291            # Break off the version component, if there is one
    1292             regexp {^(\w+)(@.*)?} $token matchvar name remainder
     1292            set name [lindex $matchvar 1]
     1293            set remainder [lindex $matchvar 2]
    12931294
    12941295            add_multiple_ports reslist [get_${name}_ports] $remainder
     
    12971298        }
    12981299
    1299         ^variants:          -
    1300         ^variant:           -
    1301         ^description:       -
    1302         ^portdir:           -
    1303         ^homepage:          -
    1304         ^epoch:             -
    1305         ^platforms:         -
    1306         ^platform:          -
    1307         ^name:              -
    1308         ^long_description: -
    1309         ^maintainers:       -
    1310         ^maintainer:        -
    1311         ^categories:        -
    1312         ^category:          -
    1313         ^version:           -
    1314         ^depends_lib:       -
    1315         ^depends_build:     -
    1316         ^depends_run:       -
    1317         ^depends_extract:   -
    1318         ^depends_fetch:     -
    1319         ^depends_test:      -
    1320         ^replaced_by:       -
    1321         ^revision:          -
    1322         ^subport:           -
    1323         ^subports:          -
    1324         ^license:           { # Handle special port selectors
     1300        ^(variants):(.*)         -
     1301        ^(variant):(.*)          -
     1302        ^(description):(.*)      -
     1303        ^(portdir):(.*)          -
     1304        ^(homepage):(.*)         -
     1305        ^(epoch):(.*)            -
     1306        ^(platforms):(.*)        -
     1307        ^(platform):(.*)         -
     1308        ^(name):(.*)             -
     1309        ^(long_description):(.*) -
     1310        ^(maintainers):(.*)      -
     1311        ^(maintainer):(.*)       -
     1312        ^(categories):(.*)       -
     1313        ^(category):(.*)         -
     1314        ^(version):(.*)          -
     1315        ^(depends_lib):(.*)      -
     1316        ^(depends_build):(.*)    -
     1317        ^(depends_run):(.*)      -
     1318        ^(depends_extract):(.*)  -
     1319        ^(depends_fetch):(.*)    -
     1320        ^(depends_test):(.*)     -
     1321        ^(replaced_by):(.*)      -
     1322        ^(revision):(.*)         -
     1323        ^(subport):(.*)          -
     1324        ^(subports):(.*)         -
     1325        ^(license):(.*)          { # Handle special port selectors
    13251326            advance
    13261327
    1327             # Break up the token, because older Tcl switch doesn't support -matchvar
    1328             regexp {^(\w+):(.*)} $token matchvar field pat
     1328            set field [lindex $matchvar 1]
     1329            set pat [lindex $matchvar 2]
    13291330
    13301331            # Remap friendly names to actual names
     
    13351336        }
    13361337
    1337         ^depends:           { # A port selector shorthand for depends_{lib,build,run,fetch,extract}
     1338        ^(depends):(.*)     { # A port selector shorthand for depends_{lib,build,run,fetch,extract}
    13381339            advance
    13391340
    1340             # Break up the token, because older Tcl switch doesn't support -matchvar
    1341             regexp {^(\w+):(.*)} $token matchvar field pat
     1341            set field [lindex $matchvar 1]
     1342            set pat [lindex $matchvar 2]
    13421343
    13431344            add_multiple_ports reslist [get_matching_ports $pat no regexp "depends_lib"]
     
    13511352        }
    13521353
    1353         ^dependentof:       -
    1354         ^rdependentof:      {
     1354        ^(dependentof):(.*)  -
     1355        ^(rdependentof):(.*) {
    13551356            advance
    13561357
    1357             # Break up the token, because older Tcl switch doesn't support -matchvar
    1358             regexp {^(\w+):(.*)} $token matchvar selector portname
     1358            set selector [lindex $matchvar 1]
     1359            set portname [lindex $matchvar 2]
    13591360
    13601361            set recursive [string equal $selector "rdependentof"]
     
    13641365        }
    13651366
    1366         ^depof:             -
    1367         ^rdepof:            {
     1367        ^(depof):(.*)       -
     1368        ^(rdepof):(.*)      {
    13681369            advance
    13691370
    1370             # Break up the token, because older Tcl switch doesn't support -matchvar
    1371             regexp {^(\w+):(.*)} $token matchvar selector portname
     1371            set selector [lindex $matchvar 1]
     1372            set portname [lindex $matchvar 2]
    13721373
    13731374            set recursive [string equal $selector "rdepof"]
     
    13771378        }
    13781379
    1379         ^subportof:         {
     1380        ^(subportof):(.*)   {
    13801381            advance
    13811382
    1382             # Break up the token, because older Tcl switch doesn't support -matchvar
    1383             regexp {^(\w+):(.*)} $token matchvar selector portname
     1383            set selector [lindex $matchvar 1]
     1384            set portname [lindex $matchvar 2]
    13841385
    13851386            add_multiple_ports reslist [get_subports $portname]
Note: See TracChangeset for help on using the changeset viewer.