% MPL2JPL converts a MATALB plist object into a java plist object.
%
% CALL:  jpl = LTPDAworkbench.mpl2jpl(mpl)
%
% M Hewitson 13-11-08
%
% $Id: mpl2jpl.m,v 1.15 2011/04/18 16:57:17 ingo Exp $
%
function jpl = mpl2jpl(mpl)
  % build java plist
  if isempty(mpl)
    jpl = mpipeline.plisttable.JPlist('');
  else
    jpl = mpipeline.plisttable.JPlist(mpl.name);
    for aa=1:numel(mpl.params)
      pv = mpipeline.plisttable.JParamValue;
      if isa(mpl.params(aa).val, 'paramValue')
        options = mpl.params(aa).val.getOptions;
        for ll=1:numel(options)
          pval = convertVal(options{ll});
          type = class(pval);
          pv.addOption(pval, type);
        end
        pv.setValIndex(mpl.params(aa).val.valIndex-1);
        pv.setSelection(mpl.params(aa).val.selection);
      else
        pval = convertVal(mpl.params(aa).val);
        pv.addOption(pval, class(pval));
      end
      p = mpipeline.plisttable.JParam(mpl.params(aa).key, pv, mpl.params(aa).desc);
      jpl.add(p);
    end
  end
end

function jval = convertVal(val)
  
  if ischar(val)
    jval = val;
  elseif isnumeric(val)
    if numel(val) == 1
      jval = val;
    else
      jval = utils.helper.mat2str(val);
    end
  elseif iscell(val)
    jval = utils.prog.mcell2str(val);
  elseif islogical(val)
    if val
      jval = true;
    else
      jval = false;
    end
  elseif isa(val, 'ltpda_nuo')
    jval = string(val);
  elseif isa(val, 'ltpda_uo')
    try
      jval = string(val);
    catch
      % The 'string' method will fail when the object have more than one
      % history step. In this case build we a PLIST which constructs the
      % object from the properties.
      pl = val.generateConstructorPlist();
      jval = string(pl);
    end
  else
    jval = char(val);
  end
  
end