diff options
Diffstat (limited to 'Build/source/texk/web2c/cwebdir/ctangle.c')
-rw-r--r-- | Build/source/texk/web2c/cwebdir/ctangle.c | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/Build/source/texk/web2c/cwebdir/ctangle.c b/Build/source/texk/web2c/cwebdir/ctangle.c index 6683184d3f4..a7ec5e28aba 100644 --- a/Build/source/texk/web2c/cwebdir/ctangle.c +++ b/Build/source/texk/web2c/cwebdir/ctangle.c @@ -70,8 +70,8 @@ #define harmless_message 1 #define error_message 2 #define fatal_message 3 -#define mark_harmless if(history==spotless) history= harmless_message -#define mark_error history= error_message +#define mark_harmless() if(history==spotless) history= harmless_message +#define mark_error() history= error_message #define confusion(s) fatal("! This can't happen: ",s) \ \ @@ -81,8 +81,8 @@ #define show_stats flags['s'] #define make_xrefs flags['x'] \ -#define update_terminal fflush(stdout) -#define new_line putchar('\n') +#define update_terminal() fflush(stdout) +#define new_line() putchar('\n') #define term_write(a,b) fflush(stdout) ,fwrite(a,sizeof(char) ,b,stdout) \ #define buf_size 200 @@ -647,7 +647,7 @@ C_putc('\n'); if(cur_line%100==0&&show_progress){ putchar('.'); if(cur_line%500==0)printf("%d",cur_line); -update_terminal; +update_terminal(); } cur_line++; } @@ -679,14 +679,14 @@ output_defs(); #line 516 "ctangle.w" if(text_info->text_link==macro&&cur_out_file==end_output_files){ -fputs("\n! No program text was specified.",stdout);mark_harmless; +fputs("\n! No program text was specified.",stdout);mark_harmless(); } else{ if(cur_out_file==end_output_files){ if(show_progress){ printf("\nWriting the output file (%s):",C_file_name); -update_terminal; +update_terminal(); } } else{ @@ -694,7 +694,7 @@ if(show_progress){ fputs("\nWriting the output files:",stdout); printf(" (%s)",C_file_name); -update_terminal; +update_terminal(); } if(text_info->text_link==macro)goto writeloop; } @@ -710,7 +710,7 @@ fclose(C_file); if((C_file= fopen(output_file_name,"wb"))==NULL) fatal("! Cannot open output file ",output_file_name); -if(show_progress){printf("\n(%s)",output_file_name);update_terminal;} +if(show_progress){printf("\n(%s)",output_file_name);update_terminal();} cur_line= 1; stack_ptr= stack+1; cur_name= *an_output_file; @@ -724,7 +724,7 @@ flush_buffer(); #line 539 "ctangle.w" if(show_happiness){ -if(show_progress)new_line; +if(show_progress)new_line(); fputs("Done.",stdout); } } @@ -1127,7 +1127,7 @@ if(k>=section_text_end){ fputs("\n! Section name too long: ",stdout); term_write(section_text+1,25); -printf("...");mark_harmless; +printf("...");mark_harmless(); } if(*k==' '&&k> section_text)k--; @@ -1465,7 +1465,7 @@ text_pointer q; sixteen_bits a; section_count++;no_where= true; if(*(loc-1)=='*'&&show_progress){ -printf("*%d",(int)section_count);update_terminal; +printf("*%d",(int)section_count);update_terminal(); } next_control= ignore; while(true){ |