|
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: 6144 (0x1800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Vstring_Case, seg_005834
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Vstring_Type;
use Vstring_Type;
package Vstring_Case is
------------------------------------------------------------------------------
-- VString Case Conversion Routines
------------------------------------------------------------------------------
-- Copyright 1988 - 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.
------------------------------------------------------------------------------
type Character_Array is array (Character) of Character;
Uc_Char : constant Character_Array :=
Character_Array'(Ascii.Nul, Ascii.Soh, Ascii.Stx, Ascii.Etx, Ascii.Eot,
Ascii.Enq, Ascii.Ack, Ascii.Bel, Ascii.Bs, Ascii.Ht,
Ascii.Lf, Ascii.Vt, Ascii.Ff, Ascii.Cr, Ascii.So,
Ascii.Si, Ascii.Dle, Ascii.Dc1, Ascii.Dc2, Ascii.Dc3,
Ascii.Dc4, Ascii.Nak, Ascii.Syn, Ascii.Etb, Ascii.Can,
Ascii.Em, Ascii.Sub, Ascii.Esc, Ascii.Fs, Ascii.Gs,
Ascii.Rs, Ascii.Us, ' ', '!', '"', '#', '$', '%', '&',
''', '(', ')', '*', '+', ',', '-', '.', '/', '0',
'1', '2', '3', '4', '5', '6', '7', '8', '9', ':',
';', '<', '=', '>', '?', '@', 'A', 'B', 'C', 'D',
'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N',
'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X',
'Y', 'Z', '[', '\', ']', '^', '_', '`', 'A', 'B',
'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L',
'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V',
'W', 'X', 'Y', 'Z', '{', '|', '}', '~', Ascii.Del);
Lc_Char : constant Character_Array :=
Character_Array'(Ascii.Nul, Ascii.Soh, Ascii.Stx, Ascii.Etx, Ascii.Eot,
Ascii.Enq, Ascii.Ack, Ascii.Bel, Ascii.Bs, Ascii.Ht,
Ascii.Lf, Ascii.Vt, Ascii.Ff, Ascii.Cr, Ascii.So,
Ascii.Si, Ascii.Dle, Ascii.Dc1, Ascii.Dc2, Ascii.Dc3,
Ascii.Dc4, Ascii.Nak, Ascii.Syn, Ascii.Etb, Ascii.Can,
Ascii.Em, Ascii.Sub, Ascii.Esc, Ascii.Fs, Ascii.Gs,
Ascii.Rs, Ascii.Us, ' ', '!', '"', '#', '$', '%', '&',
''', '(', ')', '*', '+', ',', '-', '.', '/', '0',
'1', '2', '3', '4', '5', '6', '7', '8', '9', ':',
';', '<', '=', '>', '?', '@', 'a', 'b', 'c', 'd',
'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n',
'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x',
'y', 'z', '[', '\', ']', '^', '_', '`', 'a', 'b',
'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l',
'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v',
'w', 'x', 'y', 'z', '{', '|', '}', '~', Ascii.Del);
procedure Upper_Case (Vstr : in out Vstring_Data);
procedure Upper_Case (Vstr : Vstring);
procedure Lower_Case (Vstr : in out Vstring_Data);
procedure Lower_Case (Vstr : Vstring);
----Called to change all alphabeticals to upper/lower case within a string.
function Upper_Case (Str : E_String) return E_String;
procedure Upper_Case (Str : in out E_String);
function Lower_Case (Str : E_String) return E_String;
procedure Lower_Case (Str : in out E_String);
----Called to change all alphabeticals to upper/lower case within a string.
end Vstring_Case;
nblk1=5
nid=0
hdr6=a
[0x00] rec0=16 rec1=00 rec2=01 rec3=060
[0x01] rec0=10 rec1=00 rec2=02 rec3=012
[0x02] rec0=0e rec1=00 rec2=03 rec3=068
[0x03] rec0=0d rec1=00 rec2=04 rec3=082
[0x04] rec0=10 rec1=00 rec2=05 rec3=000
tail 0x21700ab3881978ef9e26b 0x42a00088462063203