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

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

$mrg_fields=["vlan","vpi","vci","comment"]
$chk_fields=["speed","vlan","vpi","vci"]
$lst_fields=["vlan","vpi","vci"]
$str_fields=["speed","comment"]
$agr_fields=["pc","lag"]
$int_fields=[]

$check=false
$hdrs=false
$sub=false
$incl=[]
$excl=[]
$skip=[]
$expr=[]

flags=""

class Object
  def _str(p=nil)
    return to_s if !p or self.class!=Float
    return "%.#{p}f" % self
  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

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

def scomp(x,y)
  return 0 if x.empty? and y.empty?
  return -1 if x.empty?
  return 1 if y.empty?
  xa=x.scan(/([0-9]+)|([^0-9]+)/)
  ya=y.scan(/([0-9]+)|([^0-9]+)/)
  r=nil
  xi=xa.shift
  yi=ya.shift
  while xi and yi
    if xi[0] and yi[0]
      xv=xi[0].to_i
      yv=yi[0].to_i
      if(xv==yv)
        r=0
        xi=xa.shift
        yi=ya.shift
        next
      end
      r=(xv>yv) ? 1 : -1
      break
    end
    if xi[1] and yi[1]
      xv=xi[1]
      yv=yi[1]
      if(xv==yv)
        r=0
        xi=xa.shift
        yi=ya.shift
        next
      end
      r=(xv<=>yv)
      break
    end
    break
  end
  return (x<=>y) if !r
  if r==0
    r=-1 if !xi and yi
    r=1 if xi and !yi
  end
  return r
end

