# $Header: /home/cvsroot/tcldb/ucodb/Tlib/proFile,v 1.1.1.1 1996/10/12 01:08:25 de Exp $
# tcl procs saved on Sun Sep 03 16:19:01 PDT 1995

proc proFile app {


        profile off profdata

        set fh [open prof.out w]
        foreach i [array names profdata] {
                puts $fh [list $i $profdata($i)]
        }
        close $fh

        profrep profdata cpu 1 $app.prof {$app.tlib profile}

}

