DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 2487 (0x9b7) Types: TextFile Names: »B«
└─⟦85b835f43⟧ Bits:30000549 8mm tape, Rational 1000, Xlib rev 6.00 └─ ⟦0c20f784e⟧ »DATA« └─⟦1abbe589f⟧ └─⟦059497ac5⟧ └─⟦this⟧
with Unchecked_Deallocation; with Xlbt_Arithmetic; use Xlbt_Arithmetic; with Xlbt_String; use Xlbt_String; with Xlbt_String16; use Xlbt_String16; package body Xlbt_Text3 is ------------------------------------------------------------------------------ -- X Library Text Drawing - Full Interface -- -- Xlbt_Text3 - Types dealing with drawn text ------------------------------------------------------------------------------ -- 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. ------------------------------------------------------------------------------ procedure Heap_Free_X_Text_Item_List is new Unchecked_Deallocation (X_Text_Item_Array, X_Text_Item_List); procedure Heap_Free_X_Text_Item16_List is new Unchecked_Deallocation (X_Text_Item16_Array, X_Text_Item16_List); --\f procedure Free_X_Text_Item_List (List : in out X_Text_Item_List) is begin for I in List'Range loop Free_X_String_Pointer (List (I).Chars); end loop; Heap_Free_X_Text_Item_List (List); end Free_X_Text_Item_List; --\f procedure Free_X_Text_Item16_List (List : in out X_Text_Item16_List) is begin for I in List'Range loop Free_X_String16_Pointer (List (I).Chars); end loop; Heap_Free_X_Text_Item16_List (List); end Free_X_Text_Item16_List; --\f end Xlbt_Text3;