reduce-traces.tcl

在Linux下做的QuadTree的程序

#!/usr/bin/tclsh
# $Id: reduce-traces.tcl,v 1.1.1.1 2000/08/28 18:40:17 jinyang Exp $
# reduce-traces.tcl

set analyze_script ~/adhoc/src/our-ns/cmu/scripts/hgps.pl
# set analyze_script echo

set tracefiles [glob *]

set trace 0
foreach trace $tracefiles {
    set n 0
    regexp {^[0-9]+} $trace n
    
    exec $analyze_script $trace RTR $n > $trace.summ

}