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

Vytvořeno:	12-11-1995 11:39:47
Poslední změna:	12-04-2002 11:06:40

Outputs a list of all external interfaces shown in the specified information flow.

Modul

Module: Information Flow

Zdrojový kód:

PROCEDURE List_ExtInterfaces FOR INFORMATIONFLOW
BEGIN
/*
   list external interfaces in information flow
*/

  first%=1;

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

  FOREACH Eface ORDER BY Name DO
    type%=0;
    // 1. Test: References to Eface Element
    FOREACH Efaceref WHERE Ifd=Informationflow.Name
                     AND Eface=Eface.Name DO
      type%=1;
      BREAK;
    END
    // 2. Test: ...or generated by refinement?
    CALL Is_Port_In_Ifd(Eface.Name, Informationflow.Name, 3, 0, is_port%);
    IF is_port%=1 THEN
      type%=type%+2;
    END

    // collect roles of interface
    role$="";
    IF type%=1 THEN
      role$="***";
    ELSIF type%=2 THEN
      role$="Port";
    ELSIF type%>2 THEN
      role$="externí rozhraní, port";
    END

    // used anywhere?
    IF role$<>"" THEN
      IF role$="***" THEN
        role$="";
      ELSE
        role$="("+role$+")";
      END
      first%=0;
      PRINT {"ARIAL",10} TAB(4),CONV$(Eface.Boxname),TAB(35),role$,NL;
    END

  END

  IF first%=1 THEN
    PRINT {"ARIAL",10,ITALIC} TAB(4),"V diagramu nejsou žádná externí rozhraní.",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\1769.htm	(C) microTOOL GmbH 2002