class Expr
  FN0=["count","show"]
  FN1=["count","sum","min","max","avg","add","sub","icnt","show","pfxl","pfxc"]
  FN2=["sumif"]
  FNS=FN1+FN2
  AGG=["count","sum","sumif","min","max","avg"]
  SAG=["add","sub"]
  OPS=["+","-","*","/"]
  CMP=["=","==","!=","<","<=",">",">="]
  LOG=["|","&","^","?","!"]
  ALL=OPS+CMP+LOG
  OPL={
    "|"=>1,"&"=>1,"^"=>1,
    "="=>2,"=="=>2,"!="=>2,"<"=>2,"<="=>2,">"=>2,">="=>2,
    "+"=>3,"-"=>3,"*"=>4,"/"=>4,
    "?"=>0,"!"=>9
  }

  Ops=Struct.new :ops, :op, :ac

  attr_reader :fld, :aggr

  def initialize(arr)
    @aggr=0 # 1:AGG, 2:SAG, 4:vaggr
    @show=false
    @temp=false
    @fld=nil
    @str=arr.join
    @ops=[]
    tmp=[]
    tmp[0]=Ops.new([],nil,0)
    i=0
    if arr.length>1 and arr[1]==":"
      t=arr.shift
      if m=/^#(.*)/.match(t)
        @fld=m[1]
        @temp=true
      else
        @fld=t
      end
      arr.shift
    end
    for s in arr
      if s=="," or s==")"
        while i>0 and tmp[i].ac==0
          tmp[i].ops.push(tmp[i].op) if tmp[i].op
          tmp[i-1].ops+=tmp[i].ops
          i-=1
        end
        if tmp[i].op=="?"
          if tmp[i].ac!=-3
            $stderr.puts ME+"syntax error"
            exit
          end
          tmp[i].ops.push(tmp[i].op)
          tmp[i-1].ops+=tmp[i].ops
          i-=1
        end
      end
      if s==":"
        while i>0 and tmp[i].ac==0
          tmp[i].ops.push(tmp[i].op) if tmp[i].op
          tmp[i-1].ops+=tmp[i].ops
          i-=1
        end
        if tmp[i].op!="?" or tmp[i].ac!=-2
          $stderr.puts ME+"syntax error"
          exit
        end
        tmp[i].ac=-3
        next
      end
      if s=="?"
        if tmp[i].op=="?"
          $stderr.puts ME+"syntax error"
          exit
        end
        if tmp[i].op
          tmp[i].ops.push(tmp[i].op)
          tmp[i].op=nil
        end
        tmp[i+1]=Ops.new([],s,-2)
        i+=1
        next
      end
      if s=="()"
        if !tmp[i].op or not FNS.include?(tmp[i].op)
          $stderr.puts ME+"syntax error"
          exit
        end
        if not FN0.include?(tmp[i].op)
          $stderr.puts ME+"function needs argument"
          exit
        end
        tmp[i].ops.push("1",tmp[i].op)
        tmp[i].op=nil
        next
      end
      if s==","
        if i<1 or tmp[i-1].ac<2
          $stderr.puts ME+"syntax error"
          exit
        end
        tmp[i].ops.push(tmp[i].op) if tmp[i].op
        tmp[i].op=nil
        tmp[i-1].ac-=1
        next
      end
      if s=="("
        tmp[i+1]=Ops.new([],nil,-1)
        i+=1
        next
      end
      if s==")"
        if tmp[i].ac!=-1
          $stderr.puts ME+"parantheses mismatch"
          exit
        end
        tmp[i].ops.push(tmp[i].op) if tmp[i].op
        tmp[i-1].ops+=tmp[i].ops
        i-=1
        next if tmp[i].ac<1
        if tmp[i].ac>1
          $stderr.puts ME+"missing argument"
          exit
        end
        if i<1
          tmp[i].ops.push(tmp[i].op) if tmp[i].op
          tmp[i].op=nil
          tmp[i].ac=0
          next
        end
        tmp[i].ops.push(tmp[i].op) if tmp[i].op
        tmp[i-1].ops+=tmp[i].ops
        i-=1
        next
      end
      if s=="!"
        if !tmp[i].op and tmp[i].ac==0
          tmp[i].op=s
          next
        end
        tmp[i+1]=Ops.new([],s,0)
        i+=1
        next
      end
      if FNS.include?(s)
        @aggr|=1 if AGG.include?(s)
        @aggr|=2 if SAG.include?(s)
        if ("%b" % @aggr).count("1")>1
          $stderr.puts ME+"cannot mix aggregation functions"
          exit
        end
        @show=true if s=="show"
        c=0
        c=1 if FN1.include?(s)
        c=2 if FN2.include?(s)
        if !tmp[i].op and tmp[i].ac==0
          tmp[i].op=s
          tmp[i].ac=c
          next
        end
        tmp[i+1]=Ops.new([],s,c)
        i+=1
        next
      end
      if ALL.include?(s)
        if !tmp[i].op
          tmp[i].op=s
          next
        end
        if OPL[s]>OPL[tmp[i].op]
          tmp[i+1]=Ops.new([tmp[i].ops.pop],s,0)
          i+=1
          next
        end
        if OPL[s]==OPL[tmp[i].op]
          tmp[i].ops.push(tmp[i].op)
          tmp[i].op=s
          next
        end
        while i>0 and tmp[i].ac==0
          tmp[i].ops.push(tmp[i].op) if tmp[i].op
          tmp[i-1].ops+=tmp[i].ops
          i-=1
        end
        tmp[i].ops.push(tmp[i].op)
        tmp[i].op=s
        next
      end
      tmp[i].ops.push(s)
      if tmp[i].op=="!"
        tmp[i].ops.push(tmp[i].op)
        tmp[i-1].ops+=tmp[i].ops
        i-=1
      end
    end
    if tmp[i].ac==-1
      $stderr.puts ME+"parantheses mismatch"
      exit
    end
    while i>1 and tmp[i].ac==0
      tmp[i].ops.push(tmp[i].op) if tmp[i].op
      tmp[i-1].ops+=tmp[i].ops
      i-=1
    end
    if tmp[i].op=="?"
      tmp[i].ops.push(tmp[i].op)
      tmp[i-1].ops+=tmp[i].ops
      i-=1
    end
    if i>1
      $stderr.puts ME+"stack error"
      exit
    end
    if i==1
      tmp[i].ops.push(tmp[i].op) if tmp[i].op
      tmp[i-1].ops+=tmp[i].ops
    end
    @ops=tmp[0].ops
    @ops.push(tmp[0].op) if tmp[0].op
  end

  def self.parse(str)
    expr=[]
    arr=[]
    pc=0
    for s in str.scan(/!=|==|<=|>=|\(\)|[\:\,\=\?\<\>\+\-\*\/\!\|\&\^\(\)]|"[^"]*"|[@#a-zA-Z 0-9\.]*/)
      next if s.empty?
      if s=="," and pc==0
        e=Expr.new(arr)
        e.chk_vaggr(expr)
        expr<<e
        arr=[]
        next
      end
      pc+=1 if s=="("
      pc-=1 if s==")"
      arr<<s
    end
    if not arr.empty?
      e=Expr.new(arr)
      e.chk_vaggr(expr)
      expr<<e
    end
    return expr
  end

  def exec(fld,av,vars,bl=false)
    s=[]
    ar=[]
    for o in @ops
      if o=="count"
        if s.length<1
          $stderr.puts ME+"expr: count(): need argument"
          exit
        end
        a=s.pop
        if !a
          r=av.shift
          r=0 if !r
          s.push(r)
          ar.push(r)
          next
        end
        if a.class==String
          v=(a.empty? or a=="-") ? 0 : 1
          r=av.shift
          r=0 if !r
          v=v+r
          s.push(v)
          ar.push(v)
          next
        end
        a=a.to_i
        v=(a==0) ? 0 : 1
        r=av.shift
        r=0 if !r
        v=v+r
        s.push(v)
        ar.push(v)
        next
      end
      if o=="sum"
        if s.length<1
          $stderr.puts ME+"expr: sum(): need argument"
          exit
        end
        a=s.pop
        if !a
          $stderr.puts ME+"expr: sum(): invalid argument"
          exit
        end
        v=a.to_f
        r=av.shift
        r=0.0 if !r
        v=v+r
        s.push(v)
        ar.push(v)
        next
      end
      if o=="sumif"
        if s.length<2
          $stderr.puts ME+"expr: sumif(): need 2 arguments"
          exit
        end
        b=s.pop
        a=s.pop
        if !b or !a
          $stderr.puts ME+"expr: sumif(): invalid arguments"
          exit
        end
        if b.class==String
          b=(b.empty? or b=="-") ? 0 : 1
        else
          b=b.to_i
        end
        v=(b==0) ? 0.0 : a.to_f
        r=av.shift
        r=0.0 if !r
        v=v+r
        s.push(v)
        ar.push(v)
        next
      end
      if o=="min"
        if s.length<1
          $stderr.puts ME+"expr: min(): need argument"
          exit
        end
        a=s.pop
        if !a
          $stderr.puts ME+"expr: min(): invalid argument"
          exit
        end
        v=a.to_f
        r=av.shift
        v=(r<v) ? r : v if r
        s.push(v)
        ar.push(v)
        next
      end
      if o=="max"
        if s.length<1
          $stderr.puts ME+"expr: max(): need argument"
          exit
        end
        a=s.pop
        if !a
          $stderr.puts ME+"expr: max(): invalid argument"
          exit
        end
        v=a.to_f
        r=av.shift
        v=(r>v) ? r : v if r
        s.push(v)
        ar.push(v)
        next
      end
      if o=="avg"
        if s.length<1
          $stderr.puts ME+"expr: avg(): need argument"
          exit
        end
        a=s.pop
        if !a
          $stderr.puts ME+"expr: avg(): invalid argument"
          exit
        end
        v=a.to_f
        rs=av.shift
        rc=av.shift
        if rs and rc
          rs+=v
          rc+=1
          v=rs/rc
        else
          rs=v
          rc=1
        end
        s.push(v)
        ar.push(rs,rc)
        next
      end
      if o=="add"
        if s.length<1
          $stderr.puts ME+"expr: add(): need argument"
          exit
        end
        a=s.pop
        if !a
          $stderr.puts ME+"expr: add(): invalid argument"
          exit
        end
        v=a.to_f
        r=av.shift
        r=0.0 if !r
        v=(bl) ? r+v : 0.0
        s.push(v)
        ar.push(v)
        next
      end
      if o=="sub"
        if s.length<1
          $stderr.puts ME+"expr: sub(): need argument"
          exit
        end
        a=s.pop
        if !a
          $stderr.puts ME+"expr: sub(): invalid argument"
          exit
        end
        v=a.to_f
        r=av.shift
        r=0.0 if !r
        v=(bl) ? r-v : v
        s.push(v)
        ar.push(v)
        next
      end
      if o=="icnt"
        if s.length<1
          $stderr.puts ME+"expr: icnt(): need argument"
          exit
        end
        a=s.pop
        if !a
          $stderr.puts ME+"expr: icnt(): invalid argument"
          exit
        end
        v=a.split(/[, ]+/).compact.length
        s.push(v)
        next
      end
      if o=="show"
        if s.length<1
          $stderr.puts ME+"expr: show(): need argument"
          exit
        end
        a=s.pop
        if !a
          s.push(0)
          next
        end
        if a.class==String
          a=(a.empty? or a=="-") ? 0 : 1
        else
          a=a.to_i
        end
        v=(a==0) ? 0 : 1
        s.push(v)
        next
      end
      if o=="pfxl"
        if s.length<1
          $stderr.puts ME+"expr: pfxl(): need argument"
          exit
        end
        a=s.pop
        if !a or a.class!=String
          $stderr.puts ME+"expr: pfxl(): invalid argument"
          next
        end
        d=(a.include?(":")) ? 128 : 32
        t=a.split("/")
        if t.length!=2
          s.push(d)
          next
        end
        v=t[1].to_i
        s.push(v)
        next
      end
      if o=="pfxc"
        if s.length<1
          $stderr.puts ME+"expr: pfxc(): need argument"
          exit
        end
        a=s.pop
        if !a or a.class!=String
          $stderr.puts ME+"expr: pfxc(): invalid argument"
          next
        end
        if a.include?(":")
          s.push(0)
          next
        end
        t=a.split("/")
        if t.length==2
          v=32-t[1].to_i
          s.push(1<<v)
          next
        end
        t=a.split(".")
        if t.length!=4
          s.push(0)
          next
        end
        b=t[3]
        t=b.split("-")
        if t.length!=2
          s.push(1)
          next
        end
        v=t[1].to_i-t[0].to_i
        s.push(v+1)
        next
      end
      if o=="!"
        a=s.pop
        if a.class==String
          a=(a.empty? or a=="-") ? 0 : 1
        else
          a=a.to_i
        end
        v=(a==0) ? 1 : 0
        s.push(v)
        next
      end
      if o=="?"
        c=s.pop
        b=s.pop
        a=s.pop
        if a.class==String
          a=(a.empty? or a=="-") ? 0 : 1
        else
          a=a.to_i
        end
        v=(a==0) ? c : b
        s.push(v)
        next
      end
      if o=="|"
        b=s.pop
        if b.class==String
          b=(b.empty? or b=="-") ? 0 : 1
        else
          b=b.to_i
        end
        a=s.pop
        if a.class==String
          a=(a.empty? or a=="-") ? 0 : 1
        else
          a=a.to_i
        end
        v=a|b
        s.push(v)
        next
      end
      if o=="&"
        b=s.pop
        if b.class==String
          b=(b.empty? or b=="-") ? 0 : 1
        else
          b=b.to_i
        end
        a=s.pop
        if a.class==String
          a=(a.empty? or a=="-") ? 0 : 1
        else
          a=a.to_i
        end
        v=a&b
        s.push(v)
        next
      end
      if o=="^"
        b=s.pop
        if b.class==String
          b=(b.empty? or b=="-") ? 0 : 1
        else
          b=b.to_i
        end
        a=s.pop
        if a.class==String
          a=(a.empty? or a=="-") ? 0 : 1
        else
          a=a.to_i
        end
        v=a^b
        s.push(v)
        next
      end
      if o=="+"
        b=s.pop.to_f
        a=s.pop.to_f
        v=a+b
        s.push(v)
        next
      end
      if o=="-"
        b=s.pop.to_f
        a=s.pop.to_f
        v=a-b
        s.push(v)
        next
      end
      if o=="*"
        b=s.pop.to_f
        a=s.pop.to_f
        v=a*b
        s.push(v)
        next
      end
      if o=="/"
        b=s.pop.to_f
        a=s.pop.to_f
        v=a/b
        s.push(v)
        next
      end
      if o=="=" or o=="=="
        b=s.pop
        if b.class==Fixnum
          a=s.pop.to_i
          v=(a==b) ? 1 : 0
        elsif b.class==Float
          a=s.pop.to_f
          v=(a==b) ? 1 : 0
        else 
          a=s.pop.downcase
          v=(a.include?(b.downcase)) ? 1 : 0
        end
        s.push(v)
        next
      end
      if o=="!="
        b=s.pop
        if b.class==Fixnum
          a=s.pop.to_i
          v=(a!=b) ? 1 : 0
        elsif b.class==Float
          a=s.pop.to_i
          v=(a!=b) ? 1 : 0
        else
          a=s.pop.downcase
          v=(a.include?(b.downcase)) ? 0 : 1
        end
        s.push(v)
        next
      end
      if o=="<"
        b=s.pop.to_f
        a=s.pop.to_f
        v=(a<b) ? 1 : 0
        s.push(v)
        next
      end
      if o=="<="
        b=s.pop.to_f
        a=s.pop.to_f
        v=(a<=b) ? 1 : 0
        s.push(v)
        next
      end
      if o==">"
        b=s.pop.to_f
        a=s.pop.to_f
        v=(a>b) ? 1 : 0
        s.push(v)
        next
      end
      if o==">="
        b=s.pop.to_f
        a=s.pop.to_f
        v=(a>=b) ? 1 : 0
        s.push(v)
        next
      end
      if /^"/.match(o)
        o=o.delete('"')
        s.push(o)
        next
      end
      if /^[0-9.]+$/.match(o)
        if o.include?(".")
          o=o.to_f
        else
          o=o.to_i
        end
        s.push(o)
        next
      end
      t=o.downcase
      if m=/^@(.*)/.match(t)
        if bl
          o="" if !o=vars["@"+m[1]]
        else
          o="" if !o=fld[m[1]]
          vars["@"+m[1]]=o
        end
      elsif fld.has_key?(t)
        o="" if !o=fld[t]
      elsif vars.has_key?(t)
        o="" if !o=vars[t]
      else
        $stderr.puts ME+"expr: unknown var: "+o
        exit
      end
      s.push(o)
    end
    if not av.empty?
      $stderr.puts ME+"syntax error"
      exit
    end
    av.replace(ar)
    v=s.pop
    vars[@fld]=v if @fld
    return v
  end

  def name
    return @fld if @fld
    return @str
  end

  def temp?
    return @temp
  end

  def aggr?(*ba)
    for b in ba
      return true if (@aggr&b)==b
    end
    return false
  end

  def show?
    return @show
  end

  def chk_vaggr(expr)
    vars=[]
    for o in @ops
      next if FNS.include?(o) or ALL.include?(o)
      vars<<o
    end
    $expr=[] if !$expr
    for e in expr+$expr
      next if !e.fld
      next if not e.aggr?(2)
      if vars.include?(e.fld)
        @aggr|=4
        return
      end
    end
  end
