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

⟦66d39d4cf⟧ Ada Source

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

Derivation

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

with Ascan_Dfa;
use Ascan_Dfa;
package body Ascan_Dfa is
    function Yytext return String is
        I : Integer;
        Str_Loc : Integer := 1;
        Buffer : String (1 .. 1024);
        Empty_String : constant String := "";
    begin
        -- find end of buffer
        I := Yytext_Ptr;
        while (Yy_Ch_Buf (I) /= Ascii.Nul) loop
            Buffer (Str_Loc) := Yy_Ch_Buf (I);
            I := I + 1;
            Str_Loc := Str_Loc + 1;
        end loop;
--    return yy_ch_buf(yytext_ptr.. i - 1);

        if (Str_Loc < 2) then
            return Empty_String;
        else
            return Buffer (1 .. Str_Loc - 1);
        end if;

    end Yytext;

-- returns the length of the matched text
    function Yylength return Integer is
    begin
        return Yy_Cp - Yy_Bp;
    end Yylength;

-- done after the current pattern has been matched and before the
-- corresponding action - sets up yytext

    procedure Yy_Do_Before_Action is
    begin
        Yytext_Ptr := Yy_Bp;
        Yy_Hold_Char := Yy_Ch_Buf (Yy_Cp);
        Yy_Ch_Buf (Yy_Cp) := Ascii.Nul;
        Yy_C_Buf_P := Yy_Cp;
    end Yy_Do_Before_Action;

end Ascan_Dfa;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=25 rec1=00 rec2=01 rec3=034
        [0x01] rec0=09 rec1=00 rec2=02 rec3=001
    tail 0x2172a3eb484a64e6fb123 0x42a00088462060003