{
char old_setting;
integer nn;
- bool bottomline;
+ boolean bottomline;
integer i;
integer j;
integer l;
break;
default:
- print_cmd_chr(assign_toks, t + (hash_size + 1307));
+ print_cmd_chr(assign_toks, t - output_text + output_routine_loc);
break;
}
print(buffer[k]);
first = cur_input.limit_field;
-
- {
- ;
- print_string("=>");
- term_input("=>", 0);
- }
+ prompt_input("=>");
if (last > first)
{
back_input();
}
/* sec 0407 */
-bool scan_keyword_(char * s)
+boolean scan_keyword_(const char * s)
{
halfword p;
halfword q;
- char * k;
+ const char * k;
p = backup_head;
link(p) = 0;
cur_val = f;
}
/* sec 0578 */
-void find_font_dimen_(bool writing)
+void find_font_dimen_(boolean writing)
{
internal_font_number f;
integer n;
cur_val = fmem_ptr - 1;
}
else if (n > 0)
- cur_val = n + param_base[f]; /* 98/Oct/5 */
-// else
-// cur_val = (&font_check[f] - &font_info[0]); /* 98/Oct/5 */
-/* checksum = (((font_check[f].b0) << 8 | font_check[f].b1) << 8 |
- font_check[f].b2) << 8 | font_check[f].b3; */
+ cur_val = n + param_base[f];
}
-/* compiler error: '-' : incompatible types - from 'union fmemoryword *' to 'struct fourunsignedchars *' */
+
if (cur_val == fmem_ptr)
{
print_err("Font ");
-/* print_esc(hash[(hash_size + 524) + f].rh); */
print_esc(""); print(font_id_text(f));
print_string(" has only ");
print_int(font_params[f]);
}
}
/* sec 0413 */
-void scan_something_internal_(small_number level, bool negative)
+void scan_something_internal_(small_number level, boolean negative)
{
halfword m;
integer p;
scan_font_ident();
{
- cur_val = font_id_base + cur_val; /* 96/Jan/10 */
+ cur_val = font_id_base + cur_val;
cur_val_level = ident_val;
}
}
break;
case set_aux:
- if (abs(mode)!= m)
+ if (abs(mode) != m)
{
print_err("Improper ");
print_cmd_chr(set_aux, m);
nest[nest_ptr] = cur_list;
p = nest_ptr;
- while (abs(nest[p].mode_field)!= vmode)
+ while (abs(nest[p].mode_field) != vmode)
decr(p);
{
print_ln();
first = cur_input.start_field;
-
- {
- ;
- print_string("*");
- term_input("*", 0);
- }
-
+ prompt_input("*");
cur_input.limit_field = last;
if ((end_line_char < 0) || (end_line_char > 255))