%%%  WEB Change File for TFtoPL (Win32 version)
%%%  Time-stamp: "97/01/03 18:16:58 mik"
%%%
%%%  Copyright (C) 1991, 92, 93, 94, 95, 96, 97
%%%	Christian Schenk  <cschenk@berlin.snafu.de>
%%%
%%%  This file is part of MiKTeX.
%%%
%%%  MiKTeX is free software; you can redistribute it and/or
%%%  modify it under the terms of the GNU General Public License as
%%%  published by the Free Software Foundation; either version 2, or (at
%%%  your option) any later version.
%%%  
%%%  MiKTeX is distributed in the hope that it will be useful, but
%%%  WITHOUT ANY WARRANTY; without even the implied warranty of
%%%  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
%%%  General Public License for more details.
%%%  
%%%  You should have received a copy of the GNU General Public License
%%%  along with MiKTeX; if not, write to the Free Software
%%%  Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307,
%%%  USA.

@x
\def\title{TF\lowercase{to}PL}
@y
\def\MiKTeX{MiK\TeX}
\def\title{TF\lowercase{to}PL for Win32 (\MiKTeX\ 1.06}
@z

%% **     2  ******************************************************************

@x
procedure initialize; {this procedure gets things started properly}
  begin print_ln(banner);@/
@y
@<External C routines@>@/
procedure initialize; {this procedure gets things started properly}
  begin print(banner); miktex_banner(output); write_ln;@/
@z

%% **     7  ******************************************************************

@x
@ On some systems you may have to do something special to read a
packed file of bytes. For example, the following code didn't work
when it was first tried at Stanford, because packed files have to be
opened with a special switch setting on the \PASCAL\ that was used.
@^system dependencies@>

@<Set init...@>=
reset(tfm_file);
@y
@ On some systems you may have to do something special to read a
packed file of bytes.
@^system dependencies@>

@<Set init...@>=
if (c4pargc < 2) then begin
  write_ln ('Usage: tftopl inputfile outputfile'); c4p_exit(1);
end;
c4p_fopen(tfm_file,c4p_argv[1],c4p_rb_mode,true);reset(tfm_file);
@z

%% **    17  ******************************************************************

@x
@ @<Set init...@>=
rewrite(pl_file);
@y
@ @<Set init...@>=
if (c4pargc <> 3) then begin
  write_ln ('Syntax: tftopl TFM-file PL-file'); c4p_exit(1);
end;
c4p_fopen(pl_file,c4p_argv[2],c4p_w_mode,true); rewrite(pl_file);
@z

%% **    20  ******************************************************************

@x
@d abort(#)==begin print_ln(#);
  print_ln('Sorry, but I can''t go on; are you sure this is a TFM?');
  goto final_end;
  end
@y
@d goto_final_end==c4p_longjmp(env_buf,1)

@d abort(#)==begin print_ln(#);
  print_ln('Sorry, but I can''t go on; are you sure this is a TFM?');
  goto_final_end
  end
@z

%% **    28  ******************************************************************

@x
@ @<Set init...@>=
ASCII_04:=' !"#$%&''()*+,-./0123456789:;<=>?';@/
ASCII_10:='@@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_';@/
ASCII_14:='`abcdefghijklmnopqrstuvwxyz{|}~ ';@/
MBL_string:='MBL'; RI_string:='RI '; RCE_string:='RCE';
@y
@ @<Set init...@>=
c4p_arrcpy(ASCII_04,' !"#$%&''()*+,-./0123456789:;<=>?');@/
c4p_arrcpy(ASCII_10,'@@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_');@/
c4p_arrcpy(ASCII_14,'`abcdefghijklmnopqrstuvwxyz{|}~ ');@/
c4p_arrcpy(MBL_string,'MBL');@/
c4p_arrcpy(RI_string,'RI ');@/
c4p_arrcpy(RCE_string,'RCE');
@z

%% **   100  ******************************************************************

@x
which introduce new sections, can be inserted here; then only the index
itself will get a new section number.
@^system dependencies@>
@y
which introduce new sections, can be inserted here; then only the index
itself will get a new section number.
@^system dependencies@>

@ @<External C routines@>=
procedure miktex_banner (var f:text); forward;

@ @<Glob...@>=
@!env_buf : c4p_jmp_buf;
@z
