path: root/support/rtflatex/rtflatex.pas

program rtflatex (input, output);  (* version 2.15 *)

uses dos;

{$I rtflatex.h}
{$I rtflatex.cmn}


{---------------------------------------------------------------------------}
{ sets active_RTFf of current bracelvl at the alpha value recorded with kkk
as \F<number> in \fonttbl declaration }

procedure set_active_RTFf(kkk : integer);
var
  k : integer;
begin
  for k:=1 to num_word_fonts do
    if word_font_num[k]=kkk then
      begin sign_str(kkk,works);
        println_msg(2,'RTF font No. '+works+' of type '+word_fonts[k]+
          ' "'+equiv_fonts[k]+'"');
        add_to_bfsl(equiv_fonts[k]); ensure_sizebfsl;
        active_RTFf[bracelvl]:=word_fonts[k]; exit;
      end
  ; {END/IF + END FOR}
  if (lvlcode[bracelvl] <> 6) then
    begin print_line(2); sign_str(num_word_fonts,works);
      println_msg(2,'num_word_fonts='+works);
      for k:=1 to num_word_fonts do
        begin sign_str(word_font_num[k],works);
          println_msg(2,'     '+works+' --> "'+word_fonts[k]+'"');
        end;
      sign_str(kkk,works); print_msg(2,'RTF font No. '+works);
      sign_str(lvlcode[bracelvl],works);
      sign_str(bracelvl,worksa);
      println_msg(2,' font of type unknown, lvlcode['+worksa+']='+works);
      sign_str(lvlcode[bracelvl-1],works);
      sign_str(bracelvl-1,worksa);
      println_msg(2,' font of type unknown, lvlcode['+worksa+']='+works);
    end
  ; {END IF lvlcode}
  active_RTFf[bracelvl]:='';
end;

{ ------------------------------------------------------------------------- }
{ closing a \sum(...) ... possibly at a ) found !!!!!}

procedure close_sum;
begin
  close_brace; close_math;
end;

{ ------------------------------------------------------------------------- }
{ closing a \sum(...) ... possibly at a closing brace if no ) found !!!!!}

procedure close_sum_emergency(kode : string);
var
  k : integer;
begin
  sign_str(input_line_number,works);
  println_msg(1,'Emergency close of \|su or \|i due to }'+kode+' at inp.line '
    +works);
  sign_str(ord(next_rtf[1]),works);
  print_msg(1,'pattern : "'+kar+next_rtf[1]+'" '+works);
  print_line(1); writeln('kinp=',kinp, ' prev_kinp=',prev_kinp);
  for k:=1 to prev_kinp do print_msg(1,prev_line[k]);  println_msg(1,' ');
  for k:=1 to kinp do print_msg(1,inpline[k]);  println_msg(1,' ');
  outstg('\emergcA '); close_sum;
end;


{ --------------------------------------------------------------------------}
procedure perform_RTFcell;

begin
      if (verbose>0) then
        writeln('(found)',inkeyw,'[',lvlcode[bracelvl],',',
        tab_nb_ands[bracelvl],',',bracelvl,']');
      if (lvlcode[bracelvl]=15) then
        begin
          output_real_line;
          (* count the number of ampersands in the tabular line *)
          tab_nb_ands[bracelvl]:=tab_nb_ands[bracelvl]+1;
          if (tab_nb_ands[bracelvl] < tab_nb_cellx[bracelvl]) then
            begin
              outstg(' & ');
              if (verbose>1) then
                writeln('(after &)',inkeyw,'[',lvlcode[bracelvl],',',
                bracelvl,']');
            end
          else
            begin outstg('\\'); if clbrdrb then outkeyw('hline ');
              if (verbose>1) then
                writeln('(after &->\\)',inkeyw,'[',lvlcode[bracelvl],',',
                bracelvl,']');
            end
          ;
        end
      else
        begin
          if (verbose>2) then
            writeln(inkeyw,'[',lvlcode[bracelvl],',',bracelvl,']');
          outkeyw('relax'); output_line; (* next line to ensure possible removal *)
          outkeyw('RTFcell ');
        end
      ; {END IF lvlcode}

end;

{ --------------------------------------------------------------------------}
{ procedure to close center and flushright environments }

procedure close_envir;
var
  RTF_cell_removed : boolean;
begin
  envir_closed_ok:=FALSE;
  if center_flag[bracelvl]=2 then
    begin
      if no_space_conv then
      else output_size(spacingcode[bracelvl])
      ;
      outkrem('RTFcell '); RTF_cell_removed:=removed_OK;
      center_flag[bracelvl]:=0; end_env(1);
      if RTF_cell_removed then perform_RTFcell;
      output_line; envir_closed_ok:=TRUE; (* output_line; *)
    end
  else if flushright_flag[bracelvl]=2 then
    begin
      if no_space_conv then
      else output_size(spacingcode[bracelvl])
      ;
      outkrem('RTFcell '); RTF_cell_removed:=removed_OK;
      flushright_flag[bracelvl]:=0; end_env(2);
      if RTF_cell_removed then perform_RTFcell;
      output_line; envir_closed_ok:=TRUE; (* output_line; *)
    end
  ; {END IF center_flag}
end;

{ --------------------------------------------------------------------------}
(* procedure to perform RTFsb/RTFsa *)

procedure make_RTFsab (numval : integer);
begin
  if(numval > 300) then outkeyw('bigskip{}')
  else if(numval > 200) then outkeyw('medskip{}')
  else if(numval > 100) then outkeyw('smallskip{}')
  else if(numval > 0) then outkeyw('vspace 0.5\smallskipamount{}')
  else if(numval < 0) then
    begin sign_str(numval,works); println_msg(1,'neg. spacing, NUMVAL:='+works);
    end
  ; {END IF}
end;

{ --------------------------------------------------------------------------}
(* procedure to perform RTFpar (separate since it may be delayed after a } *)

procedure make_RTFpar (texcode : string);
var
  k, num_forced : integer;
  was_underl : boolean;
begin
  num_forced:=0;
  while math_mode[bracelvl]>1 do
    begin
      if lvlcode[bracelvl]=16 then outstg('\relax %%% ???')
      else outstg('}\relax %%% !!!')
      ; output_line;
      close_brace; num_forced:=num_forced+1;
    end
    ; close_math;
    if num_forced>0 then
      begin close_envir; output_size(spacingcode[bracelvl]);
        output_line; output_line; par_to_begin:=TRUE;
        num_indent:=0;
        if space_after<>0 then make_RTFsab(space_after); space_after:=0;
        sign_str(input_line_number,worksa); sign_str(bracelvl,works);
        println_msg(0,'input line '+worksa+', bracelvl='+works);
        sign_str(num_forced,works); println_msg(0,'num_forced='+works);
      end
    ; {END IF}

    was_underl:=underl_flag[bracelvl];
    outkrem(bfslcode[bracelvl]); if was_underl then outchr('}'); output_line;
    if no_space_conv then
    else output_size(spacingcode[bracelvl])
    ;
    close_envir;
    if(not (envir_closed_ok or no_space_conv)) then outkeyw('null ');
    outstg(texcode);
    if space_after<>0 then make_RTFsab(space_after); space_after:=0;
    par_to_begin:=TRUE; num_indent:=0;

    if was_underl then outkeyw('underbar{');

    for k:=1 to num_forced do
      begin outchr('{'); bracelvl:=bracelvl+1;
        math_mode[bracelvl]:=0; {do not open ??? }
      end
    ; {END DO}

    sign_str(bracelvl,works);
    if num_forced>0 then println_msg(0,'restored bracelvl='+works);
end;