end

$vars={}
class Fields
  def initialize(flds)
    @flds=flds
    @attr={}
    @attr[1]={}
    @attr[2]={}
  end

  def attr(fld,n,t=nil)
    return @attr[n][fld] if !t
    v=@attr[n][fld]
    if $lst_fields.include?(fld)
      return if t=="-" or t=="?"
      return if t.start_with?("-")
      v=(v) ? v+","+t : t
      a=v.split(",")
      a.uniq!
      a.reject! do |x|
        next false if x.include?("-")
        next false if x.start_with?("*") or x.start_with?("+")
        xi=x.to_i
        f=false
        for y in a
          next if not y.include?("-")
          u=y.split("-")
          if xi>=u[0].to_i and xi<=u[1].to_i
            f=true
            break
          end
        end
        next f
      end
      a.sort! { |x,y| scomp(x,y) }
      v=a.join(",")
      @attr[n][fld]=v
      return
    end
    if $str_fields.include?(fld)
      v=(v) ? v+"; "+t : t
      @attr[n][fld]=v
      return
    end
    @attr[n][fld]=t
  end

  def cattr(fld)
    v=@attr[1][fld]
    if $str_fields.include?(fld)
      t=@attr[2][fld]
      return v if !t
      return t if !v
      return v if t==v
      return v+"; "+t
    end
    return v
  end

  def iattr(fld,t=nil)
    if t
      @attr[1][fld]=t
      return
    end
    v=@attr[1][fld]
    return v if v
    return 0
  end

  def [] k
    @attr[1][k]
  end

  def has_key?(k)
    return true if @attr[1].has_key?(k)
    return @flds.include?(k)
  end

  def merge(fld)
    1.upto(2) do |n|
      for f in $mrg_fields
        next if !v=fld.attr(f,n)
        attr(f,n,v)
      end
    end
    for f in $int_fields
      next if !v=fld[f]
      @attr[1][f]+=v
    end
  end

  def check(fld)
    v1=@attr[1][fld]
    v2=@attr[2][fld]
    return false if !v1 or !v2
    if $lst_fields.include?(fld)
      if v1.start_with?("*") or v2.start_with?("*")
        attr(fld,1,v2)
        return false
      end
      if v1.start_with?("+") or v2.start_with?("+")
        attr(fld,1,v2)
        return false
      end
    end
    return (v1==v2) ? false : true
  end
