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

Add here a paragraph of the function 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

See Also

Authors

enter here the author name Add here the author references

Bibliography

Add here the function bibliography if any