%%%  WEB Change File for VPtoVF (Win32 version)
%%%  Time-stamp: "97/01/03 18:03:20 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{VP\lowercase{to}VF}
@y
\def\MiKTeX{MiK\TeX}
\def\title{VP\lowercase{to}VF for Win32 (\MiKTeX\ 1.06)}
@z

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

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

%% **     6  ******************************************************************

@x
@ @<Set init...@>=
reset(vpl_file);
@y
@ @<Set init...@>=
if (c4pargc <> 4) then begin
 print_ln ('Usage: vptovf inputfile outputfile tfmfile'); c4p_exit(1);
end;
c4p_fopen(vpl_file,c4p_argv[1],c4p_r_mode,true);
reset(vpl_file);
@z

%% **    22  ******************************************************************

@x
@<Set init...@>=
rewrite(vf_file); rewrite(tfm_file);
@y
@<Set init...@>=
if (c4pargc <> 4) then begin
 print_ln ('Usage: vptovf inputfile outputfile tfmfile'); c4p_exit(1);
end;
c4p_fopen(vf_file,c4p_argv[2],c4p_wb_mode,true);
c4p_fopen(tfm_file,c4p_argv[3],c4p_wb_mode,true);
rewrite(vf_file); rewrite(tfm_file);
@z

%% **    24  ******************************************************************

@x
@d first_ord=0 {ordinal number of the smallest element of |char|}
@d last_ord=127 {ordinal number of the largest element of |char|}
@y
@d first_ord=0 {ordinal number of the smallest element of |char|}
@d last_ord=127 {ordinal number of the largest element of |char|}
@z

%% **   182  ******************************************************************

@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;
@z
