Changeset 962


Ignore:
Timestamp:
Oct 5, 2002, 9:11:36 PM (18 years ago)
Author:
landonf (Landon Fuller)
Message:

Update indexing to work with port{name,version,revision} -> {name,version,revision} switch

Location:
trunk/base/src
Files:
4 edited

Legend:

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

    r927 r962  
    121121            array set portinfo $array
    122122            # XXX is this the right place to verify an entry?
    123             if ![info exists portinfo(portname)] {
     123            if ![info exists portinfo(name)] {
    124124                puts "Invalid port entry, missing portname"
    125125                continue
    126126            }
    127127            if ![info exists portinfo(description)] {
    128                 puts "Invalid port entry for $portinfo(portname), missing description"
     128                puts "Invalid port entry for $portinfo(name), missing description"
    129129                continue
    130130            }
    131             if ![info exists portinfo(portversion)] {
    132                 puts "Invalid port entry for $portinfo(portname), missing portversion"
     131            if ![info exists portinfo(version)] {
     132                puts "Invalid port entry for $portinfo(name), missing version"
    133133                continue
    134134            }
    135135            set portfound 1
    136             puts [format "%-15s\t%-8s\t%s" $portinfo(portname) $portinfo(portversion) $portinfo(description)]
     136            puts [format "%-15s\t%-8s\t%s" $portinfo(name) $portinfo(version) $portinfo(description)]
    137137            unset portinfo
    138138        }
  • trunk/base/src/port/portall.tcl

    r927 r962  
    3838    }
    3939    array set portinfo [dportinfo $interp]
    40     puts "Doing $target for port: $portinfo(portname)"
     40    puts "Doing $target for port: $portinfo(name)"
    4141    dportexec $interp $target
    4242    dportclose $interp
  • trunk/base/src/port/portindex.tcl

    r927 r962  
    4444    dportclose $interp
    4545    set portinfo(portdir) $portdir
    46     puts "Adding port $portinfo(portname)"
     46    puts "Adding port $portinfo(name)"
    4747    if {$archive == "1"} {
    4848        if ![file isdirectory [file join $outdir [file dirname $portdir]]] {
     
    5454        set portinfo(portarchive) [file join [file dirname $portdir] [file tail $portdir]].tgz
    5555        cd [file join $directory [file dirname $portinfo(portdir)]]
    56         puts "Archiving port $portinfo(portname) to [file join $outdir $portinfo(portarchive)]"
     56        puts "Archiving port $portinfo(name) to [file join $outdir $portinfo(portarchive)]"
    5757        if {[catch {exec tar -cf - [file tail $portdir] | gzip -c >[file join $outdir $portinfo(portarchive)]} result]} {
    5858            puts "Failed to create port archive $portinfo(portarchive): $result"
     
    6262    set output [array get portinfo]
    6363    set len [expr [string length $output] + 1]
    64     puts $fd "$portinfo(portname) $len"
     64    puts $fd "$portinfo(name) $len"
    6565    puts $fd $output
    6666}
  • trunk/base/src/port1.0/portmain.tcl

    r961 r962  
    5151default prefix /opt/local
    5252default filedir files
    53 default portrevision 0
     53default revision 0
    5454default distname {${portname}-${portversion}}
    5555default worksrcdir {$distname}
Note: See TracChangeset for help on using the changeset viewer.