Informační tok Funkční structura Datová struktura ER model Modulová struktura Typová struktura Relační model Dokumentace


[Celkový datový model] [Funkce] [Externí rohraní] [Stavové diagramy] [Datové elementy] [Entity] [Relace]
[Databáze] [Události] [Materiály] [Generovací funkce] [Vyhodnocovací funkce] [Konfigurace] [Uživatelé] [Projekt] [Home]


Vyhodnocovací funkce
GenSTDText
(OLE Functions for MS Word)

Vytvořeno: 12-08-1995 17:42:33
Poslední změna: 11-28-2002 09:49:58
Outputs the texts describing a state transition diagram and its elements.
Modul

Module: OLE Functions for MS Word

Zdrojový kód:

PROCEDURE GenSTDText(name$)
BEGIN
    FOR Function WHERE Name = name$ DO
        DiagName$= Boxname;
        FOREACH Statenode WHERE Function = name$ ORDER BY State DO
            FOR State WHERE Name = State AND
                            Function = name$ DO
                IF Text <> "" THEN
                    CALL GenSTDTitle(DiagName$);
                    IF Isfinal = 0 THEN
                      Title$ = "Stav";
                    ELSE
                      Title$ = "Konečný stav";
                    END
                    FOR Function WHERE Name = name$ AND Creationstate = State.Name DO
                        Title$ = "Počáteční stav";
                    END
                    CALL GenDiagHeader(Title$, CONV$(State.Boxname));
                    PRINT Text;
                END
            END
        END
        FOREACH Transitionlink WHERE Function = name$ DO
            FOR Transition WHERE Function = Transitionlink.Function AND
                                 Sourcestate = Transitionlink.Sourcestate AND
                                 Name = Transitionlink.Transition DO
                IF Text <> "" THEN
                    first%=1;
                    CALL GenSTDTitle(DiagName$);
                    FOREACH Combinationpart WHERE Function = Transitionlink.Function AND
                                                  Sourcestate = Transitionlink.Sourcestate AND
                                                  Transition = Transitionlink.Transition
                                                  DO
                        FOR State AS Source WHERE Name = Sourcestate DO
                            FOR State AS Target WHERE Name = Targetstate DO
                                FOR Datastructure WHERE Name = Event DO
                                    CALL GenTransitionHeader("Stav", CONV$(Source.Boxname),
                                                             "Následující stav", CONV$(Target.Boxname),
                                                             "Podmínka", CONV$(Boxname),
                                                              Combinationpart.Negated, first%);
                                END
                            END
                        END
                        first%=0;
                    END
                    PRINT Text;
                END
            END
        END
    END
END
Generováno: 16.10.2003 7:41 Systém: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf Generováno systémem case/4/0
Vygeneroval: Administrator Soubor: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\html\193.htm (C) microTOOL GmbH 2002