asn1_iterators-simpletypes.ads 721 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
generic
    type Element is private;
    with function Elem_Init return Element;
    with function Has_Elem (Value: Element) return Boolean;
    with function Elem_First return Element;
    with function Elem_Next (Value: Element) return Element;
package ASN1_Iterators.SimpleTypes is
    type SimpleType is tagged
    record
        Value: Element;
    end record;

    procedure Initialize (Self : in out SimpleType);

    function Has_Element (Self : in out SimpleType) return Boolean is
        (Has_Elem (Self.Value));

    procedure First (Self : in out SimpleType);

    procedure Next (Self : in out SimpleType);

    function Element_Value (Self : in out SimpleType) return Element is
        (Self.Value);
end;