txt = change_capt_tex_file(file_tex)
Add here a paragraph of the function description. Other paragraph can be added
Add here a paragraph of the function description
Add here scilab instructions and comments
//change_capt_tex_file //fonction qui effectue les changements sur les //titres des figures dans un fichier tex pour rendre la page finale //convertie en html par latex2html correctement affichable //par le browser de scilab //Entrée file_tex : fichier à analyser //Sorite txt : texte du nouveau fichier tex function txt=change_capt_tex_file(file_tex) txt_tex_main=mgetl(file_tex) num_fig=0; tt_fig=list(); for i=1:size(txt_tex_main,1) if strindex(txt_tex_main(i),'\begin{figure}')<>[] then num_fig=num_fig+1 a(num_fig)=i tt_fig(num_fig)="" elseif strindex(txt_tex_main(i),'\end{figure}')<>[] then b(num_fig)=i; //cherche la ligne caption for j=a(num_fig):b(num_fig) if strindex(txt_tex_main(j),'\caption{')<>[] then capt=strsubst(txt_tex_main(j),'\caption{',''); ja=1; //trouve la légende for k=1:length(capt) tt_char=part(capt,k) if tt_char=='{' then ja=ja+1 elseif tt_char=='}' then ja=ja-1 end if ja==0 then break, end end capt=part(capt,1:k-1); tt_fig(num_fig)=[txt_tex_main(a(num_fig):j-1); '%'+txt_tex_main(j); txt_tex_main(j+1:b(num_fig)); '\begin{center}'; '\textbf{Figure :} '+capt; '\end{center}'] end end if tt_fig(num_fig)=="" then tt_fig(num_fig)=txt_tex_main(a(num_fig):b(num_fig)); end end end if num_fig<>0 then txt=[] for i=1:num_fig if i==1 then i_beg=0 else i_beg=b(i-1) end i_end=a(i) txt=[txt;txt_tex_main(i_beg+1:i_end-1); tt_fig(i);] end txt=[txt;txt_tex_main(b(num_fig)+1:size(txt_tex_main,1))] else txt=[]; end endfunction