end

class Node
  attr_accessor :idx, :nm

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

  def name
    if @loc
      return @nm+' "'+@loc+'"'
    end
    return @nm
  end

  def type
    @tp
  end

  def color
    return ["#d8d8d8","#d8d8d8"] if !@tp
    return case @tp
      when("Gateway") then ["#ef715a","#b0de8f"]
      when("Router") then ["#ef715a","#ef715a"]
      when("Switch L2") then ["#9eb0ff","#9eb0ff"]
      when("Switch L3") then ["#9eb0ff","#ef715a"]
      when("Access Switch") then ["#9c9e9c","#9c9e9c"]
      when("Access Point") then ["#9ee0d0","#9ee0d0"]
      when("Accces Server") then ["#9ecc7d","#9ecc7d"]
      else ["#d8d8d8","#d8d8d8"]
    end
  end
end

class Link
  alias _dup dup
  attr_reader :n1, :n2, :if1, :if2, :flds, :av
  attr_accessor :ml, :we, :wecnt, :link

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

  def self.chk_links
    # sublinks
    i=0
    while i<$links.length
      li=$links[i]
      j=i+1
      for e in $expr
        li.exec(e) if not e.aggr?(4)
      end
      while j<$links.length
        lj=$links[j]
        if lj.link==li
          li.ml=true
          for e in $expr
            v=lj.exec(e,li.av) if not e.aggr?(4)
            li.flds.iattr(e.fld,v) if e.aggr?(2)
          end
          $links.delete_at(j)
          next
        end
        j+=1
      end
      i+=1
    end
    # portchannels
    i=0
    while i<$links.length
      li=$links[i]
      j=i+1
      while j<$links.length
        lj=$links[j]
        pj=nil
        for f in $agr_fields
          break if pj=lj.flds[f]
        end
        ok=false
        ok=true if pj and lj.n1==li.n1 and lj.n2==li.n2 and pj==li.if1
        if ok
          li.we+=lj.we
          $links.delete_at(j)
          next
        end
        j+=1
      end
      i+=1
    end
    # multilinks
    i=0
    while i<$links.length
      li=$links[i]
      j=i+1
      while j<$links.length
        lj=$links[j]
        ok=false
        ok=true if lj.n1==li.n1 and lj.n2==li.n2
        ok=true if lj.n1==li.n2 and lj.n2==li.n1
        if ok
          li.ml=true
          li.we+=lj.we
          li.wecnt+=1
          li.flds.merge(lj.flds)
          $links.delete_at(j)
          next
        end
        j+=1
      end
      i+=1
    end
  end

  def initialize(n1,n2,if1,if2,we,flds)
    @n1,@n2=n1,n2
    @if1,@if2=if1,if2
    @ml=false
    @we=we
    @wecnt=1
    @flds=Fields.new(flds)
    @link=nil
    @av={}
    @vars={}
  end

  def dup(nm,ifn)
    obj=_dup
    obj.send :fix,nm,ifn
    return obj
  end
    
  def speed(w=nil)
    return @we/@wecnt if !w
    @we=w if @we==0.0 or w<@we
  end

  def attr(attr,n,val=nil)
    return @flds.attr(attr,n,val) if val
    return @flds.attr(attr,n)
  end

  def iattr(attr,val=nil)
    return @flds.iattr(attr,val)
  end

  def cattr(attr)
    v=@flds.cattr(attr)
    return (v) ? "#{v.dump}" : '""'
  end

  def sattr(attr)
    v=@flds.cattr(attr)
    return (v) ? "#{v.dump}" : '""'
  end

  def sattr1(attr)
    v=@flds.attr(attr,1)
    return (v) ? "#{v.dump}" : '""'
  end

  def chk_fields()
    for f in $chk_fields
      if @flds.check(f)
        $stderr.printf ME+"Warning: %s mismatch: %s:%s <-> %s:%s\n",f,@n1.nm,@if1,@n2.nm,@if2
      end
    end
  end

  def exec(e,av=nil)
    if av
      bl=true
    else
      bl=false
      av=@av
    end
    av[e]=[] if !av[e]
    v=e.exec(@flds,av[e],$vars,bl).to_f
    @flds.iattr(e.fld,v)
    return v
  end

  private

  def fix(nm,ifn)
    @n2=nm
    @if2=ifn
  end
