Make your own free website on Tripod.com

File : oci-thick-string_bounded.ads


with OCI.Lib;
with OCI.Thick.Statement_Pkg;
package OCI.Thick.String_Bounded is
use Lib,Statement_Pkg;

      subtype String_Size is C.Size_t;

      type Variable(Length : String_Size) is new Base_Variable with 
      private;

      procedure Bind(Stmt : Statement; Value : in out Variable; Name : String);
      procedure Bind(Stmt : Statement; Value : in out Variable; Position : Positive);
      procedure Define(Stmt : Statement; Value : in out Variable; Position : Positive);
      procedure Set_Value(Var : in out Variable; Value : String);
      function Get_Value(Var : Variable'Class) return String;
      function Value(Var : Variable'Class) return String renames Get_Value;

private

      type Variable(Length : String_Size) is new Base_Variable with 
      record
         Value : C.Char_Array(0..Length);
      end record;

end OCI.Thick.String_Bounded