put_xml_ex - update examples in xml file
new_tt = put_xml_ex(txt,filen)
- txt : vector of strings. text of example paragraph
- filen : string. target XML file (path+name)
- new_tt : vector of strings. the text of the new XML file
//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
IRCOM Group
Alan Layec