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