#!/usr/bin/ruby
# vim: et sw=2

VER="(985514d)"
ME="route.rb: "

$incl=[]
$excl=[]
$skip=[]
$rtrs=[]

class String
  def is_tp(tp)
    tp.each_byte do |a|
      f=true
      self.each_byte do |b|
        if a==b
          f=false
          break
        end
      end
      return false if f
    end
    return true
  end
end

def in_list(s,list)
  for i in list
    if i.match(s)
      return true
    end
  end
  return false
end

def regexfix(str)
  tmp=[]
  for t in str.scan(/(_)|(\|)|([^_\|]*)/).flatten.compact
    tmp.push(t) if not t.empty?
  end
  res=""
  while t=tmp.shift
    case t
      when("_") then res+=(tmp.empty? or tmp[0]=="|") ? "([ .]+|$)" : "[ .]+"
      when("|") then res+="|"
      else res+="#{t}"
    end
  end
  return res
end

class Node
  attr_reader :nm, :ip
  attr_accessor :idx

  def initialize(nm,ip,tp)
    @nm=nm
    @ip=ip
    @tp=tp
  end

  def label
    if is_tp("N")
      return "[#{@ip}]" if @nm==@ip
      return "#{@nm} [#{@ip}]"
    end
    return "#{@nm}"
  end

  def is_tp(tp)
    tp.each_byte do |a|
      f=true
      @tp.each_byte do |b|
        if a==b
          f=false
          break
        end
      end
      return false if f
    end
    return true
  end

  def add_tp(tp)
    tp.each_byte do |a|
      f=true
      @tp.each_byte do |b|
        if a==b
          f=false
          break
        end
      end
      @tp.concat(a) if f
    end
  end

  def del_tp(tp)
    @tp.delete!(tp)
  end

  def color
    return ["#c9fbc9","#c9fbc9"] if is_tp("A")
    return ["#ceaece","#ceaece"] if is_tp("L")
    return ["#a359e6","#a359e6"] if is_tp("C")
    return ["#59dbe1","#59dbe1"] if is_tp("U")
    return ["#48e248","#48e248"] if is_tp("N")
    return ["#ef715a","#ef715a"] if is_tp("r")
    return ["#ffffff","#ffffff"]
  end
end

def get_gw(ip)
  ai=ip.split(".")
  bf=ip.split("/")[1].to_i
  return nil if ai.length!=4
  i=0
  while bf>7
    i+=1
    bf-=8
  end
  bf=8-bf
  bf=255<<bf
  v=ai[i].to_i
  if i==3
    v=(v&bf)|1
    ai[i]=v.to_s
    return ai.join(".")
  end
  v=(v&bf)
  ai[i]=v.to_s
  i+=1
  while i<4
    ai[i]=(i==3) ? "1" : "0"
    i+=1
  end
  return ai.join(".")
end

def net_match(ip,mask)
  ai=ip.split(".")
  tmp=mask.split("/")
  am=tmp[0].split(".")
  bf=(tmp[1]) ? tmp[1].to_i : 32
  while bf>7
    i=ai.shift.to_i
    m=am.shift.to_i
    return false if i!=m
    bf-=8
  end
  return true if bf==0
  i=ai.shift.to_i
  m=am.shift.to_i
  bf=8-bf
  bf=255<<bf
  return (i&bf==m) ? true : false
end

def network(cidr)
  net=""
  tmp=cidr.split("/")
  ai=tmp[0].split(".")
  bf=tmp[1].to_i
  c=4
  while bf>7
    net.concat(".") if not net.empty?
    net.concat(ai.shift())
    bf=bf-8
    c-=1
  end
  return net+"/"+tmp[1] if c<1
  i=ai.shift().to_i
  bf=8-bf
  bf=255<<bf
  i=i&bf
  net.concat(".") if not net.empty?
  net.concat(i.to_s())
  c-=1
  while c>0
    net.concat(".0")
    c-=1
  end
  return net+"/"+tmp[1]
end

def is_node_rt?(s)
  return case s
    when(/^rt-/i) then true
    when(/^swr-/i) then true
    when(/^sw3-/i) then true
    when(/^C17/i) then true
    when(/^C28/i) then true
    when(/^C3[567]/i) then true
    when(/^C45/i) then true
    when(/^C6[58]/i) then true
    when(/^C7[236]/i) then true
    when(/^Quanta-/i) then true
    when(/^Wbx-/i) then true
    else false
  end
end

def load_file(buf,fn)
  dir=File.dirname(fn)
  begin
    f=File.open(fn,"r")
  rescue
    $stderr.puts ME+"unable to open file"
    exit
  end

  for l in f
    l.chop!
    next if l.empty?
    next if /^! /.match(l)
    buf.push(l)
  end
  f.close
