1 | #!/usr/bin/env Rscript
|
2 | #
|
3 | # metrics/native-code.R -- Analyze output of bloaty
|
4 | #
|
5 | # Usage:
|
6 | # metrics/native-code.R ACTION IN_DIR OUT_DIR
|
7 |
|
8 | library(dplyr)
|
9 | library(tidyr) # spread()
|
10 | library(stringr)
|
11 |
|
12 | source('benchmarks/common.R')
|
13 |
|
14 | options(stringsAsFactors = F,
|
15 | # Make the report wide. tibble.width doesn't appear to do this?
|
16 | width=200
|
17 | )
|
18 |
|
19 | # Categorize names:
|
20 | # - _doc(__)?
|
21 | # - PRETTY
|
22 | # - init?
|
23 |
|
24 | # frame: A table with 3 columns. ctx$symbols or ctx$compileunits.
|
25 | Basic = function(frame) {
|
26 | ShowValue('Rows: %d', nrow(frame))
|
27 |
|
28 | frame %>% arrange(desc(filesize)) %>% head(30) -> f1
|
29 | ShowFrame('By Size On Disk:', f1)
|
30 |
|
31 | ShowValue('Total filesize: %d', sum(frame$filesize))
|
32 |
|
33 | # Number of files
|
34 | frame %>% arrange(desc(vmsize)) %>% head(30) -> f2
|
35 | ShowFrame('By Size in Virtual Memory:', f2)
|
36 |
|
37 | ShowValue('Total vmsize: %d', sum(frame$vmsize))
|
38 | }
|
39 |
|
40 | Report = function(ctx) {
|
41 | Banner('Summary of symbols.tsv (from %s):', ctx$opt)
|
42 | Basic(ctx$symbols)
|
43 |
|
44 | Banner('Summary of compileunits.tsv (from %s):', ctx$dbg)
|
45 | Basic(ctx$compileunits)
|
46 |
|
47 | Banner('Other analysis:')
|
48 |
|
49 | # This isn't foolproof, but docstrings seem to be named with a _doc or
|
50 | # __doc__ suffix.
|
51 | ctx$symbols %>% filter(str_detect(symbols, '_doc(__)?')) -> f3
|
52 | ShowFrame('Big Docstrings (approximate, based on name)', f3 %>% head(20))
|
53 |
|
54 | ShowValue('%d symbols in %d bytes', nrow(f3), sum(f3$filesize))
|
55 | }
|
56 |
|
57 | Load = function(in_dir) {
|
58 | # 9/2021: read.delim(...) works but somehow read.table(..., sep='\t',
|
59 | # header=T) doesn't?
|
60 | list(
|
61 | symbols = read.delim(file.path(in_dir, 'symbols.tsv')),
|
62 | compileunits = read.delim(file.path(in_dir, 'compileunits.tsv'))
|
63 | )
|
64 | }
|
65 |
|
66 | main = function(argv) {
|
67 | action = argv[[1]]
|
68 |
|
69 | if (action == 'metrics') {
|
70 | in_dir = argv[[2]]
|
71 | ctx = Load(in_dir)
|
72 |
|
73 | ctx$dbg = argv[[3]]
|
74 | ctx$opt = argv[[4]]
|
75 |
|
76 | Report(ctx)
|
77 |
|
78 | } else {
|
79 | Log("Invalid action '%s'", action)
|
80 | quit(status = 1)
|
81 | }
|
82 | }
|
83 |
|
84 | if (length(sys.frames()) == 0) {
|
85 | # increase ggplot font size globally
|
86 | #theme_set(theme_grey(base_size = 20))
|
87 | main(commandArgs(TRUE))
|
88 | }
|