Fonction Scilab
fr


write_inf_doc

Contenu du fichier


//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