(* 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 = { "
dprogram <> "\">" <> dprogram <> " | " <> pnames[[nprogram]] <> " |