diff options
Diffstat (limited to 'Build/source/texk/web2c/tangle.ch')
-rw-r--r-- | Build/source/texk/web2c/tangle.ch | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/tangle.ch b/Build/source/texk/web2c/tangle.ch index 773dc4ec890..ca409cc0825 100644 --- a/Build/source/texk/web2c/tangle.ch +++ b/Build/source/texk/web2c/tangle.ch @@ -44,6 +44,16 @@ \def\title{TANGLE changes for C} @z +@x [2] Eliminate the |end_of_TANGLE| label. +@d end_of_TANGLE = 9999 {go here to wrap it up} + +@y +@z +@x +label end_of_TANGLE; {go here to finish} +@y +@z + @x [2] Define and call parse_arguments. procedure initialize; var @<Local variables for initialization@>@/ @@ -175,7 +185,7 @@ rewrite (Pascal_file, pascal_name); begin while not eoln(f) do vgetc(f); @z -@x [??] Fix `jump_out'. +@x [35] Fix `jump_out'. @d fatal_error(#)==begin new_line; print(#); error; mark_fatal; jump_out; end @@ -617,6 +627,11 @@ print (banner); {print a ``banner line''} print_ln (version_string); @z +@x Eliminate the |end_of_TANGLE| label. +end_of_TANGLE: +@y +@z + @x @<Print the job |history|@>; @y |