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

[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
Declare
(Web Publishing)

Vytvořeno:	02-11-2002 15:51:21
Poslední změna:	12-19-2002 10:41:54

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE Declare(Module$, Declareno%)
BEGIN


 foundsomething! = FALSE;

 C! = FALSE;
 Cobol! = FALSE;
 Drive! = FALSE;
 SQL! = FALSE;
 Basic! = FALSE;
 ada! = FALSE;
 jcl! = FALSE;
 java! = FALSE;
 FOREACH Declare WHERE Module = Module$ AND Declareno = Declareno% DO
 foundsomething! = TRUE;
 FOR Module WHERE Module.Name = Declare.Module DO
 CALL Header("Proměnná / definice typu - " + Conv$(Declare.Boxname));
 IF Language = 1 THEN
 C!=TRUE;
 ELSIF Language = 2 THEN
 Cobol!=TRUE;
 ELSIF Language = 3 THEN
 Drive!=TRUE;
 ELSIF Language = 4 THEN
 SQL!=TRUE;
 ELSIF Language = 5 THEN
 Basic!=TRUE;
 ELSIF Language = 6 THEN
 ada!=TRUE;
 ELSIF Language = 7 THEN
 jcl!=TRUE;
 ELSIF Language = 8 THEN
 java!=TRUE;
 END
 CALL Title2("Proměnná / definice typu", Conv$(Declare.Boxname), Conv$(Module.Boxname));
 END

 CALL H2_TopSpaceless("Vlastnosti");
 PRINT {HTML} "<TABLE NOWRAP VALIGN=BASELINE>",NL;

 //technical name
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Technical Name:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} ""+Declare.Id+"</TD>",NL;
 PRINT {HTML} " </TR>",NL;

 //type
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Type:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 IF Type="v" THEN
 IF C! THEN
 type$ = "nespecifikovaná proměnná";
 ELSIF Basic! THEN
 type$ = "nespecifikovaná proměnná";
 ELSIF Cobol! THEN
 type$ = "hlavní paměť";
 ELSIF Java! THEN
 type$ = "instance proměnné";
 ELSIF Drive! THEN
 type$ = "proměnná";
 END
 ELSIF Type="vf" THEN
 type$="soubor";
 ELSIF Type="vl" THEN
 IF Cobol! THEN
 type$="ukazatel";
 ELSIF ada! THEN
 type$="public / PL";
 END
 ELSIF Type="vr" THEN
 IF Cobol! THEN
 type$="lokální paměť";
 ELSIF ada! THEN
 type$ = "public / P";
 END
 ELSIF Type="vs" THEN
 type$="public";
 ELSIF Type="vp" THEN
 type$="private";
 ELSIF Type="vb" THEN
 type$ = "tělo";
 ELSIF Type="s" THEN
 type$="třída";
 ELSIF Type="t" THEN
 IF C! THEN
 type$="nespecifikovaná definice typu";
 ELSIF Basic! THEN
 type$="nespecifikovaná definice typu";
 ELSIF Cobol! THEN
 type$="hlavní paměť";
 ELSIF Drive! THEN
 type$="definice typu";
 END
 ELSIF Type="tf" THEN
 type$="soubor";
 ELSIF Type="tl" THEN
 IF Cobol! THEN
 type$="ukazatel";
 ELSIF ada! THEN
 type$ = "public / PL";
 END
 ELSIF Type="tr" THEN
 IF Cobol! THEN
 type$="lokální paměť";
 ELSIF Ada! THEN
 type$ = "public / P";
 ELSIF Drive! THEN
 type$ = "report";
 END
 ELSIF Type="ts" THEN
 type$="public";
 ELSIF Type="tp" THEN
 type$="privat";
 ELSIF Type = "tb" THEN
 type$ = "tělo";
 ELSIF Type = "l" THEN
 type$ = "seznam";
 ELSE
 type$ = "statický inicializátor";
 END
 PRINT {HTML} ""+type$+"</TD>",NL;
 PRINT {HTML} " </TR>",NL;

 // visibility
 IF NOT cobol! THEN
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Visible:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 IF Public=0 THEN
 visib$="privat";
 ELSE
 visib$="public";
 END
 IF java! THEN
 IF Declare.Scope=1 THEN
 visib$="public";
 ELSIF Declare.Scope=2 THEN
 visib$="protected";
 ELSIF Declare.Scope=3 THEN
 visib$="privat";
 ELSIF Declare.Scope=4 THEN
 visib$="privat protected";
 ELSE
 visib$="default";
 END
 END
 PRINT {HTML} ""+visib$+"</TD>",NL;
 PRINT {HTML} " </TR>",NL;
 END


 //end of table
 PRINT {HTML} "</TABLE>",NL;
 PRINT {HTML} " ",NL;

 IF hasText THEN
 PRINT {HTML} " <HR SIZE=""1"" COLOR=""#3366CC""> ", NL;
 dummy$ = Text;
 PRINT dummy$;
 PRINT {HTML} " ",NL;

 END

 FOR Module WHERE Module.Name = Declare.Module DO
 //PRINT {HTML} " ";
 PRINT {HTML} " <HR SIZE=""1"" COLOR=""#3366CC""> ", NL;
 PRINT {HTML} "Funkce náležející modulu ", NL;
 PRINT {HTML} Anchor$(Conv$(Boxname), "", Str$(Object) + ".htm"), ". ", NL;
 PRINT {HTML} " <HR SIZE=""1"" COLOR=""#3366CC""> ", NL;
 END

 CALL H2_TopSpaceless("Generovaný zdrojový kód");

 IF code <> "" THEN
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT code;
 PRINT {HTML} "</TD>", NL;
 ELSE
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {ITALIC} "<nedefinováno>";
 PRINT {HTML} "</TD>", NL;
 END
 END

CALL Footer("");
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\248777139.htm	(C) microTOOL GmbH 2002