%DIPPREFERENCESS   Stores user preferences for the DIPimage toolbox
%   dippreferences('defaults')        -> get factory defaults (in struct)
%   dippreferences('list')            -> get current settings (in struct)
%   dippreferences('get',name)        -> get value
%   dippreferences('set',name,value)  -> set value
%   dippreferences('unload')          -> unlock m-file

% (c)2017, Cris Luengo.
% (c)1999-2014, Delft University of Technology.
%
% Licensed under the Apache License, Version 2.0 (the "License");
% you may not use this file except in compliance with the License.
% You may obtain a copy of the License at
%
%    http://www.apache.org/licenses/LICENSE-2.0
%
% Unless required by applicable law or agreed to in writing, software
% distributed under the License is distributed on an "AS IS" BASIS,
% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
% See the License for the specific language governing permissions and
% limitations under the License.


% To make changes:
% - There is one large block at the begining of the main function that lists
%   all of the preferences, the type and the default value. This block does
%   not need to be sorted, but it looks prettier if it is!
% - If you need additional checking of preference values, edit the checkvalue
%   function towards the end of this file.
%
% Data is stored in this way:
% - settings.SettingName.value is the value for preference 'SettingName'.
% - settings.SettingName.type is a string defining the type. Currently it can be:
%     - 'string'   : a string
%     - 'boolean'  : a boolean value (on/off)
%     - 'integer'  : a scalar integer value
%     - 'float'    : a scalar float value
%     - 'integer*N': a Nx1 integer array
%     - 'float*N'  : a Nx1 float array
%
% Some error messages in this function are somewhat silly. Those are the ones
% we never expect to occur as long as this function is called through DIPGETPREF
% and DIPSETPREF.

function out = dippreferences(varargin)

persistent settings;
persistent factory;
if isempty(factory)
   % Initialize
   docdir = fileparts(fileparts(fileparts(mfilename('fullpath'))));
   factory = struct(...
      'BinaryDisplayColor',      struct('type','float*3','value',[0,1,0]),...
      'BringToFrontOnDisplay',   struct('type','boolean','value',true),...
      'ComplexMappingDisplay',   struct('type','string', 'value','x+iy'),...
      'CurrentImageFileDir',     struct('type','string', 'value',''),...
      'CurrentImageSaveDir',     struct('type','string', 'value',''),...
      'DefaultActionState',      struct('type','string', 'value','diptest'),...
      'DefaultColorMap',         struct('type','string', 'value','grey'),...
      'DefaultComplexMapping',   struct('type','string', 'value','abs'),...
      'DefaultFigureHeight',     struct('type','integer','value',256),...
      'DefaultFigureWidth',      struct('type','integer','value',256),...
      'DefaultGlobalStretch',    struct('type','boolean','value',false),...
      'DefaultMappingMode',      struct('type','string', 'value','normal'),...
      'DefaultSlicing',          struct('type','string', 'value','xy'),...
      'DisplayToFigure',         struct('type','boolean','value',true),...
      'DisplayFunction',         struct('type','string', 'value','dipshow'),...
      'EnableKeyboard',          struct('type','boolean','value',true),...
      'FileWriteWarning',        struct('type','boolean','value',true),...
      'Gamma',                   struct('type','float*3','value',[1,1,1]),...
      'GammaGrey',               struct('type','float',  'value',1),...
      'ImageFilePath',           struct('type','string', 'value',''),...
      'ImageSizeLimit',          struct('type','integer','value',4096),...
      'KeepDataType',            struct('type','boolean','value',false),...
      'NumberOfThreads',         struct('type','integer','value',numberofthreads),...
      'PutInCommandWindow',      struct('type','boolean','value',true),...
      'RespectVisibility',       struct('type','boolean','value',false),...
      'TrueSize',                struct('type','boolean','value',true),...
      'UserManualLocation',      struct('type','string', 'value',fullfile(docdir,'doc','DIPlib','DIPimageUserManual.pdf')));
   settings = factory;
   mlock;
end
if isempty(settings)
   % Shouldn't happen?
   settings = factory;
end

if nargin<1 || ~ischar(varargin{1})
   error('Nothing to do!');
end
switch varargin{1}

   % dippreferences('defaults')
   case 'defaults'
      out = simplify(factory);

   % dippreferences('list')
   case 'list'
      out = simplify(settings);

   % dippreferences('get',name)
   case 'get'
      if nargin~=2 || ~ischar(varargin{2})
         error('Get what???')
      end
      name = varargin{2};
      snames = fieldnames(settings);
      I = find(strcmpi(name,snames));
      if isempty(I)
         error(['Unknown preference name: ',name,'.']);
      end
      name = snames{I(1)};
      data = subsref(settings,substruct('.',name));
      out = data.value;

   % dippreferences('set',name,value)
   case 'set'
      if nargin~=3 || ~ischar(varargin{2})
         error('Set what???')
      end
      name = varargin{2};
      value = varargin{3};
      snames = fieldnames(settings);
      I = find(strcmpi(name,snames));
      if isempty(I)
         error(['Unknown preference name: ',name,'.']);
      end
      name = snames{I(1)};
      indx = substruct('.',name);
      data = subsref(settings,indx);
      type = data.type;
      I = find(type=='*');
      if isempty(I)
         N = 1;
      else
         N = str2double(type(I(1)+1:end));
         type = type(1:I(1)-1);
      end
      switch type
         case 'string'
            if ~ischar(value)
               error(['String expected for preference ',name,'.'])
            end
            data.value = value;
         case 'boolean'
            if islogical(value) || isnumeric(value)
               data.value = logical(value(1));
            elseif ischar(value)
               if any(strcmpi({'on','yes'},value))
                  data.value = true;
               elseif any(strcmpi({'off','no'},value))
                  data.value = false;
               else
                  error(['String expected for preference ',name,'.'])
               end
            else
               error(['String expected for preference ',name,'.'])
            end
         case 'integer'
            if ~isnumeric(value) || any(mod(value,1))
               error(['Integer value expected for preference ',name,'.'])
            end
            if numel(value)~=N
               error([num2str(N),' values expected for preference ',name,'.'])
            end
            if strcmp(name,'NumberOfThreads')
               numberofthreads(value); % Throws if value is wrong
               value = numberofthreads; % Get the value we actually set
            end
            data.value = value(:)';
         case 'float'
            if ~isnumeric(value)
               error(['Numeric value expected for preference ',name,'.'])
            end
            if numel(value)~=N
               error([num2str(N),' values expected for preference ',name,'.'])
            end
            data.value = value(:)';
         otherwise
            error('This preference has a weird data type!')
      end
      data = checkvalue(name,data,subsref(factory,indx));
      settings = subsasgn(settings,indx,data);

   % dippreferences('unload')
   case 'unload'
      munlock;
      factory = [];
      settings = [];

   otherwise
      error('I don''t understand you.')
end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function settings = simplify(settings)
snames = fieldnames(settings);
for ii=1:length(snames)
   indx = substruct('.',snames{ii});
   data = subsref(settings,indx);
   settings = subsasgn(settings,indx,data.value);
end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function data = checkvalue(name,data,defdata)
switch name
   case {'ComputationLimit','DefaultFigureHeight','DefaultFigureWidth'}
      if data.value<1
         data.value = defdata.value;
      end
   case 'ImageSizeLimit'
      data.value = max(0,data.value);
   case {'Gamma','GammaGrey'}
      data.value = max(0.01,data.value);
      data.value = min(100,data.value);
   case 'BinaryDisplayColor'
      data.value = max(0,min(1,data.value));
end
