case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce SourceFile(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
SourceFile
(Web Publishing)

Vytvořeno:	01-02-2001 16:37:06
Poslední změna:	01-14-2003 10:22:55

This function generates pages for output files in module structures.

Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE SourceFile(fn$, ftName$, fFormat%, mfTID$)
BEGIN

 CALL Header("Soubor - " + fn$);
 CALL Title ("Soubor", fn$);

 FOR Modulefile WHERE TID = mfTID$ DO
 //two row table with all the data - one line per attribute
 CALL H2_TopSpaceless("Vlastnosti");
 PRINT {HTML} "<TABLE NOWRAP VALIGN=BASELINE>",NL;

 //Module
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Modul:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 FOR Module WHERE Name = Modulefile.Module DO
 PRINT {HTML} "" + Anchor$(Conv$(Boxname), "", Str$(Object) + ".htm") + "</TD>",NL;
 modLang% = Language;
 END
 PRINT {HTML} " </TR>",NL;

 //filetype
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Typ souboru:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "" + ftName$ + "</TD>",NL;
 PRINT {HTML} " </TR>",NL;

 //format
 FOR Format WHERE Id = fFormat% DO
 PRINT {HTML} " <TR>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "Generovací funkce:</TD>",NL;
 PRINT {HTML} " <TD ALIGN=LEFT VALIGN=TOP>";
 PRINT {HTML} "" + Anchor$(Format.Name, "", Str$(Object) + ".htm") + "</TD>",NL;
 PRINT {HTML} " </TR>",NL;
 END

 //end of table
 PRINT {HTML} "</TABLE>",NL;
 PRINT {HTML} "<HR SIZE=""1"" COLOR=""#3366CC"">", NL;
 PRINT {HTML} " ";

 CALL H2_TopSpaceless("Zdrojový kód");
 PRINT {HTML} "",NL;

 // PRINT {HTML} "<LISTING>",NL; => netscape 4.04 does NOT properly support the listing tag
 // PRINT {HTML} "</LISTING>",NL;

 IF modLang% = 1 THEN
 CALL "C" DEFAULT FOR Modulefile;
 ELSIF modLang% = 2 THEN
 CALL "COBOL" DEFAULT FOR Modulefile;
 ELSIF modLang% = 3 THEN
 CALL "DRIVE" DEFAULT FOR Modulefile;
 ELSIF modLang% = 4 THEN
 CALL "SQL" DEFAULT FOR Modulefile;
 ELSIF modLang% = 5 THEN
 CALL "BASIC" DEFAULT FOR Modulefile;
 ELSIF modLang% = 6 THEN
 CALL "ADA" DEFAULT FOR Modulefile;
 ELSIF modLang% = 7 THEN
 CALL "JCL" DEFAULT FOR Modulefile;
 ELSIF modLang% = 8 THEN
 CALL "JAVA" DEFAULT FOR Modulefile;
 END
 PRINT {HTML} "",NL;

 END // Modulefile
 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\478802185.htm	(C) microTOOL GmbH 2002