function varargout = addprops(hParent, hChild, varargin)
%ADDPROPS Method to dynamically add properties to the parent object.
%   ADDPROPS(H, HC) Method to dynamically add properties from HC to H.  HC
%   is assumed to have the method PROPSTOADD, which should return a cell
%   array of strings.
%
%   ADDPROPS(H, HC, PROP1, PROP2, etc.) Adds PROP1, PROP2, etc. from HC to
%   H.  These should be specified with strings.
%
%   ADDPROPS(H, HC, '-not', PROP1, '-not', PROP2) Adds all properties
%   returned from HC's PROPSTOADD method except PROP1 and PROP2.
%
%   ADDPROPS(H, HC, {}) If an empty cell is passed as the third input, no
%   properties will be added to H.

%   Author(s): J. Schickler
%   Copyright 1988-2004 The MathWorks, Inc.
%   $Revision: 1.1.6.9 $  $Date: 2004/12/26 22:23:14 $

% If we have an extra non '-not' input, it must be the properties to add.
if nargin < 3
    props = propstoadd(hChild);
else
    if strcmpi(varargin{1}, '-not')
        % Eliminate all properties that are referenced to be a '-not'
        indx = 1;
        props = propstoadd(hChild);
        
        while indx < length(varargin)
            if strcmpi(varargin{indx}, '-not')
                idx = strcmpi(varargin{indx+1}, props);
                varargin([indx indx+1]) = [];
                props(find(idx)) = [];
            else
                indx = indx + 1;
            end
        end
    elseif isempty(varargin{1}),
        props = {};
    else
        if iscell(varargin{1}),
            props = varargin{1};
        else
            props = varargin;
        end
    end
end

% Make sure that there are no duplicate properties.
[props i] = unique(props);
[i newi]  = sort(i);
props = props(newi);

if isempty(props),
    if nargout == 1, varargout = {[]}; end
    return;
end

newp = {};
for indx = 1:length(props),

    hindxc = findprop(hChild, props{indx});

    % Create a property based on the child object's property.
    newp{end+1} = schema.prop(hParent, hindxc.name, hindxc.datatype);
    set(newp{end}, 'AccessFlags.Serialize', 'Off', ...
        'SetFunction', {@set_prop, hChild, hindxc.name}, ...
        'GetFunction', {@get_prop, hChild, hindxc.name}, ...
        'Visible', hindxc.Visible, ...
        'AccessFlags.PublicSet', hindxc.AccessFlags.PublicSet);
end

if nargout, varargout = {[newp{:}]}; end

% -------------------------------------------------------------------------
function value = get_prop(hParent, value, hChild, prop)

% Get the value from the child.
value = get(hChild, prop);

% -------------------------------------------------------------------------
function value = set_prop(hParent, value, hChild, prop)

% Set the value in the child.
set(hChild, prop, value);

% [EOF]