end

def get_node_type(s)
  return case s
    when(/^gw-/i) then "Gateway"
    when(/^rt-/i) then "Router"
    when(/^sw-/i) then "Switch L2"
    when(/^ap-/i) then "Access Point"
    when(/^as-/i) then "Access Server"
    when(/^swr-/i) then "Switch L3"
    when(/^sw3-/i) then "Switch L3"
    when(/^swa-/i) then "Access Switch"
    when(/^C1[78]/i) then "Router"
    when(/^C28/i) then "Router"
    when(/^C29/i) then "Switch L2"
    when(/^C3[5678]/i) then "Switch L3"
    when(/^C45/i) then "Switch L3"
    when(/^C6[58]/i) then "Switch L3"
    when(/^C7[23]/i) then "Router"
    when(/^C76/i) then "Switch L3"
    when(/^Quanta-/i) then "Switch L3"
    when(/^Wbx-/i) then "Switch L3"
    when(/^S3048-/i) then "Switch L3"
    else nil
  end
end

def get_node_type2(s)
  return case s
    when(/^GW/i) then "Gateway"
    when(/^RT/i) then "Router"
    when(/^SW/i) then "Switch L2"
    when(/^AP/i) then "Access Point"
    when(/^AS/i) then "Access Server"
    when(/^SW[R3]/i) then "Switch L3"
    when(/^SWA/i) then "Access Switch"
    else nil
  end
