adagsl_335d13f0/toolkit/adalib/src/fields.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
with Ada.Containers.Vectors ;

package fields is
    subtype Capacity is Integer range 1..1024 ;
    package IntFieldsPkg is new 
            Ada.Containers.Vectors (Capacity , Integer );
    function Split( full : String ;
                    separator : String := "," ;
                    fmt : String := "" )
                    return IntFieldsPkg.Vector ;

end fields ;