summaryrefslogtreecommitdiff
path: root/systems/tex-extensions/clasen/vftovp.patch
blob: d787940b024fbf1ce78efac2b50d3e43c9cbaf07 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
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 */