(* Reading list of mushroom names and translations from several Internet sources *)

maintainNames := (
Print["Running maintainNames ..."];
dirnames = ToFileName[{dirwork, "data", "names"}];
checkdir1[dirnames];
SetDirectory[dirnames];
textcondit = ((StringLength[#] > 20000)&);
maintainEnglishBMS;
maintainRussianEcosystema;
maintainRussianLenoblast;
maintainRussianMycoweb;
maintainRussianNovosibirsk;
maintainRussianSvetlova;
maintainRussianUloma;
maintainRussianWiki;
maintainRussianWikigrib;
(* Additional missing names added manually *)
fileaddnames = ToFileName[{dirwork}, "addnames.txt"];
addnames = Import[fileaddnames, "Lines"];
addnames = ToLowerCase /@ addnames;
addnames = stringtrim /@ addnames;
addnames = Select[addnames, (# =!= "")&];
addnames = capitalize /@ addnames;
Print[Length[addnames], " additional manually entered names were taken from the file ", fileadd, ": ", Short[addnames]];
);