github.com/mikpe.pdp10-tools
1
0
Fork 0
mirror of https://github.com/mikpe/pdp10-tools.git synced 2026-04-20 09:26:40 +00:00
Code Issues Projects Releases Wiki Activity

od: use * to mark suppressed ranges of duplicate lines

Browse Source
This commit is contained in:
Mikael Pettersson
2023-09-03 15:04:45 +02:00
parent 1f102c13bc
commit e2c3811daa
1 changed files with 17 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
erlang/apps/od/src/od.erl
View File

@@ -242,15 +242,25 @@ skip_bytes(SkipBytes, Opts, Input, Offset) when SkipBytes > 0 ->
end.
output_lines(Opts, Input, Offset) ->
print_offset(Opts, Offset),
output_lines(Opts, Input, Offset, _PrevBytes = [], _DidMark = false).
output_lines(Opts, Input, Offset, PrevBytes, DidMark) ->
{NrBytes, LineBytes, NewInput} = input_line(Opts, Input),
if NrBytes =:= 0 -> io:format("\n");
if NrBytes =:= 0 ->
print_offset(Opts, Offset),
io:format("\n");
LineBytes =:= PrevBytes andalso DidMark ->
output_lines(Opts, NewInput, Offset + NrBytes, PrevBytes, DidMark);
LineBytes =:= PrevBytes ->
io:format("*\n"),
output_lines(Opts, NewInput, Offset + NrBytes, PrevBytes, _DidMark = true);
true ->
NrDatums = print_datums(Opts, NrBytes, LineBytes),
print_padding(Opts, NrDatums),
print_printable(Opts, LineBytes),
io:format("\n"),
output_lines(Opts, NewInput, Offset + NrBytes)
print_offset(Opts, Offset),
NrDatums = print_datums(Opts, NrBytes, LineBytes),
print_padding(Opts, NrDatums),
print_printable(Opts, LineBytes),
io:format("\n"),
output_lines(Opts, NewInput, Offset + NrBytes, LineBytes, _DidMark = false)
end.
print_offset(Opts, Offset) ->