20 lines
360 B
Ada
20 lines
360 B
Ada
package body collada.Library
|
|
is
|
|
|
|
function find_in (Self : Inputs; the_Semantic : in library.Semantic) return Input_t
|
|
is
|
|
begin
|
|
for i in Self'Range
|
|
loop
|
|
if Self (i).Semantic = the_Semantic
|
|
then
|
|
return Self (i);
|
|
end if;
|
|
end loop;
|
|
|
|
return null_Input;
|
|
end find_in;
|
|
|
|
|
|
end collada.Library;
|