AdaPower Logged in as Guest
Ada Tools and Resources

Ada 95 Reference Manual
Ada Source Code Treasury
Bindings and Packages
Ada FAQ


Join >
Home >
Articles >
Getting Started >
Ada FAQ >
Source Treasury >
Books & Tutorials >
Packages for Reuse >
Latest Additions >
Ada Projects >
Press Releases >
Ada Audio / Video >
Home Pages >
Links >
Contact >
About >
Login >
Back
GNAT.Spitbol.Table_VString Example (David Botton)

-- GNAT.Spitbol.Table_VString Example
--
-- Example of using the standard instantianton of GNAT.Spitbol.Table
-- for VStrings

with GNAT.Spitbol.Table_VString; use GNAT.Spitbol.Table_VString;
use GNAT.Spitbol;

with GNAT.IO; use GNAT.IO;

procedure Gvtable is
   Test_Table : Table_VString.Table(10);
begin
   Set(Test_Table, V("One"), V("A"));
   Set(Test_Table, V("Two"), V("B"));
   Set(Test_Table, V("Three"), V("C"));

   Put_Line(" Three = " & S(Get(Test_Table, V("Three"))));
   Put_Line(" One   = " & S(Get(Test_Table, V("One"))));
   Put_Line(" Two   = " & S(Get(Test_Table, V("Two"))));
end Gvtable;


(c) 1998-2004 All Rights Reserved David Botton