end

def _grp_expand(wet,w,str)
  return if !str or !w
  tmp=str.split(",")
  for t in tmp
    if not t.include?("-")
      wet[t]<<w
      next
    end
    tmp1=t.split("/")
    x=tmp1.pop
    s=tmp1.join("/")
    tmp2=x.split("-")
    a=tmp2[0].to_i
    b=tmp2[1].to_i
    a.upto(b) do |i|
      si=(s.empty?) ? i.to_s : s+"/"+i.to_s
      wet[si]=w
    end
  end
end

def get_speed(s)
  if tmp=/^([0-9.]*)([MGT])$/.match(s)
    t={"M" => 1, "G" => 1000, "T" => 1000000}
    return w=tmp[1].to_f*t[tmp[2]]
  end
  w=case s
    when("E") then 10.0
    when("FE") then 100.0
    when("GE") then 1000.0
    when("10GE") then 10000.0
    when("25GE") then 25000.0
    when("40GE") then 40000.0
    when("100GE") then 100000.0
    when("E1") then 2.0
    when("E2") then 8.4
    when("E3") then 34.4
    when("E4") then 139.3
    when("E5") then 564.9
    when("T1") then 1.5
    when("T1C") then 3.1
    when("T2") then 6.3
    when("T3") then 44.7
    when("T4") then 274.1
    when("T5") then 400.3
    when("DS1") then 1.5
    when("DS1C") then 3.1
    when("DS2") then 6.3
    when("DS3") then 44.7
    when("DS4") then 274.1
    when("DS5") then 400.3
    when("STM-0") then 51.8
    when("STM-1") then 155.5
    when("STM-4") then 622.0
    when("STM-16") then 2488.3
    when("STM-64") then 9953.2
    when("STM-256") then 39813.1
    when("STM-1024") then 159252.4
    when("OC-1") then 51.8
    when("OC-3") then 155.5
    when("OC-12") then 622.0
    when("OC-24") then 1244.1
    when("OC-48") then 2488.3
    when("OC-192") then 9953.2
    when("OC-768") then 39813.1
    when("OC-3072") then 159252.4
    else s.to_f
  end
  return w
