/[MITgcm]/MITgcm_contrib/gmaze_pv/pv_checkpath.m
ViewVC logotype

Diff of /MITgcm_contrib/gmaze_pv/pv_checkpath.m

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by gmaze, Fri Jun 16 21:12:20 2006 UTC revision 1.4 by gmaze, Wed Sep 19 14:45:59 2007 UTC
# Line 1  Line 1 
1  %  %
2  % [] = PV_CHECKPATH()  % [] = pv_checkpath()
3  %  %
4  % This function detects where the package gmaze_pv is installed  % This function detects where the package gmaze_pv is installed
5  % (the upper level directory where the function volbet2iso  % (the upper level directory where the function volbet2iso
# Line 15  if ispc , sla = '\'; end Line 15  if ispc , sla = '\'; end
15    
16    
17  % Determine the directory name where the package is installed:  % Determine the directory name where the package is installed:
18  w       = which('volbet2iso');  fct_to_find = 'pv_checkpath';
19  packdir = w(1:length(w)-12);  w       = which(fct_to_find);
20    packdir = w(1:length(w)-(length(fct_to_find)+2));
21    
22    
23  % Try to found needed subdirectories:  % Try to found needed subdirectories:
24  subdir     = 'subfct';  
25  fullsubdir = strcat(packdir,sla,subdir);  subdir     = struct('name',{'subfct','test','visu','subduc'});
26  if isempty(findstr(path,fullsubdir))  
27    addpath(fullsubdir)  for id = 1 : size(subdir(:),1)
28  end    subdirname = subdir(id).name;
29      fullsubdir = strcat(packdir,sla,subdirname);
30      if isempty(findstr(path,fullsubdir))
31        addpath(fullsubdir)
32      end %if
33    end %for
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22