Scilab Function
eng - fr


put_xml_call_seq - update calling sequence in xml file

Library

Calling Sequence 

new_tt = put_xml_call_seq(txt,filen)

Parameters

Description

Other paragraph can be added

Add here a paragraph of the function description

Example 

Add here scilab instructions and comments

File content 


//put_xml_call_seq
//Fonction qui insère le paragraph calling sequence
//dans un fichier xml contenant des délimiteurs
//<CALLING_SEQUENCE> et </CALLING_SEQUENCE>
//Entrée : txt : un vecteur 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_call_seq(txt,filen)
 if fileinfo(filen)<>[] then
  if size(txt,2)==1 then
    del1='<CALLING_SEQUENCE>'
    del2='</CALLING_SEQUENCE>'
    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),del1)<>[] then a=i, end;
     if strindex(tt_sav(i),del2)<>[] then b=i, end;
    end
    if a<>0&b<>0 then
      tt_see_also=['<CALLING_SEQUENCE>']
      for j=1:size(txt,1)
        tt_see_also=[tt_see_also;
                    '<CALLING_SEQUENCE_ITEM> '+txt(j,1)+' </CALLING_SEQUENCE_ITEM>'];
      end
      tt_see_also=[tt_see_also;'</CALLING_SEQUENCE>']
      //Ecrit la chaine de texte finale
      new_tt=[tt_sav(1:a-1);'  '+tt_see_also;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

Used function(s)

Add here the used function name and references

Authors

IRCOM Group Alan Layec