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

VER="(3437c6a)"
ME="vlinks.rb: "

$all_fields=["as","comment","speed"]
$lst_fields=[]
$str_fields=["comment"]
$num_fields=["speed"]

$mesh=false
$incl=[]
$excl=[]
$skip=[]

flags=""
mode="txt"

def is_fl(str,tp)
  tp.each_byte do |a|
    f=true
    str.each_byte do |b|
      if a==b
        f=false
        break
      end
    end
    return false if f
  end
  return true
end

def add_fl(str,tp)
  tp.each_byte do |a|
    f=true
    str.each_byte do |b|
      if a==b
        f=false
        break
      end
    end
    str.concat(a) if f
  end
end

def del_fl(str,tp)
  str.delete!(tp)
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?) ? "( +|$)" : "( +)"
      when("|") then res+="|"
      else res+="(#{t})"
    end
  end
  return res
end

class Node
  attr_reader :nm
  attr_accessor :idx, :we

  def initialize(_nm,_hub)
    @nm=_nm
    @we=0.0
    @as=nil
    @hub=_hub
  end

  def label
    return "#{@nm} (#{@as})" if @as
    return @nm
  end

  def color
    col=["#9eb0ff","#e6e6e6"]
    col[0]="#ef715a" if @as
    col[1]="#9eb0ff" if @hub
    return col
  end

  def add_as(_as)
    return if !_as or _as.empty?
    if !v=@as
      @as=_as
      return
    end
    v+=","+_as
    a=v.split(",")
    a.uniq!
    a.sort!
    v=a.join(",")
    @as=v
  end
end

class Link
  attr_reader :n1, :n2, :ml
  attr_accessor :we

  def initialize(_n1,_n2,_ml)
    @n1=_n1
    @n2=_n2
    @we=0.0
    @ml=_ml
    @comment=""
    @attr={}
  end

  def attr(f,t=nil)
    if t
      v=@attr[f]
      if $lst_fields.include?(f)
        v=(v) ? v+","+t : t
        a=v.split(",")
        a.uniq!
        a.sort! { |x,y| scomp(x,y) }
        v=a.join(",")
        @attr[f]=v
      end
      if $str_fields.include?(f)
        v=(v) ? v+"; "+t : t
        @attr[f]=v
      end
    end
    return @attr[f]
  end

  def sattr(f)
    v=@attr[f]
    return (v) ? v.dump : "null"
  end
end

def in_fields(t,fields)
  fields.length.times do |i|
    return i if fields[i]==t
  end
  return nil
end

$nodes={}
$links=[]

def $nodes.add(nm,hub=false)
  if o=$nodes[nm]
    return o
  end
  o=Node.new(nm,hub)
  $nodes[nm]=o
  return o
end

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

def $links.add(n1,n2,ml=true)
  if l=$links.get(n1,n2)
    return l
  end
  l=Link.new(n1,n2,ml)
  $links<<l
  return l
end

def nfind(ns,nm)
  for n in ns
    return n if n.nm.split(".")[0]==nm
  end
  return nil
end

def mk_mesh(ns)
  while n1=ns.shift
    for n2 in ns
      next if $links.get(n1,n2)
      we=(n1.we<n2.we) ? n1.we : n2.we
      l=$links.add(n1,n2,false)
      l.we=we
    end
  end
end

def p_txt(buf)
  for s in buf
    if m=/^# +([^ ]*)/.match(s)
      nm=m[1]
      as=nil
      if m=/^# .* \(([^ )]*)\)/.match(s)
        as=m[1]
      end
      next if in_list(nm,$skip)
      n=$nodes.add(nm,true)
      n.add_as(as)
    end
  end

  # first pass
  inbl=igbl=fhdr=false
  n1=n2=nil
  ll=we1=we2=nil
  fields=[]
  ft=[]
  ns=[]
  for s in buf
    if inbl
      if /^--+/.match(s)
        mk_mesh(ns) if $mesh
        inbl=igbl=fhdr=false
        n1=n2=nil
        ll=we1=we2=nil
        fields=[]
        ft=[]
        ns=[]
        next
      end
      next if igbl
      next if !n1
      tmp=s.split(/\t+/)
      if tmp[0].empty?
        next if !ll
        n=tmp.length
        next if n<2
        tc=/\t+/.match(s)[0].length
        i=@ft.index(tc)
        next if !i or i<1
        j=1
        while n>1
          f=fields[i]
          t=tmp[j]
          i+=1
          j+=1
          n-=1
          next if not $all_fields.include?(f)
          ll.attr(f,t)
        end
        next
      end
      nm=tmp[1].split(":")[0]
      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 m=/<([^ <>]*)>/.match(s)
        next if is_fl(m[1],"X")
      end
      n2=$nodes.add(nm)
      we2=0.0
      l=$links.add(n1,n2)
      next if fields.empty?
      fields.length.times do |k|
        break if !tmp[k] or tmp[k].empty?
        f=fields[k]
        next if not $all_fields.include?(f)
        str=tmp[k]
        m=/\<.*\> (.*)/.match(str)
        str=m[1] if m
        m=/(.*) \<.*\>/.match(str)
        str=m[1] if m
        m=/\[.*\] (.*)/.match(str)
        str=m[1] if m
        m=/(.*) \[.*\]/.match(str)
        str=m[1] if m
        next if /\<.*\>/.match(str)
        next if /\[.*\]/.match(str)
        if f=="speed"
          if not str.start_with?("-") and not str.start_with?("?")
            we2=str.to_f
          end
          next
        end
        if f=="as"
          n2.add_as(str) if not str.start_with?("-") and not str.start_with?("?")
          next
        end
        l.attr(f,str)
      end
      n2.we=we2 if we2>0
      we=(we2>0 and we2<we1) ? we2 : we1
      l.we=we
      if m=/<([^ <>]*)>/.match(s)
        next if is_fl(m[1],"i")
      end
      ns<<n2
      next
    end
    if tmp=/^# +([^ ]*)/.match(s)
      n1=$nodes[tmp[1]]
      we1=0.0
      if m=/\{(.*)\}/.match(s)
        we1=m[1].to_f
        n1.we=we1
      end
      fhdr=true
      next
    end
    if /^#!/.match(s)
      igbl=true
      next
    end
    if /^--+/.match(s)
      inbl=true
      next
    end
    if fhdr
      fields=[]
      ft=[0]
      tmp=s.downcase.split(/\t+/)
      tmp.each { |t| fields.push(t) }
      tmp=s.scan(/[^\t]*\t*/)
      tmp.pop
      tc=0
      for t in tmp
        tc+=t.count("\t")+t.count("^\t")/8
        ft<<tc
      end
      next
    end
  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+"[-m] [-I pattern] [-X pattern] [-S pattern] <file> ..."
  exit
end

i=0
while i<ARGV.length
  if ARGV[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]=="-m"
    i+=1
    $mesh=true
    next
  end
  if ARGV[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+=1
    next
  end
  if ARGV[i]=="-X"
    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+=1
    next
  end
  if ARGV[i]=="-S"
    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+=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
    load_file(buf,fn)
  end
end

case mode
  when("txt") then p_txt(buf)
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,ml:%s,speed:%.1f,comment:%s}" % [l.n1.idx,l.n2.idx,l.ml,l.we,l.sattr("comment")]
end
lbuf="var links=[\n"+tmp.join(",\n")+"\n];"

begin
  f=File.open("/tmp/vlinks.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 "var opts={"
f.puts "};"
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/vlinks.htm") }