DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦baae3b736⟧ Ada Source

    Length: 31744 (0x7c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Xlbip_Put_Request, seg_004f24

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

E3 Source Code



with Xlbt_Arithmetic;  
use Xlbt_Arithmetic;  
with Xlbt_Basic;  
use Xlbt_Basic;  
with Xlbt_Graphics;  
use Xlbt_Graphics;  
with Xlbt_Key;  
use Xlbt_Key;  
with Xlbt_Key2;  
use Xlbt_Key2;  
with Xlbt_Keyboard;  
use Xlbt_Keyboard;  
with Xlbt_Misc;  
use Xlbt_Misc;  
with Xlbt_Request;  
use Xlbt_Request;  
with Xlbt_String;  
use Xlbt_String;  
with Xlbt_String16;  
use Xlbt_String16;

with Xlbmt_Network_Types;  
use Xlbmt_Network_Types;

with Xlbip_Base_Converters;  
use Xlbip_Base_Converters;  
with Xlbip_Graphic_Converters;  
use Xlbip_Graphic_Converters;  
with Xlbip_Request_Converters;  
use Xlbip_Request_Converters;

with Xlbmp_Put;  
use Xlbmp_Put;

pragma Elaborate (Xlbmp_Put);

package Xlbip_Put_Request is
------------------------------------------------------------------------------
-- X Library Internal Network I/O Put-Request Routines
--
-- Xlbip_Put_Request - Place a specific type of request into an output buffer
------------------------------------------------------------------------------
-- Copyright 1989 - 1991 by Rational, Santa Clara, California.
--
--                  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 name of Rational not be used in
-- advertising or publicity pertaining to distribution of the software
-- without specific, written prior permission.
--
-- Rational disclaims all warranties with regard to this software, including
-- all implied warranties of merchantability and fitness, in no event shall
-- 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
    procedure Put_X_Alloc_Color_Request is  
       new Put_Request (X_Alloc_Color_Request,  
                        To_Raw);

    procedure Put_X_Alloc_Color_Cells_Request is  
       new Put_Request (X_Alloc_Color_Cells_Request,  
                        To_Raw);

    procedure Put_X_Alloc_Color_Planes_Request is  
       new Put_Request (X_Alloc_Color_Planes_Request,  
                        To_Raw);

    procedure Put_X_Alloc_Named_Color_Request is  
       new Put_Request_Extra (X_Alloc_Named_Color_Request,  
                              To_Raw);

    procedure Put_X_Allow_Events_Request is  
       new Put_Request (X_Allow_Events_Request,  
                        To_Raw);

    procedure Put_X_Bell_Request is  
       new Put_Request (X_Bell_Request,  
                        To_Raw);

    procedure Put_X_Change_Active_Pointer_Grab_Request is  
       new Put_Request (X_Change_Active_Pointer_Grab_Request,  
                        To_Raw);

    procedure Put_X_Change_Gc_Request is  
       new Put_Request_Extra (X_Change_Gc_Request,  
                              To_Raw);

    procedure Put_X_Change_Hosts_Request is  
       new Put_Request_Extra (X_Change_Hosts_Request,  
                              To_Raw);

    procedure Put_X_Change_Keyboard_Control_Request is  
       new Put_Request_Extra (X_Change_Keyboard_Control_Request,  
                              To_Raw);

    procedure Put_X_Change_Keyboard_Mapping_Request is  
       new Put_Request_Extra (X_Change_Keyboard_Mapping_Request,  
                              To_Raw);

    procedure Put_X_Change_Pointer_Control_Request is  
       new Put_Request (X_Change_Pointer_Control_Request,  
                        To_Raw);

    procedure Put_X_Change_Property_Request is  
       new Put_Request_Extra (X_Change_Property_Request,  
                              To_Raw);

    procedure Put_X_Change_Save_Set_Request is  
       new Put_Request (X_Change_Save_Set_Request,  
                        To_Raw);

    procedure Put_X_Change_Window_Attributes_Request is  
       new Put_Request_Extra (X_Change_Window_Attributes_Request,  
                              To_Raw);

    procedure Put_X_Circulate_Window_Request is  
       new Put_Request (X_Circulate_Window_Request,  
                        To_Raw);

    procedure Put_X_Clear_Area_Request is  
       new Put_Request (X_Clear_Area_Request,  
                        To_Raw);

    procedure Put_X_Close_Font_Request is  
       new Put_Request (X_Close_Font_Request,  
                        To_Raw);

    procedure Put_X_Configure_Window_Request is  
       new Put_Request_Extra (X_Configure_Window_Request,  
                              To_Raw);

    procedure Put_X_Convert_Selection_Request is  
       new Put_Request (X_Convert_Selection_Request,  
                        To_Raw);

    procedure Put_X_Copy_Area_Request is  
       new Put_Request (X_Copy_Area_Request,  
                        To_Raw);

    procedure Put_X_Copy_Colormap_And_Free_Request is  
       new Put_Request (X_Copy_Colormap_And_Free_Request,  
                        To_Raw);

    procedure Put_X_Copy_Gc_Request is  
       new Put_Request (X_Copy_Gc_Request,  
                        To_Raw);

    procedure Put_X_Copy_Plane_Request is  
       new Put_Request (X_Copy_Plane_Request,  
                        To_Raw);

    procedure Put_X_Create_Colormap_Request is  
       new Put_Request (X_Create_Colormap_Request,  
                        To_Raw);

    procedure Put_X_Create_Cursor_Request is  
       new Put_Request (X_Create_Cursor_Request,  
                        To_Raw);

    procedure Put_X_Create_Gc_Request is  
       new Put_Request_Extra (X_Create_Gc_Request,  
                              To_Raw);

    procedure Put_X_Create_Glyph_Cursor_Request is  
       new Put_Request (X_Create_Glyph_Cursor_Request,  
                        To_Raw);

    procedure Put_X_Create_Pixmap_Request is  
       new Put_Request (X_Create_Pixmap_Request,  
                        To_Raw);

    procedure Put_X_Create_Window_Request is  
       new Put_Request_Extra (X_Create_Window_Request,  
                              To_Raw);

    procedure Put_X_Delete_Property_Request is  
       new Put_Request (X_Delete_Property_Request,  
                        To_Raw);

    procedure Put_X_Destroy_Subwindows_Request is  
       new Put_Request (X_Destroy_Subwindows_Request,  
                        To_Raw);

    procedure Put_X_Destroy_Window_Request is  
       new Put_Request (X_Destroy_Window_Request,  
                        To_Raw);

    procedure Put_X_Fill_Poly_Request is  
       new Put_Request_Extra (X_Fill_Poly_Request,  
                              To_Raw);

    procedure Put_X_Fill_Poly_Request is  
       new Place_Reserved_Request (X_Fill_Poly_Request,  
                                   To_Raw);

    procedure Reserve_X_Fill_Poly_Request is  
       new Reserve_Request_Large_1d (X_Fill_Poly_Request,  
                                     X_Point,  
                                     S_Natural,  
                                     X_Point_Array,  
                                     To_Raw,  
                                     To_Raw);

    procedure Put_X_Force_Screen_Saver_Request is  
       new Put_Request (X_Force_Screen_Saver_Request,  
                        To_Raw);

    procedure Put_X_Free_Colormap_Request is  
       new Put_Request (X_Free_Colormap_Request,  
                        To_Raw);

    procedure Put_X_Free_Colors_Request is  
       new Put_Request_Extra (X_Free_Colors_Request,  
                              To_Raw);

    procedure Put_X_Free_Cursor_Request is  
       new Put_Request (X_Free_Cursor_Request,  
                        To_Raw);

    procedure Put_X_Free_Gc_Request is  
       new Put_Request (X_Free_Gc_Request,  
                        To_Raw);

    procedure Put_X_Free_Pixmap_Request is  
       new Put_Request (X_Free_Pixmap_Request,  
                        To_Raw);

    procedure Put_X_Get_Atom_Name_Request is  
       new Put_Request (X_Get_Atom_Name_Request,  
                        To_Raw);

    procedure Put_X_Get_Font_Path_Request is  
       new Put_Request (X_Get_Font_Path_Request,  
                        To_Raw);

    procedure Put_X_Get_Geometry_Request is  
       new Put_Request (X_Get_Geometry_Request,  
                        To_Raw);

    procedure Put_X_Get_Image_Request is  
       new Put_Request (X_Get_Image_Request,  
                        To_Raw);

    procedure Put_X_Get_Input_Focus_Request is  
       new Put_Request (X_Get_Input_Focus_Request,  
                        To_Raw);

    procedure Put_X_Get_Keyboard_Control_Request is  
       new Put_Request (X_Get_Keyboard_Control_Request,  
                        To_Raw);

    procedure Put_X_Get_Keyboard_Mapping_Request is  
       new Put_Request (X_Get_Keyboard_Mapping_Request,  
                        To_Raw);

    procedure Put_X_Get_Modifier_Mapping_Request is  
       new Put_Request (X_Get_Modifier_Mapping_Request,  
                        To_Raw);

    procedure Put_X_Get_Motion_Events_Request is  
       new Put_Request (X_Get_Motion_Events_Request,  
                        To_Raw);

    procedure Put_X_Get_Pointer_Control_Request is  
       new Put_Request (X_Get_Pointer_Control_Request,  
                        To_Raw);

    procedure Put_X_Get_Pointer_Mapping_Request is        new Put_Request (X_Get_Pointer_Mapping_Request,  
                        To_Raw);

    procedure Put_X_Get_Property_Request is  
       new Put_Request (X_Get_Property_Request,  
                        To_Raw);

    procedure Put_X_Get_Screen_Saver_Request is  
       new Put_Request (X_Get_Screen_Saver_Request,  
                        To_Raw);

    procedure Put_X_Get_Selection_Owner_Request is  
       new Put_Request (X_Get_Selection_Owner_Request,  
                        To_Raw);

    procedure Put_X_Get_Window_Attributes_Request is  
       new Put_Request (X_Get_Window_Attributes_Request,  
                        To_Raw);

    procedure Put_X_Grab_Button_Request is  
       new Put_Request (X_Grab_Button_Request,  
                        To_Raw);

    procedure Put_X_Grab_Key_Request is  
       new Put_Request (X_Grab_Key_Request,  
                        To_Raw);

    procedure Put_X_Grab_Keyboard_Request is  
       new Put_Request (X_Grab_Keyboard_Request,  
                        To_Raw);

    procedure Put_X_Grab_Pointer_Request is  
       new Put_Request (X_Grab_Pointer_Request,  
                        To_Raw);

    procedure Put_X_Grab_Server_Request is  
       new Put_Request (X_Grab_Server_Request,  
                        To_Raw);

    procedure Put_X_Image_Text16_Request is  
       new Put_Request_Extra (X_Image_Text16_Request,  
                              To_Raw);

    procedure Put_X_Image_Text8_Request is  
       new Put_Request_Extra (X_Image_Text8_Request,  
                              To_Raw);

    procedure Put_X_Install_Colormap_Request is  
       new Put_Request (X_Install_Colormap_Request,  
                        To_Raw);

    procedure Put_X_Intern_Atom_Request is  
       new Put_Request_Extra (X_Intern_Atom_Request,  
                              To_Raw);

    procedure Put_X_Kill_Client_Request is  
       new Put_Request (X_Kill_Client_Request,  
                        To_Raw);

    procedure Put_X_List_Extensions_Request is  
       new Put_Request (X_List_Extensions_Request,  
                        To_Raw);

    procedure Put_X_List_Fonts_Request is  
       new Put_Request_Extra (X_List_Fonts_Request,  
                              To_Raw);

    procedure Put_X_List_Fonts_With_Info_Request is  
       new Put_Request_Extra (X_List_Fonts_With_Info_Request,  
                              To_Raw);

    procedure Put_X_List_Hosts_Request is  
       new Put_Request (X_List_Hosts_Request,  
                        To_Raw);

    procedure Put_X_List_Installed_Colormaps_Request is  
       new Put_Request (X_List_Installed_Colormaps_Request,  
                        To_Raw);

    procedure Put_X_List_Properties_Request is  
       new Put_Request (X_List_Properties_Request,  
                        To_Raw);

    procedure Put_X_Lookup_Color_Request is  
       new Put_Request_Extra (X_Lookup_Color_Request,  
                              To_Raw);

    procedure Put_X_Map_Subwindows_Request is  
       new Put_Request (X_Map_Subwindows_Request,  
                        To_Raw);

    procedure Put_X_Map_Window_Request is  
       new Put_Request (X_Map_Window_Request,  
                        To_Raw);

    procedure Put_X_No_Operation_Request is  
       new Put_Request (X_No_Operation_Request,  
                        To_Raw);

    procedure Put_X_Open_Font_Request is  
       new Put_Request_Extra (X_Open_Font_Request,  
                              To_Raw);

    procedure Put_X_Poly_Arc_Request is  
       new Put_Request_Extra (X_Poly_Arc_Request,  
                              To_Raw);

    procedure Put_X_Poly_Fill_Arc_Request is  
       new Put_Request_Extra (X_Poly_Fill_Arc_Request,  
                              To_Raw);

    procedure Put_X_Poly_Fill_Arc_Request is  
       new Place_Reserved_Request (X_Poly_Fill_Arc_Request,  
                                   To_Raw);

    procedure Reserve_X_Poly_Fill_Arc_Request is  
       new Reserve_Request_Large_1d (X_Poly_Fill_Arc_Request,  
                                     X_Arc,  
                                     S_Natural,  
                                     X_Arc_Array,  
                                     To_Raw,  
                                     To_Raw);

    procedure Put_X_Poly_Fill_Rectangle_Request is  
       new Put_Request_Extra (X_Poly_Fill_Rectangle_Request,  
                              To_Raw);

    procedure Put_X_Poly_Fill_Rectangle_Request is  
       new Place_Reserved_Request (X_Poly_Fill_Rectangle_Request,  
                                   To_Raw);

    procedure Reserve_X_Poly_Fill_Rectangle_Request is  
       new Reserve_Request_Large_1d (X_Poly_Fill_Rectangle_Request,  
                                     X_Rectangle,  
                                     S_Natural,  
                                     X_Rectangle_Array,  
                                     To_Raw,  
                                     To_Raw);

    procedure Put_X_Poly_Line_Request is  
       new Put_Request_Extra (X_Poly_Line_Request,  
                              To_Raw);

    procedure Put_X_Poly_Line_Request is  
       new Place_Reserved_Request (X_Poly_Line_Request,  
                                   To_Raw);

    procedure Reserve_X_Poly_Line_Request is  
       new Reserve_Request_Large_1d (X_Poly_Line_Request,  
                                     X_Point,  
                                     S_Natural,  
                                     X_Point_Array,  
                                     To_Raw,  
                                     To_Raw);

    procedure Put_X_Poly_Point_Request is  
       new Put_Request_Extra (X_Poly_Point_Request,  
                              To_Raw);

    procedure Put_X_Poly_Point_Request is  
       new Place_Reserved_Request (X_Poly_Point_Request,  
                                   To_Raw);

    procedure Reserve_X_Poly_Point_Request is  
       new Reserve_Request_Large_1d (X_Poly_Point_Request,  
                                     X_Point,  
                                     S_Natural,  
                                     X_Point_Array,  
                                     To_Raw,  
                                     To_Raw);

    procedure Put_X_Poly_Rectangle_Request is  
       new Put_Request_Extra (X_Poly_Rectangle_Request,  
                              To_Raw);

    procedure Put_X_Poly_Rectangle_Request is  
       new Place_Reserved_Request (X_Poly_Rectangle_Request,  
                                   To_Raw);

    procedure Reserve_X_Poly_Rectangle_Request is  
       new Reserve_Request_Large_1d (X_Poly_Rectangle_Request,  
                                     X_Rectangle,  
                                     S_Natural,  
                                     X_Rectangle_Array,  
                                     To_Raw,  
                                     To_Raw);

    procedure Put_X_Poly_Segment_Request is  
       new Put_Request_Extra (X_Poly_Segment_Request,  
                              To_Raw);

    procedure Put_X_Poly_Segment_Request is  
       new Place_Reserved_Request (X_Poly_Segment_Request,  
                                   To_Raw);

    procedure Reserve_X_Poly_Segment_Request is  
       new Reserve_Request_Large_1d (X_Poly_Segment_Request,  
                                     X_Segment,  
                                     S_Natural,  
                                     X_Segment_Array,  
                                     To_Raw,  
                                     To_Raw);

    procedure Put_X_Poly_Text16_Request is  
       new Put_Request_Extra (X_Poly_Text16_Request,  
                              To_Raw);

    procedure Put_X_Poly_Text8_Request is  
       new Put_Request_Extra (X_Poly_Text8_Request,  
                              To_Raw);

    procedure Put_X_Put_Image_Request is  
       new Put_Request_Extra (X_Put_Image_Request,  
                              To_Raw);

    procedure Put_X_Query_Best_Size_Request is  
       new Put_Request (X_Query_Best_Size_Request,  
                        To_Raw);

    procedure Put_X_Query_Colors_Request is  
       new Put_Request_Extra (X_Query_Colors_Request,  
                              To_Raw);

    procedure Put_X_Query_Extension_Request is  
       new Put_Request_Extra (X_Query_Extension_Request,  
                              To_Raw);

    procedure Put_X_Query_Font_Request is  
       new Put_Request (X_Query_Font_Request,  
                        To_Raw);

    procedure Put_X_Query_Keymap_Request is  
       new Put_Request (X_Query_Keymap_Request,  
                        To_Raw);

    procedure Put_X_Query_Pointer_Request is  
       new Put_Request (X_Query_Pointer_Request,  
                        To_Raw);

    procedure Put_X_Query_Text_Extents_Request is  
       new Put_Request (X_Query_Text_Extents_Request,  
                        To_Raw);

    procedure Put_X_Query_Tree_Request is  
       new Put_Request (X_Query_Tree_Request,  
                        To_Raw);

    procedure Put_X_Recolor_Cursor_Request is  
       new Put_Request (X_Recolor_Cursor_Request,  
                        To_Raw);

    procedure Put_X_Reparent_Window_Request is  
       new Put_Request (X_Reparent_Window_Request,  
                        To_Raw);

    procedure Put_X_Rotate_Properties_Request is  
       new Put_Request (X_Rotate_Properties_Request,  
                        To_Raw);

    procedure Put_X_Send_Event_Request is  
       new Put_Request (X_Send_Event_Request,  
                        To_Raw);

    procedure Put_X_Set_Access_Control_Request is  
       new Put_Request (X_Set_Access_Control_Request,  
                        To_Raw);

    procedure Put_X_Set_Clip_Rectangles_Request is  
       new Put_Request (X_Set_Clip_Rectangles_Request,  
                        To_Raw);

    procedure Put_X_Set_Close_Down_Mode_Request is  
       new Put_Request (X_Set_Close_Down_Mode_Request,  
                        To_Raw);

    procedure Put_X_Set_Dashes_Request is  
       new Put_Request_Extra (X_Set_Dashes_Request,  
                              To_Raw);

    procedure Put_X_Set_Font_Path_Request is  
       new Put_Request_Extra (X_Set_Font_Path_Request,  
                              To_Raw);

    procedure Put_X_Set_Input_Focus_Request is  
       new Put_Request (X_Set_Input_Focus_Request,  
                        To_Raw);

    procedure Put_X_Set_Modifier_Mapping_Request is  
       new Put_Request_Extra (X_Set_Modifier_Mapping_Request,  
                              To_Raw);

    procedure Put_X_Set_Pointer_Mapping_Request is  
       new Put_Request_Extra (X_Set_Pointer_Mapping_Request,  
                              To_Raw);

    procedure Put_X_Set_Screen_Saver_Request is  
       new Put_Request (X_Set_Screen_Saver_Request,  
                        To_Raw);

    procedure Put_X_Set_Selection_Owner_Request is  
       new Put_Request (X_Set_Selection_Owner_Request,  
                        To_Raw);

    procedure Put_X_Store_Colors_Request is  
       new Put_Request_Extra (X_Store_Colors_Request,  
                              To_Raw);

    procedure Put_X_Store_Named_Color_Request is  
       new Put_Request_Extra (X_Store_Named_Color_Request,  
                              To_Raw);

    procedure Put_X_Translate_Coords_Request is  
       new Put_Request (X_Translate_Coords_Request,  
                        To_Raw);

    procedure Put_X_Ungrab_Button_Request is  
       new Put_Request (X_Ungrab_Button_Request,  
                        To_Raw);

    procedure Put_X_Ungrab_Key_Request is  
       new Put_Request (X_Ungrab_Key_Request,  
                        To_Raw);

    procedure Put_X_Ungrab_Keyboard_Request is  
       new Put_Request (X_Ungrab_Keyboard_Request,  
                        To_Raw);

    procedure Put_X_Ungrab_Pointer_Request is  
       new Put_Request (X_Ungrab_Pointer_Request,  
                        To_Raw);

    procedure Put_X_Ungrab_Server_Request is  
       new Put_Request (X_Ungrab_Server_Request,  
                        To_Raw);

    procedure Put_X_Uninstall_Colormap_Request is  
       new Put_Request (X_Uninstall_Colormap_Request,  
                        To_Raw);

    procedure Put_X_Unmap_Subwindows_Request is  
       new Put_Request (X_Unmap_Subwindows_Request,  
                        To_Raw);

    procedure Put_X_Unmap_Window_Request is  
       new Put_Request (X_Unmap_Window_Request,  
                        To_Raw);

    procedure Put_X_Warp_Pointer_Request is  
       new Put_Request (X_Warp_Pointer_Request,  
                        To_Raw);

--\x0c
    -- procedure Put_String is
    --    new Put_Small_Data_1d (Character,
    --                           Positive,
    --                           String,
    --                           To_Raw,
    --                           Original_Size => 1);

    -- procedure Put_String_Unaligned is
    --    new Put_Small_Data_1d_Unaligned (Character,
    --                                     Positive,
    --                                     String,
    --                                     To_Raw,
    --                                     Original_Size => 1);

    procedure Put_X_String is  
       new Put_Small_Data_1d (X_Character,  
                              S_Natural,  
                              X_String,  
                              To_Raw);

    procedure Put_X_String_Unaligned is  
       new Put_Small_Data_1d_Unaligned (X_Character,  
                                        S_Natural,  
                                        X_String,  
                                        To_Raw);

    procedure Put_X_String16 is  
       new Put_Small_Data_1d (X_Character16,  
                              S_Natural,  
                              X_String16,  
                              To_Raw);

    procedure Put_X_String16_Unaligned is  
       new Put_Small_Data_1d_Unaligned (X_Character16,  
                                        S_Natural,  
                                        X_String16,  
                                        To_Raw);

    procedure Put_X_Arc is  
       new Put_Data_Private (X_Arc,  
                             To_Raw);


    procedure Put_X_Arc_Array is  
       new Put_Large_Data_1d (X_Arc,  
                              S_Natural,  
                              X_Arc_Array,  
                              To_Raw);

    procedure Put_X_Atom_Array is  
       new Put_Large_Data_1d (X_Atom,  
                              S_Natural,  
                              X_Atom_Array,  
                              To_Raw);

    procedure Put_X_Color_Item is  
       new Put_Data_Private (X_Color_Item,  
                             To_Raw);

    procedure Put_X_Event_Mask is  
       new Put_Data_Private (X_Event_Mask,  
                             To_Raw);

    procedure Put_X_Id is  
       new Put_Data_Private (X_Id,  
                             To_Raw);

    procedure Put_X_Key_Code_Array is  
       new Put_Small_Data_1d (X_Key_Code,  
                              S_Natural,  
                              X_Key_Code_Array,  
                              To_Raw);

--/ if not TeleGen2_2d_Bug then

    procedure Put_X_Key_Sym_Array_2d is  
       new Put_Data_2d (X_Key_Sym,  
                        X_Key_Code,  
                        U_Char,  
                        X_Key_Sym_Array_2d,  
                        To_Raw,  
                        To_Raw);

--/ else
--//
--//     procedure Put_X_Key_Sym_Array_2d is
--//        new Put_Data_2d (X_Key_Sym,
--//                         Telegen2_2d_Bug,
--//                         U_Char,
--//                         X_Key_Sym_Array_2d,
--//                         To_Raw,
--//                         To_Raw);
--//
--/ end if;
    procedure Put_X_Led_Bits is  
       new Put_Data_Private (X_Led_Bits,  
                             To_Raw);

    procedure Put_X_Modifier_Key_Code_Array is  
       new Put_Large_Data_1d (X_Modifier_Key_Code_Sub_Array,  
                              S_Natural,  
                              X_Modifier_Key_Code_Array,  
                              To_Raw);


    procedure Put_X_Pixel is  
       new Put_Data_Private (X_Pixel,  
                             To_Raw);

    procedure Put_X_Pixel_Array is  
       new Put_Large_Data_1d (X_Pixel,  
                              S_Natural,  
                              X_Pixel_Array,  
                              To_Raw);

    procedure Put_X_Plane_Mask is  
       new Put_Data_Private (X_Plane_Mask,  
                             To_Raw);

    procedure Put_X_Point is  
       new Put_Data_Private (X_Point,  
                             To_Raw);


    procedure Put_X_Point_Array is  
       new Put_Large_Data_1d (X_Point,  
                              S_Natural,  
                              X_Point_Array,  
                              To_Raw);

    procedure Put_X_Rectangle is  
       new Put_Data_Private (X_Rectangle,  
                             To_Raw);

    procedure Put_X_Rectangle_Array is  
       new Put_Large_Data_1d (X_Rectangle,  
                              S_Natural,  
                              X_Rectangle_Array,  
                              To_Raw);

    procedure Put_X_Segment is  
       new Put_Data_Private (X_Segment,  
                             To_Raw);

    procedure Put_X_Segment_Array      is  
       new Put_Large_Data_1d (X_Segment,  
                              S_Natural,  
                              X_Segment_Array,  
                              To_Raw);  
    procedure Put_X_Text_Elt_Unaligned is  
       new Put_Data_Private_Unaligned (X_Text_Elt,  
                                       To_Raw);

    procedure Put_S_Long is  
       new Put_Data_Private (S_Long,  
                             To_Raw);

    procedure Put_U_Char_Array is  
       new Put_Small_Data_1d (U_Char,  
                              S_Natural,  
                              U_Char_Array,  
                              To_Raw);

    procedure Put_U_Char_Array_Unaligned is  
       new Put_Small_Data_1d_Unaligned (U_Char,  
                                        S_Natural,  
                                        U_Char_Array,  
                                        To_Raw);

--\x0c
    --     procedure Put_X_Raw_Data_Array (display   : X_Display;
--                                     Extra : X_Raw_Data_Array)
--         renames Xlbmp_Put.Put_Data_Raw;
-- ------------------------------------------------------------------------------
-- -- Put Extra data into the Display buffer; we are appending to a request begun
-- -- with Put_Request.  The Extra data is padded with 0's until it has a length
-- -- rem 4 = 0.  We assume that the data fits into the Display's buffer; this will
-- -- be true if Put_Request was supplied with the correct Extra value.
-- ------------------------------------------------------------------------------

--\x0c
end Xlbip_Put_Request;  

E3 Meta Data

    nblk1=1e
    nid=0
    hdr6=3c
        [0x00] rec0=2a rec1=00 rec2=01 rec3=084
        [0x01] rec0=11 rec1=00 rec2=02 rec3=08c
        [0x02] rec0=19 rec1=00 rec2=03 rec3=048
        [0x03] rec0=1a rec1=00 rec2=04 rec3=00e
        [0x04] rec0=1b rec1=00 rec2=05 rec3=05c
        [0x05] rec0=1d rec1=00 rec2=06 rec3=016
        [0x06] rec0=1c rec1=00 rec2=07 rec3=008
        [0x07] rec0=1a rec1=00 rec2=08 rec3=034
        [0x08] rec0=1d rec1=00 rec2=09 rec3=040
        [0x09] rec0=1c rec1=00 rec2=0a rec3=002
        [0x0a] rec0=1c rec1=00 rec2=0b rec3=01c
        [0x0b] rec0=1c rec1=00 rec2=0c rec3=036
        [0x0c] rec0=1c rec1=00 rec2=0d rec3=016
        [0x0d] rec0=1c rec1=00 rec2=0e rec3=032
        [0x0e] rec0=16 rec1=00 rec2=0f rec3=042
        [0x0f] rec0=19 rec1=00 rec2=10 rec3=032
        [0x10] rec0=17 rec1=00 rec2=11 rec3=02c
        [0x11] rec0=17 rec1=00 rec2=12 rec3=044
        [0x12] rec0=1c rec1=00 rec2=13 rec3=040
        [0x13] rec0=1e rec1=00 rec2=14 rec3=02c
        [0x14] rec0=1a rec1=00 rec2=15 rec3=02a
        [0x15] rec0=1b rec1=00 rec2=16 rec3=036
        [0x16] rec0=1c rec1=00 rec2=17 rec3=062
        [0x17] rec0=1c rec1=00 rec2=18 rec3=02e
        [0x18] rec0=1a rec1=00 rec2=19 rec3=058
        [0x19] rec0=1f rec1=00 rec2=1a rec3=04a
        [0x1a] rec0=20 rec1=00 rec2=1b rec3=006
        [0x1b] rec0=1d rec1=00 rec2=1c rec3=022
        [0x1c] rec0=1b rec1=00 rec2=1d rec3=066
        [0x1d] rec0=11 rec1=00 rec2=1e rec3=000
    tail 0x215009584819780c3b226 0x42a00088462063203