DataMuseum.dk

top - download

    Length: 2662 (0xa66)
    Types: TextFile
    Names: »B«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

separate (Parse1)
procedure Parse_Les_Ordres (Ok : out Boolean) is
    Ok1 : Boolean := True;
begin
    Ok := True;
    Text_Io.Put_Line ("parse_les_ordres");
    while Lex2.Get_Token /= L_Puis and Lex2.Get_Token /= L_Fin loop  
        case Lex2.Get_Token is
            when L_Dans =>
                Parse_Dans (Ok1);
                if not Ok1 then
                    Parse_Error (Dans_Follow);
                end if;
            when L_Tantque =>
                Parse_Tant_Que (Ok1);
                if not Ok1 then
                    Parse_Error (Tant_Que_Follow);
                end if;
            when L_Attendre =>
                Parse_Attendre (Ok1);
                if not Ok1 then
                    Parse_Error (Attendre_Follow);
                end if;
            when L_Pour =>
                Parse_Pour (Ok1);
                if not Ok1 then
                    Parse_Error (Pour_Follow);
                end if;
            when L_Repeter =>
                Parse_Repeter (Ok1);
                if not Ok1 then
                    Parse_Error (Repeter_Follow);
                end if;
            when L_Debut =>
                Parse_Debut (Ok1);
                if not Ok1 then
                    Parse_Error (Debut_Follow);
                end if;
            when L_Activer =>
                Parse_Activer (Ok1);
                if not Ok1 then
                    Parse_Error (Activer_Follow);
                end if;
            when L_Desact =>
                Parse_Desactiver (Ok1);
                if not Ok1 then
                    Parse_Error (Desactiver_Follow);
                end if;
            when L_Changer =>
                Parse_Changer (Ok1);  
                if not Ok1 then
                    Parse_Error (Changer_Follow);
                end if;
            when L_Evoluer =>
                Parse_Evoluer (Ok1);
                if not Ok1 then
                    Parse_Error (Evoluer_Follow);
                end if;
            when L_Id =>
                Parse_Affectation (Ok1);  
                if not Ok1 then
                    Parse_Error (Affectation_Follow);
                end if;
            when L_Appel_Effet =>
                Parse_Appel_Effet (Ok1);
                if not Ok1 then
                    Parse_Error (Appel_Effet_Follow);
                end if;
            when L_Lancer_Scene =>
                Parse_Appel_Scene (Ok1);  
                if not Ok1 then
                    Parse_Error (Appel_Scene_Follow);
                end if;
            when others =>
                Ok := False;
                exit;
        end case;
    end loop;
end Parse_Les_Ordres;