home *** CD-ROM | disk | FTP | other *** search
- package ADA_RAPPORT_INTERFACE is -- a working
- -- prototype Ada interface to Logica's Relational Database
- -- Management System, RAPPORT. It allows application programs
- -- to be written in Ada which want to access a RAPPORT
- -- database. RAPPORT commands are embedded in Ada using a
- -- collection of overloaded Ada/RAPPORT packages. Users can
- -- simultaneously access the database via the other interfaces
- -- (FORTRAN, COBOL, PASCAL, RaSQL, RAPIDE and RAPIER), as well
- -- as via Ada. This is not a necessary requirement, but is
- -- extremely useful while we are working with a prototype.
- -- Before accessing a new database from Ada, you will need to
- -- know how to define a RAPPORT database which can be found in
- -- the RAPPORT Facilities Manual. Before running up your first
- -- Ada program, you must run the utility MAKE_PACKAGE which
- -- creates the Ada/RAPPORT packages specific to that database.
- -- This is a once only activity for each database you wish to
- -- access via Ada. We had access only to the Telesoft Ada
- -- compiler version 1.5, with no generics, and so instantiation
- -- must be carried out by hand, as described in the Ada/RAPPORT
- -- User Manual.
- -- This manual is currently being put up on the NET.
-
- package RAPPORT_COMMANDS is new RAPPORT_PROCESS_PACKAGE
- -- All RAPPORT commands, e.g., FETCH, SEARCH, etc. are
- -- implemented using overloaded Ada/RAPPORT packages defined
- -- in the Ada/RAPPORT User Manual. In this way RAPPORT
- -- commands can be embedded in the Ada application code.
-
- package DATA_DEFINITIONS is new DATA_DEFINITIONS_PACKAGE
- -- All data definitions are automatically set up by running
- -- MAKE_PACKAGE once for each new database to be accessed via
- -- Ada. Because there were no generics, package
- -- instantiation must be done by hand in this version of the
- -- prototype.
-
- package TITLE_PAGE is new TITLE_PAGE_PACKAGE
- (DEVELOPING_ORGANIZATION ==> "Logica",
- AUTHORS ==> ("Dick Perkins",
- "Malcolm Dick"
- "David Lund"),
- CONTACT ==> "Dave Anker",
- ADDRESS ==> ("666 Third Avenue",
- "New York",
- "NY", "10017"),
- PHONE ==> (212,682,9344),
- DATE_SUBMITTED ==> (5,Apr,1985));
-
- package TECHNICAL_PARAMETERS is new TECHNICAL_PARAMETERS_PACKAGE
- (STATUS ==> (WORKING_PROTOTYPE),
- DEVELOPMENT_COMPILER ==> (Telesoft, 1.5),
- REQUIREMENTS ==> (Vax, RAPPORT)
- COMMAND_STRUCTURE ==> (RAPPORT_COMMANDS));
-
- package DEVELOPMENT_SCHEDULE_AND_STATUS is new SCHEDULE_PACKAGE
- (COMPLETED_EVENTS ==> (START_DATE, (12,Nov,1984)),
- (DELIVERY,(11,Mar,1985));
-
- end ADA_RAPPORT_INTERFACE;
-