--| --|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: This package looks like it should be at least partially supported by --% Ada binding to PCTE 1.5. But RLF can probably do without it. with Pcte, Pcte_error; package Pcte_limit is use Pcte_error; type limit is ( MAX_ACCESS_CONTROL_LIST_LENGTH, MAX_ACCOUNT_DURATION, DELTA_ACCOUNT_DURATION, MAX_ACCOUNT_INFORMATION_LENGTH, MAX_ACTIVITIES, MAX_ACTIVITIES_PER_PROCESS, MAX_AUDIT_INFORMATION_LENGTH, MAX_DEFINITION_NAME_SIZE, MAX_DIGIT_FLOAT_ATTRIBUTE, MAX_DISCRETIONARY_GROUPS, MAX_FILE_SIZE, MAX_FLOAT_ATTRIBUTE, MIN_FLOAT_ATTRIBUTE, MAX_INTEGER_ATTRIBUTE, MIN_INTEGER_ATTRIBUTE, MAX_INTERNAL_OBJECT_REFERENCES, MAX_INTERNAL_OBJECT_REFERENCES_PER_PROCESS, MAX_KEY_SIZE, MAX_KEY_VALUE, MAX_LINK_SIZE, MAX_MESSAGE_QUEUE_SPACE, MAX_MESSAGE_SIZE, MAX_OPEN_OBJECTS, MAX_OPEN_OBJECTS_PER_PROCESS, MAX_PIPE_SIZE, MAX_PRIORITY_VALUE, MAX_PROCESSES, MAX_PROCESSES_PER_USER, MAX_SDS_IN_WORKING_SCHEMA, MAX_SDS_NAME_SIZE, MAX_STRING_ATTRIBUTE_SIZE, MAX_TIME_ATTRIBUTE, MIN_TIME_ATTRIBUTE, SMALLEST_FLOAT_ATTRIBUTE); type category is ( STANDARD_LIMIT, IMPLEMENTATION_LIMIT, REMAINING_LIMIT); -- Pcte_limit.category indicates to the function get_value -- the category of limit value required. -- STANDARD_LIMIT indicates the limit bounds -- given in ECMA-149, clause 24; -- IMPLEMENTATION_LIMIT indicates the limits -- imposed by the implementation; -- and REMAINING_LIMIT indicates the current -- available quantity of the resource concerned. function get_value ( value : Pcte_limit.limit; category : Pcte_limit.category := STANDARD_LIMIT; status : Pcte_error.handle := EXCEPTION_ONLY) return Pcte.integer; function get_value ( value : Pcte_limit.limit; category : Pcte_limit.category := STANDARD_LIMIT; status : Pcte_error.handle := EXCEPTION_ONLY) return Pcte.float; function get_value ( value : Pcte_limit.limit; category : Pcte_limit.category := STANDARD_LIMIT; status : Pcte_error.handle := EXCEPTION_ONLY) return Pcte.calendar.time; function get_value ( value : Pcte_limit.limit; category : Pcte_limit.category := STANDARD_LIMIT; status : Pcte_error.handle := EXCEPTION_ONLY) return Pcte.calendar.duration; -- Pcte_limit.get_value returns the value of the limit value -- according to the value of category . -- The second overloaded function is used -- for MAX_FLOAT_ATTRIBUTE, MIN_FLOAT_ATTRIBUTE, -- and SMALLEST_FLOAT_ATTRIBUTE; -- the third overloaded function is used -- for MAX_TIME_ATTRIBUTE and MIN_TIME_ATTRIBUTE; -- the fourth overloaded function is used -- for MAX_ACCOUNT_DURATION and DELTA_ACCOUNT_DURATION; -- and the first overloaded function is used for the rest. end Pcte_limit;