/usr/share/jed/lib/compat.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 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 | define create_array ()
{
variable n, dims, type;
variable i, size, dim;
variable a;
n = ();
dims = Integer_Type [n];
i = n;
size = 1;
while (i)
{
i--;
dim = ();
dims[i] = dim;
size = size * dim;
}
type = ();
switch (type)
{
case 'i':
a = Integer_Type [size];
}
#ifdef SLANG_DOUBLE_TYPE
{
case 'f':
a = Double_Type [size];
}
#endif
{
case 's':
a = String_Type [size];
}
{
case 128:
a = Mark_Type [size];
}
{
% default
verror ("create_array: Type %d not supported.", type);
}
reshape (a, dims);
return a;
}
%{{{ strncat (n)
%!%+
%\function{strncat}
%\synopsis{strncat}
%\usage{Void strncat (String a, String b, ..., Integer n);}
%\description
% Returns concatenated string "abc..."
%\notes
% This function is obsolete.
%!%-
define strncat (n)
{
"";
_stk_roll (n + 1);
create_delimited_string (n);
}
define info_mode ()
{
info_reader ();
}
% These are function to archive backward compatibiliy and give third
% party mode time to migrate to slang load path.
define get_jed_library_path()
{
variable t = get_slang_load_path ();
(t,) = strreplace(t, char(path_get_delimiter()), ",", strlen(t));
return t;
}
define set_jed_library_path(path)
{
variable t;
(t,) = strreplace(path, ",", char(path_get_delimiter()), strlen(path));
set_slang_load_path(t);
}
|