//write_inf_doc //Entrée : u : file descriptor // tt_help : string for the %helps // tt_demos: string for the demos // tt_path : string that give a main path (ex 'MODNUMSCI') //Sortie : txt : Information utile de chargement // flag : function txt=write_inf_doc(u,tt_path,tt_help,tt_demos) txt=[]; if MSDOS then tt_help=pathconvert(tt_help,%f,%t,'w') tt_demos=pathconvert(tt_demos,%f,%t,'w') end tt_loader=['//Add demos and man pages' 'if fileinfo('+tt_path+'+''/help'')<>[] then' ' //find the LANGUAGE' ' if ~exists(''LANGUAGE'') then' ' global LANGUAGE;lang=LANGUAGE;clear LANGUAGE;' ' else' ' lang=LANGUAGE;' ' end' ' if lang<>''fr''&lang<>''eng'' then' ' printf(""Documentation: Unsupported language %s, switch to eng.\n"",lang);' ' lang=''eng'';' ' end' ' //Add modnum help chapter' ' '+tt_help ' add_help_chapter(myhelps(1,2),myhelps(1,1))' ' //Add modnum demo' ' prot=funcprot(); //to disable warning' ' funcprot(0);' ' '+tt_demos ' funcprot(prot)' ' clear prot' ' clear lang' 'end' ] txt=[tt_loader]; if exists('u') then fprintf(u,"%s\n",tt_loader); end endfunction