library.pl

   1 sub run ($) {
   2     print "    $_[0]\n";
   3     $!=0; system($_[0]); die "$! $?" if $! or $?;
   4 }
   5
   6 sub make_initdata () {
   7     open I, "$initdata" or die "$initdata $!";
   8     open B, ">$output.new" or die "$output.new $!";
   9
  10     $_= <I>;
  11     m/^(\d+) .*/ or die "$_ ?";
  12
  13     $dim= $1;
  14
  15     for ($i=0; $i<$dim; $i++) {
  16         for (;;) {
  17             $!=0; defined($_= <I>) or die "$initdata $!";
  18             last if m/\S/;
  19         }
  20         print B pack "d", $_ or die $!;
  21     }
  22
  23     close B or die $!;
  24     rename "$output.new",$output or die $!;
  25
  26     print "    wrote $output\n";
  27 }
  28
  29 1;