//write_inf_rout_lib //Entrée : u : file descriptor // libname : nom de la libraire (sans extension) // path : chemin de la libraire dans MODNUM ex /routines/modnum_lib/ // files : nom des modules à inclure (sans extension) // flag : drapeau 0 : seulement la librairie // 1 : librairie + modules 'c' // 2 : librairie + modules 'f' function txt=write_inf_rout_lib(u,libname,path,files,flag) if MSDOS then mylibname=libname+'.dll'; else mylibname=libname+'.so'; end if flag==0 then tt_loader=['//Link '+libname+' library' 'Id_'+libname+'=link(MODNUM+""'+path+'/'+mylibname+'"");';''; ] elseif flag==1 then var=[]; for i=1:size(files,'*') var=var+''''+files(i)+''','; end var=part(var,1:length(var)-1); tt_loader=['//Link '+libname+' library' 'Id_'+libname+'=link(MODNUM+""'+path+'/'+mylibname+'"",['+var+'],''c'');'; ''; ]; elseif flag==2 then var=[]; for i=1:size(files,'*') var=var+''''+files(i)+''','; end var=part(var,1:length(var)-1); tt_loader=['//Link '+libname+' library'; 'Id_'+libname+'=link(MODNUM+""'+path+'/'+mylibname+'"",['+var+']);'; ''; ]; end txt=tt_loader(2); fprintf(u,"%s\n",tt_loader); endfunction