| 1 | Index: base/src/port/portindex.tcl |
|---|
| 2 | =================================================================== |
|---|
| 3 | RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/port/portindex.tcl,v |
|---|
| 4 | retrieving revision 1.20 |
|---|
| 5 | diff -u -r1.20 portindex.tcl |
|---|
| 6 | --- base/src/port/portindex.tcl 14 Aug 2003 02:11:05 -0000 1.20 |
|---|
| 7 | +++ base/src/port/portindex.tcl 16 Aug 2003 04:21:47 -0000 |
|---|
| 8 | @@ -9,6 +9,9 @@ |
|---|
| 9 | # Globals |
|---|
| 10 | set archive 0 |
|---|
| 11 | set depth 0 |
|---|
| 12 | +set total 0 |
|---|
| 13 | +set successfull 0 |
|---|
| 14 | +set failed 0 |
|---|
| 15 | |
|---|
| 16 | # UI Instantiations |
|---|
| 17 | # ui_options(ports_debug) - If set, output debugging messages. |
|---|
| 18 | @@ -97,9 +100,11 @@ |
|---|
| 19 | } |
|---|
| 20 | |
|---|
| 21 | proc pindex {portdir} { |
|---|
| 22 | - global target fd directory archive outdir |
|---|
| 23 | + global target fd directory archive outdir successfull failed total |
|---|
| 24 | + incr total |
|---|
| 25 | if {[catch {set interp [dportopen file://[file join $directory $portdir]]} result]} { |
|---|
| 26 | puts "Failed to parse file $portdir/Portfile: $result" |
|---|
| 27 | + incr failed |
|---|
| 28 | } else { |
|---|
| 29 | array set portinfo [dportinfo $interp] |
|---|
| 30 | dportclose $interp |
|---|
| 31 | @@ -124,6 +129,7 @@ |
|---|
| 32 | set len [expr [string length $output] + 1] |
|---|
| 33 | puts $fd "$portinfo(name) $len" |
|---|
| 34 | puts $fd $output |
|---|
| 35 | + incr successfull |
|---|
| 36 | } |
|---|
| 37 | } |
|---|
| 38 | |
|---|
| 39 | @@ -191,3 +197,5 @@ |
|---|
| 40 | set fd [open [file join $outdir PortIndex] w] |
|---|
| 41 | port_traverse pindex $directory |
|---|
| 42 | close $fd |
|---|
| 43 | +puts "\nTotal number of ports parsed:\t$total\nPorts successfully parsed:\t$successfull \ |
|---|
| 44 | + \nPorts that failed:\t\t$failed\n" |
|---|
