|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 7168 (0x1c00) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Xlbmp_Generic_Converters, seg_012394
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Xlbmt_Network_Types; use Xlbmt_Network_Types; package Xlbmp_Generic_Converters is ------------------------------------------------------------------------------ -- X Library Machine Procedures -- -- Xlbmp_Generic_Converters - Machine/Compiler dependent conversions to/from -- system data types. ------------------------------------------------------------------------------ -- 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 ------------------------------------------------------------------------------ -- Generic converters to the X_Raw_Data_Array type. -- -- These take the compiler/machine specific steps that are necessary in order -- to convert a value of some type into an instance of the X_Raw_Data_Array -- type. E.g. with array types we make sure that only the data portion of -- the array is converted and not, for instance, the dope/array-index -- information. ------------------------------------------------------------------------------ generic type Original is (<>); procedure Convert_Discrete_To_Raw (Raw : out X_Raw_Data_Array; Orig : Original); generic type Original is private; procedure Convert_Private_To_Raw (Raw : out X_Raw_Data_Array; Orig : Original); [declaration] generic type Original is private; type Index is (<>); type Original_Array is array (Index range <>) of Original; procedure Convert_Array_To_Raw (Raw : out X_Raw_Data_Array; Orig : Original_Array); generic type Original is private; type Index1 is (<>); type Index2 is (<>); type Original_Array is array (Index1 range <>, Index2 range <>) of Original; procedure Convert_2d_Array_To_Raw (Raw : out X_Raw_Data_Array; Orig : Original_Array); ------------------------------------------------------------------------------ -- Generic converters from the X_Raw_Data_Array type. -- -- These take the compiler/machine specific steps that are necessary in order -- to convert an X_Raw_Data_Array value into an instance of the Original -- type. E.g. with array types we make sure that the converted information -- occupies only the data portion of the array after conversion and not, for -- instance, the dope/array-index portion. ------------------------------------------------------------------------------ generic type Original is (<>); procedure Convert_Raw_To_Discrete (Orig : out Original; Raw : X_Raw_Data_Array); generic type Original is private; procedure Convert_Raw_To_Private (Orig : out Original; Raw : X_Raw_Data_Array); generic type Original is private; type Index is (<>); type Original_Array is array (Index range <>) of Original; procedure Convert_Raw_To_Array (Orig : out Original_Array; Raw : X_Raw_Data_Array); ----Convert raw data into an array. generic type Original is private; type Index1 is (<>); type Index2 is (<>); type Original_Array is array (Index1 range <>, Index2 range <>) of Original; procedure Convert_Raw_To_2d_Array (Orig : out Original_Array; Raw : X_Raw_Data_Array); end Xlbmp_Generic_Converters;
nblk1=6 nid=0 hdr6=c [0x00] rec0=16 rec1=00 rec2=01 rec3=05c [0x01] rec0=12 rec1=00 rec2=02 rec3=008 [0x02] rec0=1a rec1=00 rec2=03 rec3=00c [0x03] rec0=00 rec1=00 rec2=06 rec3=078 [0x04] rec0=16 rec1=00 rec2=04 rec3=04c [0x05] rec0=15 rec1=00 rec2=05 rec3=000 tail 0x2150d72e482a774db8c99 0x42a00088462063203