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

[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
Export_Interface
(Module Structure)

Vytvořeno:	12-11-1995 11:49:18
Poslední změna:	12-09-2002 12:40:30

Outputs a list of all data and function elements declared as "public". These elements can be accessed by other modules importing the specified module structure.

Modul

Module: Module Structure

Zdrojový kód:

PROCEDURE Export_Interface FOR MODULE
BEGIN

  first%=0;
  PRINT {BOLD,"ARIAL",12} "Public prvky modulové struktury";
  PRINT {BOLD,ITALIC,"ARIAL",12} CONV$(Boxname),NL;

  lg% = Language;

  // Functions
  data%=0;
  FOREACH Funcdef WHERE Funcdef.Module=Module.Name
                    AND Funcdef.Public<>0 ORDER BY Boxname DO
    IF data%=0 THEN
      IF lg% = 1 THEN
        PRINT {BOLD,"ARIAL",10} NL,"Funkce:",NL;
      ELSIF lg% = 2 THEN
        PRINT {BOLD,"ARIAL",10} NL,"Vstupy:",NL;
      ELSIF lg% = 5 THEN
        PRINT {BOLD,"ARIAL",10} NL,"Metody:",NL;
      ELSIF lg% = 6 THEN
        PRINT {BOLD,"ARIAL",10} NL,"Podprogramy/procesy:",NL;
      ELSIF lg% = 6 THEN
        PRINT {BOLD,"ARIAL",10} NL,"Úlohy:",NL;
      ELSE
        PRINT {BOLD,"ARIAL",10} NL,"Funkce/procedury:",NL;
      END
      data%=1;
      first%=1;
    END
    PRINT {"ARIAL",8} TAB(4),CONV$(Funcdef.Boxname),":";
    PRINT {"ARIAL",8} TAB(30),Funcdef.Id,NL;
  END

  // Type structure
  data%=0;
  FOREACH Typeref WHERE Typeref.Module=Module.Name
                    AND Typeref.Public<>0 ORDER BY Boxname DO
    IF data%=0 THEN
      PRINT {BOLD,"ARIAL",10} NL,"Typové struktury:",NL;
      data%=1;
      first%=1;
    END
    PRINT {"ARIAL",8} TAB(4),CONV$(Typeref.Boxname),NL;
  END

  // type definitions, variables
  data%=0;
  FOREACH Declare WHERE Declare.Module=Module.Name
                    AND Declare.Public<>0 DO
    IF data%=0 THEN
      PRINT {BOLD,"ARIAL",10} NL,"Definice typu a proměnných:",NL;
      data%=1;
      first%=1;
    END
    PRINT {"ARIAL",8} TAB(4),CONV$(Declare.Boxname),NL;
  END

  // Relations
  data%=0;
  FOREACH Relationref WHERE Relationref.Module=Module.Name
                        AND Relationref.Public<>0 DO
    IF data%=0 THEN
      PRINT {BOLD,"ARIAL",10} NL,"Relace:",NL;
      data%=1;
      first%=1;
    END
    PRINT {"ARIAL",8} TAB(4),CONV$(Relationref.Boxname),NL;
  END

  IF first%=0 THEN
    PRINT {"ARIAL",10,ITALIC} NL, TAB(4),
          "Modulová struktura neobsahuje žádné Public prvky.",NL;
  END

  PRINT NL(2);

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