-------------------------------------------------------------------------------------- -- Ada language interface to OSF/Motif toolkit -- -- Version: 1.0 -- -- Release date: 3/19/91 -- -- Compiled under: -- VADS 5.5+ on Apollo Domain / DEC Ultrix / SCO Unix -- -- This is an Ada binding to the OSF Motif toolkit. -- Requires: -- OSF/Motif toolkit -- Verdix (or Verdix-derived) Ada libraries -- -- Author: -- Boeing Commercial Airplanes Avionics Flight Systems Organization -- -- -- Mailing Address: -- P.O. Box 3999, M/S 65-07 -- Seattle, WA 98124 -- Attn: E. J. Jones -- -- -- Approved for public release; distribution is unlimited. Per DoD Directive -- 5230.24. -- -- Copyright (c) 1991, The Boeing Company, Seattle, Washington. This software, -- the BCA Ada language interface to the OSF/Motif toolkit, produced by the -- Boeing Commercial Airplane Company and made available under STARS (Software -- Technology for Adaptable, Reliable Systems) 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 Project Agency (DARPA) under -- contract F19628-88-D-0028, the STARS program is supported by the military -- services, SEI, and MITRE, with the U.S. Air Force as the executive -- contracting agent. The code identified herein is subject to change. -- -- Permission to use, modify, copy, and comment on this software for purposes -- stated under Distribution "A" and without fee is hereby granted. 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 and The Boeing Company disclaim all warranties -- with regard to this software, including all implied warranties of -- merchantability and fitness. In no event shall the Government or The Boeing -- Company 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 tortuous action, arising in -- connection with the use or performance of this software. The Boeing Company -- does not agree to support or maintain this software or to produce any -- future versions. -------------------------------------------------------------------------------------- ---------------------------------------------------------------------- -- Package spec BASIC TYPES ---------------------------------------------------------------------- -- CHANGE HISTORY -- Ver. Developer Date Description -- ---- -------- ----- --------------------------------- -- 1.0 E.J.Jones(206)477-3566 12/91 Original version for Ada Motif Bindings -- -- ----------------------------------------------------------------------------- -- PROLOGUE -- -- NAME: Package specification for SPC_BASIC_TYPES in Product Set 1. -- -- S/W FAMILY: CORE library -- -- RESTRICTIONS: None. -- ------------------------------------------------------------------------------------------- -- The type definitions contained in this package are to be used whenever possible -- in preference to Ada pre-defined type names. When product code is dependent on -- these types only, portability is much higher because definitions (and implicit/explicit) -- sizing of these types are only changed in this one place. package AFS_BASIC_TYPES is type AFS_LARGE_INTEGER is new INTEGER; -- 32 bits type AFS_MEDIUM_INTEGER is new SHORT_INTEGER; -- 16 bits type AFS_SMALL_INTEGER is new TINY_INTEGER; -- 8 bits subtype AFS_LARGE_NATURAL is AFS_LARGE_INTEGER range 0 .. AFS_LARGE_INTEGER'LAST; subtype AFS_MEDIUM_NATURAL is AFS_MEDIUM_INTEGER range 0 .. AFS_MEDIUM_INTEGER'LAST; subtype AFS_SMALL_NATURAL is AFS_SMALL_INTEGER range 0 .. AFS_SMALL_INTEGER'LAST; type AFS_C_UNSIGNED_SHORT is range 0 .. (2**16) -1; for AFS_C_UNSIGNED_SHORT'SIZE use 16; type AFS_C_UNSIGNED_CHAR is range 0 .. (2**8) -1; for AFS_C_UNSIGNED_CHAR'SIZE use 8; -- NOTE: The Ada compiler cannot handle this range. Workaround definition follows. -- type AFS_C_UNSIGNED_LONG is range 0 .. (2**32) -1; -- for AFS_C_UNSIGNED_LONG'SIZE use 32; subtype AFS_C_UNSIGNED_LONG is AFS_LARGE_NATURAL; subtype AFS_LARGE_POSITIVE is AFS_LARGE_INTEGER range 1 .. AFS_LARGE_INTEGER'LAST; subtype AFS_MEDIUM_POSITIVE is AFS_MEDIUM_INTEGER range 1 .. AFS_MEDIUM_INTEGER'LAST; subtype AFS_SMALL_POSITIVE is AFS_SMALL_INTEGER range 1 .. AFS_SMALL_INTEGER'LAST; type AFS_LARGE_FLOAT is new FLOAT; -- 9 digits, 64 bits type AFS_MEDIUM_FLOAT is new SHORT_FLOAT; -- 6 digits, 32 bits function MIN (LEFT : in AFS_SMALL_INTEGER; RIGHT : in AFS_SMALL_INTEGER) return AFS_SMALL_INTEGER; function MAX (LEFT : in AFS_SMALL_INTEGER; RIGHT : in AFS_SMALL_INTEGER) return AFS_SMALL_INTEGER; function MIN (LEFT : in AFS_MEDIUM_INTEGER; RIGHT : in AFS_MEDIUM_INTEGER) return AFS_MEDIUM_INTEGER; function MAX (LEFT : in AFS_MEDIUM_INTEGER; RIGHT : in AFS_MEDIUM_INTEGER) return AFS_MEDIUM_INTEGER; function MIN (LEFT : in AFS_LARGE_INTEGER; RIGHT : in AFS_LARGE_INTEGER) return AFS_LARGE_INTEGER; function MAX (LEFT : in AFS_LARGE_INTEGER; RIGHT : in AFS_LARGE_INTEGER) return AFS_LARGE_INTEGER; function MIN (LEFT : in AFS_MEDIUM_FLOAT; RIGHT : in AFS_MEDIUM_FLOAT) return AFS_MEDIUM_FLOAT; function MAX (LEFT : in AFS_MEDIUM_FLOAT; RIGHT : in AFS_MEDIUM_FLOAT) return AFS_MEDIUM_FLOAT; function MIN (LEFT : in AFS_LARGE_FLOAT; RIGHT : in AFS_LARGE_FLOAT) return AFS_LARGE_FLOAT; function MAX (LEFT : in AFS_LARGE_FLOAT; RIGHT : in AFS_LARGE_FLOAT) return AFS_LARGE_FLOAT; end AFS_BASIC_TYPES;