chiark / gitweb /
fix silly formatting
authorian <ian>
Fri, 11 Apr 2008 20:07:46 +0000 (20:07 +0000)
committerian <ian>
Fri, 11 Apr 2008 20:07:46 +0000 (20:07 +0000)
layout/data2safety

index 5c7df3702d3637d3f3f83d2857059d413f2f3acd..58097be18469638454b49f69d7a29f7e6a79cb76 100755 (executable)
@@ -485,7 +485,7 @@ sub writeout () {
     }
     o("const SegmentNum info_nsegments=NUM_SEGMENTS;\n");
     o("const SegmentInfo info_segments[NUM_SEGMENTS]= {");
-    my (@sensemap,$segnum,$sensenum,$i,$j);
+    my (@sensemap,$segnum,$sensenum,$i);
     $delim= '';
     $segnum= 0;
     foreach $seg (@segs) {
@@ -505,13 +505,12 @@ sub writeout () {
     o("const BoardObject info_maxreverse= $maxreverseobjnum;\n");
     o("#define U -1\n");
     o("const SegmentNumInMap info_segmentmap[]= {\n");
-    $i=0; $j=0;
+    $i=0;
     foreach $seg (@sensemap) {
        o(!$i ? ' ' :
-         (grep { $i == $_ } @sensesbase) ? ($j=0,"\n ") :
-         !(++$j % 30) ? ",\n  " :
+         !($i % 12) ? ",\n " :
          ",");
-       o($seg || 'U');
+       o(defined($seg) ? sprintf("%4d",$seg) : '   U');
        $i++;
     }
     o("\n};\n".