function next_next = mttIdentifyImplicitBonds(model,branch,next)
is_root_model = (nargin==1) ;
if is_root_model
mttNotify('...following bonds have no explicit domain allocation:') ;
mttWriteNewLine ;
branch = mttDetachText(model.source,'/') ;
next = 0 ;
end
number_of_bonds = mttGetFieldLength(model,'bond') ;
for i = 1:number_of_bonds
if isempty(model.bond(i).domain)
origin = model.bond(i).from.obj ;
port = model.bond(i).from.interface ;
if isfield(model.obj,origin)
origin_class = getfield(model,'obj',origin,'class') ;
switch origin_class
case {'0','1'},
bond_origin = [origin_class,':',origin] ;
otherwise,
origin_port = getfield(model,'obj',origin,'interface',{port},'name') ;
bond_origin = [origin_class,':',origin,'[',origin_port,']'] ;
end
else
bond_origin = ['SS:',origin] ;
end
target = model.bond(i).to.obj ;
port = model.bond(i).to.interface ;
if isfield(model.obj,target)
target_class = getfield(model,'obj',target,'class') ;
switch target_class
case {'0','1'},
bond_target = [target_class,':',target] ;
otherwise,
target_port = getfield(model,'obj',target,'interface',{port},'name') ;
bond_target = [target_class,':',target,'[',target_port,']'] ;
end
else
bond_target = ['SS:',target] ;
end
next = next + 1 ;
descriptor = [' ',num2str(next),': ',branch,'(',num2str(i),') from: ',...
bond_origin,' to: ',bond_target] ;
mttNotify(descriptor) ;
mttWriteNewLine ;
end
end
next_next = next ;
object_names = mttGetFieldNames(model,'obj') ;
number_of_objects = length(object_names) ;
for i = 1:number_of_objects
object_name = object_names{i} ;
object = getfield(model,'obj',object_name) ;
if isfield(object,'obj')
next_branch = [branch,'/',object_name] ;
next_next = mttIdentifyImplicitBonds(object,next_branch,next) ;
next = next_next ;
end
end