3 $!=0; system($_[0]); die "$! $?" if $! or $?;
6 sub initdata_process_prime() {
8 open P, "$prime" or die $!;
9 $!=0; $_= <P>; m/^(\d+) (\d+) .*/ or die "$_ ? $!";
10 ($dim,$nvertices)= ($1,$2);
11 $!=0; $_= <P>; m/^(\%.*)\n/ or die "$_ ? $!";
13 for ($i=0; $i<$nvertices; $i++) {
14 $!=0; defined($_=<P>) or die "$prime $!";
15 m/^\s*(\S+)\s*(\S+)\s*(.*)/ or die "$_ ?";
16 initdata_prime_point_callback($1,$2,$3,$fmt);
20 sub make_initdata () {
21 open I, "$initdata" or die "$initdata $!";
22 open B, ">$output.new" or die "$output.new $!";
24 for ($i=0; $i<$nvertices; $i++) {
25 for ($k=0; $k<3; $k++) {
27 $!=0; defined($_= <I>) or die "$initdata $!";
32 initdata_return_vertex_transform();
33 print B pack "d3", @vertex or die $!;
37 rename "$output.new",$output or die $!;
39 print " wrote $output\n";