is_type.m

% Aircraft design tool
%
% Copyright (C) 2022 Mario Bras
%
% This program is free software: you can redistribute it and/or modify
% it under the terms of the GNU General Public License version 3 as
% published by the Free Software Foundation.
%
% This program is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with this program.  If not, see <https://www.gnu.org/licenses/>.

function test = is_type(data, type)
type_tags = split(type, '.');
elem_tags = split(data.type, '.');

for i = 1 : length(type_tags)
    if ~strcmp(elem_tags{i}, type_tags{i})
        test = false;
        return;
    end
end

test = true;