start = 1;
index = 0;
line = 0;
- cur_input.name_field = 0;
+ name = 0;
force_eof = false;
align_state = 1000000L;
}
}
-int test_align (int address, int size, char *name)
+int test_align (int address, int size, char *str)
{
int n;
if (n != 0)
{
- sprintf(log_line, "OFFSET %d (ELEMENT %d) in %s\n", n, size, name);
+ sprintf(log_line, "OFFSET %d (ELEMENT %d) in %s\n", n, size, str);
show_line(log_line, 0);
}
/* this is then undone in tex3.c both for fopen input and output */
/* not ideal, since pseudo name appears in log and in error messages ... */
-void hidetwiddle (char *name)
+void hidetwiddle (char *tname)
{
- char *s = name;
+ char *s = tname;
#ifdef DEBUGTWIDDLE
if (trace_flag)
{
- sprintf(log_line, "Hidetwiddle %s", name);
+ sprintf(log_line, "Hidetwiddle %s", tname);
show_line(log_line, 0);
}
#endif
#ifdef DEBUGTWIDDLE
if (trace_flag)
{
- sprintf(log_line, "=> %s\n", name);
+ sprintf(log_line, "=> %s\n", tname);
show_line(log_line, 0);
}
#endif
#define EXTERN extern
#include "texd.h"
+#undef name
extern char * dvi_directory;
extern char * log_directory;
cur_input = input_stack[base_ptr];
if ((state != token_list))
- if ((cur_input.name_field > 17) || (base_ptr == 0))
+ if ((name > 17) || (base_ptr == 0))
bottom_line = true;
if ((base_ptr == input_ptr) || bottom_line || (nn < error_context_lines))
if (state != token_list)
{
- if (cur_input.name_field <= 17)
- if ((cur_input.name_field == 0))
+ if (name <= 17)
+ if ((name == 0))
if (base_ptr == 0)
print_nl("<*>");
else
{
print_nl("<read ");
- if (cur_input.name_field == 17)
+ if (name == 17)
print_char('*');
else
- print_int(cur_input.name_field - 1);
+ print_int(name - 1);
print_char('>');
}
{
print_ln();
- if (cur_input.name_field > 17)
- print(cur_input.name_field);
+ if (name > 17)
+ print(name);
print_char('(');
print_int(line);
case macro:
print_ln();
- print_cs(cur_input.name_field);
+ print_cs(name);
break;
case output_text:
line_stack[index] = line;
start = first;
state = 1;
- cur_input.name_field = 0;
+ name = 0;
}
/* sec 0329 */
void end_file_reading (void)
first = start;
line = line_stack[index];
- if (cur_input.name_field > 17)
+ if (name > 17)
a_close(cur_file);
pop_input();
/* sec 0330 */
void clear_for_error_prompt (void)
{
- while ((state != 0) && (cur_input.name_field == 0) &&
+ while ((state != 0) && (name == 0) &&
(input_ptr > 0) && (loc > limit))
end_file_reading();
if (cur_cs != 0)
{
- if ((state == 0) || (cur_input.name_field < 1) || (cur_input.name_field > 17))
+ if ((state == 0) || (name < 1) || (name > 17))
{
p = get_avail();
info(p) = cs_token_flag + cur_cs;
end_token_list();
begin_token_list(ref_count, macro);
- cur_input.name_field = warning_index;
+ name = warning_index;
loc = link(r);
if (n > 0)
{
state = new_line;
- if (cur_input.name_field > 17)
+ if (name > 17)
{
incr(line);
first = start;
}
else
{
- if (!(cur_input.name_field == 0))
+ if (!(name == 0))
{
cur_cmd = 0;
cur_chr = 0;
do
{
begin_file_reading();
- cur_input.name_field = m + 1;
+ name = m + 1;
if (read_open[m] == closed)
if (interaction > nonstop_mode)
}
done:
- cur_input.name_field = a_make_name_string(cur_file);
+ name = a_make_name_string(cur_file);
if (job_name == 0)
{
open_log_file();
}
- if (term_offset + length(cur_input.name_field) > max_print_line - 2)
+ if (term_offset + length(name) > max_print_line - 2)
print_ln();
else if ((term_offset > 0) || (file_offset > 0))
print_char(' ');
if (open_parens > max_open_parens)
max_open_parens = open_parens;
- slow_print(cur_input.name_field);
+ slow_print(name);
update_terminal();
state = new_line;
#define index cur_input.index_field
#define start cur_input.start_field
#define limit cur_input.limit_field
-//#define name
+#define name cur_input.name_field
/* sec 0303 */
#define mid_line 1
#define skip_blanks 2 + max_char_code // 17