/usr/share/jed/lib/modehook.sl is in jed-common 1:0.99.19-4.
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 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 | % modehook.sl -*- SLang -*-
%!%+
%\variable{Enable_Mode_Hook_Eval}
%\synopsis{Control the use of "eval" from a file's mode statement}
%\description
% When a file is read into a buffer, the editor will look for a line near the
% top of the file containing \exmp{-*- TEXT -*-}, where \exmp{TEXT} usually
% specifies the mode to be applied to the buffer, e.g.,
%#v+
% /* -*- C -*- */
%#v-
% For this reason, such a line is referred to as the files mode statement.
% In addition, an arbitrary \slang expression may be executed by
% the mode statement through the use of \var{eval} and \var{evalfile}, e.g.,
%#v+
% /* -*- mode: C; eval: set_buffer_no_backup; -*- */
%#v-
% This example would cause c-mode to be assigned to the buffer, and backups
% for the file turned-off. Obviously this poses a security risk, since it
% permits the evaluation of arbitrary \slang code.
%
% The \var{Enable_Mode_Hook_Eval} variable may be used to control how
% \var{eval}, and other potentially risky constructs are handled by the file's
% mode statement. If its value is 0, such statements will not get executed.
% If the value of \var{Enable_Mode_Hook_Eval} is \NULL, then the editor will
% query the user about whether to execute the statement, otherwise such
% statements will get executed. The default value is \NULL, i.e., to
% query the user.
%\seealso{modeline_hook2, eval, evalfile, set_mode}
%!%-
custom_variable ("Enable_Mode_Hook_Eval", NULL);
private define check_eval (checked)
{
if (@checked != -1)
return @checked;
if (Enable_Mode_Hook_Eval == NULL)
{
sw2buf (whatbuf ());
update (1);
@checked = get_yes_no ("Allow execution of file's mode statement");
}
else @checked = Enable_Mode_Hook_Eval == 1;
return @checked;
}
%\function{modeline_hook2}
%\synopsis{modeline_hook2}
%\description
% check for the following mode statements:
%#v+
% -*- mode: NAME -*- set mode to NAME
% -*- evalfile: FILE -*- evaluate file FILE
% -*- eval: expression -*- evaluate expression
% -*- VAR: VALUE -*- set VAR = VALUE
%#v-
% these statements may be combined:
%#v+
% -*- mode: NAME; evalfile: FILE; VAR: VALUE -*-
%#v-
define modeline_hook2 ()
{
variable keyword, value, mode = 0, tag = "-*-", modestr;
if (BATCH)
return 0;
bob ();
!if (fsearch (tag)) return 0;
variable checked = -1;
while (ffind (tag))
{
go_right (3);
#iffalse
if (looking_at ("END -*-")) break;
#endif
push_spot ();
skip_white ();
!if (ffind (tag), pop_spot ()) break; % closing tag exists?
forever
{
skip_chars (" \t;");
push_mark ();
!if (ffind_char (':'))
{
pop_mark_0 ();
break;
}
keyword = bufsubstr ();
go_right_1 ();
push_mark ();
do
{
skip_chars ("^-;\n");
if (looking_at_char (';') or looking_at (tag))
break;
}
while (right (1));
value = strtrim (bufsubstr ());
push_spot ();
ERROR_BLOCK
{
pop_spot ();
}
% error (sprintf ("keyword <%s> value <%s>", keyword, value));
switch (keyword)
{ case "mode":
modestr = "_mode";
value = strlow (strtrans (value, "-", "_"));
!if (is_substr (value, modestr))
value += modestr;
if (value == "c++_mode")
value = "c_mode";
if (is_defined(value))
{
eval (value);
mode++;
}
}
{ case "evalfile":
if (check_eval (&checked))
evalfile (value);
}
{ case "eval" :
if (check_eval (&checked))
eval (value);
}
{ (is_defined (keyword) < 0) and strlen(value): % set a value
if (check_eval (&checked))
eval (keyword + " = " + value);
}
pop_spot ();
}
go_down_1 ();
}
mode;
}
|