end

def usage
  me=ME.delete(":")
  puts "Usage: "+me+"[-I <pattern>] [-X <pattern>] [-S <pattern>] <file> ..."
  exit
end

i=0
while i<ARGV.length
  if ARGV[i]=="--"
    i=i+1
    break
  end
  break if ARGV[i]=="-"
  break if not ARGV[i].start_with?("-")
  usage if ARGV[i]=="--help"
  if ARGV[i]=="--version"
    me=ME.delete(":")
    puts me+VER+" by Borg."
    exit
  end

  if ARGV[i]=="-I"
    i=i+1
    if !ARGV[i]
      $stderr.puts ME+"Need argument for '-I' option"
      exit
    end
    str=regexfix(ARGV[i])
    $incl.push(Regexp.new(str,true))
    i=i+1
    next
  end
  if ARGV[i]=="-X"
    i=i+1
    if !ARGV[i]
      $stderr.puts ME+"Need argument for '-X' option"
      exit
    end
    str=regexfix(ARGV[i])
    $excl.push(Regexp.new(str,true))
    i=i+1
    next
  end
  if ARGV[i]=="-S"
    i=i+1
    if !ARGV[i]
      $stderr.puts ME+"Need argument for '-S' option"
      exit
    end
    str=regexfix(ARGV[i])
    $skip.push(Regexp.new(str,true))
    i=i+1
    next
  end
  if ARGV[i]=="-R"
    i=i+1
    if !ARGV[i]
      $stderr.puts ME+"Need argument for '-R' option"
      exit
    end
    str=regexfix(ARGV[i])
    $rtrs.push(Regexp.new(str,true))
    i=i+1
    next
  end
  $stderr.puts ME+"Unknown option: "+ARGV[i]
  exit
end

buf=[]
if i>=ARGV.length
  for l in $stdin
    l.chop!
    next if l.empty?
    next if /^! /.match(l)
    next if /^<[^>]*>$/.match(l)
    buf.push(l)
  end
else
  while i<ARGV.length
    fn=ARGV[i]
    i+=1
    if fn=="-"
      for l in $stdin
        l.chop!
        next if l.empty?
        next if /^! /.match(l)
        next if /^<[^>]*>$/.match(l)
        buf.push(l)
      end
    else
      load_file(buf,fn)
    end
  end
end

Link=Struct.new :n1, :n2
$nodes={}
$links=[]

def $nodes.get_node(ip)
  self.each_value do |n|
    return n if n.ip==ip
  end
  return nil
end

def $links.get_link(n1,n2)
  for l in self
    return l if l.n1==n1 and l.n2==n2
    return l if l.n1==n2 and l.n2==n1
  end
  return nil
end

inbl=igbl=false
hdr=fld=nil
bl=gn=bn=nil
for s in buf
  if inbl
    if /^--+/.match(s)
      inbl=igbl=false
      hdr=fld=nil
      bl=gn=bn=nil
      next
    end
    next if igbl
    next if !bl

    a=s.split(/\t+/)
    next if a[0].empty?
    ip=a[0]
    next if ip.include?("-")
    if a[1]
      nm=a[1].split(":")[0]
    else
      nm=ip.delete(" ")
    end
    if !/^  /.match(ip)
      next if nm.start_with?("-") or nm.start_with?("?") or nm.start_with?("(")
      next if not $incl.empty? and not in_list(nm,$incl)
      next if in_list(nm,$excl)
      if !gn
        gw=get_gw(bl.ip)
        if gw==ip
          if !gn=$nodes[nm]
            gn=Node.new(nm,ip,"r")
            $nodes[nm]=gn
          else
            gn.add_tp("r")
          end
          bn=gn
          next
        end
      end
    end
    if m=/^  ([0-9.]+\/[0-9]+)/.match(ip)
      next if !bn
      bn.add_tp("r")
      next
    end
    if not ip.include?("/")
      ip.delete!(" ")
      if !bn=$nodes[nm]
        bn=Node.new(nm,ip,"")
        $nodes[nm]=bn
      end
      bn.add_tp("r") if bl.is_tp("R")
      next
    end
    next
  end

  if /^#!/.match(s)
    igbl=true
    next
  end
  if /^#/.match(s)
    hdr=s
    next
  end
  if /^--+/.match(s)
    inbl=true
    if in_list(hdr,$skip)
      igbl=true
      next
    end
    if m=/^# +\(([^ ]*)\)|^# +([^()]*) +\(([^ ]*)\)/.match(hdr)
      if m[1]
        nm=m[1]
        ip=m[1]
      else
        nm=m[2]
        ip=m[3]
      end
      tp=nil
      if m=/\{(.*)\}/.match(hdr)
        tp=m[1]
      end
      if tp and tp.is_tp("A")
        igbl=true
        next
      end
      if tp and tp.is_tp("X")
        igbl=true
        next
      end
      bl=Node.new(nm,ip,"N")
      $nodes[nm]=bl
      bl.add_tp(tp) if tp
      bl.add_tp("R") if in_list(hdr,$rtrs)
    else
      igbl=true
    end
    next
  end
  fld=s if hdr
