|
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: 10240 (0x2800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Xlbp_U_Char_Converters, seg_004f42
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Xlbt_Arithmetic;
use Xlbt_Arithmetic;
with Xlbt_Basic;
use Xlbt_Basic;
with Xlbt_Hint;
use Xlbt_Hint;
with Xlbit_Hint2;
use Xlbit_Hint2;
with Xlbt_String;
use Xlbt_String;
with Xlbt_String16;
use Xlbt_String16;
with Xlbp_U_Char_Generics;
use Xlbp_U_Char_Generics;
package Xlbp_U_Char_Converters is
------------------------------------------------------------------------------
-- X Library Basic Converters
--
-- Xlbp_U_Char_Converters - Conversion to/from U_Char_Array.
------------------------------------------------------------------------------
-- Copyright 1990 - 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
------------------------------------------------------------------------------
-- X_Atom
------------------------------------------------------------------------------
procedure From_Uca is
new Convert_Uca_To_Array (X_Atom,
S_Natural,
X_Atom_Array);
procedure To_Uca is new Convert_Array_To_Uca (X_Atom,
S_Natural,
X_Atom_Array);
------------------------------------------------------------------------------
-- X_Icon_Size
------------------------------------------------------------------------------
procedure From_Uca is new Convert_Uca_To_Array (X_Icon_Size,
S_Natural,
X_Icon_Size_Array);
procedure To_Uca is new Convert_Array_To_Uca (X_Icon_Size,
S_Natural,
X_Icon_Size_Array);
------------------------------------------------------------------------------
-- X_Size_Hints_Protocol
------------------------------------------------------------------------------
procedure To_Uca is new Convert_Private_To_Uca (X_Size_Hints_Protocol);
procedure From_Uca is new Convert_Uca_To_Private (X_Size_Hints_Protocol);
------------------------------------------------------------------------------
-- X_Standard_Colormap
------------------------------------------------------------------------------
procedure From_Uca is
new Convert_Uca_To_Private (X_Standard_Colormap);
procedure To_Uca is
new Convert_Array_To_Uca (X_Standard_Colormap,
S_Natural,
X_Standard_Colormap_Array);
------------------------------------------------------------------------------
-- X_Window
------------------------------------------------------------------------------
procedure To_Uca is new Convert_Private_To_Uca (X_Window);
procedure From_Uca is new Convert_Uca_To_Private (X_Window);
procedure To_Uca is new Convert_Array_To_Uca (X_Window,
S_Natural,
X_Window_Array);
procedure From_Uca is new Convert_Uca_To_Array (X_Window,
S_Natural,
X_Window_Array);
------------------------------------------------------------------------------
-- X_Wm_Hints
------------------------------------------------------------------------------
procedure To_Uca is new Convert_Private_To_Uca (X_Wm_Hints);
procedure From_Uca is new Convert_Uca_To_Private (X_Wm_Hints);
------------------------------------------------------------------------------
-- S_Char
------------------------------------------------------------------------------
procedure To_Uca is
new Convert_Discrete_To_Uca (S_Char);
procedure From_Uca is
new Convert_Uca_To_Discrete (S_Char);
------------------------------------------------------------------------------
-- S_Short
------------------------------------------------------------------------------
procedure To_Uca is
new Convert_Discrete_To_Uca (S_Short);
procedure From_Uca is
new Convert_Uca_To_Discrete (S_Short);
------------------------------------------------------------------------------
-- S_Long
------------------------------------------------------------------------------
procedure To_Uca is
new Convert_Discrete_To_Uca (S_Long);
procedure From_Uca is
new Convert_Uca_To_Discrete (S_Long);
------------------------------------------------------------------------------
-- U_Short
------------------------------------------------------------------------------
procedure To_Uca is
new Convert_Discrete_To_Uca (U_Short);
procedure From_Uca is
new Convert_Uca_To_Discrete (U_Short);
--\x0c
------------------------------------------------------------------------------
-- String
------------------------------------------------------------------------------
type U_Character_Array is array (U_Char) of Character;
procedure To_Uca (Uca : out U_Char_Array;
Str : String);
----Take a String and return the corresponding U_Char_Array.
procedure From_Uca (Str : out String;
Uca : U_Char_Array);
----Take a UCA and return the corresponding String. Chops each
-- raw datum down to 7 bits as the conversion is made.
procedure From_Uca (Str : out String;
Uca : U_Char_Array;
Trans : U_Character_Array);
----Take a U_Char_Array and translate each character in it into a 7-bit
-- character and return the translated string.
------------------------------------------------------------------------------
-- X_String
------------------------------------------------------------------------------
procedure From_Uca is
new Convert_Uca_To_Array (X_Character,
S_Natural,
X_String);
procedure To_Uca is
new Convert_Array_To_Uca (X_Character,
S_Natural,
X_String);
------------------------------------------------------------------------------
-- X_String16
------------------------------------------------------------------------------
procedure From_Uca is
new Convert_Uca_To_Array (X_Character16,
S_Natural,
X_String16);
procedure To_Uca is
new Convert_Array_To_Uca (X_Character16,
S_Natural,
X_String16);
end Xlbp_U_Char_Converters;
nblk1=9
nid=0
hdr6=12
[0x00] rec0=1f rec1=00 rec2=01 rec3=05e
[0x01] rec0=13 rec1=00 rec2=02 rec3=02a
[0x02] rec0=15 rec1=00 rec2=03 rec3=018
[0x03] rec0=19 rec1=00 rec2=04 rec3=032
[0x04] rec0=17 rec1=00 rec2=05 rec3=048
[0x05] rec0=1d rec1=00 rec2=06 rec3=05a
[0x06] rec0=19 rec1=00 rec2=07 rec3=062
[0x07] rec0=1a rec1=00 rec2=08 rec3=04e
[0x08] rec0=04 rec1=00 rec2=09 rec3=000
tail 0x2150095bc8197818c589b 0x42a00088462063203