/usr/share/jed/lib/binary.sl is in jed-common 1:0.99.19-2.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | % It is used to read a file in binary mode.
define find_binary_file ()
{
variable file, bytes, len, pos;
file = read_file_from_mini ("Find Binary File:");
try
{
set_file_translation (1);
() = find_file (file);
}
finally set_file_translation (0);
no_mode();
set_overwrite(1);
%
% set the binary file flags
getbuf_info();
setbuf_info(() | 0x200);
bytes = count_chars();
if (string_match(bytes, ".*of \\([0-9]+\\)$", 1))
{
(pos, len) = string_match_nth(1);
bytes = substr(bytes, pos + 1, len);
message (bytes + " bytes.");
}
}
|