Scilab Function
fr - eng


write_inf_pal - return text of palettes for builder script of the toolbox

Library

Calling Sequence

txt = write_inf_pal(u,listf,pal_title)

Parameters

File content


//write_inf_pal
//Entrée : u file descriptor
//         listf : liste de fichiers de palette avec chemin(ex : \macros\scicos_blocks\Pll.cosf)
//         pal_title : liste de titres de la librairie (ex:modnum_pll)
//Sortie txt : information utile de chargement
//             ex :modnum_pal=['modnum_pll',MODNUM+'\macros\scicos_blocks\Pll.cosf];
//                 scicos_pal=[scicos_pal;modnum_pal];
function txt=write_inf_pal(u,listf,pal_title)
 if size(listf,'*')==size(pal_title,'*') then
  if MSDOS then
   listf=pathconvert(listf,%f,%t,'w');
  end
  fprintf(u,"\n%s\n",'//Add modnum palette');
  tt_loader=['modnum_pal=[';]
  for i=1:size(listf,"*")
     tt_loader=[tt_loader;''''+pal_title(i)+''',MODNUM+'''+listf(i)+''';'];
  end
  tt_loader(i+1)=tt_loader(i+1)+'];';
  tt_loader=[tt_loader;
             'predef(''c'');'
             'for ii=1:size(modnum_pal,1)'
             '  kk = find(scicos_pal(:,1)==modnum_pal(ii,1));'
             '  if kk<>[] then'
             '    scicos_pal(kk,2)=modnum_pal(ii,2);'
             '  else'
             '    scicos_pal=[scicos_pal;modnum_pal(ii,:)];'
             '  end'
             'end'
             'clear ii;'
             'clear kk;'
             ''];
  fprintf(u,"%s\n",tt_loader);
  txt=tt_loader;
 else
  printf("listf and pal_title must have the same size");
  abort
 end
endfunction

Authors

IRCOM Group Alan Layec