--| --|Item: Ada PCTE Binding --|$Revision: 0.2 $ --|$State: Prototype $ --| --|The Version Description Document (VDD) included with this release provides --|detailed information regarding the condition of the software. The "User --|Feedback" section of the VDD describes how to obtain additional information. --| --|Distribution Statement "A", per DoD Directive 5230.24 --|Authorized for public release; distribution is unlimited. --| --|Copyright (c) 1992, Paramax Systems Corporation, Reston, Virginia --|Copyright is assigned to the U.S. Government, upon delivery thereto, --|in accordance with the DFAR Special Works Clause. --| --|Developed by: Paramax Systems Corporation, --| --|This software, developed under the Software Technology for Adaptable, --|Reliable Systems (STARS) program, is approved for release under --|Distribution "A" of the Scientific and Technical Information Program --|Classification Scheme (DoD Directive 5230.24) unless otherwise indicated. --|Sponsored by the U.S. Defense Advanced Research Projects Agency (DARPA) --|under contract F19628-88-D-0031, the STARS program is supported by the --|military services, SEI, and MITRE, with the U.S. Air Force as the executive --|contracting agent. --| --|Permission to use, copy, modify, and comment on this software and its --|documentation for purposes stated under Distribution "A" and without fee --|is hereby granted, provided that this notice appears in each whole or --|partial copy. This software retains Contractor indemnification to --|the Government regarding copyrights pursuant to the above referenced --|STARS contract. The Government disclaims all responsibility against --|liability, including costs and expenses for violation of proprietary --|rights, or copyrights arising out of the creation or use of this --|software. --| --|In addition, the Government, Paramax, and its subcontractors disclaim all --|warranties with regard to this software, including all implied warranties --|of merchantability and fitness, and in no event shall the Government, --|Paramax, or its subcontractor(s) be liable for any special, indirect or --|consequential damages or any damages whatsoever resulting from the loss of --|use, data, or profits, whether in action of contract, negligence or other --|tortious action, arising in connection with the use or performance of this --|software. --| --|$Log $ --| -- Version Information -- ^^^^^^^^^^^^^^^^^^^ -- -- PCTE - Ada Language Interface. -- Version: 0.2. -- Release Date: November 30, 1992. -- Compiled under SUN OS 4.1.2 using SunAda 1.0 -- -- -- General Information -- ^^^^^^^^^^^^^^^^^^^ -- -- This is an alpha release of the Paramax STARS Ada binding to Emeraude's -- PCTE 1.5 using the ECMA PCTE Ada binding specifications. The binding -- is incomplete in this release. See the Version Description Document -- provided with this alpha release for information on which interfaces -- have been implemented. It is expected that future releases will -- expand the number of interfaces implemented. The interfaces defined -- herein are subject to change. -- -- For further information, contact the authors: -- -- -- Robert Smith -- Paramax Systems Corp. -- Valley Forge Labs -- 70 E. Swedesford Road -- Paoli, PA. 19301 -- smith@prc.unisys.com (current) -- smith@vfl.paramax.com (future) -- +1 215 648-2402 -- -- Michael Horton -- Paramax Systems Corp. -- Valley Forge Labs -- 70 E. Swedesford Road -- Paoli, PA. 19301 -- horton@prc.unisys.com (current) -- horton@vfl.paramax.com (future) -- +1 215 648-2527 -- -- --% NOTE: The following package will not be supported by --% Ada binding to PCTE 1.5 -- See the beginning of the packages Pcte_archive, Pcte_device and Pcte_volume. with Pcte, Pcte_error; package Pcte_archive is use Pcte, Pcte_error; type completeness is (PARTIAL, COMPLETE); -- Pcte_archive.completeness corresponds to the PCTE datatype of the -- results of ARCHIVE_RESTORE and ARCHIVE_SAVE. -- 11.2.1 ARCHIVE_RESTORE -- ARCHIVE_RESTORE is mapped to two overloaded procedures -- Pcte_archive.restore according to whether the value -- of the parameter scope is SELECTION_LIST -- (first function) or ALL (second function). procedure restore ( device : in Pcte.object_reference; archive : in Pcte.object_reference; objects : in Pcte.object_references.sequence; volume : in Pcte.object_reference; restoring_status : out Pcte_archive.completeness; status : in Pcte_error.handle := EXCEPTION_ONLY); procedure restore ( device : in Pcte.object_reference; archive : in Pcte.object_reference; volume : in Pcte.object_reference; restoring_status : out Pcte_archive.completeness; status : in Pcte_error.handle := EXCEPTION_ONLY); -- 11.2.2 ARCHIVE_SAVE procedure save ( device : in Pcte.object_reference; archive : in Pcte.object_reference; objects : in Pcte.object_references.sequence; saving_status : out Pcte_archive.completeness; status : Pcte_error.handle := EXCEPTION_ONLY); end Pcte_archive; --% NOTE: The following package will not be supported by --% Ada binding to PCTE 1.5 with Pcte, Pcte_error, Pcte_discretionary; package Pcte_device is use Pcte, Pcte_error; -- 11.2.3 DEVICE_CREATE procedure create ( station : in Pcte.object_reference; device_type : in Pcte.type_reference; access_mask : in Pcte_discretionary.object.access_rights; device_identifier : in Pcte.natural; device_characteristics : in Pcte.string; new_device : in out Pcte.object_reference; status : in Pcte_error.handle := EXCEPTION_ONLY); -- 11.2.4 DEVICE_REMOVE procedure remove ( device : in Pcte.object_reference; status : in Pcte_error.handle := EXCEPTION_ONLY); -- 11.2.5 LINK_GET_DESTINATION_ARCHIVE -- See 9.2. -- 12.2.12 DEVICE_GET_CONTROL generic type element_type is private ; function get_control ( device : Pcte.object_reference; operation : Pcte.natural; status : Pcte_error.handle := EXCEPTION_ONLY) return element_type; -- 12.2.13 DEVICE_SET_CONTROL generic type element_type is private ; procedure set_control ( device : in Pcte.object_reference; operation : in Pcte.natural; control_data : in element_type; status : in Pcte_error.handle := EXCEPTION_ONLY); end Pcte_device; --% NOTE: The following package will not be supported by --% Ada binding to PCTE 1.5 with Pcte, Pcte_error, Pcte_discretionary; package Pcte_volume is use Pcte, Pcte_error; type status is record totals_blocks : Pcte.natural; free_blocks : Pcte.natural; block_size : Pcte.natural; num_objects : Pcte.natural; volume_identifier : Pcte.natural; end record ; -- Pcte_volume.status corresponds to the PCTE datatype -- of the result of VOLUME_GET_STATUS. -- 11.2.6 VOLUME_CREATE procedure create ( device : in Pcte.object_reference; volume_identifier : in Pcte.natural; access_mask : in Pcte_discretionary.object.access_rights; volume_characteristics : in Pcte.string; new_volume : in out Pcte.object_reference; status : in Pcte_error.handle := EXCEPTION_ONLY); -- 11.2.7 VOLUME_DELETE procedure delete ( volume : in Pcte.object_reference; status : in Pcte_error.handle := EXCEPTION_ONLY); -- 11.2.8 VOLUME_GET_STATUS function get_status ( volume : Pcte.object_reference; status : Pcte_error.handle := EXCEPTION_ONLY) return Pcte_volume.status; -- 11.2.9 VOLUME_MOUNT procedure mount ( device : in Pcte.object_reference; volume : in Pcte.object_reference; read_only : in Pcte.boolean; status : in Pcte_error.handle := EXCEPTION_ONLY); -- 11.2.10 VOLUME_UNMOUNT procedure unmount ( volume : in Pcte.object_reference; status : in Pcte_error.handle := EXCEPTION_ONLY); -- 9.3.16 VOLUME_LIST_OBJECTS procedure list_objects ( volume : in Pcte.object_reference; types : in Pcte.type_references.sequence; objects : in out Pcte.object_references.sequence; status : in Pcte_error.handle := EXCEPTION_ONLY); end Pcte_volume;