end

def mk_wet(str)
  m=/\<(.*)\>/.match(str)
  return nil if !m
  wet={}
  if not m[1].include?(":")
    w=get_speed(m[1])
    wet["*"]=w
    return wet
  end
  tmp=m[1].split(" ")
  spd={}
  for t in tmp
    m=/(.*):(.*)/.match(t)
    next if !m
    m[2].split(",").each do |g|
      spd[g]=get_speed(m[1])
    end
  end
  wet["*"]=spd["*"] if spd["*"]
  if m=/\|[^ ]*\|/.match(str)
    gs=m[0].split("|")
    gs.shift
    idx=1
    for g in gs
      si=idx.to_s
      _grp_expand(wet,spd[si],g)
      idx+=1
    end
  end
  return wet
end

def port_speed(ifn,wet=nil)
  w=case ifn
    when(/^Et[0-9]/) then 10.0
    when(/^Fa[0-9]/) then 100.0
    when(/^Gi[0-9]/) then 1000.0
    when(/^Te[0-9]/) then 10000.0
    else nil
  end
  return w if w
  return 0.0 if !wet
  return wet[ifn] if wet[ifn]
  return wet["*"] if wet["*"]
  return 0.0
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+"[-n] [-I <pattern>] [-X <pattern>] [-S <pattern>] <file> ..."
  puts "  -n            - just validate (aka dry-run)"
  puts "  -I <pattern>  - include lines matching RegEx <pattern>"
  puts "  -X <pattern>  - exclude lines matching RegEx <pattern>"
  puts "  -S <pattern>  - skip blocks matching RegEx <pattern>"
  puts "  -e <expr>     - do simple math expr on every record"
  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]=="-I"
    i+=1
    if !ARGV[i]
      $stderr.puts ME+"Need argument for '-I' option"
      exit
    end
    str=regexfix(ARGV[i])
    $incl<<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<<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<<Regexp.new(str,true)
    i+=1
    next
  end
  if ARGV[i]=="-e"
    i+=1
    if !ARGV[i]
      $stderr.puts ME+"Need argument for '-e' option"
      exit
    end
    $expr+=Expr.parse(ARGV[i])
    i+=1
    next
  end
  if ARGV[i]=="-b"
    i+=1
    $sub=true
    next
  end
  if ARGV[i]=="-h"
    i+=1
    $hdrs=true
    next
  end
  if ARGV[i]=="-n"
    i+=1
    $check=true
    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

$nodes={}
$links=[]
for s in buf
  if tmp=/^# +([^ ]*)/.match(s)
    nm=tmp[1]
    m=/\[([^ ]*)\]/.match(s)
    ip=(m) ? m[1] : nil
    m=/"([^"]*)"/.match(s)
    loc=(m) ? m[1] : nil
    m=/\{(.*)\}/.match(s)
    type=(m) ? m[1] : nil
    tp=(type) ? get_node_type2(type) : get_node_type(nm)
    next if $nodes[nm]
    next if in_list(nm,$skip)
    $nodes[nm]=Node.new(nm,ip,tp,loc)
  end
