1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
include "internal";
include "options";
include "ansi";
# TODO: error value preview
def _expected_decode_value:
error("expected decode value but got: \(. | type) (\(. | tostring))");
def _is_decode_value: _exttype == "decode_value";
def _decode_value(f; ef):
if _is_decode_value then f
else ef
end;
def _decode_value(f): _decode_value(f; _expected_decode_value);
# null input means done, otherwise {approx_read_bytes: 123, total_size: 123}
# TODO: decode provide even more detailed progress, post-process sort etc?
def _decode_progress:
# _input_filenames is remaining files to read
( (_input_filenames | length) as $inputs_len
| ( options.filenames | length) as $filenames_len
| _ansi.clear_line
, "\r"
, if . != null then
( if $filenames_len > 1 then
"\($filenames_len - $inputs_len)/\($filenames_len) \(_input_filename) "
else empty
end
, "\((.approx_read_bytes / .total_size * 100 | _numbertostring(1)))%"
)
else empty
end
| printerr
);
def decode($name; $decode_opts):
( options as $opts
| ( { progress:
( if $opts.decode_progress and $opts.repl and stdout_tty.is_terminal then
"_decode_progress"
else null
end
)
}
+ $opts
+ $decode_opts
) as $common_opts
| if _registry.groups | has($name) then
_decode(
$name;
( $common_opts
# is_probe is to include Probe_In argument
+ if $name == "probe" then
{ is_probe: true
, filename: (tobytes?.name // null)
}
else {}
end
)
)
else
# is_probe_args is to include Probe_Args_In argument
_decode(
"probe_args";
( $common_opts
+ { is_probe_args: true
, decode_group: $name
}
)
)
end
);
def decode($name): decode($name; {});
def decode: decode(options.decode_group; {});
def topath: _decode_value(._path);
def tovalue($opts): _tovalue(options($opts));
def tovalue: _tovalue(options({}));
def toactual($opts): _decode_value(._actual) | tovalue($opts);
def toactual: toactual({});
def tosym($opts): _decode_value(._sym) | tovalue($opts);
def tosym: tosym({});
def todescription: _decode_value(._description);
# TODO: rename?
def format: _decode_value(._format; null);
def formats:
_registry.formats;
def root: _decode_value(._root);
def buffer_root: _decode_value(._buffer_root);
def format_root: _decode_value(._format_root);
def parent: _decode_value(._parent);
def parents:
# TODO: refactor, _while_break?
( _decode_value(._parent)
| if . == null then empty
else
_recurse_break(
( ._parent
| if . == null then error("break") end
)
)
end
);
def in_bits_range($p):
select(._start <= $p and $p < ._stop);
def in_bytes_range($p):
select(._start/8 <= $p and $p < ._stop/8);
|
