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

⟦7c2bad7d1⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Letter_Utilities, seg_031989

Derivation

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

package body Letter_Utilities is
    type Lower_Upper_Tab is array ('a' .. 'z') of Character;
    type Upper_Lower_Tab is array ('A' .. 'Z') of Character;


    function Convert_Upper_To_Lower (Car : Character) return Character is

        Upper_To_Lower_Convert_Tab : constant Upper_Lower_Tab :=
           ('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');
    begin
        if Car in 'A' .. 'Z' then
            return Upper_To_Lower_Convert_Tab (Car);
        else
            return Car;
        end if;
    end Convert_Upper_To_Lower;

    function Convert_Lower_To_Upper (Car : Character) return Character is
        Lower_To_Upper_Convert_Tab : constant Lower_Upper_Tab :=
           ('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');
    begin
        if Car in 'A' .. 'Z' then
            return Lower_To_Upper_Convert_Tab (Car);
        else
            return Car;
        end if;
    end Convert_Lower_To_Upper;

end Letter_Utilities;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=19 rec1=00 rec2=01 rec3=03a
        [0x01] rec0=08 rec1=00 rec2=02 rec3=001
    tail 0x2172bbf3684c13c18af45 0x42a00088462060003