ShowProfile.dcl 1.69 KB
Newer Older
Diederik van Arkel's avatar
Diederik van Arkel committed
1 2 3 4 5 6 7 8 9
definition module ShowProfile

import StdIOCommon, StdPicture, StdPSt, StdPrint

:: Profile
:: FormattedProfile

open_profile			:: {#.Char} !*a -> *((.Bool,[.Profile]),!*a) | FileSystem a;
sum_time_and_allocation	:: ![.Profile] -> .(Int,Int,Int,Int,Real);
10
totals_per_module		:: ![.Profile] -> [.Profile]
Diederik van Arkel's avatar
Diederik van Arkel committed
11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
format_profile			:: .Int .Int .Int .Int .Real [.Profile] -> ([.FormattedProfile],.FormattedProfile);

le_module_name			:: !.Profile !.Profile -> Bool;

ge_profile_time			:: !.FormattedProfile !.FormattedProfile -> Bool;
g_profile_time			:: !.FormattedProfile !.FormattedProfile -> Bool;
le_profile_name			:: !.FormattedProfile !.FormattedProfile -> Bool;
l_profile_name			:: !.FormattedProfile !.FormattedProfile -> Bool;
ge_profile_byte			:: !.FormattedProfile !.FormattedProfile -> Bool;
ge_profile_strict		:: !.FormattedProfile !.FormattedProfile -> Bool;
ge_profile_lazy			:: !.FormattedProfile !.FormattedProfile -> Bool;
ge_profile_curried		:: !.FormattedProfile !.FormattedProfile -> Bool;

l_module_name			:: !.FormattedProfile !.FormattedProfile -> Bool;
g_profile_byte			:: !.FormattedProfile !.FormattedProfile -> Bool;
g_profile_strict		:: !.FormattedProfile !.FormattedProfile -> Bool;
g_profile_lazy			:: !.FormattedProfile !.FormattedProfile -> Bool;
g_profile_curried		:: !.FormattedProfile !.FormattedProfile -> Bool;

//draw_profile_lines		:: [.Int] ![.FormattedProfile] .Int .Int UpdateArea *Picture -> .Picture;
draw_profile_lines`		:: .Int [.Int] ![.FormattedProfile] .Int .Int !UpdateArea *Picture -> *Picture;
clock_speed_and_profile_overhead :: (Int,Real,Real);
Diederik van Arkel's avatar
Diederik van Arkel committed
33
printTable :: Font !PrintSetup [.FormattedProfile] .FormattedProfile !*(PSt .a) -> *(PrintSetup,*PSt .a);
Diederik van Arkel's avatar
Diederik van Arkel committed
34 35 36 37

//--

//Start` :: !*World -> *World