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
GenMOD
(OLE Functions for MS Word)

Vytvořeno: 12-08-1995 17:31:32
Poslední změna: 11-28-2002 09:45:51
Outputs the elements of the specified module structure.
Modul

Module: OLE Functions for MS Word

Zdrojový kód:

PROCEDURE GenMOD(name$, Eleno%, Page%, onlyPage%, BYREF DiagName$)
BEGIN
    x%= 2;
    FOR Module WHERE Name=name$ DO
      language%=Language;
    END
    WHILE x% < 571 DO
        FOREACH Component WHERE Module = name$ AND
                                Parentno = Eleno% AND
                                Parentpage = Page% AND
                                (onlyPage% = 0 OR Page = onlyPage%) AND
                                X = x% DO
            IF Text <> "" THEN
              CALL GenMODTitle(DiagName$);
              IF language%=2 AND Type="np" THEN
                CALL GenDiagHeader("Vložený program", CONV$(Boxname));
              ELSE
                CALL GenDiagHeader("Strukturní element", CONV$(Boxname));
              END
              PRINT Text;
            END
            CALL GenMod(name$, Compno, Page, onlyPage%, DiagName$);
        END
        FOREACH Usage WHERE Module = name$ AND
                            Parentno = Eleno% AND
                            Parentpage = Page% AND
                            (onlyPage% = 0 OR Page = onlyPage%) AND
                            X = x% AND
                            Text <> "" DO
            CALL GenMODTitle(DiagName$);
            FOR Module WHERE Name = Usedmodule DO
                IF language% = 1 THEN
                    CALL GenDiagHeader("Reference na modul", CONV$(Boxname));
                ELSIF language% = 2 OR
                      language% = 3 THEN
                    CALL GenDiagHeader("Reference na program", CONV$(Boxname));
                ELSE
                    CALL GenDiagHeader("Reference na modulovou strukturu", CONV$(Boxname));
                END
            END
            PRINT Text;
        END
        FOREACH Typeref WHERE Module = name$ AND
                              Parentno = Eleno% AND
                              Parentpage = Page% AND
                              (onlyPage% = 0 OR Page = onlyPage%) AND
                              X = x% AND
                              Text <> "" DO
            CALL GenMODTitle(DiagName$);
            CALL GenDiagHeader("Reference na typovou strukturu", CONV$(Boxname));
            PRINT Text;
        END
        FOREACH Relationref WHERE Module = name$ AND
                                  Parentno = Eleno% AND
                                  Parentpage = Page% AND
                                  (onlyPage% = 0 OR Page = onlyPage%) AND
                                  X = x% AND
                                  Text <> "" DO
            CALL GenMODTitle(DiagName$);
            CALL GenDiagHeader("Reference na relaci", CONV$(Boxname));
            PRINT Text;
        END
        FOREACH Cursor WHERE Module = name$ AND
                             Parentno = Eleno% AND
                             Parentpage = Page% AND
                             (onlyPage% = 0 OR Page = onlyPage%) AND
                             X = x% AND
                             Text <> "" DO
            CALL GenMODTitle(DiagName$);
            CALL GenDiagHeader("Ukazatel", CONV$(Boxname));
            PRINT Text;
        END
        FOREACH Declare WHERE Module = name$ AND
                              Parentno = Eleno% AND
                              Parentpage = Page% AND
                              (onlyPage% = 0 OR Page = onlyPage%) AND
                              X = x% AND
                              Text <> "" DO
            CALL GenMODTitle(DiagName$);
            IF language% = 1 OR
               language% = 2 OR
               language% = 5 OR
               language% = 6 OR
               language% = 7 THEN
                IF MID$(Type,1,1)="v" THEN
                    CALL GenDiagHeader("Proměnná", CONV$(Boxname));
                ELSE
                    CALL GenDiagHeader("Definice typu", CONV$(Boxname));
                END
            ELSIF language% = 3 THEN
                IF Type = "t" THEN
                     CALL GenDiagHeader("Deklarace typu", CONV$(Boxname));
                ELSIF Type = "l" THEN
                     CALL GenDiagHeader("Deklarace seznamu", CONV$(Boxname));
                ELSIF Type = "p" THEN
                     CALL GenDiagHeader("Deklarace zprávy", CONV$(Boxname));
                ELSE
                     CALL GenDiagHeader("Deklarace proměnné", CONV$(Boxname));
                END
            ELSE
                 CALL GenDiagHeader("Deklarace proměnné/typu", CONV$(Boxname));
            END
            PRINT Text;
        END
        FOREACH Templateelement WHERE Module = name$ AND
                                      Parentno = Eleno% AND
                                      Parentpage = Page% AND
                                      (onlyPage% = 0 OR Page = onlyPage%) AND
                                      X = x% AND
                                      Text <> "" DO
            CALL GenMODTitle(DiagName$);
            IF MID$(Type,1,1)="d" THEN
              CALL GenDiagHeader("Předloha prvku (typová struktura)", CONV$(Boxname));
            ELSIF MID$(Type,1,1)="e" THEN
              CALL GenDiagHeader("Předloha prvku (relace)", CONV$(Boxname));
            ELSIF Type="pa" THEN
              IF language% = 1 THEN
                CALL GenDiagHeader("Předloha prvku (modul)", CONV$(Boxname));
              ELSIF language% = 2 OR
                    language% = 3 THEN
                CALL GenDiagHeader("Předloha prvku (program)", CONV$(Boxname));
              ELSE
                CALL GenDiagHeader("Předloha prvku (modulová struktura)", CONV$(Boxname));
              END
            ELSE
              CALL GenDiagHeader("Předloha prvku", CONV$(Boxname));
            END
            PRINT Text;
        END
        FOREACH Funcdef WHERE Module = name$ AND
                              Parentno = Eleno% AND
                              Parentpage = Page% AND
                              (onlyPage% = 0 OR Page = onlyPage%) AND
                              X = x% AND
                              Text <> "" DO
            CALL GenMODTitle(DiagName$);
            IF Type = "dg" OR Type = "fo" THEN
              // Dialog/Menu
              WType%=0;
              FOREACH Widget WHERE Widget.Module=name$
                             AND Funcdefno=Funcdef.Funcdefno DO
                IF Widgettype = 1 OR Widgettype = 5 THEN
                  WType% = Widgettype;
                  BREAK;
                END
              END
              IF WType% = 1 THEN
                CALL GenDiagHeader("Menu", CONV$(Boxname));
              ELSIF WType% = 5 THEN
                CALL GenDiagHeader("Dialog", CONV$(Boxname));
              ELSE
                CALL GenDiagHeader("Dialog/Menu", CONV$(Boxname));
              END
            ELSE
              // Function/Procedure
              IF language% = 1 THEN
                CALL GenDiagHeader("Funkce", CONV$(Boxname));
              ELSIF language% = 2 THEN
                IF Public=0 THEN
                  CALL GenDiagHeader("Část", CONV$(Boxname));
                ELSE
                  CALL GenDiagHeader("Vstup", CONV$(Boxname));
                END
              ELSIF language% = 3 THEN
                CALL GenDiagHeader("Procedura", CONV$(Boxname));
              ELSIF language% = 5 THEN
                IF Type = "pr" THEN
                  CALL GenDiagHeader("Procedura", CONV$(Boxname));
                ELSIF Type = "pg" THEN
                  CALL GenDiagHeader("Vrácení vlastnosti", CONV$(Boxname));
                ELSIF Type = "pl" THEN
                  CALL GenDiagHeader("Stav vlastnosti", CONV$(Boxname));
                ELSIF Type = "ps" THEN
                  CALL GenDiagHeader("Nastavení vlastnosti", CONV$(Boxname));
                ELSE
                  CALL GenDiagHeader("Funkce", CONV$(Boxname));
                END
              ELSIF language% = 6 THEN
                IF Type = "t" THEN
                  CALL GenDiagHeader("Proces", CONV$(Boxname));
                ELSIF MID$(Type,1,1) = "t" THEN
                  CALL GenDiagHeader("Typ procesu", CONV$(Boxname));
                ELSIF MID$(Type,1,1) = "f" THEN
                  CALL GenDiagHeader("Funkce", CONV$(Boxname));
                ELSE
                  CALL GenDiagHeader("Procedura", CONV$(Boxname));
                END
              ELSIF language% = 7 THEN
                CALL GenDiagHeader("Úloha", CONV$(Boxname));
              ELSE
                CALL GenDiagHeader("Funkce/Procedura", CONV$(Boxname));
              END
            END
            PRINT Text;
        END
        x%= x% + 71;
    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\10638.htm (C) microTOOL GmbH 2002