/
githubmirror
/
pandoc
Обзор
Документация
Войти
/
githubmirror
/
pandoc
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
tools/parseTimings.pl
33 строки
992 B
John MacFarlane
Add tools/parseTimings.pl.
27 фев 2021, 10:52
27 фев 2021, 10:52
e798db1
Код
Авторство
О чём код?
#!/usr/bin/env perl # Breaks down compilation time and memory usage by module. # To use this script, do # # stack clean # stack build --ghc-options='-dshow-passes' 2>output.txt # perl parseTimings.pl output.txt while (<>) { if (/!!! (.*) \[(.*)\]: finished in (.*) milliseconds, allocated (.*) megabytes/) { $phase = $1; $module = $2; $milliseconds = $3; $megabytes = $4; if (!$timings{$module}) { $timings{$module} = {'milliseconds' => 0, 'megabytes' => 0}; }; $timings{$module}{'milliseconds'} += $milliseconds; $timings{$module}{'megabytes'} += $megabytes; } } printf("%10s %10s %s\n", "Time (ms)", "Alloc (Mb)", "LOC", "Module"); for (keys %timings) { $path = $_; $path =~ s/\./\//g; $path = "src/$path.hs"; $loc = `wc -l $path 2>/dev/null`; if ($loc) { $loc =~ s/^\s*(\d+).*/\1/; printf("%10d %10d %6d %s\n", $timings{$_}{'milliseconds'}, $timings{$_}{'megabytes'}, $loc, $_); } }