tcl-hacks

Check-in [6211a10390]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:find type should be generic, not just package
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:6211a103905093351c5ae36138ff113a320d7422
User & Date: aspect 2018-07-24 11:15:14
Context
2018-07-24
11:17
purge remnants of map_os/map_cpu check-in: d3282bd58d user: aspect tags: trunk
11:15
find type should be generic, not just package check-in: 6211a10390 user: aspect tags: trunk
11:14
fix arch matching check-in: 49f97497bf user: aspect tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to hacks/cuppa/tpc.tcl.

402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
    }
    lappend result
    return -type dicts $result
}

proc find {name args} {
    dictargs {
        type package
        ver 0-
        arch ""
        server %
        limit 99999999
    }
    set arch [expand_arch $arch]
    lassign [split [platform::generic] -] os_ cpu_







|







402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
    }
    lappend result
    return -type dicts $result
}

proc find {name args} {
    dictargs {
        type %
        ver 0-
        arch ""
        server %
        limit 99999999
    }
    set arch [expand_arch $arch]
    lassign [split [platform::generic] -] os_ cpu_