end

$nodes.delete_if do |k,v|
  next false if v.is_tp("N")
  next false if v.is_tp("r")
  next true
end

inbl=igbl=false
hdr=fld=nil
n1=n2=bn=nil
for s in buf
  if inbl
    if /^--+/.match(s)
      inbl=igbl=false
      hdr=fld=nil
      n1=n2=bn=nil
      next
    end
    next if igbl
    next if !n1

    a=s.split(/\t+/)
    next if a[0].empty?
    ip=a[0]
    next if ip.include?("-")
    if a[1]
      nm=a[1].split(":")[0]
    else
      nm=ip.delete(" ")
    end
    if m=/^  ([0-9.]+\/[0-9]+)/.match(ip)
      next if !bn
      ip=m[1]
      if !n2=$nodes.get_node(ip)
        n2=Node.new(ip,ip,"N")
        $nodes[ip]=n2
      end
      next if $links.get_link(bn,n2)
      $links<<Link.new(bn,n2)
      next
    end
    if not ip.include?("/")
      next if nm.start_with?("-") or nm.start_with?("?") or nm.start_with?("(")
      next if not $incl.empty? and not in_list(nm,$incl)
      next if in_list(nm,$excl)
      next if !bn=$nodes[nm]
      next if $links.get_link(n1,bn)
      $links<<Link.new(n1,bn)
    end
    next
  end

  if /^#!/.match(s)
    igbl=true
    next
  end
  if /^#/.match(s)
    hdr=s
    next
  end
  if /^--+/.match(s)
    inbl=true
    next if igbl
    if !m=/^# +\(([^ ]*)\)|^# +([^()]*) +\(([^ ]*)\)/.match(hdr)
      igbl=true
      next
    end
    nm=(m[1]) ? m[1] : m[2]
    if in_list(nm,$skip)
      igbl=true
    else
      n1=$nodes[nm]
    end
  end
  fld=s if hdr
end

i=0
tmp=[]
$nodes.each_value do |n|
  col=n.color
  tmp<<"{name:'%s',col1:'%s',col2:'%s'}" % [n.label,col[0],col[1]]
  n.idx=i
  i+=1
end
nbuf="var nodes=[\n"+tmp.join(",\n")+"\n];"

tmp=[]
for l in $links
  tmp<<"{source:%d,target:%d}" % [l.n1.idx,l.n2.idx]
end
lbuf="var links=[\n"+tmp.join(",\n")+"\n];"

begin
  f=File.open("/tmp/route.htm","w")
rescue
  $stderr.puts ME+"Unable to open temp file"
  exit
end
f.puts <<'EOF'
<html>
<head>
<script src="file:///c:/cygwin/usr/share/d3/d3.min.js"></script>
<script src="file:///c:/cygwin/usr/share/d3/cola.min.js"></script>
<style>
body {
  background-color: black;
  font: 12px monospace;
  color: white;
  }
div {
  background-color: black;
  border: 1px solid gray;
  padding: 1px;
  font: 12px monospace;
  color: white;
}
svg {
  overflow: hidden;
  position: relative;
}
input {
  font: 12px monospace;
  outline: none;
  border: none;
  width: 95%;
  background-color: #000000;
  color: #dddddd;
  margin: 0px;
  padding: 1px;
}
.node {
  stroke-width: 5px;
  stroke: #fff;
  fill: #fff;
}
.path {
  stroke-width: 5px;
  stroke: #888;
}
.text {
  font: 12px monospace;
  fill: #fff;
}
</style>
</head>
<body>
<div id=net style="width: 100%; height: 80%;"></div>
<div id=info style="width: 100%; height: 15%;"></div>
&gt;&nbsp;<input id=input maxlength=140 autocomplete=off onkeydown="on_key(event)"></input>
<script>
EOF
f.puts nbuf
f.puts lbuf
f.puts <<'EOF'
</script>
<script>
var iel=document.getElementById("input");
var width=document.getElementById("net").offsetWidth-4;
var height=document.getElementById("net").offsetHeight-4;
var layout=cola.d3adaptor().linkDistance(250).size([width,height]);
var zoom=d3.behavior.zoom().scaleExtent([0.1,1.5]);
var drag=d3.behavior.drag();
var svg=d3.select("div#net").append("svg").attr("width",width).attr("height",height);
var grp=svg.append("g");
var grpl=grp.append("g");
var grpn=grp.append("g");
var grpt=grp.append("g");
var info=d3.select("div#info");
var data={};
var node,link,text;
var selected;
var dhold=false;
var histarr=[]
var histidx=null;
var histcmd=null;
var vars={};
var v_sel=[];
var nver="Unknown";

