Scilab Function
eng - fr


put_xml_ex - update examples in xml file

Library

Calling Sequence

new_tt = put_xml_ex(txt,filen)

Parameters

File content


//put_xml_ex
//Fonction qui insère une liste d'exemple
//dans un fichier xml contenant des délimiteurs
//<EXAMPLE> et </EXAMPLE>
//Entrée : txt : matrice de chaînes de caractères de taille n,1
//         filen : nom du fichier xml (ex:filen=xml_path+'CAN_f.xml')
function new_tt=put_xml_ex(txt,filen)
 if fileinfo(filen)<>[] then
  flag_block=%f;
  if size(txt,2)==1 then
    del1='<EXAMPLE>'
    del2='</EXAMPLE>'
    tt_sav=mgetl(filen);
    a=0;b=0;new_tt=tt_sav;
    //trouve la position des délimiteurs
    for i=1:size(tt_sav,1)
     if strindex(tt_sav(i),'Scicos Block')<>[] then flag_block=%t, end;
     if strindex(tt_sav(i),del1)<>[] then a=i, end;
     if strindex(tt_sav(i),del2)<>[] then b=i, end;
    end
    if a<>0&b<>0 then
     //Crée le nouveau paragraphe d'exemple
     if flag_block then
      tt_ex=['<EXAMPLE>';'<P>']
     else
      tt_ex=['<EXAMPLE><![CDATA[']
     end
     tt_ex=[tt_ex;txt(:,1)]
     if flag_block then
       tt_ex=[tt_ex;'</P>';'</EXAMPLE>']
     else
       tt_ex=[tt_ex;']]></EXAMPLE>']
     end
     //Ecrit la chaine de texte finale
     new_tt=[tt_sav(1:a-1);'  '+tt_ex;tt_sav(b+1:size(tt_sav,1))]
    end
  else
   printf("Incompatible rsh variable\n");
  end
 else
  printf("File %s not found\n",filen);
  new_tt=[];
 end
endfunction 

Authors

IRCOM Group Alan Layec