else\r
{\r
name_of_file[name_length + 1] = '\0';\r
- printf("%s (%s);%s\n", "Sorry, I can't find that format",\r
- name_of_file + 1, " will try the default."); \r
+ printf("%s (%s);%s\n", "Sorry, I can't find that format", name_of_file + 1, " will try the default.");\r
name_of_file[name_length + 1] = ' ';\r
- printf("(Perhaps your %s environment variable is not set correctly)\n",\r
- "TEXFORMATS");\r
+ printf("(Perhaps your Y&Y TeX's environment variable is not set correctly)\n");\r
}\r
\r
update_terminal();\r
name_of_file[name_length + 1] = '\0';\r
printf("%s (%s)!\n", "I can't find the default format file", name_of_file + 1);\r
name_of_file[name_length + 1] = ' ';\r
- printf("(Perhaps your %s environment variable is not set correctly)\n", "TEXFORMATS");\r
+ printf("(Perhaps your Y&Y TeX's environment variable is not set correctly)\n");\r
}\r
\r
return false;\r
if (tracing_stats > 0 || verbose_flag != 0)\r
if (log_opened)\r
{\r
- fprintf(log_file, "%c\n", ' ');\r
- fprintf(log_file, "\n");\r
- fprintf(log_file, "%s%s\n", "Here is how much of TeX's memory", " you used:");\r
- fprintf(log_file, "%c%lld%s", ' ', (integer)(str_ptr - init_str_ptr), " string");\r
+ log_printf("%c\n", ' ');\r
+ log_printf("\n");\r
+ log_printf("%s%s\n", "Here is how much of TeX's memory", " you used:");\r
+ log_printf("%c%lld%s", ' ', (integer)(str_ptr - init_str_ptr), " string");\r
\r
if (str_ptr != init_str_ptr + 1)\r
- putc('s', log_file);\r
+ wlog_cr();\r
\r
#ifdef ALLOCATESTRING\r
if (show_current)\r
- fprintf(log_file, "%s%d\n", " out of ", (int)(current_max_strings - init_str_ptr));\r
+ log_printf("%s%d\n", " out of ", (int)(current_max_strings - init_str_ptr));\r
else\r
#endif\r
- fprintf(log_file, "%s%d\n", " out of ", (int)(max_strings - init_str_ptr));\r
+ log_printf("%s%d\n", " out of ", (int)(max_strings - init_str_ptr));\r
\r
#ifdef ALLOCATESTRING\r
if (show_current)\r
- fprintf(log_file, "%c%lld%s%lld\n", ' ', (integer)(pool_ptr - init_pool_ptr), " string characters out of ", current_pool_size - init_pool_ptr);\r
+ log_printf("%c%lld%s%lld\n", ' ', (integer)(pool_ptr - init_pool_ptr), " string characters out of ", current_pool_size - init_pool_ptr);\r
else\r
#endif\r
- fprintf(log_file, "%c%lld%s%lld\n", ' ', (integer)(pool_ptr - init_pool_ptr), " string characters out of ", pool_size - init_pool_ptr);\r
+ log_printf("%c%lld%s%lld\n", ' ', (integer)(pool_ptr - init_pool_ptr), " string characters out of ", pool_size - init_pool_ptr);\r
\r
#ifdef ALLOCATEMAIN\r
if (show_current)\r
- fprintf(log_file, "%c%lld%s%d\n", ' ', (integer)(lo_mem_max - mem_min + mem_end - hi_mem_min + 2), " words of memory out of ", current_mem_size);\r
+ log_printf("%c%lld%s%d\n", ' ', (integer)(lo_mem_max - mem_min + mem_end - hi_mem_min + 2), " words of memory out of ", current_mem_size);\r
else\r
#endif\r
- fprintf(log_file, "%c%lld%s%lld\n", ' ', (integer)(lo_mem_max - mem_min + mem_end - hi_mem_min + 2), " words of memory out of ", mem_end + 1 - mem_min);\r
+ log_printf("%c%lld%s%lld\n", ' ', (integer)(lo_mem_max - mem_min + mem_end - hi_mem_min + 2), " words of memory out of ", mem_end + 1 - mem_min);\r
\r
- fprintf(log_file, "%c%lld%s%d\n", ' ', (cs_count), " multiletter control sequences out of ", (hash_size + hash_extra));\r
- fprintf(log_file, "%c%lld%s%lld%s", ' ', (fmem_ptr), " words of font info for ", (font_ptr - font_base), " font");\r
+ log_printf("%c%lld%s%d\n", ' ', (cs_count), " multiletter control sequences out of ", (hash_size + hash_extra));\r
+ log_printf("%c%lld%s%lld%s", ' ', (fmem_ptr), " words of font info for ", (font_ptr - font_base), " font");\r
\r
if (font_ptr != 1)\r
wlog('s');\r
\r
#ifdef ALLOCATEFONT\r
if (show_current)\r
- fprintf(log_file, "%s%d%s%d\n", ", out of ", current_font_mem_size, " for ", font_max - font_base);\r
+ log_printf("%s%d%s%d\n", ", out of ", current_font_mem_size, " for ", font_max - font_base);\r
else\r
#endif\r
- fprintf(log_file, "%s%lu%s%d\n", ", out of ", font_mem_size, " for ", font_max - font_base);\r
+ log_printf("%s%lu%s%d\n", ", out of ", font_mem_size, " for ", font_max - font_base);\r
\r
- fprintf(log_file, "%c%lld%s", ' ', hyph_count, " hyphenation exception");\r
+ log_printf("%c%lld%s", ' ', hyph_count, " hyphenation exception");\r
\r
if (hyph_count != 1)\r
wlog('s');\r
\r
- fprintf(log_file, "%s%lld\n", " out of ", hyphen_prime);\r
- fprintf(log_file, " ");\r
- fprintf(log_file, "%d%s", (int) max_in_stack, "i,");\r
- fprintf(log_file, "%d%s", (int) max_nest_stack, "n,");\r
- fprintf(log_file, "%d%s", (int) max_param_stack, "p,");\r
- fprintf(log_file, "%d%s", (int) max_buf_stack + 1, "b,");\r
- fprintf(log_file, "%d%s", (int) max_save_stack + 6, "s");\r
- fprintf(log_file, " stack positions out of ");\r
+ log_printf("%s%lld\n", " out of ", hyphen_prime);\r
+ log_printf(" ");\r
+ log_printf("%d%s", (int) max_in_stack, "i,");\r
+ log_printf("%d%s", (int) max_nest_stack, "n,");\r
+ log_printf("%d%s", (int) max_param_stack, "p,");\r
+ log_printf("%d%s", (int) max_buf_stack + 1, "b,");\r
+ log_printf("%d%s", (int) max_save_stack + 6, "s");\r
+ log_printf(" stack positions out of ");\r
\r
#ifdef ALLOCATESAVESTACK\r
if (show_current)\r
- fprintf(log_file, "%d%s", current_stack_size, "i,");\r
+ log_printf("%d%s", current_stack_size, "i,");\r
else\r
#endif\r
- fprintf(log_file, "%d%s", stack_size, "i,");\r
+ log_printf("%d%s", stack_size, "i,");\r
\r
#ifdef ALLOCATENESTSTACK\r
if (show_current)\r
- fprintf(log_file, "%d%s", current_nest_size, "n,");\r
+ log_printf("%d%s", current_nest_size, "n,");\r
else\r
#endif\r
- fprintf(log_file, "%d%s", nest_size, "n,");\r
+ log_printf("%d%s", nest_size, "n,");\r
\r
#ifdef ALLOCATEPARAMSTACK\r
if (show_current)\r
- fprintf(log_file, "%d%s", current_param_size, "p,");\r
+ log_printf("%d%s", current_param_size, "p,");\r
else\r
#endif\r
- fprintf(log_file, "%d%s", param_size, "p,");\r
+ log_printf("%d%s", param_size, "p,");\r
\r
#ifdef ALLOCATEBUFFER\r
if (show_current)\r
- fprintf(log_file, "%d%s", current_buf_size, "b,");\r
+ log_printf("%d%s", current_buf_size, "b,");\r
else\r
#endif\r
- fprintf(log_file, "%ld%s", buf_size, "b,");\r
+ log_printf("%ld%s", buf_size, "b,");\r
\r
#ifdef ALLOCATESAVESTACK\r
if (show_current)\r
- fprintf(log_file, "%d%s", current_save_size, "s");\r
+ log_printf("%d%s", current_save_size, "s");\r
else\r
#endif\r
- fprintf(log_file, "%d%s", save_size, "s");\r
+ log_printf("%d%s", save_size, "s");\r
\r
- fprintf(log_file, "\n");\r
+ log_printf("\n");\r
\r
if (!knuth_flag)\r
- fprintf(log_file, " (i = in_stack, n = nest_stack, p = param_stack, b = buf_stack, s = save_stack)\n");\r
-\r
- if (!knuth_flag)\r
- fprintf(log_file, " %lld inputs open max out of %d\n", high_in_open, max_in_open);\r
+ {\r
+ log_printf(" (i = in_stack, n = nest_stack, p = param_stack, b = buf_stack, s = save_stack)\n");\r
+ log_printf(" %lld inputs open max out of %d\n", high_in_open, max_in_open);\r
+ }\r
\r
if (show_line_break_stats && first_pass_count > 0)\r
{\r
int first_count, second_count, third_count;\r
\r
- fprintf(log_file, "\nSuccess at breaking %d paragraph%s:", first_pass_count, (first_pass_count == 1) ? "" : "s");\r
+ log_printf("\nSuccess at breaking %d paragraph%s:", first_pass_count, (first_pass_count == 1) ? "" : "s");\r
\r
if (single_line > 0)\r
- fprintf(log_file, "\n %d single line `paragraph%s'", single_line, (single_line == 1) ? "" : "s");\r
+ log_printf("\n %d single line `paragraph%s'", single_line, (single_line == 1) ? "" : "s");\r
\r
first_count = first_pass_count - single_line - second_pass_count;\r
\r
third_count = final_pass_count - paragraph_failed;\r
\r
if (first_pass_count > 0)\r
- fprintf(log_file, "\n %d first pass (\\pretolerance = %lld)", first_pass_count, pretolerance);\r
+ log_printf("\n %d first pass (\\pretolerance = %lld)", first_pass_count, pretolerance);\r
\r
if (second_pass_count > 0)\r
- fprintf(log_file, "\n %d second pass (\\tolerance = %lld)", second_pass_count, tolerance);\r
+ log_printf("\n %d second pass (\\tolerance = %lld)", second_pass_count, tolerance);\r
\r
if (final_pass_count > 0 || emergency_stretch > 0)\r
- fprintf(log_file, "\n %d third pass (\\emergencystretch = %lgpt)",\r
+ log_printf("\n %d third pass (\\emergencystretch = %lgpt)",\r
final_pass_count, (double) emergency_stretch / 65536.0);\r
\r
if (paragraph_failed > 0)\r
- fprintf(log_file, "\n %d failed", paragraph_failed);\r
+ log_printf("\n %d failed", paragraph_failed);\r
\r
- putc('\n', log_file);\r
+ wlog_cr();\r
\r
if (overfull_hbox > 0)\r
- fprintf(log_file, "\n %d overfull \\hbox%s", overfull_hbox, (overfull_hbox > 1) ? "es" : "");\r
+ log_printf("\n %d overfull \\hbox%s", overfull_hbox, (overfull_hbox > 1) ? "es" : "");\r
\r
if (underfull_hbox > 0)\r
- fprintf(log_file, "\n %d underfull \\hbox%s", underfull_hbox, (underfull_hbox > 1) ? "es" : "");\r
+ log_printf("\n %d underfull \\hbox%s", underfull_hbox, (underfull_hbox > 1) ? "es" : "");\r
\r
if (overfull_vbox > 0)\r
- fprintf(log_file, "\n %d overfull \\vbox%s", overfull_vbox, (overfull_vbox > 1) ? "es" : "");\r
+ log_printf("\n %d overfull \\vbox%s", overfull_vbox, (overfull_vbox > 1) ? "es" : "");\r
\r
if (underfull_vbox > 0)\r
- fprintf(log_file, "\n %d underfull \\vbox%s", underfull_vbox, (underfull_vbox > 1) ? "es" : "");\r
+ log_printf("\n %d underfull \\vbox%s", underfull_vbox, (underfull_vbox > 1) ? "es" : "");\r
\r
if (overfull_hbox || underfull_hbox || overfull_vbox || underfull_vbox)\r
- putc('\n', log_file);\r
+ wlog_cr();\r
}\r
}\r
#endif\r
b_close(pdf_file);\r
}\r
}\r
-\r
/*\r
- switch (shipout_flag)\r
{\r
- case out_dvi_flag:\r
- case out_xdv_flag:\r
+ while (cur_s > -1)\r
+ {\r
+ if (cur_s > 0)\r
+ dvi_out(pop);\r
+ else\r
{\r
- while (cur_s > -1)\r
- {\r
- if (cur_s > 0) \r
- dvi_out(pop);\r
- else\r
- {\r
- dvi_out(eop);\r
- incr(total_pages);\r
- }\r
+ dvi_out(eop);\r
+ incr(total_pages);\r
+ }\r
\r
- decr(cur_s);\r
- }\r
-\r
- if (total_pages == 0)\r
- print_nl("No pages of output.");\r
- else\r
- {\r
- dvi_out(post);\r
- dvi_four(last_bop);\r
- last_bop = dvi_offset + dvi_ptr - 5;\r
- dvi_four(25400000L);\r
- dvi_four(473628672L);\r
- prepare_mag();\r
- dvi_four(mag);\r
- dvi_four(max_v);\r
- dvi_four(max_h);\r
- dvi_out(max_push / 256);\r
- dvi_out(max_push % 256);\r
-\r
- if (total_pages >= 65536)\r
- {\r
- sprintf(log_line, "\nWARNING: page count (dvi_t) in DVI file will be %lld not %lld\n",\r
- (total_pages % 65536), total_pages);\r
+ decr(cur_s);\r
+ }\r
\r
- if (log_opened)\r
- fputs(log_line, log_file);\r
+ if (total_pages == 0)\r
+ print_nl("No pages of output.");\r
+ else\r
+ {\r
+ dvi_out(post);\r
+ dvi_four(last_bop);\r
+ last_bop = dvi_offset + dvi_ptr - 5;\r
+ dvi_four(25400000L);\r
+ dvi_four(473628672L);\r
+ prepare_mag();\r
+ dvi_four(mag);\r
+ dvi_four(max_v);\r
+ dvi_four(max_h);\r
+ dvi_out(max_push / 256);\r
+ dvi_out(max_push % 256);\r
+\r
+ if (total_pages >= 65536)\r
+ {\r
+ sprintf(log_line, "\nWARNING: page count (dvi_t) in DVI file will be %lld not %lld\n",\r
+ (total_pages % 65536), total_pages);\r
\r
- show_line(log_line, 1);\r
- }\r
+ if (log_opened)\r
+ fputs(log_line, log_file);\r
\r
- dvi_out((total_pages / 256) % 256);\r
- dvi_out(total_pages % 256);\r
+ show_line(log_line, 1);\r
+ }\r
\r
- if (show_fonts_used && log_opened)\r
- show_font_info();\r
+ dvi_out((total_pages / 256) % 256);\r
+ dvi_out(total_pages % 256);\r
\r
- while (font_ptr > 0)\r
- {\r
- if (font_used[font_ptr])\r
- dvi_font_def(font_ptr);\r
+ if (show_fonts_used && log_opened)\r
+ show_font_info();\r
\r
- decr(font_ptr);\r
- }\r
+ while (font_ptr > 0)\r
+ {\r
+ if (font_used[font_ptr])\r
+ dvi_font_def(font_ptr);\r
\r
- dvi_out(post_post);\r
- dvi_four(last_bop);\r
- dvi_out(id_byte);\r
- k = 4 + ((dvi_buf_size - dvi_ptr) % 4);\r
+ decr(font_ptr);\r
+ }\r
\r
- while (k > 0)\r
- {\r
- dvi_out(223);\r
- decr(k);\r
- }\r
+ dvi_out(post_post);\r
+ dvi_four(last_bop);\r
+ dvi_out(id_byte);\r
+ k = 4 + ((dvi_buf_size - dvi_ptr) % 4);\r
\r
- if (trace_flag)\r
- printf("\ndvi_write %lld", dvi_gone);\r
+ while (k > 0)\r
+ {\r
+ dvi_out(223);\r
+ decr(k);\r
+ }\r
\r
- if (dvi_limit == half_buf)\r
- write_dvi(half_buf, dvi_buf_size - 1);\r
+ if (trace_flag)\r
+ printf("\ndvi_write %lld", dvi_gone);\r
\r
- if (dvi_ptr > 0)\r
- write_dvi(0, dvi_ptr - 1); \r
+ if (dvi_limit == half_buf)\r
+ write_dvi(half_buf, dvi_buf_size - 1);\r
\r
- print_nl("Output written on ");\r
+ if (dvi_ptr > 0)\r
+ write_dvi(0, dvi_ptr - 1);\r
+ \r
+ print_nl("Output written on ");\r
\r
- if (full_file_name_flag && dvi_file_name != NULL)\r
- prints(dvi_file_name);\r
- else\r
- slow_print(output_file_name);\r
+ if (full_file_name_flag && dvi_file_name != NULL)\r
+ prints(dvi_file_name);\r
+ else\r
+ slow_print(output_file_name);\r
\r
- prints(" (");\r
- print_int(total_pages);\r
- prints(" page");\r
+ prints(" (");\r
+ print_int(total_pages);\r
+ prints(" page");\r
\r
- if (total_pages != 1)\r
- print_char('s');\r
+ if (total_pages != 1)\r
+ print_char('s');\r
\r
- prints(", ");\r
- print_int(dvi_offset + dvi_ptr);\r
- prints(" bytes).");\r
- b_close(dvi_file);\r
- }\r
- }\r
- break;\r
+ prints(", ");\r
+ print_int(dvi_offset + dvi_ptr);\r
+ prints(" bytes).");\r
+ b_close(dvi_file);\r
+ }\r
}\r
*/\r
if (log_opened)\r
break;\r
\r
case 5:\r
-#ifdef SHORTFONTINFO\r
- print_scaled(font_info[n].sc);\r
- print_char(' ');\r
- print_int(font_info[n].b0);\r
- print_char(':');\r
- print_int(font_info[n].b1);\r
- print_char(':');\r
- print_int(font_info[n].b2);\r
- print_char(':');\r
- print_int(font_info[n].b3);\r
-#else\r
- print_word(font_info[n]); \r
-#endif\r
+ print_word(font_info[n]);\r
break;\r
\r
case 6:\r
#ifdef ALLOCATESTRING\r
if (pool_ptr + 32000 > current_pool_size)\r
str_pool = realloc_str_pool (increment_pool_size);\r
-#endif\r
-#ifdef ALLOCATESTRING\r
+\r
depth_threshold = current_pool_size - pool_ptr - 10;\r
#else\r
depth_threshold = pool_size - pool_ptr - 10;\r