case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce Check_State_Transition

[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
Check_State_Transition_Diagrams
(Information Flow)

Vytvořeno:	12-11-1995 11:35:21
Poslední změna:	12-04-2002 10:57:12

Checks for all control functions in the specified information flow if there's an action defined for each transition. Transitions without action are listed.

Modul

Module: Information Flow

Zdrojový kód:

PROCEDURE Check_State_Transition_Diagrams FOR INFORMATIONFLOW
BEGIN
/* check state transition diagrams of control functions for missing
   control actions
*/

  PRINT {"Arial",12,BOLD} "Test stavových diagramů ",
                          "příslušejících k diagramu informačních toků ";
  PRINT {"Arial",12,BOLD,ITALIC} CONV$(Informationflow.Boxname),NL(2);
  first% = 1;
  found% = 0;
  error% = 0;
  FOREACH Ifunc WHERE Ifd = Informationflow.Name DO
    action_defined% = 0;
    FOR Function WHERE Name = Ifunc.Function AND Type = "cp" DO
      // STD exists?
      FOR Statearea WHERE Function = Function.Name DO
        found% = 1;
      END
      // standard action?
      action_defined%=0;
      FOREACH Controlaction WHERE Function = Function.Name DO
        action_defined% = 1;
        BREAK;
      END
      IF action_defined% = 0 THEN
        // creation action?
        FOREACH Creationaction WHERE Function = Function.Name DO
          action_defined% = 1;
          BREAK;
        END
      END
      fname$=CONV$(Function.Boxname);

      IF action_defined% = 0 THEN
        error% = 1;
        IF first% = 1 THEN
            PRINT {"Arial",10,BOLD} "Chybějící akce:",NL;
          first% = 0;
        END
        PRINT {"Arial",10} TAB(4), "funkce ";
        PRINT {"Arial",10, ITALIC} fname$,NL;
      END
    END
  END

  IF error% = 1 THEN
    PRINT NL;
  ELSE
    IF found%=1 THEN
      PRINT {"Arial",10} TAB(4), "Žádné formální chyby stavových diagramů.",NL(2);
    ELSE
      PRINT {"Arial",10} TAB(4), "Řídicí funkce tohoto diagramu informačních toků ",
                                 "nemají žádné stavové diagramy.",NL(2);
    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\31039.htm	(C) microTOOL GmbH 2002