write_inf_doc - return text of documentation for builder script of the toolbox
txt = write_inf_doc(u)
- u : integer. a file descriptor
- txt : vector of strings. the text of the information to load modnum documentation
//write_inf_doc
//Entrée : u : file descriptor
//Sortie : txt : Information utile de chargement
// flag :
function txt=write_inf_doc(u)
txt=[];
tt='myhelps=[MODNUM+''/man/htm/''+lang,""Modnum communication toolbox""];';
tt2='add_demo(''Mod_num'',MODNUM+''/man/demos/mod_num.dem'');'
if MSDOS then
tt=pathconvert(tt,%f,%t,'w')
tt2=pathconvert(tt2,%f,%t,'w')
end
tt_loader=['//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 mod_num help chapter'
tt
'%helps=[%helps;myhelps(1,:)];'
'//Add mod_num demo'
tt2
'clear myhelps;clear lang'
]
txt=[tt_loader(2:10);tt_loader(12:13);tt_loader(15:16)];
if exists('u') then
fprintf(u,"%s\n",tt_loader);
end
endfunction
IRCOM Group
Alan Layec