{ --------------------------------------------------------------------------}
{ replace recent space with a ~ (before : ; ? ! in general }
procedure insert_tilde ( CHARAC : char );
begin
  if math_mode[bracelvl]=0 then
    begin outrem(' '); if removed_OK then outchr('~');
    end
  ; {END IF}
  begin_par; outchr(CHARAC); keyw:=0;
end;

{ --------------------------------------------------------------------------}
{ initiates "tabular" but does not reset parms to zero }
procedure perform_RTFtrow;

begin
  if (verbose>0) then
    writeln('(init row)',inkeyw,'[',lvlcode[bracelvl],',',
      bracelvl,']');
  open_brace; lvlcode[bracelvl]:=13;
  if (verbose>1) then
    writeln(inkeyw,'(after)[',lvlcode[bracelvl],',',bracelvl,']');
  tab_nb_ands[bracelvl]:=0;
end;


{ --------------------------------------------------------------------------}
procedure perform_RTFrow;

begin
  if (lvlcode[bracelvl]=15) then
    begin
      if (verbose>0) then
        writeln('\RTFrow[',lvlcode[bracelvl],',',tab_nb_cellx[bracelvl],
        ',',bracelvl,']');
      close_brace; outkeyw('end{tabular}\par ');
      tab_nb_cellx[bracelvl]:=tab_nb_cellx[bracelvl+1];
    end
  else 
    begin
      if (verbose>1) then
        writeln('\RTFrow[',lvlcode[bracelvl],',',bracelvl,']');
      output_real_line; outkeyw('RTFrow ');
    end
  ; {END IF lvlcode}      

end;


{ --------------------------------------------------------------------------}
procedure make_closing_brace;
var
  pict_byte : char;
  already_closed : boolean;
begin
  already_closed:=FALSE;
  while auto_close[bracelvl] do
    begin
      if (math_mode[bracelvl]=1) then outchr('$'); outchr('}'); close_brace;
    end
  ; {END WHILE auto_close}
 { check "}{" within \|I(...) and similar : then ignore pair }
  if (lvlcode[bracelvl]>=16) and (next_rtf[1]='{') then next_rtf[1]:=chr(0)
  else if (form_code[bracelvl]<>'') and (next_rtf[1]='{') then next_rtf[1]:=chr(0)
  else
    begin
{ special case of \|su(...) closing }
      if (lvlcode[bracelvl]=25) then close_sum
      else if (lvlcode[bracelvl]>=16) then close_sum_emergency('lvlc')
      ; {END IF}
      close_math;

      if(lvlcode[bracelvl]=4) then
{ this is footnote first and dummy RTF argument closing brace }

      else if(lvlcode[bracelvl]=5) then
{ this is \RTFpict closing brace }
        begin
          if (pict_left_hexa) then
{ look whether there is already one hexa digit stored}
            begin pict_last_hexa:=16*pict_last_hexa;
              pict_byte:=chr(pict_last_hexa); write(figurefile,pict_byte);
              pict_byte_number:=pict_byte_number+1;
              pict_last_hexa:=0; pict_left_hexa:=FALSE;
            end
          ; {END IF pict_left_hexa}

          close(figurefile);
          print_msg(1,'closed file '+figure_name); sign_str(pict_byte_number,works);
          println_msg(1,'('+works+' bytes)'); outchr(kar)
        end
      else if(lvlcode[bracelvl]=10) then
{ this is \RTFobject closing brace }
        begin
          println_msg(1,'closed dummy file '+figure_name);
          outchr(kar)
        end
{ if there was a \cell just before, put it outside the closing brace }
      else if last_is('\RTFcell ') then
        begin
          if (verbose>1) then
            writeln('closing}[',lvlcode[bracelvl],',',bracelvl,']');
          outkrem('RTFcell ');
          if (not removed_OK) then writeln('*** \RTFcell not removed before } ***');
          outchr(kar); close_brace; already_closed:=TRUE;
          if (verbose>0) then
            writeln('moved \RTFcell [',lvlcode[bracelvl],',',bracelvl,']');
          perform_RTFcell;
        end
{ if there was a \row just before, put it outside the closing brace }
      else if last_is('\RTFrow ') then
        begin
          if (verbose>1) then
            writeln('closing}[',lvlcode[bracelvl],',',bracelvl,']');
          outkrem('RTFrow ');
          outchr(kar); close_brace; already_closed:=TRUE;
          if (verbose>0) then
            writeln('moved \RTFrow [',lvlcode[bracelvl],',',bracelvl,']');
          perform_RTFrow;
        end
      else   { this is an ordinary closing brace }
        begin
{ if there was a \par just before, put it outside the closing brace }
          if last_is('\null \par ') then
            begin
              outkrem('null \par '); outchr(kar);
              if no_space_conv then
                outkeyw('par ')
              else
                outkeyw('null \par ')
              ;
            end
          else if last_is('\par ') then
            begin
              outkrem('par '); outchr(kar);
              outkeyw('par ');
            end
          else outchr(kar)
          ; {ENF IF}

          if (form_code[bracelvl]<>'') then
            if (form_code[bracelvl-1]='') then
              form_code[bracelvl-1]:=form_code[bracelvl]
            else
              close_sum_emergency('form')
            ; {END IF}
          ; {END IF}
        end
      ; {END IF}
      if (not already_closed) then close_brace;
    end;
  ; {END IF}
end;
{ --------------------------------------------------------------------------}
{ special output of single characters due to \TeX special codings }

procedure special_TeX_chars;
begin begin_par;
  if (kar='$') then outstg('\$')
  else if (kar='_') then outstg('\_')
  else if (kar='#') then outstg('\#')
  else if ((kar='>') or (kar='<')) and (math_mode[bracelvl]=0) then
    out_math(kar)
  else if (kar='&') then outstg('\&')
  else if (kar='%') then outstg('\%')
  else if (kar='^') then outstg('\^{ }')
  else if (kar='~') then out_math('\sim{}')
  else outchr(kar)
  ; {END IF}
end;

{ --------------------------------------------------------------------------}
{ **************** Beginning of RTF decoding procedures ******************* }
{---------------------------------------------------------------------------}
{ treats a character when KEYW is 0 }
{ no keyword decoding presently active }

procedure keyw_is_0;
var
  i,j,k,hexa_digit : integer;
  pict_byte: char;
  open_kar, RTFform, acc_converted : string24;
begin
  if(CAT=0) then { this is a backslash }
    begin
      if(lvlcode[bracelvl]=3) then
{ ignore after \footnote until opening brace }
      else if(lvlcode[bracelvl]=4) then
{ ignore after \footnote { (first brace pair after) }
      else if(lvlcode[bracelvl]=9) then

      else
        begin keyw:=1; numval:=0; numsign:=1; inkeyw:='\RTF';
        end
      ; {END IF}
    end
  else if(CAT=1) then   { this is an opening brace }
    begin
      if no_RTFrtf then { ignore first opening brace before \rtf1 }
      else if(lvlcode[bracelvl]=3) then open_brace
      else if(lvlcode[bracelvl]=4) then open_brace
      else if(lvlcode[bracelvl]=6) then
        begin outchr(kar); open_brace;
        end
      else
        begin if(par_to_begin) then output_size(sizecode[bracelvl]);
          make_center; outchr(kar); open_brace;
        end
      ; {END IF}
    end
  else if(CAT=2) then  { this is a closing brace }
    begin close_envir;
      if bracelvl>0 then make_closing_brace;
    end
  else if(CAT=3) then  { this is an opening parenthesis '(' }
    begin
      if (form_code[bracelvl] <> '') then
        begin
          if form_code[bracelvl]='\RTFformulaB' then
            form_code[bracelvl]:=truncate24(form_code[bracelvl]+'BC(');
          if form_code[bracelvl]='\RTFformulaBLC' then
            form_code[bracelvl]:=truncate24(form_code[bracelvl]+'(');
          if form_code[bracelvl]='\RTFformulaBRC' then
            form_code[bracelvl]:=truncate24(form_code[bracelvl]+'(');
          if form_code[bracelvl]='\RTFformulaBBC' then
            form_code[bracelvl]:=truncate24(form_code[bracelvl]+'(');
          if pos('\RTFformulaBBC',form_code[bracelvl])>0 then
            begin
              RTFform:=form_code[bracelvl]; open_kar:=RTFform[length(RTFform)];
              if(open_kar='{') then open_kar:='\{';
              out_math_leave('\left'); outstg(open_kar); outchr(' ');
              form_code[bracelvl]:=''; open_brace;
              lvlcode[bracelvl]:=16; { special code to close with ) }
              if(open_kar='(') then close_kar[bracelvl]:=')'
              else if(open_kar='[') then close_kar[bracelvl]:=']'
              else if(open_kar='\{') then close_kar[bracelvl]:='\}'
              else close_kar[bracelvl]:=open_kar
              ; {END IF open_kar}
              kar:=' ';  { to prevent do_it_again }
            end
          else if pos('\RTFformulaBLC',form_code[bracelvl])>0 then
            begin
              RTFform:=form_code[bracelvl]; open_kar:=RTFform[length(RTFform)];
              if(open_kar='{') then open_kar:='\{';
              out_math_leave('\left'); outstg(open_kar); outchr(' ');
              form_code[bracelvl]:=''; open_brace;
              lvlcode[bracelvl]:=16; { special code to close with ) }
              close_kar[bracelvl]:='.';
              kar:=' ';  { to prevent do_it_again }
            end
          else if pos('\RTFformulaBRC',form_code[bracelvl])>0 then
            begin
              RTFform:=form_code[bracelvl]; open_kar:=RTFform[length(RTFform)];
              if(open_kar='{') then open_kar:='\{';
              out_math_leave('\left. ');
              form_code[bracelvl]:=''; open_brace;
              lvlcode[bracelvl]:=16; { special code to close with ) }
              if(open_kar='(') then close_kar[bracelvl]:=')'
              else if(open_kar='[') then close_kar[bracelvl]:=']'
              else if(open_kar='\{') then close_kar[bracelvl]:='\}'
              else close_kar[bracelvl]:=open_kar
              ; {END IF open_kar}
              kar:=' ';  { to prevent do_it_again }
            end
    { case of \|F( ... ; ... ) }
          else if ('\RTFformulaF'=form_code[bracelvl]) then
            begin
              form_code[bracelvl]:=''; out_math_leave('{\displaystyle ');
              open_brace; lvlcode[bracelvl]:=17;
              kar:=' ';  { to prevent do_it_again }
            end
    { case of \|D\|BA() or \|D\|FO() }
          else if ('\RTFformulaDFO'=form_code[bracelvl]) then
            begin sign_str(displ_skip,worksa);
              form_code[bracelvl]:=''; outkeyw('kern '+worksa+'pt');
              open_brace; lvlcode[bracelvl]:=28;
              kar:=' ';  { to prevent do_it_again }
            end
    { case of \|D\|LI() }
          else if ('\RTFformulaDLI'=form_code[bracelvl]) then
            begin sign_str(displ_skip,worksa); form_code[bracelvl]:='';
              outkeyw('RTFhrule '+worksa+'pt');
              open_brace; lvlcode[bracelvl]:=28;
              kar:=' ';  { to prevent do_it_again }
            end
    { case of \|O( ... ; ... ) }
          else if ('\RTFformulaO'=form_code[bracelvl]) then
            begin form_code[bracelvl]:=''; begin_par;
              outkeyw('hbox{\ooalign{\hfil{}'); open_brace;
              lvlcode[bracelvl]:=26; math_mode[bracelvl]:=0;
              kar:=' ';  { to prevent do_it_again }
            end
    { case of \|L( ... ; ... ) }
          else if ('\RTFformulaL'=form_code[bracelvl]) then
            begin form_code[bracelvl]:=''; begin_par;
              outchr('{'); open_brace;
              lvlcode[bracelvl]:=27;
              kar:=' ';  { to prevent do_it_again }
            end
    { case of \|R( ... ; ... ) }
          else if ('\RTFformulaR'=form_code[bracelvl]) then
            begin form_code[bracelvl]:='';
              out_math_leave('\sqrt{'); open_brace;
              lvlcode[bracelvl]:=23;
              kar:=' ';  { to prevent do_it_again }
            end
    { case of \|X( ... ; ... ) }
          else if pos('\RTFformulaX',form_code[bracelvl])>0 then
            begin form_code[bracelvl]:=''; begin_par;
              outstg('\boxed'+copy(form_code[bracelvl],11,3)+'{'); open_brace;
              lvlcode[bracelvl]:=7;
              kar:=' ';  { to prevent do_it_again }
            end
    { case of \|S( ... ; ... ) }
          else if ('\RTFformulaS'=form_code[bracelvl]) or
            ('\RTFformulaSUP'=form_code[bracelvl]) then
            begin form_code[bracelvl]:='';
              out_math_leave('^{'); open_brace; lvlcode[bracelvl]:=18;
              kar:=' ';  { to prevent do_it_again }
            end
    { case of \|SDO( ... ; ... ) }
          else if ('\RTFformulaSDO'=form_code[bracelvl]) then
            begin form_code[bracelvl]:='';
              out_math_leave('_{'); open_brace; lvlcode[bracelvl]:=19;
              kar:=' ';  { to prevent do_it_again }
            end
    { case of \|I( ... ; ... ) }
          else if ('\RTFformulaI'=form_code[bracelvl]) then
            begin form_code[bracelvl]:='';
              out_math_leave('\int_{'); open_brace; lvlcode[bracelvl]:=20;
              kar:=' ';  { to prevent do_it_again }
            end
    { case of \|ISU( ... ; ... ) }
          else if ('\RTFformulaISU'=form_code[bracelvl]) then
            begin form_code[bracelvl]:='';
              out_math_leave('\displaystyle\sum_{'); open_brace; lvlcode[bracelvl]:=20;
              kar:=' ';  { to prevent do_it_again }
            end
    { case of \|IPR( ... ; ... ) }
          else if ('\RTFformulaIPR'=form_code[bracelvl]) then
            begin form_code[bracelvl]:='';
              out_math_leave('\displaystyle\prod_{'); open_brace; lvlcode[bracelvl]:=20;
              kar:=' ';  { to prevent do_it_again }
           end
          ; {END IF}
        end
  { if an opening parenthese is found inside a deep formula, set lvlcode at 25 }
      else if (abs(lvlcode[bracelvl]) >=17) then
        begin outchr(kar); open_brace; lvlcode[bracelvl]:=25;
        end
      else
        begin begin_par; outchr(kar);
        end
      ; {END IF form_code }
    end
  else if(CAT=4) then  { this is a closing parenthesis ')' }
    begin
    (* test 23 sept *)
      while (lvlcode[bracelvl]<0) and (auto_close[bracelvl]) do
        begin
          if (math_mode[bracelvl]=1) then outchr('$'); outchr('}'); close_brace;
        end
      ; {END WHILE auto_close}
    (* fin test 23 sept *)
    { special case of \|B..(...) closing }
      if (lvlcode[bracelvl]=16) then
        begin outstg('\right'); outstg(close_kar[bracelvl]); close_sum;
        end
    { special case of \|X..(...) closing }
      else if (lvlcode[bracelvl]=7) then
        begin outchr('}'); close_sum;
        end
    { closing parenthese found inside a formula, was opened with another ( 25 }
      else if (lvlcode[bracelvl]=25) then
        begin outchr(kar); close_brace;
        end
    { closing parenthese found inside a formula \|O }
      else if (lvlcode[bracelvl]=26) then
        begin close_math; outstg('\hfil}}'); close_brace;
        end
    { closing parenthese found inside a formula \|L }
      else if (lvlcode[bracelvl]=27) then
        begin outchr('}'); close_brace;
        end
    { closing parenthese found inside a formula \|D }
      else if (lvlcode[bracelvl]=28) then
        begin outstg('{}'); close_brace;
        end
    { special case of \|F(...) closing }
    { special case of \|S(...) closing }
    { special case of \|SDO(...) closing }
    { special case of \|I(...) closing }
    { special case of \|I(..;..) closing }
    { special case of \|I(..;..;..) closing }
    { special case of \|R(...) closing }
      else if (lvlcode[bracelvl]>=17) then
        begin close_subs; close_sum;
        end
    { closing parenthese found inside a deep formula, make it 1 level lower }
      else if (-lvlcode[bracelvl]>=17) then
        begin next_rtf:='}){'+next_rtf;
        end
      else
        begin begin_par; outchr(kar);
        end
      ; {END IF lvlcode}
    end
{ Ignore chars to be ignored }
  else if(lvlcode[bracelvl]=1) then

  else if(lvlcode[bracelvl]=3) then

  else if(lvlcode[bracelvl]=4) then

  else if(lvlcode[bracelvl]=5) then { we are in the hexa part of a \RTFpict }
    begin
      { ignore possible blanks and control characters within hexadecimal field }
      if ord(kar)>32 then
        begin hexa_digit:=hx_to_i(kar);
          pict_char_number:=pict_char_number+1;
          if (pict_left_hexa) then
{ there is already one hexa digit stored}
            begin pict_last_hexa:=16*pict_last_hexa+hexa_digit;
              pict_byte:=chr(pict_last_hexa); write(figurefile,pict_byte);
              pict_byte_number:=pict_byte_number+1;
              pict_last_hexa:=0; pict_left_hexa:=FALSE;
            end
          else
{ there is no hexa digit stored}
            begin pict_last_hexa:=hexa_digit; last_kar:=kar; pict_left_hexa:=TRUE;
            end
          ; {END IF pict-left_hexa}
        end
      ; {END IF}
    end
  else if(abs (lvlcode[bracelvl])=10) then { we are in \RTFobject }

  else if(abs (lvlcode[bracelvl])=9) then { ignore other than braces }

  else if(cat=11) then  { this is a letter }
    begin begin_par;
      if (lvlcode[bracelvl]=2) then { letters to be capitalized ? }
        begin kar:=upcase(kar); ikar:=ord(kar);
        end
      ; {END IF lvlcode=2}
      if (active_RTFf[bracelvl]='ftech') then
        begin acc_converted:=ftech_transl[ikar];
          if acc_converted <> '' then out_math(acc_converted)
          else outchr(kar)
          ; {END IF acc_converted}
        end
      else
        begin
          outrem('\beginparagraph{}');
          if(removed_OK and (kout>0)) then outstg('{}');
          outchr(kar);
        end
      ; {END IF active_RTF}
    end
  else if (active_RTFf[bracelvl]='ftech') then
    begin begin_par; acc_converted:=ftech_transl[ikar];
      if acc_converted <> '' then out_math(acc_converted)
      else special_TeX_chars
      ; {END IF acc_converted}
    end
  else if (kar='-') then
    begin
      if (last_is('\beginparagraph{}')) then
        begin
          outrem('\beginparagraph{}');
          outkeyw('plainitem{--}');
        end
      else
        outchr(kar)
      ; {END IF}
    end
  else if(kar='"') then
    begin begin_par;  (*  test march 94 *)
      if (math_mode[bracelvl]=0) and ((kout=0) or last_is(' ')) then
        outstg('``')
      else outstg('''''')
      ; {END IF}
    end
  else if(kar=';') then
    begin
{ ignore ; in colortbl section }
      if (lvlcode[bracelvl]=9) then
{ special case of \|F(. ; .) intermediate semi-colon }
      else if (lvlcode[bracelvl]=17) then
        outstg(' \over\displaystyle ')
{ special case of \|S(. ; .) intermediate semi-colon }
      else if (lvlcode[bracelvl]=18) then
        begin close_subs; out_math_leave(' _{');
        end
{ special case of \|SDO(. ; .) intermediate semi-colon }
      else if (lvlcode[bracelvl]=19) then
        begin close_subs; out_math_leave(' ^{');
        end
{ special case of \|I(. ; .) intermediate semi-colon }
      else if (lvlcode[bracelvl]=20) then
        begin close_subs; outstg(' ^{'); lvlcode[bracelvl]:=21;
        end
{ special case of \|su(. ; .) second intermediate semi-colon }
      else if (lvlcode[bracelvl]=21) then
        begin close_subs; outchr('{'); lvlcode[bracelvl]:=22;
        end
{ special case of \|R(. ; .) intermediate semi-colon }
      else if (lvlcode[bracelvl]=23) then
        begin outsubstitute('\sqrt{','\root{');
        outstg('}\of{'); lvlcode[bracelvl]:=24; output_line; (* safety *)
      end
{ special case of \|O(. ; .) intermediate semi-colon }
      else if (lvlcode[bracelvl]=26) then outstg('\hfil\crcr\hfil{}')
{ special case of \|L(. ; .) intermediate semi-colon }
      else if (lvlcode[bracelvl]=27) then outchr(',')
      else outchr(kar)
      ; {END IF}
    end
  else
    special_TeX_chars
  ; {END IF active_RTF}
end;

{---------------------------------------------------------------------------}
{ treats a character when KEYW is 1 }
{ Keyword being decoded, we are just after the BACKSLASH }

procedure keyw_is_1;
begin
  if(cat=11) then
    begin { letter : store and say KEYW:=2 }
      inkeyw:=inkeyw+kar; keyw:=2 ;
    end
  else if(cat=16) then
    begin { case of a digit : store \RTF }
      outrem_empty_braces; outstg(inkeyw); outchr(KAR); keyw:=0;
    end
(* turn \{ into \RTFaccol and... try to continue ! *)
  else if(kar='{') then
    begin out_math('\{'); keyw:=0;
    (*  inkeyw:=inkeyw+'accol '; keyw:=2 ; *)
    end
(* turn \} into \RTFlocca and... try to continue ! *)
  else if(kar='}') then
    begin out_math('\}'); keyw:=0;
    (* inkeyw:=inkeyw+'locca '; keyw:=2 ; *)
    end
  else if(kar='(') then
    begin begin_par; outkeyw('RTFparen '); keyw:=0;
    end
  else if(kar='-') then
    begin
{ case of a word cutting hyphen \- }
      begin_par; outkeyw(KAR); keyw:=0;
    end
  else if(kar='*') then
    begin
      if (abs(lvlcode[bracelvl])<10) or (abs(lvlcode[bracelvl])>12) then
         begin begin_par; outchr(KAR);
         end
      ;  keyw:=0; {END IF}
    end
  else if(kar='_') then
    begin
{ case of a word non cutting hyphen \_ }
      begin_par; outchr('-'); keyw:=0;
    end
  else if(kar='~') then
    begin
{ case of a non breaking space }
      begin_par; outchr(KAR); keyw:=0;
    end
  else if(kar='''') then
    begin keyw:=4; num_hexa:=0;
    end
  else if(kar=':') then insert_tilde(kar)
  else if(kar=';') then insert_tilde(kar)
  else if(kar=')') then
    begin begin_par; outchr(kar);
    end
  else if(kar='(') then
    begin begin_par; outchr(kar);
    end
  else if(kar='\') then
    begin
      if (next_rtf[1]='f') and (lvlcode[bracelvl]=12) then
        lvlcode[bracelvl]:=9
      else
        begin
          begin_par; outstg('{\char92}'); keyw:=0;
        end
      ;
    end
  else if(kar='|') then
    if next_rtf[1]='}' then
      (* if \|} cancel \| and post it for later *)
      begin inkeyw:=''; keyw:=0;
        delete(next_rtf,1,1); next_rtf:='}\|'+next_rtf;
      end
    else
      begin
{ case of \| (in formulae) store as "formula" and expect letters }
        inkeyw:=inkeyw+'formula'; keyw:=2;
      end
  else
    begin
{ store \RTF and try again }
      outkeyw('RTF{}'); keyw:=0; do_it_again:=TRUE;
    end
  ; {END IF}
end;


{---------------------------------------------------------------------------}
{ treats a character when KEYW is 2 }
{ We are in a letter keyword }

procedure keyw_is_2;
var
  poskeyw, k, num_forced, posbsl, font_equiv_spacing, testio : integer;
  inkeywb : string24;
begin
  if(cat=11) then
    begin
{ letter : store and capitalize for formulas }
      if (pos('\RTFformula',inkeyw)>0 ) then
        inkeyw:=inkeyw+upcase(kar)
      else inkeyw:=inkeyw+kar
      ; {END IF}
    end
  else if(cat=16) then
    begin
{ case of a digit : store with opening brace and say KEYW:=3 }
      inkeyw:=inkeyw+'{'+kar;
      numval:=ord(kar)-icharz; numsign:=1; keyw:=3;
    end
  else if(kar='-') then
    begin
{ case of a - introduction : store opening brace and say KEYW:=3 }
      inkeyw:=inkeyw+'{-'; numval:=0; numsign:=-1; keyw:=3;
    end
  else
    begin
{ delay \begin(center) to further opening \par }
      if(inkeyw='\RTFqc') then
        begin if (lvlcode[bracelvl]<>9) then
          begin center_flag[bracelvl]:=1;
          end
        end
{ delay \begin(flushright) to further opening \par }
      else if(inkeyw='\RTFqr') then
        begin if (lvlcode[bracelvl]<>9) then flushright_flag[bracelvl]:=1;
        end
{ interpret some other keywords }
      else if(inkeyw='\RTFtab') then
        begin
          if par_to_begin then num_indent:=num_indent+1
          else outkeyw('indent ')
          ;
        end
      else if(inkeyw='\RTFchpgn') then
        begin begin_par; outkeyw('the\count0{}')
        end
      else if(inkeyw='\RTFb') then
        begin add_to_bfsl('\bf'); ensure_sizebfsl;
        end
      else if(inkeyw='\RTFscaps') then
        begin add_to_bfsl('\sc'); ensure_sizebfsl;
        end
      else if(inkeyw='\RTFoutl') then
        begin add_to_bfsl('\oul'); ensure_sizebfsl;
        end
      else if(inkeyw='\RTFul') then
        begin outrem('{');
          if removed_OK then
            if math_mode[bracelvl]=0 then
              begin begin_par; outkeyw('underbar{');
              end
            else
              begin begin_par; outkeyw('underline{');
              end
          else
            outkeyw('RTFul{}')
          ; {END IF removed_OK}
          ; underl_flag[bracelvl]:=TRUE
        end
      else if(inkeyw='\RTFuldb') then
        begin outrem('{');
          if removed_OK then
            if math_mode[bracelvl]=0 then
              begin begin_par; outkeyw('underbar{\bf{}');
              end
            else
              begin begin_par; outkeyw('underline{');
              end
          else
            outkeyw('RTFuldb{}')
          ; {END IF removed_OK}
          ; underl_flag[bracelvl]:=TRUE
        end
      else if(inkeyw='\RTFv') then
        begin outrem('{');
          if removed_OK then
            begin begin_par; outkeyw('index{');
            end
          else
            outkeyw('RTFul{}')
          ; {END IF removed_OK}
          ; underl_flag[bracelvl]:=TRUE
        end
      else if(pos('\RTFheader',inkeyw)+pos('\RTFfooter',inkeyw)>0) then
        begin outrem('{');
          if removed_OK then outkeyw(copy(inkeyw,2,999)+'{')
          else outkeyw(copy(inkeyw,2,999)+'{\relax}')
          ; {END IF removed_OK}
          lvlcode[bracelvl]:=9;
        end
      else if(inkeyw='\RTFi') then
        begin
          if use_sl then add_to_bfsl('\sl')
          else add_to_bfsl('\it')
          ; {END IF}
          ensure_sizebfsl;
        end
      else if(inkeyw='\RTFpard') then
        begin (* old center_flag[bracelvl]:=0; flushright_flag[bracelvl]:=0; *)
          close_math; close_envir;
          center_flag[bracelvl]:=0; flushright_flag[bracelvl]:=0;
          bfslcode[bracelvl]:='\rm';
          
          if (abs(lvlcode[bracelvl])<>8) and (abs(lvlcode[bracelvl])<>9)
            and (lvlcode[bracelvl]<>13) and (lvlcode[bracelvl]<>15) then
            begin
              leftskip:=0; rightskip:=0;
              num_indent:=0; par_to_begin:=TRUE;
              if last_is('\end{tabular}\par ') then
              else (* never cut line+\check after \end{tabular} *)
                begin
                  if (KOUT>0) then output_line;
                  outstg(' %\check '); output_line; (* for testing *)
                end
              ;
            end
          ; {END IF}
          if lvlcode[bracelvl]=2 then lvlcode[bracelvl]:=0;
        end
      else if(inkeyw='\RTFpar') then
        begin
          if next_rtf[1]='}' then
            begin inkeyw:='';
              delete(next_rtf,1,1); next_rtf:='}\par '+next_rtf;
            end
          else make_RTFpar('\par ')
        ; {END IF next_rtf[1]}
        end
      else if(inkeyw='\RTFpagebb') then
        begin
          if next_rtf[1]='}' then
            begin inkeyw:='';
              delete(next_rtf,1,1); next_rtf:='}\pagebb '+next_rtf;
            end
          else make_RTFpar('\clearpage ')
        ; {END IF next_rtf[1]}
        end
      else if(inkeyw='\RTFpage') then
        begin
          if next_rtf[1]='}' then
            begin inkeyw:='';
              delete(next_rtf,1,1); next_rtf:='}\page '+next_rtf;
            end
          else
            begin output_size(spacingcode[bracelvl]);
             outkeyw('break\eject\noindent '); output_size(sizecode[bracelvl]);
             output_bfsl;
            end
        ; {END IF next_rtf[1]}
        end
      else if(inkeyw='\RTFsect') then
        begin
          if next_rtf[1]='}' then
            begin inkeyw:='';
              delete(next_rtf,1,1); next_rtf:='}\par '+next_rtf;
            end
          else make_RTFpar('\par  \relax ')
        ; {END IF next_rtf[1]}
        end
      else if(inkeyw='\RTFrquote') then outchr('''')
      else if(inkeyw='\RTFlquote') then outchr('`')
      else if(inkeyw='\RTFmac') then mac_init
      else if(inkeyw='\RTFansi') then ansi_init
      else if(inkeyw='\RTFline') then outkeyw('break ')
{ flag to say future capitalized }
      else if(inkeyw='\RTFcaps') then lvlcode[bracelvl]:=2
{ flag to say we are in \fonttbl block }
      else if(inkeyw='\RTFfonttbl') then
        begin lvlcode[bracelvl]:=6; outrem_empty_braces;
          outkrem(sizecode[bracelvl]); outrem('{');
          if removed_OK then outkeyw('RTFfonttbl{')
          else outkeyw('RTFfonttbl{}{}{}\relax ')
          ; {END IF}
        end
      else if(inkeyw='\RTFcolortbl') then
        begin outrem_empty_braces; lvlcode[bracelvl]:=9;
          outkrem(sizecode[bracelvl]); outrem('{');
          if removed_OK then outkeyw('RTFcolortbl{')
          else outkeyw('RTFcolortbl{}{}{}\relax ')
          ; {END IF}
        end
      else if(inkeyw='\RTFinfo') then
        begin outrem_empty_braces;
          outkrem(sizecode[bracelvl]); outrem('{');
          if removed_OK then outkeyw('RTFinfo{')
          else outkeyw('RTFinfo{}{}{}\relax ')
          ; {END IF}
        end
      else if(inkeyw='\RTFstylesheet') then
        begin outrem_empty_braces;
          outkrem(sizecode[bracelvl]); outrem('{');
          if removed_OK then
            begin outkrem('RTFcolortbl{}'); outkeyw('RTFstylesheet{');
            end
          else outkeyw('RTFstylesheet{}{}{}\relax ')
          ; {END IF}
          lvlcode[bracelvl]:=8;
        end
      else if(inkeyw='\RTFfield') then
        lvlcode[bracelvl]:=11
      else if(inkeyw='\RTFflddirty') then

      else if(pos('\RTFfldinst',inkeyw)>0) and (lvlcode[bracelvl-1]=11) then
        begin lvlcode[bracelvl]:=12; exit; (* to avoid resetting keyw:=0 *)
        end
      else if(inkeyw='\RTFtrowd') then
        begin
          perform_RTFtrow;
          outkeyw('begin{tabular}{');
          clbrdrr:=FALSE;  clbrdrl:=FALSE;  clbrdrt:=FALSE;  clbrdrb:=FALSE;
          tab_nb_cellx[bracelvl]:=0;
          tab_cellx[bracelvl]:=0;
        end
      else if(inkeyw='\RTFbrdrs') and (lvlcode[bracelvl]=13) then
        (* ignore *)
      else if(inkeyw='\RTFclbrdrl') and (lvlcode[bracelvl]=13) then
        begin outchr('|');
          if (verbose>1) then
            writeln(inkeyw,'[',lvlcode[bracelvl],',',bracelvl,']');
          clbrdrl:=FALSE;
        end
      else if(inkeyw='\RTFclbrdrr') and (lvlcode[bracelvl]=13) then
        begin
          if (verbose>1) then
            writeln(inkeyw,'[',lvlcode[bracelvl],',',bracelvl,']');
          clbrdrr:=TRUE;
        end
      else if(inkeyw='\RTFclbrdrt') and (lvlcode[bracelvl]=13) then
        begin
          if (verbose>1) then
            writeln(inkeyw,'[',lvlcode[bracelvl],',',bracelvl,']');
          clbrdrt:=TRUE;
        end
      else if(inkeyw='\RTFclbrdrb') and (lvlcode[bracelvl]=13) then
        begin
          if (verbose>1) then
            writeln(inkeyw,'[',lvlcode[bracelvl],',',bracelvl,']');
          clbrdrb:=TRUE;
        end
      else if(inkeyw='\RTFintbl') then
        begin
          if (verbose>0) then
            writeln('(found)',inkeyw,'[',lvlcode[bracelvl],',',bracelvl,']');
          if (lvlcode[bracelvl]=13) then
            begin if clbrdrr then outchr('|'); clbrdrr:=FALSE; outchr('}');
              lvlcode[bracelvl]:=15; (* second part of \RTFtrowd *)
              if clbrdrt then
                begin outkeyw('hline'); output_line;
                end
              ;
              tab_nb_ands[bracelvl]:=0;
              if (verbose>1) then
                writeln('(after)',inkeyw,'[',lvlcode[bracelvl],',',
                bracelvl,']');
            end
          else if (lvlcode[bracelvl]=15) then
            begin
              if (verbose>1) then
                writeln('(ignored)',inkeyw,'[',lvlcode[bracelvl],',',bracelvl,']');
            end
          else (* force \RTFtrowd if missing *)
            begin
              if (verbose>0) then
                writeln('forcing\RTFtrowd',inkeyw,'[',
                lvlcode[bracelvl],',',bracelvl,']');
              if last_is('\\\end{tabular}\par ') then
                outkrem('end{tabular}\par ')
              else if last_is('\\\hline \end{tabular}\par ') then
                outkrem('end{tabular}\par ')
              else if last_is('\end{tabular}\par ') then
                begin
                  outkrem('end{tabular}\par '); outstg('\\');
                  if clbrdrb then outkeyw('hline ');
                end
              else
                outkeyw('begin{tabular}{ppppppppppppppp}')
              ;  {END IF last_is(...)}
              perform_RTFtrow;
              lvlcode[bracelvl]:=15; (* second part of \RTFtrowd *)
              if (verbose>1) then
                writeln('(<after)',inkeyw,'[',lvlcode[bracelvl],',',
                tab_nb_cellx[bracelvl],',',bracelvl,']')
               {END IF verbose};
            end
          ;
        end
      else if(inkeyw='\RTFrow') then
        begin
          perform_RTFrow;
        end
      else if(inkeyw='\RTFcell') then
        begin
          perform_RTFcell;
        end
      else if(inkeyw='\RTFobject') then
        begin
          rtfpicw:=0; rtfpich:=0;   { reset picture width and height to 0 }
          pict_char_number:=0; pict_byte_number:=0;
          pict_last_hexa:=0;        { reset last hexa byte of the picture }
          pict_left_hexa:=FALSE; pict_number:=pict_number+1; { count picture number }
          sign_str(pict_number,pict_name);
          figure_name:=figure_path+pict_name+figure_type;
          while (pos('\',figure_name)>0) do
            begin
              posbsl:=pos('\',figure_name); figure_name[posbsl]:='/';
            end
          ; {END DO}
          begin_par; outkeyw(copy(inkeyw,2,99)+'{'+figure_name+'}');
          figure_name:=figure_path+pict_name+figure_type;
          output_line;
          println_msg(1,'Skipped object file '+figure_name);
          lvlcode[bracelvl]:=10;
        end
      else if(inkeyw='\RTFpict') then
        begin
          rtfpicw:=0; rtfpich:=0;   { reset picture width and height to 0 }
          pict_char_number:=0; pict_byte_number:=0;
          pict_last_hexa:=0;        { reset last hexa byte of the picture }
          pict_left_hexa:=FALSE; pict_number:=pict_number+1; { count picture number }
          sign_str(pict_number,pict_name);
          figure_name:=figure_path+pict_name+figure_type;
          while (pos('\',figure_name)>0) do
            begin
              posbsl:=pos('\',figure_name); figure_name[posbsl]:='/';
            end
          ; {END DO}
          begin_par; outkeyw(copy(inkeyw,2,99)+'{'+figure_name+'}');
          figure_name:=figure_path+pict_name+figure_type;
          output_line;
          {$I-}
          assign(figurefile,figure_name); rewrite(figurefile); testio:=ioresult;
          if (testio <> 0) then
            begin sign_str(testio,works);
              println_msg(0,'Unable to open figure file '+figure_name
                +' ; code='+works);
              close_files; halt;
            end
          ; {ENF IF testio}
          {$I+}
          println_msg(1,'Opened picture file '+figure_name);
          lvlcode[bracelvl]:=5;
        end
      else if(inkeyw='\RTFfootnote') then
        begin
          if math_mode[bracelvl]=0 then
            begin lvlcode[bracelvl]:=3; outrem('{');
              if removed_OK then outkeyw('footnote{')
              else outkeyw('footnote ')
              ; {END IF removed}
            end
          else if math_mode[bracelvl]=1 then
            begin close_math;
              next_rtf:='\footnote '+next_rtf
            end
          else if math_mode[bracelvl-1]=1 then
            next_rtf:='}{\footnote '+next_rtf
          else if (bracelvl>=2) and (math_mode[bracelvl-2]=1) then
            next_rtf:='}}{{\footnote '+next_rtf
          else if (bracelvl>=3) and (math_mode[bracelvl-3]=1) then
            next_rtf:='}}}{{{\footnote '+next_rtf
          else outkeyw('footnote ')
          ; {END IF math_mode}
        end
      else if(inkeyw='\RTFplain') then
        begin outpsize(20*stdsize);
          bfslcode[bracelvl]:='\rm';
          sizecode[bracelvl]:='normalsize';
        end
      else if(inkeyw='\RTFchftn') then
        begin remove_mathat;
        end
      else if(inkeyw='\RTFendash') then
        if(math_mode[bracelvl]>0) then outchr('-')
        else outstg('--')
      else if(inkeyw='\RTFemdash') then
        if(math_mode[bracelvl]>0) then outchr('-')
        else outstg('---')
      else if(inkeyw='\RTFfnil') then
        store_word_font('fnil') { decl_font_num is a global variable }
      else if(inkeyw='\RTFfroman') then
        store_word_font('froman')
      else if(inkeyw='\RTFfmodern') then
        store_word_font('fmodern')
      else if(inkeyw='\RTFfdecor') then
        store_word_font('fdecor')
      else if(inkeyw='\RTFfswiss') then
        store_word_font('fswiss')
      else if(inkeyw='\RTFfscript') then
        store_word_font('fscript')
      else if(inkeyw='\RTFftech') then
        store_word_font('ftech')
      else if(inkeyw='\RTFformulaB') then
        form_code[bracelvl]:=truncate24(inkeyw)
      else if(inkeyw='\RTFformulaO') then
        form_code[bracelvl]:=truncate24(inkeyw)
      else if(inkeyw='\RTFformulaLC') then
        form_code[bracelvl]:=truncate24(form_code[bracelvl]+'LC')
      else if(inkeyw='\RTFformulaRC') then
        form_code[bracelvl]:=truncate24(form_code[bracelvl]+'RC')
      else if(inkeyw='\RTFformulaBC') then
        form_code[bracelvl]:=truncate24(form_code[bracelvl]+'BC')
      else if(inkeyw='\RTFformulaF') then
        form_code[bracelvl]:=truncate24(inkeyw)
      else if(inkeyw='\RTFformulaR') then
        form_code[bracelvl]:=truncate24(inkeyw)
      else if(inkeyw='\RTFformulaS') then
        form_code[bracelvl]:=truncate24(inkeyw)
      else if(inkeyw='\RTFformulaD') then
        form_code[bracelvl]:=truncate24(inkeyw)
      else if(inkeyw='\RTFformulaX') then
        form_code[bracelvl]:=truncate24(inkeyw)
      else if(inkeyw='\RTFformulaI') then
        form_code[bracelvl]:=truncate24(inkeyw)
      else if(inkeyw='\RTFformulaSU') then
        form_code[bracelvl]:=truncate24(form_code[bracelvl]+'SU')
      else if(inkeyw='\RTFformulaPR') then
        form_code[bracelvl]:=truncate24(form_code[bracelvl]+'PR')
      else if(inkeyw='\RTFformulaIN') then
        form_code[bracelvl]:=truncate24(form_code[bracelvl]+'IN')
      else if(inkeyw='\RTFformulaRI') then
        form_code[bracelvl]:=truncate24(form_code[bracelvl]+'RI')
      else if(inkeyw='\RTFformulaBO') then
        form_code[bracelvl]:=truncate24(form_code[bracelvl]+'BO')
      else if(inkeyw='\RTFformulaLE') then
        form_code[bracelvl]:=truncate24(form_code[bracelvl]+'LE')
      else if(inkeyw='\RTFformulaTO') then
        form_code[bracelvl]:=truncate24(form_code[bracelvl]+'TO')
{ case of \|<non-alpha> }
      else if(inkeyw='\RTFformula') then
        begin
          if (CAT=0) and (next_rtf[1]='{') then
            begin form_code[bracelvl]:=truncate24(form_code[bracelvl]+'{');
              kar:=' '; next_rtf[1]:=chr(0); { to prevent do_it_again }
            end
          else if (CAT=0) and (next_rtf[1]='}') then
            begin form_code[bracelvl]:=truncate24(form_code[bracelvl]+'}');
              kar:=' '; next_rtf[1]:=chr(0); { to prevent do_it_again }
            end
          else
            begin form_code[bracelvl]:=truncate24(form_code[bracelvl]+kar);
              kar:=' ';  { to prevent do_it_again }
            end
          ; {END IF}
        end
(* case of \{ *)
      else if(inkeyw='\RTFaccol ') then out_math('\{')
(* case of \} *)
      else if(inkeyw='\RTFlocca ') then out_math('\}')
      else
        begin poskeyw:=0; inkeywb:=truncate24(inkeyw+' ');
(* check whether this keyword should be skipped in output *)
          for k:=1 to num_skip_strings do
            poskeyw:=poskeyw+pos(inkeyw,skip_strings[k])
          ; {END DO}
{ output other keywords with an additional space }
          if poskeyw=0 then
            begin outrem_empty_braces; outstg(inkeyw);
{ do not put a space if following is a (, for TeX macros syntax }
              if kar <> '(' then outchr(' ');
            end
          ; {END IF poskeyw}
        end
      ; {END IF}
{ reset KEYW and try again }
      keyw:=0; if(kar <> ' ') then do_it_again:=TRUE;
    end
  ; {END IF cat=11}
end;

{---------------------------------------------------------------------------}
{ treats a character when KEYW is 3 }
{ Numeric arg of Keyword being decoded }

procedure keyw_is_3;
var
  sizeheader : string24;  { will be 'large', 'Large', 'footnotesize'... }
  magnification : integer;  { will be 1000, 1095, 900... }
  diff_cellx, style_ref, poskeyw, k, posmod : integer;
  acc_converted, inkeywb, newfont : string24;
  test_RTFstyle : string_RTFstyle;
begin
  if(cat=16) then
{ case of a digit }
    begin inkeyw:=inkeyw+kar; numval:=10*numval+numsign*(ord(kar)-icharz);
    end
  else
    begin
{ case of a non digit: terminate but ignore some keywords with brace pairs }
      if(pos('RTFsl{',inkeyw) > 0) then
        begin outpsize(numval); sign_str(numval,works);
          println_msg(2,'\RTFsl{'+works+'} -->  \'+spacingcode[bracelvl]);
        end
      else if(pos('RTFli{',inkeyw) > 0) and (center_flag[bracelvl]<2) then
        begin
          if lvlcode[bracelvl]<>8 then leftskip:=numval
          ; {END IF}
        end
      else if(pos('RTFri{',inkeyw) > 0) and (center_flag[bracelvl]<2) then
        begin
          if lvlcode[bracelvl]<>8 then rightskip:=numval
          ; {END IF}
        end
      else if(pos('RTFf{',inkeyw) > 0) then
        begin decl_font_num:=numval; { store numval for further use }
          set_active_RTFf(numval); outstg('{}');
        end
{ use _ and ^ for sub/superscripts and put in math mode if needed }
      else if(pos('RTFup{',inkeyw) > 0) then
        begin
          out_math_leave('\relax^{'); open_brace; auto_close[bracelvl]:=TRUE;
        end
      else if(pos('RTFdn{',inkeyw) > 0) then
        begin
          out_math_leave('\relax_{'); open_brace; auto_close[bracelvl]:=TRUE;
        end
{ ignore \RTFfi if option '-v' }        
      else if (pos('RTFfi{',inkeyw) > 0) then
        begin
          num_indent:=1;
          if (no_space_conv) and(numval>0) then
          else
            begin outkeyw('parindent='); output_num(numval);
              outkeyw('RTFtwips'); output_line;
            end
          ;  
        end
{ style description }
      else if(pos('RTFs{',inkeyw) > 0) then
        begin  sign_str(numval,works);
          if (abs(lvlcode[bracelvl])=8) then
            begin
              if num_styles>=maxRTFstyles then
                println_msg(0,'Too many styles, style '+works+' ignored.')
              else if numval>255 then
                println_msg(0,'Illegal style number, style '+works+' ignored.')
              else
                begin num_styles:=num_styles+1; ref_styles[numval]:=num_styles;
                  test_RTFstyle:=kar;
                  while (kar<>';') and (kar<>'}') do
                    begin read_char; test_RTFstyle:=test_RTFstyle+kar;
                    end
                  ; {END while}
(* clean style to the first blank after \snext *)
                  if kar=';' then kar:=' ';
                  k:=pos('\snext',test_RTFstyle);
                  m:=length(test_RTFstyle);
                  for l:=k to length(test_RTFstyle) do
                    begin if (test_RTFstyle[l]=' ') and (l<m) then m:=l;
                    end
                  ;  sign_str(num_styles,worksa);
(* start at the first space in style text *)
                  n:=pos(' ',test_RTFstyle)+1;
                  RTFstyles[num_styles]:=copy(test_RTFstyle,n,m-n+1);
                  println_msg(2,works+' --> '+worksa+' "'+
                     RTFstyles[num_styles]+'"');
                end
              ; {END IF}
            end
          else
            begin style_ref:=ref_styles[numval];
              if (style_ref<=0) or (style_ref>255) then
                println_msg(0,'Illegal style number, style '+works+' ignored.')
              else
                begin if kar<>' ' then next_rtf:=kar+next_rtf;
                  kar:=' '; next_rtf:=RTFstyles[style_ref]+next_rtf;
                end
              ; {END IF}
            end
          ; {END IF}
        end
{ font size description }
      else if(pos('RTFfs{',inkeyw) + pos('RTFfldinstfs{',inkeyw) > 0)
        and (lvlcode[bracelvl]<>8) then
        begin
{ before putting \LARGE, \Huge etc., remove previous \bf, \rm, etc. }
          outrem_empty_braces; outrem(bfslcode[bracelvl]);

{ output \large, \normalsize, \footnotesize according to NUMVAL }
          outfsize(numval, magnification);

          sizeheader:=truncate24('\'+sizecode[bracelvl]);
          if(sizeheader='\footnotesize') then sizeheader:='\footnsize';

(* correct font names in bfslcode[bracelvl] according to latex209  or latex2e *)
          font_clean(sizeheader,magnification);
          
          if (not par_to_begin) then
            begin output_size(sizecode[bracelvl]);
              output_bfsl;
              if last_is('}') then
              else if last_is('{') then
              else outstg('{}')
              ; {END IF}
            end
          ; {END IF}
        end
      else if(pos('RTFsb{',inkeyw) > 0) then
        begin outkrem('par'); outkrem('par ');
          if(lvlcode[bracelvl]<>8) and (lvlcode[bracelvl]<>9) then outkeyw('par ');
             make_RTFsab(numval);
        end
      else if(pos('RTFsa{',inkeyw) > 0) then save_skip:=numval
      else if(pos('RTFtrleft{',inkeyw) > 0) then (* en attente *)
      else if(pos('\RTFcellx{',inkeyw)>0) and (lvlcode[bracelvl]=13) then
        begin
          (* \RTCcellx gives absolutes abscissae, but tabular's p{} needs differences *)
          diff_cellx:=numval-tab_cellx[bracelvl];
          outstg('p{'); output_num(diff_cellx); outstg('\RTFtwips}');
          if clbrdrl then outchr('|'); clbrdrl:=FALSE;
          tab_nb_cellx[bracelvl]:=tab_nb_cellx[bracelvl]+1;
          tab_cellx[bracelvl]:=numval;
        end
      else if(pos('RTFpicw{',inkeyw) > 0) then
        begin inkeyw:=inkeyw+'}'; outrem_empty_braces; outstg(inkeyw);
          rtfpicw:=NUMVAL;
        end
      else if(pos('RTFpich{',inkeyw) > 0) then
        begin inkeyw:=inkeyw+'}'; outrem_empty_braces; outstg(inkeyw);
          rtfpich:=NUMVAL;
        end
      else if(pos('RTFobjw{',inkeyw) > 0) then
        begin inkeyw:=inkeyw+'}'; outrem_empty_braces; outstg(inkeyw);
          rtfpicw:=NUMVAL;
        end
      else if(pos('RTFobjh{',inkeyw) > 0) then
        begin inkeyw:=inkeyw+'}'; outrem_empty_braces; outstg(inkeyw);
          rtfpich:=NUMVAL;
        end
{ case of \|DO( ... ) }
      else if(pos('\RTFformulaDO{',inkeyw) > 0) then
        if form_code[bracelvl]='' then form_code[bracelvl]:='\RTFformulaSDO'
        else form_code[bracelvl]:=truncate24(form_code[bracelvl]+'DO')
{ case of \|UP( ... ) }
      else if(pos('\RTFformulaUP{',inkeyw) > 0) then
        if form_code[bracelvl]='' then form_code[bracelvl]:='\RTFformulaSUP'
        else form_code[bracelvl]:=truncate24(form_code[bracelvl]+'UP')
{ case of \|FO( ... ) }
      else if(pos('\RTFformulaFO{',inkeyw) > 0) then
        begin
          if form_code[bracelvl]='' then form_code[bracelvl]:='\RTFformulaDFO'
          else form_code[bracelvl]:=truncate24(form_code[bracelvl]+'FO')
          ; displ_skip:=numval;
        end
{ case of \|UP( ... ) }
      else if(pos('\RTFformulaBA{',inkeyw) > 0) then
        begin
          if form_code[bracelvl]='' then form_code[bracelvl]:='\RTFformulaDFO'
          else form_code[bracelvl]:=truncate24(form_code[bracelvl]+'FO')
          ; displ_skip:=-numval;
        end
{ case of \|UP( ... ) }
      else if(pos('\RTFformulaLI{',inkeyw) > 0) then
        begin
          if form_code[bracelvl]='' then form_code[bracelvl]:='\RTFformulaDLI'
          else form_code[bracelvl]:=truncate24(form_code[bracelvl]+'LI')
          ; displ_skip:=numval;
        end
{ case of \|AI( ... ) }
      else if(pos('\RTFformulaAI{',inkeyw) > 0) then
{ case of \|DI( ... ) }
      else if(pos('\RTFformulaDI{',inkeyw) > 0) then
{ this test is eliminate first brace opened }
      else if(pos('RTFrtf{',inkeyw) > 0) then
        begin no_RTFrtf:=FALSE;
          inkeyw:=inkeyw+'}'; outrem_empty_braces; outstg(inkeyw);
        end
{ explicit references to symbol characters }
      else if((pos('RTFfldinstsymbol',inkeyw) +
               pos('RTFfldinstbsymbol',inkeyw) +
               pos('RTFfldinstbisymbol',inkeyw)) > 0) then
        begin if numval>255 then numval:=0;
          acc_converted:=ftech_transl[numval];
          if acc_converted <> '' then out_math(acc_converted)
          else outchr('?')
          ; {END IF acc_converted}
        end
      else
        begin poskeyw:=0; k:=pos('{',inkeyw);
          if k>0 then inkeywb:=copy(inkeyw,1,k)
          else inkeywb:=truncate24(inkeyw+'}');
(* check whether this keyword should be skipped in output *)
          for k:=1 to num_skip_strings do
            poskeyw:=poskeyw+pos(inkeywb,skip_strings[k])
          ; {END DO}
          if poskeyw=0 then
            begin inkeyw:=inkeyw+'}'; outrem_empty_braces; outstg(inkeyw);
            end
          ; {END IF poskeyw}
        end
      ; {END IF}
      keyw:=0;
      if(kar <> ' ') then do_it_again:=TRUE;
    end
  ; {END IF}
end;

{---------------------------------------------------------------------------}
{ treats a character when KEYW is 4 }
{ Hexadecimal arg of RTFac }

procedure keyw_is_4;
var
  acchexa : string2;
  acc_converted : string24;
  posbrace : integer;
begin
  if(cat=10) then

  else if(num_hexa=0) then
    begin num_hexa:=1; hexaone:=kar;
    end
  else if(num_hexa=1) then
    begin hexatwo:=kar; acchexa:=hexaone+hexatwo; begin_par;
      if (active_RTFf[bracelvl]='ftech') then
        begin acc_converted:=ftech_transl[hs_to_i(acchexa)];
          if (acc_converted <> '') then out_math(acc_converted)
          else outkeyw('RTFac{'+acchexa+'}')
          ; {END IF acc_converted}
        end
      else
        begin acc_converted:=acc_transl[hs_to_i(acchexa)];
          if (acc_converted <> '') then
            begin if (acc_converted[1]='\') then outrem_empty_braces;
              posbrace:= pos('{',acc_converted);
              if (acc_converted[1]='$') then
                begin outrem_empty_braces;
                  out_math(copy(acc_converted,2,999));
                end
              else if posbrace<=1 then
                outstgc(acc_converted)
              else if (pos('\c{',acc_converted)
                      +pos('\dag{',acc_converted)
                      +pos('\pound{',acc_converted)
                      +pos('\copyright{',acc_converted)
                      +pos('\degree{',acc_converted))>0 then
                begin
                  outstg(copy(acc_converted,1,posbrace-1));
                  outstgc(copy(acc_converted,posbrace,999));
                end
              else outstgc(acc_converted)
              ; {END IF}
            end
          else
            begin outkeyw('RTFac{'); outstg(acchexa); outchr('}');
            end
          ; {END IF acc_converted}
        end
      ; {END IF active_RTF}
      num_hexa:=0; keyw:=0;
    end
  else
    begin sign_str(num_hexa,works); println_msg(0,'Wrong num_hexa:'+works);
    end
  ; {END IF}

end;

{---------------------------------------------------------------------------}
procedure make_latex_header;
var
  i : integer;
  strpts : string24;
begin
  if latex209 then
    outkeyw('documentstyle[')
  else
    outkeyw('documentclass[')
  ; {END IF}
  if(stdsize <> 10) then
    begin sign_str(stdsize, strpts); outstg(strpts+'pt,')
    end
  ; {END IF}
  outstg('twoside');  

  if latex209 then
    begin
      for i:=0 to num_latex_options do
      outstg(','+latex_options[i]);
      outstg(']{'+latex_style+'}'); output_line;
    end
  else
    begin
      outstg(']{'+latex_style+'}'); output_line;
      outkeyw('usepackage{');
      outstg(latex_options[0]);
      for i:=1 to num_latex_options do
      outstg(','+latex_options[i]);
      outstg('}'); output_line;
    end    
  ;    



  outkeyw('begin{document}\RTFsetfontheading'); output_line;
end;

{---------------------------------------------------------------------------}
{                               MAIN                                        }
{---------------------------------------------------------------------------}
begin
  clean_all;   (* for safety... *)

 latex209:=FALSE; write_log:=FALSE; use_sl:=FALSE; latex_header:=TRUE;
 simplify_ok:=TRUE; no_RTFrtf:=TRUE; base_flag:=FALSE;
 no_space_conv:=FALSE;
 last_percent:=FALSE; num_latex_options:=0; latex_style:='report';
 latex_options[0]:='rtflatex'; kar:=chr(0); save_skip:=0; space_after:=0;
 math_mode[0]:=0; auto_close[0]:=FALSE; bracelvl:=0; input_line_number:=1;
 (* envir_closed_ok:=FALSE; (test) *)
 envir_closed_ok:=TRUE;
 num_styles:=0; displ_skip:=0;
 for k:=0 to 255 do ref_styles[k]:=0;

 verbose:=1; { default moderate verbosity }
 tex_verbose:=0; { no insertion of flags within TeX output }

 title; charinit; sizeinit; open_files;

{ "lvlcode" : say what to do of the contents of that block. 1=ignore
until end of  current block, 2=caps, 3=ignore footnote headings, 4=
ignore contents of first arg of \footnote, 5= \RTFpict text, 6= \fonttbl
declaration, 7= \RTFformulaX[xx], 8= within \stylesheet, 9= within
\header/\footer, 9= within \RTFcolortbl, 10= \RTFobject text, 11=
\RTFfield text, 12= inside \RTFfldinst, 13= inside \RTFtrowd/\RTFrow,
15= inside \RTFtrowd/RTFrow after \RTFintbl, 16=
within \RTFformulaB(...), 17= within \RTFformulaF(...), 18=
\RTFformulaSUP(...), 19= \RTFformulaSDO(...), 20= \RTFformulaI, 21= idem
after ";", 22= idem after second ";", 23= \RTFformulaR, 24= \RTFformulaR
after ";", 25= ordinary brace within a formula, 26=\RTFformulaO,
27=\RTFformulaL, 28=\RTFformulaD }
 lvlcode[0]:=0;

{ bfslcode stores the recorded \bf, \sl, \it, \sf commands
 to repeat them AFTER \large, \Large }
 bfslcode[0]:=''; sizecode[0]:='normalsize'; active_RTFf[0]:='';
close_kar[0]:=' '; form_code[0]:=''; spacingcode[0]:='relax';
currsize[0]:=''; currbfsl[0]:=''; leftskip:=0; rightskip:=0;
leftcurskip:=0; rightcurskip:=0;
tab_nb_cellx[0]:=0; (* the number of cells in a tabular line = #\RTFcellx *)
tab_nb_ands[0]:=0; (* the number of &, must be < #\RTFcellx *)
tab_cellx[0]:=0; (* current \RTFcellx value *)
clbrdrr:=FALSE;  clbrdrl:=FALSE;  clbrdrt:=FALSE;  clbrdrb:=FALSE;

 inkeyw:=''; numl:=0; numval:=0; numsign:=1; num_hexa:=0; ikar:=0; kinp:=0;
 prev_kinp:=0; next_rtf:=''; num_indent:=0;
 num_word_fonts:=0; { number of RTF/Word defined fonts }
 numfonts:=0; { number of specially defined fonts }
 KEYW:=0; { a flag to say whether we are decoding a keyword }
 pict_number:=0; { counts the pictures }

 center_flag[0]:=0; flushright_flag[0]:=0; do_it_again:=FALSE;
 underl_flag[0]:=FALSE; par_to_begin:=TRUE;

 cleanout;  { clean EXFILE for safety }

 if(latex_header) then make_latex_header;

{ main loop to read input RTF file }

 read_next_char;
 while (ikar <> 26) do
  begin
  { read one character unless said to be retried }
    if(do_it_again) then do_it_again:=FALSE
    else read_char
    ; {END IF}
    if(ikar>=ord(' ')) then
      case KEYW of
        0: keyw_is_0;
        1: keyw_is_1;
        2: keyw_is_2;
        3: keyw_is_3;
        4: keyw_is_4;
      end; { case KEYW }
    ; {END IF ikar}

  end;
  if center_flag[bracelvl] > 0 then outkeyw('end{center}');
  if latex_header then outkeyw('end{document}')
  else outkeyw('bye')
  ; {END IF latex_header}
  output_line;

  println_msg(0,'RTFLaTeX terminated');
  sign_str(bracelvl,works); println_msg(0,'brace level finally is:'+works);
  sign_str(numl,works);
  if(numl>0) then println_msg(0,works+' lines of code were generated.');
  sign_str(numfonts,works);
  if(numfonts>0) then println_msg(0,works+' new fonts were declared:');
  for k:=1 to numfonts do println_msg(0,'    '+newfonts[k]);
  sign_str(pict_number,works);
  if(pict_number>0) then println_msg(0,works+' pictures were stored in binary files.');
  close_files;
end.