Add initial prototype.

This commit is contained in:
Rod Kay
2022-07-31 17:34:54 +10:00
commit 54a53b2ac0
1421 changed files with 358874 additions and 0 deletions

View File

@@ -0,0 +1,19 @@
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;