diff options
Diffstat (limited to 'Build/source/texk/web2c/omegaware/odvitype.ch')
-rw-r--r-- | Build/source/texk/web2c/omegaware/odvitype.ch | 37 |
1 files changed, 27 insertions, 10 deletions
diff --git a/Build/source/texk/web2c/omegaware/odvitype.ch b/Build/source/texk/web2c/omegaware/odvitype.ch index c62e7bb17e0..be75e4196f7 100644 --- a/Build/source/texk/web2c/omegaware/odvitype.ch +++ b/Build/source/texk/web2c/omegaware/odvitype.ch @@ -1,5 +1,5 @@ % odvitype.ch: web2c changes for file odvitype.web -% +% % This file is part of the Omega project, which % is based in the web2c distribution of TeX. % @@ -199,6 +199,14 @@ begin end; @z +@x [35] Avoid compiler warnings +read_tfm_word; +@y +nco:=0; extra_words:=0; +read_tfm_word; +@z + + @x [35] Make 16-bit TFM calculations work. if (b0*256+b1)<>0 then begin {TFM file} ofm_level:=-1; @@ -533,6 +541,15 @@ end; cur_name[r] := 0; {Append null byte for C.} @z +@x [75] Diagnose impossible cases. +sixty_four_cases(fnt_num_0): first_par:=o-fnt_num_0; +end; +@y +sixty_four_cases(fnt_num_0): first_par:=o-fnt_num_0; +othercases abort('internal error'); +endcases; +@z + @x [80] (major,minor) optionally show opcode @d show(#)==begin flush_text; showing:=true; print(a:1,': ',#); end @@ -608,26 +625,26 @@ begin end else if argument_is ('version') then begin print_version_and_exit (banner, nil, 'J. Plaice, Y. Haralambous, D.E. Knuth', nil); - + end else if argument_is ('output-level') then begin out_mode := atou (optarg); if (out_mode = 0) or (out_mode > 4) then begin write_ln (stderr, 'Value for --output-level must be >= 1 and <= 4.'); uexit (1); end; - + end else if argument_is ('page-start') then begin @<Determine the desired |start_count| values from |optarg|@>; - + end else if argument_is ('max-pages') then begin max_pages := atou (optarg); - + end else if argument_is ('dpi') then begin resolution := atof (optarg); - + end else if argument_is ('magnification') then begin new_mag := atou (optarg); - + end; {Else it was a flag; |getopt| has already done the assignment.} until getopt_return_val = -1; @@ -680,7 +697,7 @@ long_options[current_option].flag := 0; long_options[current_option].val := 0; incr (current_option); -@ Parsing the starting page specification is a bit complicated. +@ Parsing the starting page specification is a bit complicated. @<Determine the desired |start_count|...@> = k := 0; {which \.{\\count} register we're on} @@ -689,7 +706,7 @@ while optarg[m] do begin if optarg[m] = "*" then begin start_there[k] := false; incr (m); - + end else if optarg[m] = "." then begin incr (k); if k >= 10 then begin @@ -697,7 +714,7 @@ while optarg[m] do begin uexit (1); end; incr (m); - + end else begin start_count[k] := strtol (optarg + m, address_of (end_num), 10); if end_num = optarg + m then begin |