⟦629d8f0c1⟧

E3 Source Code



with Xlbt_Arithmetic;  
use Xlbt_Arithmetic;

package Xlbt_Misc is
------------------------------------------------------------------------------
-- X Library Misc Types
--
-- Xlbt_Misc - Types that used for protocol messages and other odd things.
------------------------------------------------------------------------------
-- Copyright 1989 - 1991 by Rational, Santa Clara, California.
-- Copyright 1985 - 1989 by the Massachusetts Institute of Technology
--
--                  All Rights Reserved.
--
-- Permission to use, copy, modify, and distribute this software and its
-- documentation for any purpose and without fee is hereby granted,
-- provided that the above copyright notice(s) appear in all copies and that
-- both that copyright notice(s) and this permission notice appear in
-- supporting documentation, and that the names of MIT or Rational not be
-- used in advertising or publicity pertaining to distribution of the software
-- without specific, written prior permission.
--
-- MIT and Rational disclaim all warranties with regard to this software,
-- including all implied warranties of merchantability and fitness, in no
-- event shall MIT or Rational be liable for any special, indirect or
-- consequential damages or any damages whatsoever resulting from loss of use,
-- data or profits, whether in an action of contract, negligence or other
-- tortious action, arising out of or in connection with the use or performance
-- of this software.
------------------------------------------------------------------------------

--\x0c
    ------------------------------------------------------------------------------
-- 8-bit Boolean type
------------------------------------------------------------------------------

    type X_Boolean_Char is (False, True);

--/ if Length_Clauses then
    for X_Boolean_Char'Size use 8;
--/ end if;

    function To_Boolean   (B : X_Boolean_Char) return Boolean;  
    function From_Boolean (B : Boolean)        return X_Boolean_Char;

------------------------------------------------------------------------------
-- 32-bit Boolean type
------------------------------------------------------------------------------

    type X_Boolean_Long is (False, True);

--/ if Length_Clauses then
    for X_Boolean_Long'Size use 32;
--/ end if;

    function To_Boolean   (B : X_Boolean_Long) return Boolean;  
    function From_Boolean (B : Boolean)        return X_Boolean_Long;

------------------------------------------------------------------------------
-- Data returned on a client request.
------------------------------------------------------------------------------

    type X_Client_Data_Type is array (S_Natural range 0 .. 19) of U_Char;

--/ if Length_Clauses then
    for X_Client_Data_Type'Size use 20 * 8;
--/ elsif Pack then
--//     pragma Pack (X_Client_Data_Type);
--/ end if;

------------------------------------------------------------------------------
----Conversion routines for those requiring access to Client_Message data under
--  its alternative interpretations.  (Ada is not capable of describing this
--  record type in any sensible fashion.)
------------------------------------------------------------------------------

    subtype S_Natural_0_19 is S_Natural range 0 .. 19;  
    subtype S_Natural_0_9  is S_Natural range 0 .. 9;  
    subtype S_Natural_0_4  is S_Natural range 0 .. 4;

    function X_Client_Message_S_Char (Xe    : X_Client_Data_Type;  
                                      Index : S_Natural_0_19) return S_Char;
    ----Returns the Index'th S_Char from the data field.

    function X_Client_Message_S_Short (Xe    : X_Client_Data_Type;  
                                       Index : S_Natural_0_9) return S_Short;
    ----Returns the Index'th S_Short from the data field.

    function X_Client_Message_S_Long (Xe    : X_Client_Data_Type;  
                                      Index : S_Natural_0_4) return S_Long;
    ----Returns the Index'th S_Long from the data field.

    function X_Client_Message_U_Char (Xe    : X_Client_Data_Type;  
                                      Index : S_Natural_0_19) return U_Char;
    ----Returns the Index'th U_Char from the data field.

    function X_Client_Message_U_Short (Xe    : X_Client_Data_Type;  
                                       Index : S_Natural_0_9) return U_Short;
    ----Returns the Index'th U_Short from the data field.

    procedure X_Client_Message_S_Char (Xe    : in out X_Client_Data_Type;  
                                       Index :        S_Natural_0_19;  
                                       Data  :        S_Char);
    ----Sets the Index'th S_Char from the data field.

    procedure X_Client_Message_S_Short (Xe    : in out X_Client_Data_Type;  
                                        Index :        S_Natural_0_9;  
                                        Data  :        S_Short);
    ----Sets the Index'th S_Short from the data field.

    procedure X_Client_Message_S_Long (Xe    : in out X_Client_Data_Type;  
                                       Index :        S_Natural_0_4;  
                                       Data  :        S_Long);
    ----Sets the Index'th S_Long from the data field.

    procedure X_Client_Message_U_Char (Xe    : in out X_Client_Data_Type;  
                                       Index :        S_Natural_0_19;  
                                       Data  :        U_Char);
    ----Sets the Index'th U_Char from the data field.

    procedure X_Client_Message_U_Short (Xe    : in out X_Client_Data_Type;  
                                        Index :        S_Natural_0_9;  
                                        Data  :        U_Short);
    ----Sets the Index'th U_Short from the data field.

------------------------------------------------------------------------------
-- X_Text_Elt
------------------------------------------------------------------------------

    type X_Text_Elt is  
        record               -- followed by string
            Length : U_Char; -- number of *characters* in string (1..254), or
                             -- FontChange (=255), or 0 if just deltaa given
            Deltaa : S_Char;  
        end record;

--/ if Length_Clauses then
    for X_Text_Elt'Size use 16;
--/ end if;

end Xlbt_Misc;
DataMuseum.dk

Rational R1000/400

⟦629d8f0c1⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