function _get_nver()
{
var re;

re=RegExp(" Trident/");
if(re.test(navigator.userAgent))
  nver="IE";
re=RegExp(" Gecko/");
if(re.test(navigator.userAgent))
  nver="Firefox";
}

function _history(k)
{
if(histidx==null)
  return;
if(histidx>=histarr.length)
  histcmd=iel.value;
if(k==0)
  {
  if(histidx>0)
    histidx--;
  else
    return;
  }
if(k==1)
  {
  if(histidx<histarr.length)
    histidx++;
  else
    return;
  }
if(histidx>=histarr.length)
  {
  if(histcmd!=null)
    iel.value=histcmd;
  return;
  }
iel.value=histarr[histidx];
}

function _rexpand(str)
{
var tmp=[];
var arr=str.split(",");
var i,l=arr.length;
var t,m,s,e;

for(i=0;i<l;i++)
  {
  if(arr[i]=="")
    continue;
  if(arr[i].search("-")<0)
    {
    m=arr[i].match(/[^\*\+]+/);
    if(m)
      tmp.push(parseInt(m[0]));
    continue;
    }
  t=arr[i].split("-");
  s=parseInt(t[0]);
  e=parseInt(t[1]);
  while(s<=e)
    tmp.push(s++);
  }
return tmp;
}

function _haveany(sa,ma)
{
var i,j,sl=sa.length,ml=ma.length;

for(i=0;i<ml;i++)
  {
  for(j=0;j<sl;j++)
    {
    if(sa[j]==ma[i])
      return true;
    }
  }
return false;
}

function _haveall(sa,ma)
{
var i,j,sl=sa.length,ml=ma.length;
var ok=false;

for(i=0;i<ml;i++)
  {
  ok=false;
  for(j=0;j<sl;j++)
    {
    if(sa[j]==ma[i])
      {
      ok=true;
      break;
      }
    }
  if(!ok)
    return false;
  }
return ok;
}

function _find(sa,ma,em)
{
if(em)
  return _haveall(sa,ma);
else
  return _haveany(sa,ma);
}

on_zoom=function()
{
var z=zoom.scale();
var sy=Math.round(12/z);
var sx=Math.round(7/z);
var dy=Math.round(3+sy);

grp.attr("transform","translate("+d3.event.translate+")scale("+d3.event.scale+")");
text.style("font-size",sy+"px");
text.attr("dy",function(d) { return d.r+dy; })
    .attr("dx",function(d) { return -d.name.length/2*sx; });
}

function prepare()
{
var i,l,o;

l=nodes.length;
data.nodes=[];
for(i=0;i<l;i++)
  {
  o=nodes[i];
  data.nodes[i]=o;
  o.leafs=[];
  o.root=null;
  o.rootnode=false;
  o.hidden=false;
  o.shrunk=false;
  }
l=links.length;
data.links=[];
for(i=0;i<l;i++)
  {
  o=links[i];
  if(o.source!=o.target)
    continue;
  o.source=nodes[links[i].source];
  o.target=nodes[links[i].target];
  o.loop=true;
  data.links.push(o);
  }
for(i=0;i<l;i++)
  {
  o=links[i];
  if(o.source==o.target)
    continue;
  o.source=nodes[links[i].source];
  o.target=nodes[links[i].target];
  o.loop=false;
  data.links.push(o);
  }

l=data.links.length;
for(i=0;i<l;i++)
  {
  o=data.links[i];
  if(o.source==o.target)
    continue;
  o.source.leafs.push(o.target);
  o.target.leafs.push(o.source);
  }
l=data.nodes.length;
for(i=0;i<l;i++)
  {
  o=data.nodes[i];
  if(o.leafs.length!=1)
    continue;
  o.root=o.leafs[0];
  }
for(i=0;i<l;i++)
  {
  o=data.nodes[i];
  if(!o.root || o.root.root!=o)
    continue;
  o.root.root=null;
  o.root=null;
  }
}

