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

⟦484e5f3c6⟧ Ada Source

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

Derivation

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

with Text_Io, Display;

package body Filtre_D_Entree is
    Anticipation : array (1 .. 2) of Character;
    Compte : Natural := 0;

    procedure Entrer (L_Element : out Character) is
    begin
        if Text_Io.End_Of_Line then
            L_Element := Termine_Ligne;
        else
            Text_Io.Get (L_Element);
        end if;
    exception
        when others =>
            Text_Io.Put_Line ("Erreur");
    end Entrer;

    procedure Enter (An_Instruction : out String; Instr_Len : out Natural) is
    begin
        Display.Read_Player (An_Instruction, Instr_Len);
    end Enter;

    procedure Purger is
    begin
        Compte := 0;
    end Purger;

    procedure File_Entrer (L_Element : out Character) is
    begin
        if Compte = 0 then
            if Text_Io.End_Of_Line then
                L_Element := Termine_Ligne;
                if Text_Io.End_Of_Page then
                    Anticipation (1) := Termine_Page;
                    Compte := 1;
                    if Text_Io.End_Of_File then
                        Anticipation (2) := Termine_Fichier;
                        Compte := 2;
                    else
                        Text_Io.Skip_Page;
                    end if;
                else
                    Text_Io.Skip_Line;
                end if;
            else
                Text_Io.Get (L_Element);
            end if;
        else
            L_Element := Anticipation (1);
            if Anticipation (1) /= Termine_Fichier then
                Anticipation (1) := Anticipation (2);
                Compte := Compte - 1;
            end if;
        end if;
    end File_Entrer;

end Filtre_D_Entree;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=25 rec1=00 rec2=01 rec3=008
        [0x01] rec0=18 rec1=00 rec2=02 rec3=001
    tail 0x215447d1286544f187975 0x42a00088462060003