mf 2.718281 from knuth

git-svn-id: svn://tug.org/texlive/trunk@7607 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 5 insertions, 19 deletions

diff --git a/Build/source/texk/web2c/mf.ch b/Build/source/texk/web2c/mf.ch
index e9ea738a48e..95801d39ee5 100644
--- a/Build/source/texk/web2c/mf.ch
+++ b/Build/source/texk/web2c/mf.ch
@@ -315,6 +315,7 @@ end;
 
 @x [3.27] Do file closing in C.
 @ Files can be closed with the \ph\ routine `|close(f)|', which
+@:PASCAL H}{\ph@>
 @^system dependencies@>
 should be used when all input or output with respect to |f| has been completed.
 This makes |f| available to be opened again, if desired; and if |f| was used for
@@ -388,10 +389,12 @@ We define |input_ln| in C, for efficiency.  Nevertheless we quote the module
 @x [3.32] We don't need to open the terminal files.
 @ Here is how to open the terminal files
 in \ph. The `\.{/I}' switch suppresses the first |get|.
+@:PASCAL H}{\ph@>
 @^system dependencies@>
 
 @d t_open_in==reset(term_in,'TTY:','/O/I') {open the terminal for text input}
-@d t_open_out==rewrite(term_out,'TTY:','/O') {open the terminal for text output}
+@d t_open_out==rewrite(term_out,'TTY:','/O')
+ {open the terminal for text output}
 @y
 @ Here is how to open the terminal files.  |t_open_out| does nothing.
 |t_open_in|, on the other hand, does the work of ``rescanning,'' or getting
@@ -402,6 +405,7 @@ any command line arguments the user has provided.  It's defined in C.
 
 @x [3.33] Flushing output.
 these operations can be specified in \ph:
+@:PASCAL H}{\ph@>
 @^system dependencies@>
 
 @d update_terminal == break(term_out) {empty the terminal output buffer}
@@ -1328,24 +1332,6 @@ end;
 {Same thing}
 @z
 
-@x [28.585] Check for overflow of the serial numbers.
-@d s_scale=64 {the serial numbers are multiplied by this factor}
-@d new_indep(#)== {create a new independent variable}
-  begin type(#):=independent; serial_no:=serial_no+s_scale;
-  value(#):=serial_no;
-  end
-@y
-@d s_scale=64 {the serial numbers are multiplied by this factor}
-@d max_indep_vars==@'177777777 {$2^{25}-1$}
-@d max_serial_no==@'17777777700 {|max_indep_vars*s_scale|}
-@d new_indep(#)== {create a new independent variable}
-  begin if serial_no=max_serial_no then
-    overflow("independent variables",max_indep_vars);
-  type(#):=independent; serial_no:=serial_no+s_scale;
-  value(#):=serial_no;
-  end
-@z
-
 @x [596] Use halfp.
 @ @<Contribute a term from |q|, multiplied by~|f|@>=
 begin if tt=dependent then v:=take_fraction(f,value(q))