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
|
% Copyright (C) 2024 Eric Ludlam (and others)
% This program is free software: you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation, either version 3 of the License, or
% (at your option) any later version.
% This program is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details.
% You should have received a copy of the GNU General Public License
% along with this program. If not, see <http://www.gnu.org/licenses/>.
function emacsdocomplete(substring)
% Ask for completions of SUBSTRING from MATLAB.
% This is used by Emacs TAB in matlab-shell to provide possible
% completions. This hides the differences between versions
% for the calls needed to do completions.
% Custom completions for Emacs can be added to MATLAB (*.m) files by:
% 1. In a comment, place the string "SUPPORTS_DASH_COMPLETE"
% 2. Handle the -complete argument which produces completion strings
% of the form:
% 'CMD_TEXT_TO_REPLACE' --> 'REPLACEMENT_TEXT'
% 'OPTION1'
% 'OPTION2'
% ...
% See details in `matlab-shell-completion-list'.
persistent completeSw; % if completeSw(cmd), then supports -complete
if isempty(completeSw)
completeSw=containers.Map();
end
cmd=regexp(substring,'^(\w+)\s+[^\)]','tokens');
if length(cmd)==1
cmd=cmd{1}{1};
if completeSw.isKey(cmd)
supportsDashComplete = completeSw(cmd);
else
supportsDashComplete = false; % assume
f=which(cmd);
if regexp(f,'\.m$')
fid=fopen(f,'r');
if fid ~= -1
while true
l = fgetl(fid);
if ~ischar(l), break, end
if regexp(l,'SUPPORTS_DASH_COMPLETE')
supportsDashComplete = true;
break
end
end
fclose(fid);
end
end
completeSw(cmd) = supportsDashComplete;
end
if supportsDashComplete
% For /path/to/cmd.ext we have /path/to/cmd.complete which
% signals that we can get the completions by calling
% CMD -complete ARGS
completeCmd = regexprep(substring,'^(\w+)','$1 -complete');
disp('emacs_completions_output =');
evalin('base',completeCmd);
return
end
end
v = ver('MATLAB');
if str2double(v.Version) < 8.4
% Pre R2014b: partial_string
extracmd = '';
else
% Post R2014b: partial_string, caret, num
extracmd = [ ', ' num2str(length(substring)) ',0' ];
% DEV NOTE: If you find a test failure, contact Eric Ludlam
% to also update matlab-emacs SF repository.
end
substringQuoted = strrep(substring, '''', '''''');
command = [ 'matlabMCRprocess_emacs = com.mathworks.jmi.MatlabMCR;' ...
'emacs_completions_output = matlabMCRprocess_emacs.mtFindAllTabCompletions(''' ...
substringQuoted '''' extracmd '),' ...
'clear(''matlabMCRprocess_emacs'',''emacs_completions_output'');' ];
% Completion engine needs to run in the base workspace to know
% what the variables you have to work with are.
evalin('base',command);
end
|
