Commit e3be2a4d authored by Maxime Perrotin's avatar Maxime Perrotin

Start working on Initialize for SeqOf

parent 49aaae94
......@@ -4,16 +4,15 @@ use Ada.Text_IO;
package body ASN1_Iterators.Iterable_SeqOF is
procedure Initialize (It: in out ASN1_SequenceOf) is
-- Rest_Init : Instance;
begin
Put_Line ("Initialize Iterable_SeqOF length " & It.Length'Img);
-- It.Value.Length := It.Length;
-- if It.Length > 1 then
-- Rest_Init.Item.Length := It.Length - 1;
-- It.Rest := new Instance'(Rest_Init);
-- It.Rest_It := new Cust_Iterator'(Cust_Iterator(It.Rest.Iterate));
-- It.Rest_It.Ptr := It.Rest_It.First;
-- end if;
It.Value.Length := It.Length;
if It.Length > 1 then
It.Rest := new Instance; -- not initialized
It.Rest.Item.Length := It.Length - 1;
It.Rest_It := new Cust_Iterator'(Cust_Iterator(It.Rest.Iterate));
It.Rest_It.Ptr := It.Rest_It.First;
end if;
end;
function Has_Element (It: ASN1_SequenceOf) return Boolean is
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment