layout/data2safety

   1 #!/usr/bin/perl -w
   2
   3 use strict qw(vars);
   4
   5 our (%segs);
   6 # $segs{$seg}{Inv}
   7 # $segs{$seg}{BoOb}
   8 # $segs{$seg}{Posns}
   9 # $segs{$seg}{FeatCount}              does not include Fixed
  10 # $segs{$seg}{Feats}{$pt}{Kind}       Point or Fixed
  11 # $segs{$seg}{Feats}{$pt}{Weight}     ) for Point only
  12 # $segs{$seg}{Feats}{$pt}{Posns}      ) for Point only
  13 # $segs{$seg}{Feats}{$pt}{BoOb}       ) for Point only
  14 # $segs{$seg}{Feats}{$pt}{Fixed}      position, for Fixed only
  15
  16 our ($mode,$invertible);
  17 $mode= 'barf';
  18
  19 sub line_barf () { die; }
  20
  21 sub begin_points () { }
  22 sub line_points () {
  23     my ($seg,$pt,@boob,$bodef);
  24     m,^\s+(\w+)/([A-Za-z]+)\s+((\d+)\.\d+)\s+(\d*\.\d+)$, or die "$_ ?";
  25     ($seg,$pt,$boob[0],$bodef,$boob[1])=($1,$2,$3,$4,$5);
  26     $boob[1] =~ s/^\./$bodef./;
  27     die "$_ ?" unless exists $segs{$seg};
  28     die "$_ ?" if exists $segs{$seg}{Feats}{$pt};
  29     $segs{$seg}{Feats}{$pt}= {
  30         Kind => Point,
  31         Weight => $segs{$seg}{Posns},
  32         Posns => 2,
  33         BoOb => [ @boob ]
  34         };
  35     $segs{$seg}{Posns} *= 2;
  36     $segs{$seg}{FeatCount}++;
  37 }
  38
  39 sub begin_fixed () { }
  40 sub line_fixed () {
  41     my ($seg,$pt,$pos);
  42     m,^\s+(\w+)/([A-Za-z]+)(\d+)$, or die "$_ ?";
  43     ($seg,$pt,$pos)=($1,$2,$3);
  44     die "$_ ?" unless exists $segs{$seg};
  45     die "$_ ?" if exists $segs{$seg}{Feats}{$pt};
  46     $segs{$seg}{Feats}{$pt}= {
  47         Kind => Fixed,
  48         Fixed => $pos
  49         };
  50 }
  51
  52 sub begin_segment () { }
  53 sub line_segment () {
  54     my ($seg,$boob);
  55     m/^\s+(\w+)\s+(\d+\.\d+)$/ or die "$_ ?";
  56     ($seg,$boob)=($1,$2);
  57     die "$_ ?" if exists $segs{$seg};
  58     $segs{$seg}= {
  59         BoOb => $boob,
  60         Inv => $invertible,
  61         Posns => 1,
  62         Feats => { },
  63         FeatCount => 0
  64     };
  65 }
  66
  67 sub begin_endwiring () {
  68     my ($seg,$segv,$pt,$ptv, $delim);
  69     for $seg (keys %segs) {
  70         $segv= $segs{$seg};
  71         next unless $segv->{FeatCount};
  72         o("static const MovFeatInfo mfi_${seg}[]= {");
  73         $delim='';
  74         for $pt (keys %{ $segv->{Feats} }) {
  75             $ptv= $segv->{Feats}{$pt};
  76             next if exists $ptv->{Fixed};
  77             o("$delim\n");
  78             o("  { \"$seg/$pt\", $ptv->{Posns}, $ptv->{Weight} }");
  79             $delim=',';
  80         }
  81         o("\n};\n");
  82     }
  83 }
  84
  85 #       o("static const SegPosCombInfo spci_${seg}[]= {");
  86 #       $delim='';
  87 #       for ($comb=0; $comb < $segv->{Posns}; $comb++) {
  88 #       }
  89
  90 sub line_endwiring () {
  91     my (@ns,$seg,$subspec,$dist);
  92     m,^\s*segment\s+(\w+\.\d+)\s+(\w+\.\d+)\s+(\w+)((?:/\w+\*\d+)?)\s+([0-9.]+)$, or die "$_ ?";
  93     ($ns[0],$ns[1],$seg,$subspec,$dist)=($1,$2,$3,$4,$5);
  94     if (!exists $segs{$seg}) {
  95         print STDERR "ditching unwired $seg$subspec\n";
  96         return;
  97     }
  98 }
  99
 100 sub o ($) {
 101     print STDOUT $_[0] or die $!;
 102 }
 103
 104 sub so_oboob ($) {
 105     my ($obj) = @_;
 106     my ($boob);
 107     $boob= $obj->{BoOb};
 108     $boob =~ m/^([1-9]\d)*\.([1-9]\d*)$/ or die "$boob ?";
 109     return sprintf "%d,%d",$1,$2;
 110 }
 111
 112 sub mainread () {
 113     o("/* autogenerated - do not edit */\n\n");
 114     while (<>) {
 115         next if m/^\#/;
 116         chomp;
 117         s/\s+$//;
 118         next unless m/\S/;
 119         last if m/^end$/;
 120         if (m/^(invertible|vanilla|points|fixed|endwiring)$/) {
 121             $mode= $1;
 122             $invertible= ($mode eq 'invertible');
 123             $mode= 'segment' if $mode =~ m/^(?:vanilla|invertible)$/;
 124             &{"begin_$mode"};
 125         } else {
 126             &{"line_$mode"};
 127         }
 128     }
 129 }
 130
 131 mainread();