function mk_tree()
{
var i,l,o,r;
var arr;

if(!selected)
  {
  alert("Select ROOT link");
  return;
  }
selected.source.root=null;
selected.target.root=null;
selected.source.rootnode=true;
selected.target.rootnode=true;
l=data.nodes.length;
arr=[];
for(i=0;i<l;i++)
  {
  o=data.nodes[i];
  if(o.rootnode || o.leafs.length!=1)
    continue;
  o.root=o.leafs[0];
  arr.push(o.root);
  }
while((o=arr.shift()))
  {
  if(o.root)
    continue;
  l=o.leafs.length;
  r=null;
  for(i=0;i<l;i++)
    {
    if(o.rootnode || o.leafs[i].root)
      continue;
    if(r)
      {
      r=null;
      break;
      }
    r=o.leafs[i];
    }
  if(r)
    {
    o.root=r;
    arr.push(r);
    }
  }
l=data.nodes.length;
for(i=0;i<l;i++)
  {
  o=data.nodes[i];
  if(!o.root || o.root.root!=o)
    continue;
  o.root.root=null;
  o.root=null;
  }
}

function update()
{
var i,l,o;

l=data.nodes.length;
nodes=[];
for(i=0;i<l;i++)
  {
  o=data.nodes[i];
  if(o.leafs.length<1)
    o.hidden=true;
  if(!o.hidden)
    nodes.push(o);
  }
l=data.links.length;
links=[];
for(i=0;i<l;i++)
  {
  o=data.links[i];
  if(o.source.hidden || o.target.hidden)
    continue;
  links.push(o);
  }
}

function collapse(d)
{
var i,l,o;
var arr=[d]
var tmp=[]

while((o=arr.shift()))
  {
  l=o.leafs.length;
  for(i=0;i<l;i++)
    {
    if(o.leafs[i].root==o)
      {
      o.shrunk=true;
      if(o.leafs.length>1 && !o.hidden)
        arr.push(o.leafs[i]);
      tmp.push(o.leafs[i]);
      }
    }
  }
while((o=tmp.shift()))
  o.hidden=true;
}

function clr_sel()
{
var i,l,o;

l=v_sel.length;
for(i=0;i<l;i++)
  {
  if(v_sel[i]==selected)
    continue;
  o=v_sel[i];
  d3.select(o.e).style("stroke",o.col);
  }
v_sel=[];
if(!selected)
  return;
d3.select(selected.e).style("stroke",selected.col);
info.selectAll("*").remove();
selected=null;
}

function node_click(d)
{
if(d3.event.shiftKey || d3.event.ctrlKey)
  clr_sel();
iel.focus();

if(d3.event.shiftKey && d3.event.ctrlKey)
  {
  var i,l;
  var ok=false;

  l=d.leafs.length;
  for(i=0;i<l;i++)
    {
    if(d.leafs[i].hidden)
      continue;
    if(d.leafs[i].root!=d)
      continue;
    if(d.leafs[i].leafs.length!=1)
      continue;
    d.leafs[i].hidden=true;
    d.shrunk=true;
    ok=true;
    }
  if(!ok)
    return;
  update();
  refresh(false);
  return;
  }
if(d3.event.shiftKey)
  {
  if(!d.root)
    return;
  d.root.shrunk=true;
  collapse(d);
  d.hidden=true;
  update();
  refresh(false);
  return;
  }
if(d3.event.ctrlKey)
  {
  var i,l;

  l=d.leafs.length;
  for(i=0;i<l;i++)
    {
    if(d.leafs[i].root==d && !d.leafs[i].hidden)
      break;
    }
  if(i<l)
    {
    collapse(d);
    update();
    refresh(false);
    }
  return;
  }
}

function node_dblclick(d)
{
clr_sel();
iel.focus();

if(d.shrunk)
  {
  var i,l;

  d.shrunk=false;
  l=d.leafs.length;
  for(i=0;i<l;i++)
    d.leafs[i].hidden=false;
  update();
  refresh(false);
  return;
  }
}

function at_r(d)
{
var r=15;

if(d.leafs.length>1 && d.shrunk)
  r=23;
d.r=r;
return r;
}

