Fonction Scilab
fr

write_addinter_line

Contenu du fichier

//write_addinter_line
//Entrée : u : file descriptor
//         libname : nom de la libraire (sans extension)
//         path : chemin de la libraire dans MODNUMSCI ex /routines/modnum_lib/
//         intname : nom de la routine d'interface
//         scifunc : liste des noms de fonctions scilab
function txt=write_addinter_line(u,libname,path,intname,scifunc)
 if MSDOS then
  mylibname=libname+'.dll';
 else
  mylibname=libname+'.so';
 end
 
 tt_loader=['//Link of interfaced modnum functions';]
 myvar_tt="modnum_sci_func=[";
 for i=1:size(scifunc,'*')
  myvar_tt=myvar_tt+""""+scifunc(i)+""";";
 end
 myvar_tt=myvar_tt+"];";
 tt_loader=[tt_loader;myvar_tt;
            'addinter(MODNUMSCI+"""+path+"/"+mylibname+""","""+intname+""",modnum_sci_func);';'';];
 //execstr(tt_loader(2:3));
 txt=tt_loader(2:3);
 fprintf(u,"%s\n",tt_loader);
endfunction