[Octave-bug-tracker] [bug #48221] prefdir should not be a private function

[Guillaume]

Follow-up Comment #5, bug #48221 (project octave):

Sorry, there was a typo - new version below:


## -*- texinfo -*-
## @deftypefn {} {} prefdir 
## @deftypefnx {} address@hidden =} prefdir 
## @deftypefnx {} address@hidden =} prefdir (1)
## Return the name of the directory containing Octave's preferences.
##
## @var{D} is a string containing the name of the directory containing
## Octave's preferences. The directory may or may not exist.
##
## If 1 is provided as an input, the preference directory is created if
## it does not yet exist.
##
## @seealso{addpref, getpref, setpref, ispref, rmpref}
## @end deftypefn

function retval = prefdir (varargin)

if (ispc ())
  d = fullfile ('AppData', 'Roaming', 'Octave'); % or Documents\Octave
else
  d = '.octave';
endif

retval = fullfile (get_home_directory (), d, version ());

if (nargin ~= 0)
  if ((isnumeric (varargin{1}) || islogical (varargin{1})) && ...
     numel (varargin{1}) == 1)
    if (logical (varargin{1}) && ~exist (retval, 'dir'))
      mkdir (retval);
    endif
  else
    error ('Input must be 1 to create the preference directory.');
  endif
endif

endfunction



    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?48221>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/