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

⟦3a4e5afb5⟧ TextFile

    Length: 1459 (0x5b3)
    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_Appel return Boolean is

    function Parse_Parametre return Boolean;

    function Parse_Parametre_1 return Boolean is
    begin
        if Token.Object'Pos (Lex.Lex_Get_Token) =
           Token.Object'Pos (Token.L_Virgule) then
            Lex.Lex_Next;
            if Token.Object'Pos (Lex.Lex_Get_Token) =
               Token.Object'Pos (Token.L_Parenthesed) then
                return False;
            end if;
            return Parse_Parametre;
        else
            return True;
        end if;
    end Parse_Parametre_1;

    function Parse_Parametre return Boolean is
    begin
        if Parse_Operation then
            return Parse_Parametre_1;
        else
            return False;
        end if;
    end Parse_Parametre;

begin
    if Token.Object'Pos (Lex.Lex_Get_Token) =
       Token.Object'Pos (Token.L_Parentheseg) then
        Lex.Lex_Next;
        if Parse_Parametre 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 ("oubli de parenthese droite dans experience");
                return False;
            end if;
        else
            Text_Io.Put_Line ("Erreur dans les parametres");
            return False;
        end if;
    else
        return True;
    end if;

end Parse_Liste_Param_Appel;