summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/mf.ch
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-04-22 23:55:39 +0000
committerKarl Berry <karl@freefriends.org>2008-04-22 23:55:39 +0000
commit84fe7abdb90ee91379d256986b51ebc59f65eb87 (patch)
tree5ae9f62a2875eea941c06982a456440bfbf3ad81 /Build/source/texk/web2c/mf.ch
parent227ddc990601089b65fc3b3ca07220d09c1d116e (diff)
mf 2.718281 from knuth
git-svn-id: svn://tug.org/texlive/trunk@7607 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/mf.ch')
-rw-r--r--Build/source/texk/web2c/mf.ch24
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))