/usr/share/jed/lib/rot13.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 29 30 | %%
%% rot13.sl---- rotates text by 13 characters
%%
define rot13 ()
{
variable i, j;
check_region (1); % spot pushed
variable a = String_Type[256];
_for ('A', 'M', 1)
{
i = ();
a[i] = char (i + 13);
% Now take care of lower case ones
i = i | 0x20;
a[i] = char (i + 13);
}
_for ('N', 'Z', 1)
{
i = ();
a[i] = char (i - 13);
% Now take care of lower case ones
i = i | 0x20;
a[i] = char (i - 13);
}
translate_region (a);
pop_spot ();
}
|