{convertor from generated LOG files to the corresponding TeX sources

this program is for dos-systems}

program log2tex;
uses
       dos;
var
       fi,fo:text;
       line:string;
       d:dirstr;
       n:namestr;
       e:extstr;

procedure
       error(txt:string);
begin
       writeln(txt);
       halt(1);
end;

begin
       if paramcount>=1 then begin
               line:=paramstr(1);
       end else begin
               write('input: ');
               readln(line);
       end;
       fsplit(line,d,n,e);
       if e='' then line:=line+'.log';
       assign(fi,line);
       {$i-} reset(fi); {$i+}
       if ioresult<>0 then
               error('can not open input file');
       while not eof(fi) do begin
               readln(fi,line);
               if copy(line,1,4)='$#@!' then begin
                       line:=copy(line,5,255);
                       assign(fo,line+'.tex');
                       {$i-} rewrite(fo); {$i+}
                       if ioresult<>0 then
                               error('can not open output file');
                       break;
               end;
       end;
       while not eof(fi) do begin
               readln(fi,line);
               if copy(line,1,4)='!@#$' then
                       writeln(fo,copy(line,5,255));
       end;
       close(fo);
       close(fi);
end.