Commit 4a4cc367 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Update auto-generated iterators

parent b34c8bea
......@@ -22,13 +22,17 @@ package body ASN1_Iterators.iterators is
end;
function Image(Elm: ASN1_Type) return String is
(if Elm.Length > 0 then
(Image(Elm.Data(1)) & (if Elm.Length > 1 then "," &
Image(ASN1_Type'(Length => Elm.Length-1,
Data => Elm.Data(2..Elm.Length) &
Elm.Data(1..Elm.Data'Length-Elm.Length+1)))
else ""))
else "");
function Image_rec(Elm: ASN1_Type) return String is
(if Elm.Length > 0 then
(Image(Elm.Data(1)) & (if Elm.Length > 1 then "," &
Image_Rec(ASN1_Type'(Length => Elm.Length-1,
Data => Elm.Data(2..Elm.Length) &
Elm.Data(1..Elm.Data'Length-Elm.Length+1)))
else ""))
else "");
begin
return "{" & Image_rec(Elm) & " }";
end;
end;
end;
\ No newline at end of file
Supports Markdown
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