function html2xml(filein,fileout)
 
disp(fileout)
//copyfile('C:\Documents and Settings\grocer\Mes documents\eric\grocer\documentation\dtd.xml',fileout)
v=read(filein,-1,1,'(a)')
sl=strindex(filein,'/')
name=part(filein,sl+1:length(filein)-4)
nlines=size(v,1)
d=date()

// replacements to keep the paragraphs when defined by <br><br> and to have clean blanks
v=strsubst(v,'<br><br>','<p>')
v=strsubst(v,'&nbsp;',' ')
v=strsubst(v,'&nbsp',' ')
v=strsubst(v,ascii(9),'     ')
// eliminate all unnecessary commands
v=strsubst(v,'<H3>','')
v=strsubst(v,'<H4>','')
v=strsubst(v,'</H3>','')
v=strsubst(v,'</H4>','')
v=strsubst(v,'<font color='"red'">','')
v=strsubst(v,'<font color='"blue'">','')
v=strsubst(v,'</font>','')
v=strsubst(v,'<ul>','')
v=strsubst(v,'</ul>','')
v=strsubst(v,'</li>','')
// replace specific chars with their xml code
v=strsubst(v,'<','&lt;')
v=strsubst(v,'>','&gt;')
v=strsubst(v,'²','&#170;')
v=strsubst(v,'°','&#176;')
v=strsubst(v,'&deg;','&#186;')
v=strsubst(v,'& ','and ')
v=strsubst(v,'...','&#133;')
v=strsubst(v,',..,',',&#133;,')
v=strsubst(v,'ï','&#239;')
v=strsubst(v,'ü','&#252;')
v=strsubst(v,'·','.')
v=strsubst(v,' <p>','<p>')
v=strsubst(v,' <p>','<p>')
v=strsubst(v,' <p>','<p>')
v=strsubst(v,' <p>','<p>')
v=strsubst(v,' <p>','<p>')

indexample=[]
indname=[]
indinput=[]
indoutput=[]
for i=1:nlines
   vi=v(i)
   if ~isempty(strindex(vi,'&lt;li&gt;')) then
      v(i)=strsubst(vi,'&lt;li&gt;','<listitem><para>')+'</para></listitem>'
   end
end
 
for i=nlines:-1:1
   vi=v(i)
   if v(i) == '<listitem><para></para></listitem>' then
      v(i) = '<listitem><para>'+v(i+1)+'</para></listitem>'
      v(i+1)=[]
   end
end

nlines=size(v,1)
for i=1:nlines
   vi=v(i)
   v(i)=strsubst(vi,'&lt;/u&gt;','</u>')
   v(i)=strsubst(vi,'&lt;u&gt;','<u>')
   if ~isempty(strindex(vi,'&lt;p&gt;')) then
      v(i)=strsubst(v(i),'&lt;p&gt;','<para>')+' </para>'
   end
   if ~isempty(strindex(convstr(vi),'name')) then
      indname=[indname i]
   end
   if ~isempty(strindex(convstr(vi),'calling')) then
      indcalling=i+1
   end
   if ~isempty(strindex(convstr(vi),'input')) then
      indinput=[indinput ;i]
   end
   if ~isempty(strindex(convstr(vi),'output')) then
      indoutput=[indoutput ;i]
   end
   if ~isempty(strindex(convstr(vi),'parameters')) then
      indparameters=i
   end
   if ~isempty(strindex(convstr(vi),'description')) then
      inddes=i
   end
   if ~isempty(strindex(convstr(vi),'example')) then
      indexample=[indexample i]
   end
   if ~isempty(strindex(convstr(vi),'author')) then
      indauthor=i
   end
   while strindex(v(i),'&lt;p&gt;') == 1 then
      v(i)=part(v(i),10:length(vi))
   end   
end

if ~isempty(indname) then
   i=find(convstr(v) == 'name')
   vj_clean = strsubst(v(i+1),'&lt;br&gt;','')
   ind_dash=strindex(vj_clean,'-')
   name_foo=strsubst(part(vj_clean,1:ind_dash(1)-1),' ','')
   shortdes_foo=stripblanks(part(v(i+1),ind_dash(1)+1:length(vj_clean)))
end

ind = find(indexample>inddes)
indexample=indexample(ind(1))
v=strsubst(v,'&lt;br&gt;','')

vparam_in=v(indinput(1)+1:indoutput(1)-1)
vparam_out=v(indoutput(1)+1:inddes-1)

for i=1:size(vparam_in,1)
      if isempty(strindex(vparam_in(i),'<para>')) then
         vparam_in(i)='<para>'+vparam_in(i)
      end
      if isempty(strindex(vparam_in(i),'</para>')) then
         vparam_in(i)=vparam_in(i)+'</para>'
      end
      if isempty(strindex(vparam_in(i),'<listitem>')) then
         vparam_in(i)='<listitem>'+vparam_in(i)
      end
      if isempty(strindex(vparam_in(i),'</listitem>')) then
         vparam_in(i)=vparam_in(i)+'</listitem>'
      end
//   end
end

for i=1:size(vparam_out,1)
      if isempty(strindex(vparam_out(i),'<para>')) then
         vparam_out(i)='<para>'+vparam_out(i)
      end
      if isempty(strindex(vparam_out(i),'</para>')) then
         vparam_out(i)=vparam_out(i)+'</para>'
      end
      if isempty(strindex(vparam_out(i),'<listitem>')) then
         vparam_out(i)='<listitem>'+vparam_out(i)
      end
      if isempty(strindex(vparam_out(i),'</listitem>')) then
         vparam_out(i)=vparam_out(i)+'</listitem>'
      end
end

vparam_in=strsubst(vparam_in,'<listitem><para>','<listitem><para>&#149; ')
vparam_in=strsubst(vparam_in,'<listitem><para>&#149; ','<listitem><para>&#149; ')

vparam_out=strsubst(vparam_out,'<listitem><para>','<listitem><para>&#149; ')
vparam_out=strsubst(vparam_out,'<listitem><para>&#149;','<listitem><para>&#149; ')

for i=1:size(vparam_in,1)
   vparam_aux=strsubst(vparam_in(i),' ','')
   if ~isempty(strindex(vparam_aux,'<listitem><para>&#149;.'))  then
      vparam_in(i)=strsubst(vparam_in(i),'&#149;','')
      vparam_in(i)=strsubst(vparam_in(i),' .',' *')
      vparam_in(i)=strsubst(vparam_in(i),' ','&#160;')
   end
   if strindex(vparam_aux,'<listitem><para>&#149;*') == 1  ...
     | strindex(vparam_aux,'<listitem><para>&#149;-') == 1 then
      vparam_in(i)=strsubst(vparam_in(i),' ','&#160;')
      vparam_in(i)=strsubst(vparam_in(i),'&#149;','')
   end
   if vparam_aux == '<listitem><para>&#149;</para></listitem>' then
      vparam_in(i)=' '
   end
  // deal with specific cases
   if ~isempty(strindex(vparam_in(i),'e.g. 1  (first 2 observations for individual # 1)')) |...
      ~isempty(strindex(vparam_in(i),'&nbsp&nbsp&nbsp&nbsp&nbsp      1')) |...
      ~isempty(strindex(vparam_in(i),'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       2')) |...
      ~isempty(strindex(vparam_in(i),'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       3')) |...
      ~isempty(strindex(vparam_in(i),'the names of FR, FS, AR and AS represent')) |...
      ~isempty(strindex(vparam_in(i),'(default: thet=1)')) |...
      ~isempty(strindex(vparam_in(i),'WARNING:')) |...
      vparam_aux == 'where:' |...
      vparam_aux == 'or:' |...
      vparam_aux == '&133;' |...
      vparam_aux == 'withk%lt;=p'|...    
      ~isempty(strindex(vparam_in(i),'Ex: If y(t)')) |...
      ~isempty(strindex(vparam_in(i),'or, and only if y ')) |...
      ~isempty(strindex(vparam_in(i),'(default = chol1)')) |...
      ~isempty(strindex(vparam_in(i),'(default = asym)')) then
      vparam_in(i)=strsubst(vparam_in(i),'&#149;','')
   end
end
   
for i=1:size(vparam_out,1)
   vparam_aux=strsubst(vparam_out(i),' ','')
   if ~isempty(strindex(vparam_aux,'<listitem><para>&#149;.')) then
      vparam_out(i)=strsubst(vparam_out(i),'&#149;','')
      vparam_out(i)=strsubst(vparam_out(i),' ','&#160;')
      vparam_out(i)=strsubst(vparam_out(i),'. ','* ')
   end
   if strindex(vparam_aux,'<listitem><para>&#149;*') == 1  ...
     | strindex(vparam_aux,'<listitem><para>&#149;-') == 1 then
      vparam_out(i)=strsubst(vparam_out(i),'&#149;','&#160;')
      vparam_out(i)=strsubst(vparam_out(i),'&#149;','')
   end
   if vparam_aux == '<listitem><para>&#149;</para></listitem>' then
      vparam_out(i)=' '
   end
   if vparam_aux == 'nothing' then
      vparam_out(i)=strsubst(vparam_out(i),'nothing','<listitem>nothing</listitem>')
   end
  // deal with specific cases
   if ~isempty(strindex(vparam_out(i),'(I + AR1.B +')) |...
      ~isempty(strindex(vparam_out(i),'= (G0 + G1.B +')) |...
      ~isempty(strindex(vparam_out(i),'(I + MA1.B +')) |...
      (~isempty(strindex(vparam_out(i),'(''overallf'')')) &...
      ~isempty(strindex(vparam_out(i),'with:')) ) | ...
      ~isempty(strindex(vparam_out(i),'  = ''dfp'', ''bfgs'', ''gn'', ')) | ...
      vparam_out(i) == '&#149;and' |...
      vparam_out(i) == '&#149;&#133;' |...
      ~isempty(strindex(vparam_out(i),'with Var(a(t)) = V')) then
      
      vparam_out(i)=strsubst(vparam_out(i),'&#149;','')
   end
end

vout=[
'<?xml version='"1.0'" encoding='"UTF-8'"?>';
'<refentry version='"5.0-subset Scilab'" xml:id='"'+name+''" xml:lang='"en'"' ;
'          xmlns='"http://docbook.org/ns/docbook'"';
'          xmlns:xlink='"http://www.w3.org/1999/xlink'"';
'          xmlns:svg='"http://www.w3.org/2000/svg'"';
'          xmlns:ns4='"http://www.w3.org/1999/xhtml'"';
'          xmlns:mml='"http://www.w3.org/1998/Math/MathML'"';
'          xmlns:db='"http://docbook.org/ns/docbook'">';
'  <info>';
'     <pubdate>$LastChangedDate:'+d+'$</pubdate>' ;
'   </info>';
'   <refnamediv>';
'       <refname>'+name_foo+'</refname>' ;
'               <refpurpose>'+shortdes_foo+' </refpurpose>';
'   </refnamediv>';
' ' ;
'        <refsynopsisdiv>';
'               <title>CALLING SEQUENCE</title>';
'               <synopsis>'+v(indcalling)+'</synopsis>';
'        </refsynopsisdiv>';
' ' ;
'        <refsection>';
'           <title>PARAMETERS</title>' ;
'           <variablelist>' ;
'           <varlistentry>' ;
' ' ;
'           <term>Input</term>' ;
           vparam_in ;
'           </varlistentry>'
' ' ;
'          <varlistentry>'
' ' ;
'          <term>Output</term>' ;
        vparam_out ;
'          </varlistentry>' ;
'          </variablelist>' ;
'        </refsection>';
' ' 
]

if ~isempty(indexample) then
   vdesc=v(inddes+1:indexample(1)-1)
   vdesc=strsubst(vdesc,'<listitem>','')
   vdesc=strsubst(vdesc,'</listitem>','')
   vexample=v(indexample(1)+1:indauthor-1)
   vexample=strsubst(vexample,'<lisitem>','')
   vexample=strsubst(vexample,'</lisitem>','')
   vexample=strsubst(vexample,'</para>','')
   for i=size(vexample,1):-1:1
      if ~isempty(strindex(vexample(i),'<para>')) then
         vexample=[vexample(1:i-1) ; ' '; strsubst(vexample(i),'<para>','') ; vexample(i+1:$)]
      end
   end 
   vout=[vout;
   '        <refsection>';
   '               <title>DESCRIPTION</title>';
   vdesc ;
   '        </refsection>';
   ' ';
   '        <refsection>';
   '               <title>EXAMPLE</title>';
   '              <programlisting role='"example'"><![CDATA[';
   vexample;
  '               ]]></programlisting>'
   '        </refsection>';
   ' ' ]
else
   vdesc=v(inddes+1:indauthor-1)
   vdesc=strsubst(vdesc,'<listitem>','')
   vdesc=strsubst(vdesc,'</listitem>','')
   vout=[vout;
   '        <refsection>';
   '               <title>DESCRIPTION</title>';
   vdesc ;
   '        </refsection>';
   ' ' ]
end   
   
vauthor=v(indauthor+1)
vout=[vout;
'        <refsection>';
'               <title>AUTHOR</title>';
vauthor ;
'        </refsection>';
'</refentry>'

   ]

[fd,err]=mopen(fileout,'w')
mputl(vout,fd)
mclose(fd)


endfunction