Convenience download script.
This commit is contained in:
parent
d9ec65b6c8
commit
91324bf73f
1 changed files with 78 additions and 0 deletions
78
dl_emacs_support.m
Executable file
78
dl_emacs_support.m
Executable file
|
@ -0,0 +1,78 @@
|
|||
function dl_emacs_support(varargin)
|
||||
% Download MATLAB support files for Emacs
|
||||
%
|
||||
% DL_EMACS_SUPPRT - download all Emacs support files into the
|
||||
% current directory.
|
||||
%
|
||||
% DL_EMACS_SUPPORT(FILESET) - download a FILESET of Emacs support.
|
||||
% Sets are:
|
||||
% core - Just the core MATLAB support files.
|
||||
% tlc - Just the core MATLAB/TLC support files.
|
||||
% cedet - Core, plus additional support for MATLAB using CEDET support.
|
||||
% Learn more about CEDET at: http://cedet.sf.net
|
||||
% support - Just the build files and READMEs for compiling.
|
||||
% all - All files
|
||||
%
|
||||
% DL_EMACS_SUPPORT(FILESET,DEST) - download FILESET and save in
|
||||
% destination directory DEST
|
||||
|
||||
po = inputParser;
|
||||
|
||||
addOptional(po, 'fileset', 'all', @ischar)
|
||||
addOptional(po, 'destination', pwd, @ischar)
|
||||
|
||||
po.parse(varargin{:});
|
||||
|
||||
stuff = po.Results;
|
||||
|
||||
if exist(stuff.destination,'dir') ~= 7
|
||||
error(['The folder: ''',stuff.destination, ''', does not exist.']);
|
||||
end
|
||||
|
||||
coreFiles = { 'matlab-load.el' 'matlab.el' 'mlint.el' };
|
||||
tlcFiles = { 'tlc.el' };
|
||||
cedetFiles = { 'cedet-matlab.el' 'semantic-matlab.el' ...
|
||||
'semanticdb-matlab.el' };
|
||||
supportFiles = { 'dl_emacs_support.m' 'README' 'Makefile' ...
|
||||
'Project.ede' 'INSTALL' 'ChangeLog' };
|
||||
|
||||
switch stuff.fileset
|
||||
case 'core'
|
||||
getfiles(coreFiles);
|
||||
case 'tlc'
|
||||
getfiles(coreFiles);
|
||||
getfiles(tlcFiles);
|
||||
case 'cedet'
|
||||
getfiles(coreFiles);
|
||||
getfiles(cedetFiles);
|
||||
case 'support'
|
||||
getfiles(supportFiles);
|
||||
case 'all'
|
||||
getfiles(coreFiles);
|
||||
getfiles(tlcFiles);
|
||||
getfiles(cedetFiles);
|
||||
getfiles(supportFiles);
|
||||
otherwise
|
||||
error('Unknown fileset %s.', stuff.fileset);
|
||||
end
|
||||
|
||||
function getfiles(fList)
|
||||
for i = 1:length(fList)
|
||||
file = fList{i};
|
||||
destFullFile = fullfile(stuff.destination,file);
|
||||
[ contents status ] = ...
|
||||
urlread(['http://matlab-emacs.cvs.sourceforge.net/viewvc/*checkout*/matlab-emacs/matlab-emacs/',...
|
||||
file,'?revision=HEAD']);
|
||||
if ~status
|
||||
fprintf('Unable to download %s.\n', file);
|
||||
else
|
||||
fid = fopen(destFullFile,'w');
|
||||
fwrite(fid,contents);
|
||||
fclose(fid);
|
||||
fprintf('Successfully downloaded and created: ''%s''.\n',...
|
||||
destFullFile);
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
Loading…
Reference in a new issue