Fonction Scilab
eng - fr


write_inf_rout_lib - retourne le texte des routines pour le script de construction de la boîte à outils

Librairie

Séquence d'appel

txt = write_inf_rout_lib(u,libname,path,files,flag)

Paramètres

Description

Add here a paragraph of the function description. Other paragraph can be added

Add here a paragraph of the function description

Exemple

Add here scilab instructions and comments

Contenu du fichier


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

Fonction(s) utilisée(s)

Add here the used function name and references

Auteurs

enter here the author name Add here the author references