mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-13 23:10:26 -08:00
35 lines
525 B
Perl
35 lines
525 B
Perl
#!/usr/local/perl
|
|
# $HopeName: MMQA_harness!script:display(trunk.1) $
|
|
#
|
|
# provide a subroutine to pretty-print tests to a
|
|
# output stream
|
|
#
|
|
|
|
1;
|
|
|
|
sub display_test_source {
|
|
local ($file, $stream, $width) = @_;
|
|
|
|
unless (open(IN, $file)) {
|
|
die "File ".$infile." unexpectedly not found.\n";
|
|
}
|
|
|
|
$l = "";
|
|
|
|
while (<IN>) {
|
|
print $stream $_;
|
|
}
|
|
|
|
close(IN);
|
|
}
|
|
|
|
#
|
|
# Ideas:
|
|
#
|
|
# line properties: join at start / join at end?
|
|
# specials:
|
|
# start paragraph
|
|
# special formatting (alignment?)
|
|
# lists, itemised, tables &c
|
|
#
|
|
#
|