function refresh(init)
{
var z=zoom.scale();
var sy=Math.round(12/z);
var sx=Math.round(7/z);
var dy=Math.round(3+sy);
var len=nodes.length;
var len2=Math.round(len*1.5);
var len3=Math.round(len2*1.5);
var i,l;

selected=null;
if(init)
  layout.nodes(nodes).links(links).start(len,len2,len3);
else
  layout.nodes(nodes).links(links).start();
node=grpn.selectAll("circle").data(nodes);
node.attr("class","node")
    .attr("r",at_r)
    .style("fill",function(d) { return d.col1; })
    .style("stroke",function(d) { return d.col2; })
    .call(layout.drag);
node.exit().remove();
node.enter().append("circle").attr("class","node")
    .attr("r",at_r)
    .style("fill",function(d) { return d.col1; })
    .style("stroke",function(d) { return d.col2; })
    .call(layout.drag);
link=grpl.selectAll("path").data(links).style("stroke","#888")
    .style("stroke-width",function(d) { return (d.ml) ? "8px" : "5px"; });
link.exit().remove();
link.enter().append("path").attr("class","path").style("stroke","#888")
    .style("stroke-width",function(d) { return (d.ml) ? "8px" : "5px"; });
text=grpt.selectAll("text").data(nodes);
text.attr("dy",function(d) { return d.r+dy; })
    .attr("dx",function(d) { return -d.name.length/2*sx; })
    .text(function(d) { return d.name; });
text.exit().remove();
text.enter().append("text").attr("class","text")
    .attr("dy",function(d) { return d.r+dy; })
    .attr("dx",function(d) { return -d.name.length/2*sx; })
    .text(function(d) { return d.name; });
text.style("font-size",sy+"px");
grp.selectAll(".path").each(function(d) { d.e=this; });
l=links.length;
for(i=0;i<l;i++)
  links[i].col="#888";
node.on("mousedown",function(d) { d3.event.stopPropagation(); });
node.on("click",function(d) { d3.event.stopPropagation(); node_click(d); });
node.on("dblclick",function(d) { d3.event.stopPropagation(); node_dblclick(d); });
}

function at_link(d)
{
var x1=d.source.x,y1=d.source.y;
var x2=d.target.x,y2=d.target.y;

if(x1==x2 && y1==y2)
  {
  var r=d.source.r;
  var xs=x1,ys=y1-r;
  var xe=x1+r,ye=y1;

  x1=xe-r/5,y1=ys-r*2;
  x2=xe+r*2,y2=ys+r/5;
  return "M"+xs+","+ys+"C"+x1+" "+y1+" "+x2+" "+y2+" "+xe+" "+ye;
  }
return "M"+x1+","+y1+"L"+x2+","+y2;
}

on_tick=function()
{
node.attr("cx",function(d) { return d.x; });
node.attr("cy",function(d) { return d.y; });
link.attr("d",at_link);
text.attr("transform",function(d) { return "translate("+d.x+","+d.y+")"; });
}

function collapse_leafs()
{
var i,l,o;

l=data.nodes.length;
for(i=0;i<l;i++)
  {
  o=data.nodes[i];
  if(o.root && o.leafs.length==1)
    {
    o.hidden=true;
    o.root.shrunk=true;
    }
  }
}

function strwrap(txt)
{
var sz=document.getElementById("info").offsetWidth;
var arr,str;
var i,s,l;

if(nver=="IE")
  sz=Math.round(sz/7.5);
else
  sz=Math.round(sz/7);
sz-=9;
arr=txt.split(",");
l=arr.length;
str="";
s="";
for(i=0;i<l;i++)
  {
  if(s.length+arr[i].length>sz)
    {
    if(str=="")
      str=s;
    else
      str=str.concat("\n",s);
    s="";
    }
  if(s=="")
    s=arr[i];
  else
    s=s.concat(",",arr[i]);
  }
if(str=="")
  str=s;
else
  str=str.concat("\n",s);
return str;
}

