octave_packages/secs2d-0.0.8/secs2d.m

   1 ## PKG_ADD:# Run this only if the package is installed
   2 ## PKG_ADD:if (! exist (fullfile (fileparts (mfilename ("fullpath")), "inst"), "dir"))
   3 ## PKG_ADD:  dirlist= {"Utilities","DDGOX","ThDDGOX","QDDGOX","METLINES","DDGOXT"};
   4 ## PKG_ADD:
   5 ## PKG_ADD:  for ii=1:length(dirlist)
   6 ## PKG_ADD:     addpath ( [ fileparts( mfilename("fullpath")) "/" dirlist{ii}])
   7 ## PKG_ADD:  end
   8 ## PKG_ADD:
   9 ## PKG_ADD:  __gmsh = file_in_path (EXEC_PATH, "gmsh");
  10 ## PKG_ADD:  if (isempty (__gmsh))
  11 ## PKG_ADD:    __gmsh = file_in_path (EXEC_PATH, "gmsh.exe");
  12 ## PKG_ADD:    if (isempty (__gmsh))
  13 ## PKG_ADD:      warning ("gmsh does not seem to be present some functionalities will be disabled");
  14 ## PKG_ADD:    endif
  15 ## PKG_ADD:  endif
  16 ## PKG_ADD:  clear __gmsh;
  17 ## PKG_ADD:
  18 ## PKG_ADD:  __dx = file_in_path (EXEC_PATH, "dx");
  19 ## PKG_ADD:  if (isempty (__dx))
  20 ## PKG_ADD:    __dx = file_in_path (EXEC_PATH, "dx.exe");
  21 ## PKG_ADD:    if (isempty (__dx))
  22 ## PKG_ADD:      warning ("dx does not seem to be present some functionalities will be disabled");
  23 ## PKG_ADD:    endif
  24 ## PKG_ADD:  endif
  25 ## PKG_ADD:  clear __dx;
  26 ## PKG_ADD:end
  27
  28 ## PKG_DEL:# Run this only if the package is installed
  29 ## PKG_DEL:if (! exist (fullfile (fileparts (mfilename ("fullpath")), "inst"), "dir"))
  30 ## PKG_DEL:  dirlist= {"Utilities","DDGOX","ThDDGOX","QDDGOX","METLINES","DDGOXT"};
  31 ## PKG_DEL:
  32 ## PKG_DEL:  for ii=1:length(dirlist)
  33 ## PKG_DEL:     rmpath ( [ fileparts( mfilename("fullpath")) "/" dirlist{ii}])
  34 ## PKG_DEL:  end
  35 ## PKG_DEL:end
  36