0001 function atpath(ATROOT)
0002
0003
0004
0005
0006
0007 if ~isdir(ATROOT)
0008 error('Argumet must be a full directory name');
0009 end
0010 if strcmp(computer,'PCWIN')
0011 addpath(ATROOT);
0012 addpath(strcat(ATROOT,'\simulator\element'));
0013 addpath(strcat(ATROOT,'\simulator\track'));
0014 addpath(strcat(ATROOT,'\lattice'));
0015 addpath(strcat(ATROOT,'\atphysics'));
0016 addpath(strcat(ATROOT,'\atgui'));
0017 addpath(strcat(ATROOT,'\atdemos'));
0018
0019 elseif isunix
0020 addpath(ATROOT);
0021 addpath(strcat(ATROOT,'/simulator/element'));
0022 addpath(strcat(ATROOT,'/simulator/track'));
0023 addpath(strcat(ATROOT,'/lattice'));
0024 addpath(strcat(ATROOT,'/atphysics'));
0025 addpath(strcat(ATROOT,'/atgui'));
0026 addpath(strcat(ATROOT,'/atdemos'));
0027
0028 else
0029 warning('Unsupported platform! Path not updated!');
0030 end