summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/alephdir/com16bit.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/alephdir/com16bit.ch')
-rw-r--r--Build/source/texk/web2c/alephdir/com16bit.ch33
1 files changed, 21 insertions, 12 deletions
diff --git a/Build/source/texk/web2c/alephdir/com16bit.ch b/Build/source/texk/web2c/alephdir/com16bit.ch
index 42e4faa3f0c..fea714b8777 100644
--- a/Build/source/texk/web2c/alephdir/com16bit.ch
+++ b/Build/source/texk/web2c/alephdir/com16bit.ch
@@ -271,7 +271,7 @@ if ini_version then
% [3.26] name_of_file is no longer an array. And change the destination
% type to text_char, which fixes:
-%
+%
% Date: 19 Sep 1994 10:38:24 +0200
% From: thorinn@diku.dk (Lars Mathiesen)
% When echoed to the screen and in the log, character codes
@@ -420,7 +420,7 @@ We define |input_ln| in C, for efficiency.
tini@/
@#
@!bound_default:integer; {temporary for setup}
-@!bound_name:^char; {temporary for setup}
+@!bound_name:const_cstring; {temporary for setup}
@#
@!main_memory:integer; {total memory words allocated in initex}
@!extra_mem_bot:integer; {|mem_min:=mem_bot-extra_mem_bot| except in \.{INITEX}}
@@ -578,6 +578,16 @@ if last > first then
@!init function get_strings_started:boolean; {initializes the string pool,
@z
+@x - unused variables.
+var k,@!l:0..biggest_char; {small indices or counters}
+@!m,@!n:text_char; {characters input from |pool_file|}
+@!g:str_number; {garbage}
+@!a:integer; {accumulator for check sum}
+@!c:boolean; {check sum has been checked}
+@y
+var g:str_number; {garbage}
+@z
+
@x
@ @d bad_pool(#)==begin wake_up_terminal; write_ln(term_out,#);
a_close(pool_file); get_strings_started:=false; return;
@@ -1403,10 +1413,10 @@ var k:0..buf_size; {index into |buffer|}
if e=".tex" then show_context;
@y
if (e=".tex") or (e="") then show_context;
-print_ln; print("(Type <return> to retry, or <eof> to exit");
+print_ln; print_c_string(prompt_file_name_help_msg);
if (e<>"") then
begin
- print(" Default file extension is `"); print(e); print("'");
+ print("; default file extension is `"); print(e); print("'");
end;
print(")"); print_ln;
@z
@@ -1443,8 +1453,7 @@ ship out a box of stuff, we shall use the macro |ensure_dvi_open|.
@x [29.534] l.10285 - Adjust for C string conventions.
@!months:packed array [1..36] of char; {abbreviations of month names}
@y
-@!months:^char;
-j:integer;
+@!months:const_cstring;
@z
@x [29.534] l. - Send the job_name to the file recorder.
@@ -1491,7 +1500,7 @@ pack_cur_name;
loop@+ begin begin_file_reading; {set up |cur_file| and new level of input}
tex_input_type := 1; {Tell |open_input| we are \.{\\input}.}
{Kpathsea tries all the various ways to get the file.}
- if open_in_name_ok(name_of_file+1)
+ if kpse_in_name_ok(name_of_file+1)
and a_open_in(cur_file, kpse_tex_format) then
goto done;
@z
@@ -1658,7 +1667,7 @@ if abs(intcast(fit_class)-intcast(fitness(r)))>1 then d:=d+adj_demerits;
@y
@!trie_pointer=0..ssup_trie_size; {an index into |trie|}
@z
-
+
@x [42.921] l.18075 - bigtrie: allow larger hyphenation tries.
@!trie:array[trie_pointer] of two_halves; {|trie_link|, |trie_char|, |trie_op|}
@y
@@ -2011,7 +2020,7 @@ else kpse_make_tex_discard_errors := 0;
@y
pack_cur_name;
tex_input_type:=0; {Tell |open_input| we are \.{\\openin}.}
- if open_in_name_ok(name_of_file+1)
+ if kpse_in_name_ok(name_of_file+1)
and a_open_in(read_file[n], kpse_tex_format) then
read_open[n]:=just_open;
@z
@@ -2139,7 +2148,7 @@ if x<>mem_bot then goto bad_fmt;
undump_int(mem_top); format_debug ('mem_top')(mem_top);
if mem_bot+1100>mem_top then goto bad_fmt;
-
+
head:=contrib_head; tail:=contrib_head;
page_tail:=page_head; {page initialization}
@@ -2658,8 +2667,8 @@ var j:small_number; {write stream number}
prompt_file_name("output file name",".tex");
write_open[j]:=true;
@y
- while not a_open_out(write_file[j])
- or not open_out_name_ok(name_of_file+1) do
+ while not kpse_out_name_ok(name_of_file+1)
+ or not a_open_out(write_file[j]) do
prompt_file_name("output file name",".tex");
write_open[j]:=true;
{If on first line of input, log file is not ready yet, so don't log.}