1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#!/usr/bin/perl -w
# $Id: //info.ravenbrook.com/project/mps/master/test/test/script/display#3 $
#
# 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
#
#