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

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

Vytvořeno:	12-11-1995 11:41:52
Poslední změna:	12-04-2002 13:36:45

Outputs a list of all ports in the specified information flow.

Modul

Module: Information Flow

Zdrojový kód:

PROCEDURE List_Ports FOR INFORMATIONFLOW
BEGIN
/*
  Generates a list of all ports in the informationflow
*/

  first%=1;

  PRINT {BOLD,"ARIAL",12} "Seznam portů v diagramu informačních toků ";
  PRINT {BOLD,"ARIAL",ITALIC,12} CONV$(Informationflow.Boxname),NL(2);

  FOREACH Port WHERE Function=Informationflow.Name DO
    Level%=0;
    // Get referenced element
    CALL GetPortElement(Port.Function, Port.Portno, Level%, EType%, ESType$, IsSplit%, EName$);

    Role$ = "";

    IF EType% = 1 THEN
        IF ESType$ = "cp" THEN
            Role$ = "řídicí funkce";
        ELSIF ESType$ = "dg" THEN
            Role$ = "dialogová funkce";
        ELSIF ESType$ = "re" THEN
            Role$ = "opakující se struktura";
        ELSE
            Role$ = "výkonná funkce";
        END
    ELSIF EType% = 2 THEN
        IF ESType$ = "ev" THEN
            Role$ = "událostní paměť";
        ELSIF ESType$ = "ma" THEN
            Role$ = "materiálová paměť";
        ELSE
            Role$ = "datová paměť";
        END
    ELSIF EType% = 3 THEN
        Role$ = "externí rozhraní";
    ELSIF EType% = 4 THEN
        Role$ = "entita";
    ELSIF EType% = 5 OR EType% = 10 THEN
        IF ESType$ = "cp" THEN
            Role$ = "interní rozhraní - řídicí funkce";
        ELSIF ESType$ = "dg" THEN
            Role$ = "interní rozhraní - dialogová funkce";
        ELSIF ESType$ = "re" THEN
            Role$ = "interní rozhraní - opakující se struktura";
        ELSE
            Role$ = "interní rozhraní - výkonná funkce";
        END
    ELSIF EType% = 8 THEN
        Role$ = "parametr";
    END

    IF IsSplit% <> 0 THEN
        Role$=Role$+", rozdělený port";
    END

    Role$="("+Role$+")";
    first%=0;
    PRINT {"ARIAL",10} TAB(4), EName$, TAB(35), Role$, NL;

  END

  IF first%=1 THEN
    PRINT {"ARIAL",10,ITALIC} TAB(4),"Diagram neobsahuje žádné porty.",NL;
  END
  PRINT NL;

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\25450.htm	(C) microTOOL GmbH 2002