summaryrefslogtreecommitdiff
path: root/systems/tex-extensions/clasen/vftovp.patch
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /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.patch119
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 */