DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ B T

⟦a3a649559⟧ TextFile

    Length: 1505 (0x5e1)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 

TextFile

separate (Syntaxe_1)
function Parse_Liste_Param_Formel return Boolean is

    function Parse_Param_Formel return Boolean is
        Ok : Boolean := True;
    begin
        if Token.Object'Pos (Lex.Lex_Get_Token) =
           Token.Object'Pos (Token.L_Id) then
            Lex.Lex_Next;
            while (Token.Object'Pos (Lex.Lex_Get_Token) =
                   Token.Object'Pos (Token.L_Virgule)) and Ok = True loop
                Lex.Lex_Next;
                if Token.Object'Pos (Lex.Lex_Get_Token) =
                   Token.Object'Pos (Token.L_Id) then
                    Lex.Lex_Next;
                else
                    Ok := False;
                end if;
            end loop;
        else
            Ok := False;
        end if;
        return Ok;
    end Parse_Param_Formel;


begin
    if Token.Object'Pos (Lex.Lex_Get_Token) =
       Token.Object'Pos (Token.L_Parentheseg) then
        Lex.Lex_Next;
        if Parse_Param_Formel then
            if Token.Object'Pos (Lex.Lex_Get_Token) =
               Token.Object'Pos (Token.L_Parenthesed) then
                Lex.Lex_Next;
                return True;
            else
                Text_Io.Put_Line
                   ("manque parenthese droite dans parametres Experience");
                return False;
            end if;
        else
            Text_Io.Put_Line ("Erreur dans les parametres experience");
            return False;
        end if;
    else
        return True;
    end if;

end Parse_Liste_Param_Formel;