X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=tests%2Fexpressions%2Frandist%2Frandist.pl;h=212b22270501363d83e0518c34c137fd64dbcdd3;hb=43bbe3ba14482dce65459f02e18e16ff718afd44;hp=2e1b89d9ce7ad9253da205842e23b8836bd2cfca;hpb=d807ad29cc0d3caa4f0e04ee4b75c70a225cfeaf;p=pspp-builds.git

diff --git a/tests/expressions/randist/randist.pl b/tests/expressions/randist/randist.pl
index 2e1b89d9..212b2227 100755
--- a/tests/expressions/randist/randist.pl
+++ b/tests/expressions/randist/randist.pl
@@ -1,4 +1,5 @@
-use warnings;
+use strict;
+use warnings 'all';
 
 our (@funcs);
 our (@vars);
@@ -37,13 +38,18 @@ while (<>) {
     }
 
     print "DATA LIST LIST/", join (' ', 'P', @vars), ".\n";
+    print "NUMERIC ", join (' ', 'x', @funcs), " (F10.4)\n";
     print "COMPUTE x = IDF.$dist (", join (', ', 'P', @vars), ").\n";
     foreach my $func (@funcs) {
 	print "COMPUTE $func = $func.$dist (",
 	  join (', ', 'x', @vars), ").\n";
     }
+    my (@print) = ('P', @vars, 'x', @funcs);
+    print "DO IF \$CASENUM = 1.\n";
+    print "PRINT OUTFILE='$dist.out'/'", heading (@print), "'\n";
+    print "END IF.\n";
     print "PRINT OUTFILE='$dist.out'/",
-      join (' ', 'P', @vars, 'x', @funcs), ".\n";
+      join (' ', @print), ".\n";
     print "BEGIN DATA.\n";
     print_all_values (['P', @vars], []);
     print "END DATA.\n";
@@ -63,3 +69,16 @@ sub print_all_values {
 	}
     }
 }
+
+sub heading {
+    my (@names) = @_;
+    my ($out);
+    $out .= pad_to (shift (@names), 8) while $names[0] ne 'x';
+    $out .= pad_to (shift (@names), 10) while @names;
+    return $out;
+}
+
+sub pad_to {
+    my ($s, $n) = @_;
+    return (' ' x ($n - length ($s))) . $s . ' ';
+}