/* following bit used to be end of tex1.c */
#ifdef STAT
/* sec 0284 */
-void restore_trace_(halfword p, char * s)
+void restore_trace_(pointer p, const char * s)
{
begin_diagnostic();
print_char('{');
/* sec 0281 */
void unsave (void)
{
- halfword p;
+ pointer p;
quarterword l;
halfword t;
}
}
}
+
done:
cur_group = save_level(save_ptr);
cur_boundary = save_index(save_ptr);
mag_set = mag;
}
/* sec 0295 */
-void token_show_ (halfword p)
+void token_show_ (pointer p)
{
if (p != 0)
show_token_list(link(p), 0, 10000000L);
cur_input = input_stack[input_ptr];
}
/* sec 0323 */
-void begin_token_list_ (halfword p, quarterword t)
+void begin_token_list_ (pointer p, quarterword t)
{
push_input();
state = token_list;
/* sec 0325 */
void back_input (void)
{
- halfword p;
+ pointer p;
while ((state == 0) && (loc == 0) &&
(index != v_template))
overflow("text input levels", max_in_open);
return;
}
+
#ifdef ALLOCATEBUFFER
if (first == current_buf_size)
buffer = realloc_buffer(increment_buf_size);
- if (first == current_buf_size) /* check again after allocation */
+ if (first == current_buf_size)
{
overflow("buffer size", current_buf_size);
return;
/* sec 0336 */
void check_outer_validity (void)
{
- halfword p;
- halfword q;
+ pointer p;
+ pointer q;
if (scanner_status != 0)
{
/* sec 0389 */
void macro_call (void)
{
- halfword r;
- halfword p;
- halfword q;
- halfword s;
- halfword t;
- halfword u, v;
- halfword rbrace_ptr;
+ pointer r;
+ pointer p;
+ pointer q;
+ pointer s;
+ pointer t;
+ pointer u, v;
+ pointer rbrace_ptr;
small_number n;
halfword unbalance;
halfword m;
- halfword ref_count;
+ pointer ref_count;
small_number save_scanner_status;
- halfword save_warning_index;
+ pointer save_warning_index;
ASCII_code match_chr;
save_scanner_status = scanner_status;
if (info(r) < match_token)
goto continu;
+
found:
if (s != 0)
{
param_ptr = param_ptr + n;
}
+
exit:
scanner_status = save_scanner_status;
warning_index = save_warning_index;
{
cur_tok = cs_token_flag + cur_cs;
back_input();
- cur_tok = cs_token_flag + frozen_relax; /* 96/Jan/10 */
+ cur_tok = cs_token_flag + frozen_relax;
back_input();
index = inserted;
}
integer j;
integer cv_backup;
small_number cvl_backup, radix_backup, co_backup;
- halfword backup_backup;
+ pointer backup_backup;
small_number save_scanner_status;
cv_backup = cur_val;
/* sec 0407 */
boolean scan_keyword(const char * s)
{
- halfword p;
- halfword q;
+ pointer p;
+ pointer q;
const char * k;
p = backup_head;
{
cur_chr = buffer[loc];
incr(loc);
+
reswitch:
cur_cmd = cat_code(cur_chr);
buffer[k] = buffer[k + d];
incr(k);
}
+
goto start_cs;
}
}
}
+
cur_cs = single_base + buffer[loc];
incr(loc);
}