remote_function.m

function [varargout] = remote_function(functionname,varargin);
%function res = remote_function(functionname,varargin);
%
% function starting a remote matlab session, performing a function
% call and returning the results 

% Bernard Haasdonk 22.4.2010

% path to windows-directory with linux commands (ssh, scp:)
path_bash = 'C:\Programme\Git\bin';
path_remote = '~/matlab/';
fn_res = 'tmpres.mat'; % local and remote
fn_arg = 'tmparg.mat'; % local and remote
fn_cmd = 'tmpcmd.m'; % remote command file
fn_arg_local = fullfile(rbmatlabtemp,fn_arg);
fn_ares_local = fullfile(rbmatlabtemp,fn_res);
fn_arg_remote = fullfile(path_remote,fn_arg);
fn_cmd_remote = fullfile(path_remote,fn_cmd);
fn_res_remote = fullfile(path_remote,fn_res);

if nargout==0
  error('remote function call only works for functions with return values!');
end;

saveargs = varargin;
for i=1:length(saveargs)
  if isobject(varargin{i})
    warning('off', 'MATLAB:structOnObject');
    saveargs{i} = struct(varargin{i});
    warning('on', 'MATLAB:structOnObject');
  end
end
save(fn_arg_local,'saveargs');

% copy file to remote host
%cmd = [fullfile(bashpath,'cat'),' ',fn_arg_local];
cmd = [fullfile(path_bash,'ssh.exe'),...
       ' haasdonk@am100.mathematik.uni-stuttgart.de ls'];
%cmd = [fullfile(bashpath,'ssh.exe'),' ',fn_arg_local,...
%       ' haasdonk@am100.uni-stuttgart.de:', ...
%       fn_arg_remote];
disp(['executing:']);
disp(cmd);

keyboard;

[s,w] = unix(cmd);


% on remote host generate command file:
% matlab -nodesktop -nosplash, 
%   load 'remote_fn_arg'
%   [varargout{1:nargout}] = feval('functionname',saveargs{:});
%   tmpfn_res = '~/tmpres.mat';
%   save(tmpres.mat,'varargout');

% on remote host: delete command, argument and result file

% copy file to local host

tmpfn_res = fullfile(rbmatlabtemp,fnres);
loaded = load(tmpfn_res);
varargout = loaded.varargout;