summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/luatexdir/tex/printing.w
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/tex/printing.w')
-rw-r--r--Build/source/texk/web2c/luatexdir/tex/printing.w27
1 files changed, 17 insertions, 10 deletions
diff --git a/Build/source/texk/web2c/luatexdir/tex/printing.w b/Build/source/texk/web2c/luatexdir/tex/printing.w
index b2ca7c9a94e..6cab2dd0060 100644
--- a/Build/source/texk/web2c/luatexdir/tex/printing.w
+++ b/Build/source/texk/web2c/luatexdir/tex/printing.w
@@ -29,6 +29,7 @@
#define wlog(A) fputc(A,log_file)
#define wterm(A) fputc(A,term_out)
+int new_string_line = 0;
@ Messages that are sent to a user's terminal and to the transcript-log file
are produced by several `|print|' procedures. These procedures will
@@ -101,8 +102,12 @@ void print_ln(void)
term_offset = 0;
break;
case no_print:
+ break;
case pseudo:
+ break;
case new_string:
+ if (new_string_line > 0)
+ print_char(new_string_line);
break;
default:
fprintf(write_file[selector], "\n");
@@ -218,7 +223,7 @@ The first 256 entries above the 17th unicode plane are used for a
special trick: when \TeX\ has to print items in that range, it will
instead print the character that results from substracting 0x110000
from that value. This allows byte-oriented output to things like
-\.{\\specials} and \.{\\pdfliterals}. Todo: Perhaps it would be useful
+\.{\\specials} and \.{\\pdfextension literals}. Todo: Perhaps it would be useful
to do the same substraction while typesetting.
@c
@@ -260,8 +265,7 @@ void print(int s)
} else if (s >= 0x110000) {
int c = s - 0x110000;
if (c >= 256) {
- pdf_warning("print", "bad raw byte to print (c=",
- true, false);
+ normal_warning("print", "bad raw byte to print (c=", true, false);
print_int(c);
tprint("), skipped.");
print_ln();
@@ -309,9 +313,12 @@ string appears at the beginning of a new line.
@c
void print_nlp(void)
{ /* move to beginning of a line */
- if (((term_offset > 0) && (odd(selector))) ||
- ((file_offset > 0) && (selector >= log_only)))
+ if (new_string_line > 0) {
+ print_char(new_string_line);
+ } else if (((term_offset > 0) && (odd(selector))) ||
+ ((file_offset > 0) && (selector >= log_only))) {
print_ln();
+ }
}
void print_nl(str_number s)
@@ -419,9 +426,9 @@ void tprint(const char *sss)
term_offset=0;
}
if (s != newlinechar) {
- if ((s>=0x20)||(s==0x0A)||(s==0x0D)||(s==0x09)) {
+ if ((s>=0x20)||(s==0x0A)||(s==0x0D)||(s==0x09)) {
buffer[i++] = s;
- } else {
+ } else {
buffer[i++] = '^';
buffer[i++] = '^';
buffer[i++] = s+64;
@@ -474,7 +481,7 @@ void print_banner(const char *v, int ver)
wterm(' ');
fprintf(term_out,"Number of bits used by the hash function (" my_name "): %d",LUAI_HASHLIMIT);
print_ln();
- }
+ }
if (shellenabledp) {
wterm(' ');
if (restrictedshell)
@@ -499,7 +506,7 @@ void log_banner(const char *v, int ver)
if (ver < 0)
fprintf(log_file, "This is " MyName ", Version %s ", v);
else
- fprintf(log_file, "This is " MyName ", Version %s%s (rev %d) ", v,
+ fprintf(log_file, "This is " MyName ", Version %s%s (rev %d) ", v,
WEB2CVERSION, ver);
print(format_ident);
print_char(' ');
@@ -834,7 +841,7 @@ void print_font_identifier(internal_font_number f)
tprint_esc("FONT");
print_int(f);
}
- if (int_par(pdf_tracing_fonts_code) > 0) {
+ if (int_par(tracing_fonts_code) > 0) {
tprint(" (");
print_font_name(f);
if (font_size(f) != font_dsize(f)) {