on_click=function()
{
var ctm=grp.node().getCTM();
var x,y,x1,y1,x2,y2;
var dx,dy,dx1,dy1;
var len,dot,crs;
var cr,cd;
var i,l,d;
var vn,p;

if(dhold)
  {
  dhold=false;
  iel.focus();
  return;
  }
if(d3.event.shiftKey)
  info.selectAll("*").remove();
else
  clr_sel();
p=d3.mouse(this);
if(ctm.a<1)
  cr=15*ctm.a;
else
  cr=15;
l=links.length;
cd=null;
for(i=0;i<l;i++)
  {
  d=links[i];
  if(d.loop)
    {
    x1=d.source.x;
    y2=d.source.y;
    x2=x1+d.source.r*2;
    y1=y2-d.source.r*2;
    x1=ctm.a*x1+ctm.e;
    y1=ctm.d*y1+ctm.f;
    x2=ctm.a*x2+ctm.e;
    y2=ctm.d*y2+ctm.f;
    x=p[0]-x1,y=p[1]-y2;
    if(p[0]>x1 && p[0]<x2 && p[1]>y1 && p[1]<y2)
      {
      cd=d;
      break;
      }
    continue;
    }
  x1=d.source.x;
  y1=d.source.y;
  x2=d.target.x;
  y2=d.target.y;
  x1=ctm.a*x1+ctm.e;
  y1=ctm.d*y1+ctm.f;
  x2=ctm.a*x2+ctm.e;
  y2=ctm.d*y2+ctm.f;
  dx=x2-x1;
  dy=y2-y1;
  dx1=(x1+x2)/2-p[0];
  dy1=(y1+y2)/2-p[1];
  len=Math.sqrt(dx*dx+dy*dy);
  dot=Math.abs(dx*dx1+dy*dy1)/len*2;
  if(dot>=len)
    continue;
  crs=Math.abs(dx*dy1-dx1*dy)/len;
  if(crs<cr)
    {
    cd=d;
    cr=crs;
    }
  }

iel.focus();
if(!cd)
  return;
d3.select(cd.e).style("stroke","#eaea00");
selected=cd;
if(v_sel.indexOf(cd)<0)
  v_sel.push(cd);
if(cd.speed)
  {
  info.append("span").style("color","#bbb").text("speed: ");
  info.append("span").text(cd.speed);
  info.append("br");
  }
if(cd.delay)
  {
  info.append("span").style("color","#bbb").text("delay: ");
  info.append("span").text(cd.delay);
  info.append("br");
  }
if(cd.vlan && cd.vlan!="")
  {
  info.append("span").style("color","#bbb").text("vlan: ");
  info.append("span").style("white-space","pre")
      .text(strwrap(cd.vlan));
  info.append("br");
  }
if(cd.vpi && cd.vpi!="")
  {
  info.append("span").style("color","#bbb").text("vpi: ");
  info.append("span").style("white-space","pre")
      .text(strwrap(cd.vpi));
  info.append("br");
  }
if(cd.vci && cd.vci!="")
  {
  info.append("span").style("color","#bbb").text("vci: ");
  info.append("span").style("white-space","pre")
      .text(strwrap(cd.vci));
  info.append("br");
  }
if(cd.comment && cd.comment!="")
  {
  info.append("span").style("color","#bbb").text("comment: ");
  info.append("span").text(cd.comment);
  info.append("br");
  }

if(!opts.int_flds)
  return;
l=opts.int_flds.length;
for(i=0;i<l;i++)
  {
  vn=opts.int_flds[i];
  info.append("span").style("color","#bbb").text(vn+": ");
  info.append("span").text(cd[vn]);
  info.append("br");
  }
}

function pan_node(obj)
{
var s=zoom.scale();
var x=width/2-obj.x*s;
var y=height/2-obj.y*s;

if(layout._alpha>1)
  {
  setTimeout(pan_node,100,obj);
  return;
  }
zoom.translate([x,y]);
grp.transition().duration(1000).attr("transform","translate("+x+","+y+")scale("+s+")");
}

