DataMuseum.dk

top - metrics - download

    Length: 1459 (0x5b3)
    Types: TextFile
    Names: »B«

└─⟦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;