| 434 | // |
| 435 | |
| 436 | void ADA_print_buffer( TEXT* output_bufferL, const int column) |
| 437 | { |
| 438 | TEXT s[121]; |
| 439 | bool multiline = false; |
| 440 | |
| 441 | TEXT* p = s; |
| 442 | |
| 443 | for (const TEXT* q = output_bufferL; *q; q++) |
| 444 | { |
| 445 | *p++ = *q; |
| 446 | if ((p - s + column) > 119) |
| 447 | { |
| 448 | for (p--; (*p != ',') && (*p != ' '); p--) |
| 449 | q--; |
| 450 | *++p = 0; |
| 451 | |
| 452 | if (multiline) |
| 453 | { |
| 454 | for (int i = column / 8; i; --i) |
| 455 | putc('\t', gpreGlob.out_file); |
| 456 | |
| 457 | for (int i = column % 8; i; --i) |
| 458 | putc(' ', gpreGlob.out_file); |
| 459 | } |
| 460 | fprintf(gpreGlob.out_file, "%s\n", s); |
| 461 | s[0] = 0; |
| 462 | p = s; |
| 463 | multiline = true; |
| 464 | } |
| 465 | } |
| 466 | *p = 0; |
| 467 | if (multiline) |
| 468 | { |
| 469 | for (int i = column / 8; i; --i) |
| 470 | putc('\t', gpreGlob.out_file); |
| 471 | for (int i = column % 8; i; --i) |
| 472 | putc(' ', gpreGlob.out_file); |
| 473 | } |
| 474 | fprintf(gpreGlob.out_file, "%s", s); |
| 475 | output_bufferL[0] = 0; |
| 476 | } |
| 477 | |
| 478 | |
| 479 | //____________________________________________________________ |
no test coverage detected