summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2020-05-05 16:14:13 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2020-05-05 16:14:13 +0000
commit88d5f13ac212b295beed6f128c37d7b8e87753c6 (patch)
tree6b8966a4fa0e8dcecf0690480901e30641312eef
parentaf9ae578a0fcb6d471ca5703da7a249bc45cc972 (diff)
Fix section numbering for MFT and VFTOVP.
git-svn-id: svn://tug.org/texlive/trunk@55028 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Build/source/texk/web2c/ChangeLog5
-rw-r--r--Build/source/texk/web2c/mft.ch206
-rw-r--r--Build/source/texk/web2c/vftovp.ch8
3 files changed, 113 insertions, 106 deletions
diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog
index 7e68cfe852e..4d41ed72b14 100644
--- a/Build/source/texk/web2c/ChangeLog
+++ b/Build/source/texk/web2c/ChangeLog
@@ -1,3 +1,8 @@
+2020-05-05 Andreas Scherer <https://ascherer.github.io>
+
+ * mft.ch: Restore section numbering from mft.web.
+ * vftovp.ch: Restore section numbering from vftovp.web.
+
2020-05-04 Andreas Scherer <https://ascherer.github.io>
* tex.ch: Restore section numbering from tex.web.
diff --git a/Build/source/texk/web2c/mft.ch b/Build/source/texk/web2c/mft.ch
index 9f028aba5de..d989c3cd6ba 100644
--- a/Build/source/texk/web2c/mft.ch
+++ b/Build/source/texk/web2c/mft.ch
@@ -838,75 +838,6 @@ pr3("%")("%")("%")(set_format);@/
pr4("%")("%")("%")("%")(mft_comment);@/
pr1("#")(sharp);@/
pr4("g")("o")("o")("d")(special_tag);@/
-
-@ Store primitives specific for \MF.
-
-@<Store all the prim...@>=
-if not metapost then begin
- pr12("a")("u")("t")("o")("r")("o")("u")("n")("d")("i")("n")("g")(internal);@/
- pr7("c")("h")("a")("r")("f")("a")("m")(internal);@/
- pr8("d")("r")("o")("p")("p")("i")("n")("g")(command);@/
- pr7("d")("i")("s")("p")("l")("a")("y")(command);@/
- pr6("f")("i")("l")("l")("i")("n")(internal);@/
- pr11("g")("r")("a")("n")("u")("l")("a")("r")("i")("t")("y")(internal);@/
- pr8("i")("n")("w")("i")("n")("d")("o")("w")(bbinary);@/
- pr4("h")("p")("p")("p")(internal);@/
- pr7("k")("e")("e")("p")("i")("n")("g")(command);@/
- pr10("n")("u")("m")("s")("p")("e")("c")("i")("a")("l")(command);@/
- pr10("o")("p")("e")("n")("w")("i")("n")("d")("o")("w")(command);@/
- pr9("s")("m")("o")("o")("t")("h")("i")("n")("g")(internal);@/
- pr4("v")("p")("p")("p")(internal);@/
- pr11("t")("o")("t")("a")("l")("w")("e")("i")("g")("h")("t")(op);@/
- pr12("t")("r")("a")("c")("i")("n")("g")("e")("d")("g")("e")("s")(internal);@/
- pr10("w")("i")("t")("h")("w")("e")("i")("g")("h")("t")(command);@/
-end;
-
-@ Store primitives specific for \MP.
-
-@<Store all the prim...@>=
-if metapost then begin
- pr9("a")("r")("c")("l")("e")("n")("g")("t")("h")(op);@/
- pr7("a")("r")("c")("t")("i")("m")("e")(command);@/
- pr8("b")("l")("u")("e")("p")("a")("r")("t")(op);@/
- pr7("b")("o")("u")("n")("d")("e")("d")(op);@/
- pr4("b")("t")("e")("x")(btex_code);@/
- pr4("c")("l")("i")("p")(command);@/
- pr7("c")("l")("i")("p")("p")("e")("d")(op);@/
- pr9("c")("l")("o")("s")("e")("f")("r")("o")("m")(input_command);@/
- pr5("c")("o")("l")("o")("r")(type_name);@/
- pr6("d")("a")("s")("h")("e")("d")(command);@/
- pr8("d")("a")("s")("h")("p")("a")("r")("t")(op);@/
- pr4("e")("t")("e")("x")(etex_marker);@/
- pr6("f")("i")("l")("l")("e")("d")(op);@/
- pr8("f")("o")("n")("t")("p")("a")("r")("t")(op);@/
- pr8("f")("o")("n")("t")("s")("i")("z")("e")(op);@/
- pr9("g")("r")("e")("e")("n")("p")("a")("r")("t")(op);@/
- pr6("i")("n")("f")("o")("n")("t")(binary);@/
- pr8("l")("i")("n")("e")("j")("o")("i")("n")(internal);@/
- pr7("l")("i")("n")("e")("c")("a")("p")(internal);@/
- pr8("l")("l")("c")("o")("r")("n")("e")("r")(op);@/
- pr8("l")("r")("c")("o")("r")("n")("e")("r")(op);@/
- pr10("m")("i")("t")("e")("r")("l")("i")("m")("i")("t")(internal);@/
- pr8("m")("p")("x")("b")("r")("e")("a")("k")(bold);@/
- pr8("p")("a")("t")("h")("p")("a")("r")("t")(op);@/
- pr7("p")("e")("n")("p")("a")("r")("t")(op);@/
- pr9("p")("r")("o")("l")("o")("g")("u")("e")("s")(internal);@/
- pr7("r")("e")("d")("p")("a")("r")("t")(op);@/
- pr8("r")("e")("a")("d")("f")("r")("o")("m")(input_command);@/
- pr9("s")("e")("t")("b")("o")("u")("n")("d")("s")(command);@/
- pr7("s")("t")("r")("o")("k")("e")("d")(op);@/
- pr8("t")("e")("x")("t")("p")("a")("r")("t")(op);@/
- pr7("t")("e")("x")("t")("u")("a")("l")(op);@/
- pr16("t")("r")("a")("c")("i")("n")("g")
- ("l")("o")("s")("t")("c")("h")("a")("r")("s")(internal);@/
- pr11("t")("r")("u")("e")("c")("o")("r")("n")("e")("r")("s")(internal);@/
- pr8("u")("l")("c")("o")("r")("n")("e")("r")(op);@/
- pr8("u")("r")("c")("o")("r")("n")("e")("r")(op);@/
- pr11("v")("e")("r")("b")("a")("t")("i")("m")("t")("e")("x")(verbatim_code);@/
- pr6("w")("i")("t")("h")("i")("n")(bbinary);@/
- pr9("w")("i")("t")("h")("c")("o")("l")("o")("r")(command);@/
- pr5("w")("r")("i")("t")("e")(command);@/
-end;
@z
% The code below follows ideas from the section 646 of `mp.web'.
@@ -981,43 +912,6 @@ else write(tex_file,'\input mftmac');
verbatim_code,btex_code:@<Copy \TeX\ material@>;
@z
-% Here an extra section is added.
-%
-% `btex' token is translated to `\mftbeginB' and
-% `verbatimtex' to `\mftbeginV'.
-% `etex' is translated to `\mftend'.
-% These \TeX\ macros are defined in \.{mptmac.tex}.
-@x [98]
-@ @<Do special actions at the start of a line@>=
-@y
-@ @<Copy \TeX\ material@>=
- begin out4("\")("m")("f")("t"); out5("b")("e")("g")("i")("n");
- if cur_type=verbatim_code then begin
- out("V");
- scanner_status:=verbatimtex_flushing;
- end else if cur_type=btex_code then begin
- out("B");
- scanner_status:=btex_flushing;
- end;
- out("{"); out_name(cur_tok); out("}");
- get_next;
- while cur_type<>etex_marker do begin
- if cur_type=indentation then begin out(" "); end
- else if cur_type=end_of_line then begin
- flush_buffer(out_ptr,false);
- empty_buffer:=true;
- end
- else copy(id_first);
- get_next;
- end;
- out4("\")("m")("f")("t"); out3("e")("n")("d");
- out("{"); out_name(cur_tok); out("}");
- if scanner_status=verbatimtex_flushing then out("$");
- scanner_status:=normal;
- end
-@ @<Do special actions at the start of a line@>=
-@z
-
% [112] Print newline at end of run, exit based upon value of history,
% and remove the end_of_MFT label.
@x
@@ -1207,4 +1101,104 @@ long_options[current_option].name := 0;
long_options[current_option].has_arg := 0;
long_options[current_option].flag := 0;
long_options[current_option].val := 0;
+
+@ Store primitives specific for \MF.
+
+@<Store all the prim...@>=
+if not metapost then begin
+ pr12("a")("u")("t")("o")("r")("o")("u")("n")("d")("i")("n")("g")(internal);@/
+ pr7("c")("h")("a")("r")("f")("a")("m")(internal);@/
+ pr8("d")("r")("o")("p")("p")("i")("n")("g")(command);@/
+ pr7("d")("i")("s")("p")("l")("a")("y")(command);@/
+ pr6("f")("i")("l")("l")("i")("n")(internal);@/
+ pr11("g")("r")("a")("n")("u")("l")("a")("r")("i")("t")("y")(internal);@/
+ pr8("i")("n")("w")("i")("n")("d")("o")("w")(bbinary);@/
+ pr4("h")("p")("p")("p")(internal);@/
+ pr7("k")("e")("e")("p")("i")("n")("g")(command);@/
+ pr10("n")("u")("m")("s")("p")("e")("c")("i")("a")("l")(command);@/
+ pr10("o")("p")("e")("n")("w")("i")("n")("d")("o")("w")(command);@/
+ pr9("s")("m")("o")("o")("t")("h")("i")("n")("g")(internal);@/
+ pr4("v")("p")("p")("p")(internal);@/
+ pr11("t")("o")("t")("a")("l")("w")("e")("i")("g")("h")("t")(op);@/
+ pr12("t")("r")("a")("c")("i")("n")("g")("e")("d")("g")("e")("s")(internal);@/
+ pr10("w")("i")("t")("h")("w")("e")("i")("g")("h")("t")(command);@/
+end;
+
+@ Store primitives specific for \MP.
+
+@<Store all the prim...@>=
+if metapost then begin
+ pr9("a")("r")("c")("l")("e")("n")("g")("t")("h")(op);@/
+ pr7("a")("r")("c")("t")("i")("m")("e")(command);@/
+ pr8("b")("l")("u")("e")("p")("a")("r")("t")(op);@/
+ pr7("b")("o")("u")("n")("d")("e")("d")(op);@/
+ pr4("b")("t")("e")("x")(btex_code);@/
+ pr4("c")("l")("i")("p")(command);@/
+ pr7("c")("l")("i")("p")("p")("e")("d")(op);@/
+ pr9("c")("l")("o")("s")("e")("f")("r")("o")("m")(input_command);@/
+ pr5("c")("o")("l")("o")("r")(type_name);@/
+ pr6("d")("a")("s")("h")("e")("d")(command);@/
+ pr8("d")("a")("s")("h")("p")("a")("r")("t")(op);@/
+ pr4("e")("t")("e")("x")(etex_marker);@/
+ pr6("f")("i")("l")("l")("e")("d")(op);@/
+ pr8("f")("o")("n")("t")("p")("a")("r")("t")(op);@/
+ pr8("f")("o")("n")("t")("s")("i")("z")("e")(op);@/
+ pr9("g")("r")("e")("e")("n")("p")("a")("r")("t")(op);@/
+ pr6("i")("n")("f")("o")("n")("t")(binary);@/
+ pr8("l")("i")("n")("e")("j")("o")("i")("n")(internal);@/
+ pr7("l")("i")("n")("e")("c")("a")("p")(internal);@/
+ pr8("l")("l")("c")("o")("r")("n")("e")("r")(op);@/
+ pr8("l")("r")("c")("o")("r")("n")("e")("r")(op);@/
+ pr10("m")("i")("t")("e")("r")("l")("i")("m")("i")("t")(internal);@/
+ pr8("m")("p")("x")("b")("r")("e")("a")("k")(bold);@/
+ pr8("p")("a")("t")("h")("p")("a")("r")("t")(op);@/
+ pr7("p")("e")("n")("p")("a")("r")("t")(op);@/
+ pr9("p")("r")("o")("l")("o")("g")("u")("e")("s")(internal);@/
+ pr7("r")("e")("d")("p")("a")("r")("t")(op);@/
+ pr8("r")("e")("a")("d")("f")("r")("o")("m")(input_command);@/
+ pr9("s")("e")("t")("b")("o")("u")("n")("d")("s")(command);@/
+ pr7("s")("t")("r")("o")("k")("e")("d")(op);@/
+ pr8("t")("e")("x")("t")("p")("a")("r")("t")(op);@/
+ pr7("t")("e")("x")("t")("u")("a")("l")(op);@/
+ pr16("t")("r")("a")("c")("i")("n")("g")
+ ("l")("o")("s")("t")("c")("h")("a")("r")("s")(internal);@/
+ pr11("t")("r")("u")("e")("c")("o")("r")("n")("e")("r")("s")(internal);@/
+ pr8("u")("l")("c")("o")("r")("n")("e")("r")(op);@/
+ pr8("u")("r")("c")("o")("r")("n")("e")("r")(op);@/
+ pr11("v")("e")("r")("b")("a")("t")("i")("m")("t")("e")("x")(verbatim_code);@/
+ pr6("w")("i")("t")("h")("i")("n")(bbinary);@/
+ pr9("w")("i")("t")("h")("c")("o")("l")("o")("r")(command);@/
+ pr5("w")("r")("i")("t")("e")(command);@/
+end;
+
+@ Here an extra section is added.
+% `btex' token is translated to `\mftbeginB' and
+% `verbatimtex' to `\mftbeginV'.
+% `etex' is translated to `\mftend'.
+% These \TeX\ macros are defined in \.{mptmac.tex}.
+@<Copy \TeX\ material@>=
+ begin out4("\")("m")("f")("t"); out5("b")("e")("g")("i")("n");
+ if cur_type=verbatim_code then begin
+ out("V");
+ scanner_status:=verbatimtex_flushing;
+ end else if cur_type=btex_code then begin
+ out("B");
+ scanner_status:=btex_flushing;
+ end;
+ out("{"); out_name(cur_tok); out("}");
+ get_next;
+ while cur_type<>etex_marker do begin
+ if cur_type=indentation then begin out(" "); end
+ else if cur_type=end_of_line then begin
+ flush_buffer(out_ptr,false);
+ empty_buffer:=true;
+ end
+ else copy(id_first);
+ get_next;
+ end;
+ out4("\")("m")("f")("t"); out3("e")("n")("d");
+ out("{"); out_name(cur_tok); out("}");
+ if scanner_status=verbatimtex_flushing then out("$");
+ scanner_status:=normal;
+ end
@z
diff --git a/Build/source/texk/web2c/vftovp.ch b/Build/source/texk/web2c/vftovp.ch
index 7db1128a8bb..389255f9c10 100644
--- a/Build/source/texk/web2c/vftovp.ch
+++ b/Build/source/texk/web2c/vftovp.ch
@@ -268,6 +268,14 @@ default_directory:=default_directory_name;
@z
@x [44] Don't append `.tfm' here, and keep lowercase.
+@ The string |cur_name| is supposed to be set to the external name of the
+\.{TFM} file for the current font. This usually means that we need to
+prepend the name of the default directory, and
+to append the suffix `\.{.TFM}'. Furthermore, we change lower case letters
+to upper case, since |cur_name| is a \PASCAL\ string.
+@^system dependencies@>
+
+@<Move font name into the |cur_name| string@>=
for k:=1 to name_length do cur_name[k]:=' ';
if a=0 then
begin for k:=1 to default_directory_name_length do