asn1_iterators-simpletypes.ads 730 Bytes
Newer Older
1
generic
2 3 4 5 6
    type Sort is private;
    with function Elem_Init                 return Sort;
    with function Has_Elem  (Value : Sort)  return Boolean;
    with function Elem_First                return Sort;
    with function Elem_Next (Value : Sort)  return Sort;
7
package ASN1_Iterators.SimpleTypes is
8 9
    type SimpleType is tagged record
        Value : Sort;
10 11 12 13 14 15 16 17 18 19 20
    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);

21
    function Element_Value (Self : in out SimpleType) return Sort is
22 23
        (Self.Value);
end;