end
inbl=igbl=false
hdr=fld=wet=nil
fields=ft=nil
n1=n2=nil
if1=if2=nil
l=bl=nil
vlan=nil
lif=nil
tmp=nil
a=nil
ll=[]
for s in buf
  if inbl
    if /^--+/.match(s)
      inbl=igbl=false
      hdr=fld=wet=nil
      idx=ln=nil
      fields=ft=nil
      n1=n2=nil
      if1=if2=nil
      l=bl=nil
      vlan=nil
      lif=nil
      next
    end
    next if igbl
    next if !n1
    tmp=s.split(/\t+/)
    next if !tmp[1]
    if tmp[0].empty?
      next if !l
      c=tmp.length
      next if c<2
      tc=/\t+/.match(s)[0].length
      i=ft.index(tc)
      next if !i or i<1
      if i==1
        ll<<tmp[i]
        i=j=2
        c-=1
      else
        j=1
      end
      while c>1
        f=fields[i]
        t=tmp[j]
        if t.start_with?("!")
          l.attr("comment",a,t)
          break
        end
        i+=1
        j+=1
        c-=1
        l.attr(f,a,t)
      end
      next
    end
    if l and not ll.empty?
      for t in ll
        if /:/.match(t)
          t1=t.split(/:/)
          nm=t1[0]
          if2=t1[1]
        else
          nm=t
          if2="NULL"
        end
        if !n2=$nodes[nm]
          next if $hdrs
          next if not $incl.empty? and not in_list(nm,$incl)
          next if in_list(nm,$excl)
          n2=Node.new(nm,nil,get_node_type(nm))
          $nodes[nm]=n2
        end
        $links<<l.dup(n2,if2) if !Link.get_link(n1,n2,if1,if2)
      end
    end
    l=nil
    ll=[]
    if tmp[0].start_with?("-")
      l=bl=nil
      next
    end
    if1=tmp[0]
    nm=tmp[1]
    if not $sub
      if /^  /.match(if1)
        if1=lif+"/"+if1.sub(/^  /,"")
      else
        lif=if1
      end
    end
    if /:/.match(nm)
      t1=nm.split(/:/)
      nm=t1[0]
      if2=t1[1]
    else
      if2="NULL"
    end
    if $sub and (/^  /.match(s))
      next if !bl
      n2=bl.n2
    elsif nm.empty?
      n2=n1
    else
      if nm.start_with?("-") or nm.start_with?("?") or nm.start_with?("(")
        l=bl=nil
        next
      end
      if !n2=$nodes[nm]
        next if $hdrs
        next if not $incl.empty? and not in_list(nm,$incl)
        next if in_list(nm,$excl)
        n2=Node.new(nm,nil,get_node_type(nm))
        $nodes[nm]=n2
      end
    end
    if m=/\{(.*)\}/.match(s)
      we=get_speed(m[1])
    else
      we1=port_speed(if1,wet)
      we2=port_speed(if2)
      we=(we2>0 and (we1==0 or we2<we1)) ? we2 : we1
    end
    if $sub and (/^  /.match(s))
      l=Link.new(n1,n2,if1,if2,we,fields)
      l.link=bl
      $links<<l
    elsif l=Link.get_link(n1,n2,if1,if2)
      l.speed(we)
      a=2
      bl=l
    else
      l=Link.new(n1,n2,if1,if2,we,fields)
      $links<<l
      a=1
      bl=l
    end
    l.attr("vlan",a,vlan) if vlan
    next if fields.empty?
    fields.length.times do |i|
      break if !tmp[i] or tmp[i].empty?
      f=fields[i]
      if tmp[i].start_with?("!")
        l.attr("comment",a,tmp[i])
        break
      end
      str=tmp[i]
      m=/\{.*\} (.*)/.match(str)
      str=m[1] if m
      m=/(.*) \{.*\}/.match(str)
      str=m[1] if m
      next if /\{.*\}/.match(str)
      l.attr(f,a,str)
    end
    if v=l.attr("speed",a)
      w=get_speed(v)
      l.speed(w)
    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
    wet=mk_wet(hdr)
    if !tmp=/^# ([^ ]*)/.match(hdr)
      igbl=true
      next
    end
    n1=$nodes[tmp[1]]
    if tmp=/^# .* \(([^ ]*)\)/.match(hdr)
      vlan="+#{tmp[1]}"
    end
    fields=[]
    ft=[0]
    tmp=fld.downcase.split(/\t+/)
    tmp.each { |t| fields.push(t) }
    tmp=fld.scan(/[^\t]*\t*/)
    tmp.pop
    tc=0
    for t in tmp
      tc+=t.count("\t")+t.count("^\t")/8
      ft<<tc
    end
    next
  end
  fld=s if hdr
end

for e in $expr
  next if !e.fld or e.temp?
  $int_fields<<e.fld if not $int_fields.include?(e.fld)
end
$links.each { |l| l.chk_fields }
exit if $check
Link.chk_links
for e in $expr
  next if not e.aggr?(4)
  $links.each { |l| l.exec(e) }
end

def int_flds_d
  str=""
  for s in $int_fields
    str+=", #{s} FLOAT"
  end
  return str
end

def int_flds_v(l)
  str=""
  for s in $int_fields
    str+=",%s:%s" % [s,l.iattr(s)._str(3)]
  end
  return str
end

i=0
tmp=[]
$nodes.each_value do |n|
  col=n.color
  tmp<<"{name:'%s',col1:'%s',col2:'%s'}" % [n.name,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,vlan:%s,vpi:%s,vci:%s,comment:%s%s}" % [l.n1.idx,l.n2.idx,l.ml,l.speed,l.sattr1("vlan"),l.sattr1("vpi"),l.sattr1("vci"),l.cattr("comment"),int_flds_v(l)]
end
lbuf="var links=[\n"+tmp.join(",\n")+"\n];"

begin
  f=File.open("/tmp/links.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={"
str=""
if not $int_fields.empty?
  $int_fields.each { |s| str+="'%s'," % s }
end
f.puts "int_flds:[%s]" % str.chop
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/links.htm") }