diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /systems/tex-extensions/clasen/vftovp.patch |
Initial commit
Diffstat (limited to 'systems/tex-extensions/clasen/vftovp.patch')
-rw-r--r-- | systems/tex-extensions/clasen/vftovp.patch | 119 |
1 files changed, 119 insertions, 0 deletions
diff --git a/systems/tex-extensions/clasen/vftovp.patch b/systems/tex-extensions/clasen/vftovp.patch new file mode 100644 index 0000000000..d787940b02 --- /dev/null +++ b/systems/tex-extensions/clasen/vftovp.patch @@ -0,0 +1,119 @@ +Wouldn't it be a good idea if *all* programs which read +tfm files would use the mktextfm mechanism ? vftovp is an +example of a program which doesn't with web2c 7.2. The +patch below corrects this. + + + +--- web2c/common.defines Sun Aug 9 23:31:38 1998 ++++ web2c/common.defines2 Sun Aug 9 23:32:45 1998 +@@ -81,6 +81,7 @@ + @define const VFTOVPHELP; + @define const VPTOVFHELP; + @define const WEAVEHELP; ++@define const MAKETEXTFMBYDEFAULT; { added for vftovp } + + @define function abs (); + @define function addressof (); +@@ -133,6 +134,7 @@ + @define function xrealloc (); + @define function xstrdup (); + @define function XTALLOC (); ++@define const kpsesrccompile; { added for vftovp } + + @define procedure aclose (); + @define procedure BIBXRETALLOC (); {For BibTeX.} +@@ -167,6 +169,7 @@ + @define procedure writeln (); + @define procedure xfclose (); + @define procedure xfseek (); ++@define procedure kpsesetprogramenabled (); { added for vftovp } + + @define type boolean = 0..1; + @define type cinttype; +--- cpascal.h Mon Aug 10 00:23:57 1998 ++++ cpascal.h.new Mon Aug 10 00:23:42 1998 +@@ -254,4 +254,13 @@ + /* version.c */ + extern string versionstring; + ++#ifdef VFTOVP ++#include <kpathsea/tex-file.h> ++#include <c-auto.h> ++#define kpsesetprogramenabled kpse_set_program_enabled ++#define kpsesrccompile kpse_src_compile ++#define kpsemaketexoption kpse_maketex_option ++#define MAKETEXTFMBYDEFAULT MAKE_TEX_TFM_BY_DEFAULT ++#endif /* VFTOVP */ ++ + #endif /* not CPASCAL_H */ +--- vftovp.ch Sun Aug 9 23:34:01 1998 ++++ vftovp.ch.new Mon Aug 10 00:15:23 1998 +@@ -22,6 +22,8 @@ + kpse_set_progname (argv[0]); + kpse_init_prog ('VFTOVP', 0, nil, nil); + parse_arguments; ++ kpse_set_program_enabled (kpse_tfm_format, MAKE_TEX_TFM_BY_DEFAULT, ++ kpse_src_compile); + @z + + % [4] No name_length. +@@ -460,7 +462,7 @@ + + @<Define |parse_arguments|@> = + procedure parse_arguments; +-const n_options = 4; {Pascal won't count array lengths for us.} ++const n_options = 6; {Pascal won't count array lengths for us.} + var @!long_options: array[0..n_options] of getopt_struct; + @!getopt_return_val: integer; + @!option_index: c_int_type; +@@ -490,6 +492,12 @@ + else + write_ln (stderr, 'Bad character code format', optarg, '.'); + ++ end else if argument_is ('mktex') then begin ++ kpse_maketex_option (optarg, true); ++ ++ end else if argument_is ('no-mktex') then begin ++ kpse_maketex_option (optarg, false); ++ + end; {Else it was a flag; |getopt| has already done the assignment.} + until getopt_return_val = -1; + +@@ -539,6 +547,24 @@ + long_options[current_option].has_arg := 0; + long_options[current_option].flag := address_of (verbose); + long_options[current_option].val := 1; ++incr (current_option); ++ ++@ Enable mktextfm? ++ ++@<Define the option...@> = ++long_options[current_option].name := 'mktex'; ++long_options[current_option].has_arg := 1; ++long_options[current_option].flag := 0; ++long_options[current_option].val := 0; ++incr (current_option); ++ ++@ Disable mktextfm? ++ ++@<Define the option...@> = ++long_options[current_option].name := 'no-mktex'; ++long_options[current_option].has_arg := 1; ++long_options[current_option].flag := 0; ++long_options[current_option].val := 0; + incr (current_option); + + @ The global variable |verbose| determines whether or not we print +--- help.h Mon Aug 10 00:22:06 1998 ++++ help.h.new Mon Aug 10 00:21:22 1998 +@@ -527,7 +527,8 @@ + -charcode-format=TYPE output character codes according to TYPE,\n\ + either `octal' or `ascii'; default is ascii for\n\ + letters and digits, octal for all else\n\ +--help display this help and exit\n\ ++[-no]-mktex=FMT disable/enable mktexFMT generation (FMT=tfm)\n\ ++-help display this help and exit\n\ + -verbose display progress reports\n\ + -version output version information and exit\n" + #endif /* VFTOVP */ |