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

⟦298020927⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Pieces, seg_0497f3

Derivation

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

with Lex, Token_Pkg, Error, Structures, Bounded_String, String_Utilities;
use Token_Pkg;
package body Pieces is
------------------------------------------------------------------------
-- <UNIT>        Pieces
------------------------------------------------------------------------
--
-- <DESCRIPTION>    This package defines an operation for parsing the
--                  grammatical expresssion : <des pieces>
--
-- <AUTHOR>         Barthe Raphael, Beck Didier, Kempe Laurent
-- <VERSION>        1.0
-- <DATE>           16-Jan-95
-- <MODIFY>         16-Jan-95
--
-- <PKG USED>       LEX, Token_Pkg, Error
--
------------------------------------------------------------------------

    procedure Parse (Success : in out Boolean) is
------------------------------------------------------------------------
-- <SUBPROGRAM>
-- <UNIT>        Parse
--
-- <DESCRIPTION> Try to parse <des pieces> and return if it was a success
--               or not.
--
-- <EXCEPTIONS>  Nothing
--
------------------------------------------------------------------------
        Ok : Boolean := True;
        Found : Boolean;
    begin

        Structures.Parse (Ok);
        Success := Success and Ok;
        Liste := Structures.Liste;

        if Lex.Currenttoken_Is (T_Piece_Courante) then
            Lex.Next;
            if Lex.Currenttoken_Is (T_Vaut) then
                Lex.Next;
                if Lex.Currenttoken_Is (T_Ident) then
                    Struct_Component.Is_Inside
                       (String_Utilities.Upper_Case (Lex.Image),
                        Liste, Piece_Courante, Found);
                    if not (Found) then
                        Error.Append (" : Piece inconnue ! ");  
                    end if;
                    Lex.Next;
                else
                    Success := False;
                    Error.Append (" : Identificateur attendu !");
                end if;
            else
                Success := False;
                Error.Append (" : Mot Cle 'Vaut' attendu !");
            end if;
        else
            Success := False;
            Error.Append (" : Il manque la definition de la piece courante !");
        end if;

    end Parse;

end Pieces;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=1d rec1=00 rec2=01 rec3=00e
        [0x01] rec0=00 rec1=00 rec2=02 rec3=022
        [0x02] rec0=1c rec1=00 rec2=04 rec3=022
        [0x03] rec0=0b rec1=00 rec2=03 rec3=000
    tail 0x2174de4ba865e68f42e02 0x42a00088462060003