(* Printing list of programs *) maintainPrograms := ( dirprogs = ToFileName[{dir0, "program"}]; If[FileType[dirprogs] =!= Directory, Print["Creating directory ", dirprogs]; CreateDirectory[dirprogs]; ]; SetDirectory[dirprogs]; main = "main.txt"; If[FileType[ToFileName[dirprogs, main]] =!= File, Print["Warning: no main program file: ", main, ". This file should be created, with a content copied from main.nb!"]; ]; programs = Join[{main, "mainprogr.m", "functions.m"}, subprogs, {"plantlist.txt", "exclude.txt", "comments.txt"}]; pnames = Join[{"Main program", "Workflow program", "Definitions of functions"}, subnames, {"List of plants", "List of excluded pictures", "List of notes"}]; mprograms = Length[programs]; dprograms = Table[ program = programs[[nprogram]]; dprogram = StringReplace[program, ".m" -> ".txt"]; If[FileType[dprogram] === File, DeleteFile[dprogram]]; program = ToFileName[dirwork, program]; CopyFile[program, dprogram]; dprogram, {nprogram, mprograms}]; text = { " Program used to create web pages of Qatar plants

Home PagePicture ArchivesFlora of QatarMathematica program

Mathematica program for generation of web pages

", Table[ dprogram = dprograms[[nprogram]]; color = If[OddQ[nprogram], "#FFFFFF", "#E0E0E0"]; " color <> "\"> ", {nprogram, mprograms}], "
dprogram <> "\">" <> dprogram <> " " <> pnames[[nprogram]] <> "

Links

" }; file = ToFileName[{dir0}, "program.htm"]; Export[file, Flatten[text], "Lines"]; );