function _exec(str)
{
var col="lime";
var em=false;
var key,val,buf;
var i,l,o,m,t,n,c;
var vn=null;
var arr,dst=[];
var ts;

if(str=="mktree")
  {
  mk_tree();
  return;
  }
if(str=="recolor")
  {
  l=links.length;
  for(i=0;i<l;i++)
    {
    o=links[i];
    o.col="#888";
    if(o!=selected)
      d3.select(o.e).style("stroke","#888");
    }
  return;
  }

m=str.match(/^([a-z][a-z0-9]*)\((.*)\)$/);
if(m)
  {
  if(m[1]=="colorize")
    {
    var colorize;
    var min=-1,max=-1;
    var t=m[2].split(",")
    var vn=t[0];
    var tp=(t[1]) ? t[1] : "linear";
    var colrng=["red","blue"];

    if(vn=="delay")
      colrng=["blue","red"];

    l=links.length;
    if(l<2)
      return;
    for(i=0;i<l;i++)
      {
      o=links[i];
      if(o[vn]==null || o[vn]<0)
        continue;
      if(tp!="linear" && o[vn]==0)
        continue;
      if(min<0 || o[vn]<min)
        min=o[vn];
      if(max<0 || o[vn]>max)
        max=o[vn];
      }
    if(min<0 || max<0)
      return;
    if(tp=="linear")
      colorize=d3.scale.linear().domain([min,max]).range(colrng);
    if(tp=="sqrt")
      colorize=d3.scale.sqrt().domain([min,max]).range(colrng);
    if(tp=="log")
      colorize=d3.scale.log().domain([min,max]).range(colrng);
    for(i=0;i<l;i++)
      {
      o=links[i];
      if(o[vn]==null || o[vn]<0)
        continue;
      if((tp!="linear" || vn=="delay") && !o[vn])
        continue;
      col=colorize(o[vn]);
      o.col=col;
      if(o!=selected)
        d3.select(o.e).style("stroke",col);
      }
    return;
    }
  if(m[1]=="show" || m[1]=="find")
    {
    var val=m[2];
    var obj;

    if(val.search('"')==0)
      val=val.slice(1,-1);
    val=val.toLowerCase();
    c=val.length;
    l=data.nodes.length;
    for(i=0;i<l;i++)
      {
      o=data.nodes[i];
      n=o.name.toLowerCase();
      t=n.indexOf(val);
      if(t==-1)
        continue;
      t+=c;
      ts=n.substr(t,1);
      if(n.length<=t || ts==" " || ts==".")
        dst.push(o);
      }
    if(dst.length!=1)
      return;
    obj=dst[0];
    if(obj.hidden)
      {
      o=obj;
      while(o && o.hidden)
        {
        o.hidden=false;
        o=o.root;
        }
      update();
      refresh(false);
      }
    setTimeout(pan_node,200,obj);
    return;
    }
  return;
  }

if(str.indexOf("(")<0)
  {
  m=str.match(/^(.*)\.(.*)=(.*)$/);
  if(m)
    {
    if(m[1]=="cur")
      arr=(selected) ? [selected] : [];
    else if(m[1]=="sel")
      arr=v_sel;
    else
      arr=vars[m[1]];
    if(!arr || arr.length<1)
      return;
    if(m[2]=="color")
      {
      col=m[3];
      l=arr.length;
      for(i=0;i<l;i++)
        {
        arr[i].col=col;
        if(arr[i]!=selected)
          d3.select(arr[i].e).style("stroke",col);
        }
      return;
      }
    return;
    }
  t=str.split("=");
  if(t[1]=="cur")
    arr=(selected) ? [selected] : [];
  else if(t[1]=="sel")
    arr=v_sel;
  else
    arr=vars[t[1]];
  if(!arr)
    return;
  vars[t[0]]=arr;
  return;
  }

if(str.indexOf("(")>0)
  {
  m=str.match(/^(.*)=\(/);
  if(m)
    {
    vn=m[1];
    i=str.indexOf("=(");
    str=str.slice(i+1);
    }
  }
m=str.match(/^\((.*)\)/);
if(m)
  {
  buf=m[1];
  m=str.match(/\)\.(.*)/);
  if(m)
    {
    t=m[1].split("=");
    if(t.length!=2)
      return;
    if(t[0]=="color")
      col=t[1];
    }
  str=buf;
  }
t=str.split("=");
if(t.length<2)
  return;
key=t[0];
if(t.length==3)
  {
  val=t[2];
  em=true;
  }
else
  val=t[1];

arr=links;
if(key.indexOf(".")>0)
  {
  t=key.split(".");
  arr=vars[t[0]];
  key=t[1];
  }
if(!arr)
  return;

if(key=="vlan" || key=="vpi" || key=="vci")
  {
  var ma=_rexpand(val);
  var sa;

  l=arr.length;
  for(i=0;i<l;i++)
    {
    o=arr[i];
    sa=_rexpand(o[key]);
    if(_find(sa,ma,em))
      dst.push(o);
    }
  }

if(key=="comment")
  {
  if(val.search('"')==0)
    val=val.slice(1,-1);
  val=RegExp(val,"i");
  l=arr.length;
  for(i=0;i<l;i++)
    {
    o=arr[i];
    if(val.test(o.comment))
      dst.push(o);
    }
  }

if(key=="name")
  {
  var n;

  if(val.search('"')==0)
    val=val.slice(1,-1);
  val=val.toLowerCase();
  c=val.length;
  l=arr.length;
  for(i=0;i<l;i++)
    {
    o=arr[i];
    n=o.source.name.toLowerCase();
    t=n.indexOf(val);
    if(t==-1)
      {
      n=o.target.name.toLowerCase();
      t=n.indexOf(val);
      }
    if(t==-1)
      continue;
    t+=c;
    ts=n.substr(t,1);
    if(n.length<=t || ts==" " || ts==".")
      dst.push(o);
    }
  }

if(vn)
  vars[vn]=dst;
l=dst.length;
for(i=0;i<l;i++)
  {
  dst[i].col=col;
  if(dst[i]!=selected)
    d3.select(dst[i].e).style("stroke",col);
  }
}

function on_key(e)
{
if(e.keyCode==13)
  {
  var str=iel.value;

  iel.value="";
  if(str=="")
    return;
  histarr.push(str);
  histidx=histarr.length;
  _exec(str);
  return;
  }
if(e.keyCode==38)
  {
  if(e.preventDefault)
    e.preventDefault();
  else
    e.returnValue=false;
  _history(0);
  return;
  }
if(e.keyCode==40)
  {
  if(e.preventDefault)
    e.preventDefault();
  else
    e.returnValue=false;
  _history(1);
  return;
  }
}

svg.call(zoom).on("dblclick.zoom",null);
svg.call(drag);
zoom.on("zoom",on_zoom);
layout.on("tick",on_tick);
svg.on("click",on_click);
drag.on("drag",function() { dhold=true; });
_get_nver();
if(typeof(opts)=="undefined")
  opts={};
prepare();
if(!opts.show_leafs)
  collapse_leafs();
update();
refresh(true);
iel.focus();
</script>
</body>
</html>
EOF
f.close
fork { exec("start /tmp/route.htm") }