awk '
/tree/ {FS="[\(\),]"; gsub(" ","");
  for (i=1; i<=NF; i++) {
    if ($i ~ /:.*\{/) {
      n=$i; sub(".*[{]","",n); sub("[}].*","",n);
      v=$i; if ($i ~ /.:/) {sub(":.*","",v); l=v; p=v} else {l=p}
      x[n]=v;
    }
  }
}
/fragment/ {FS="[][]" ; a=$(NF-1); gsub("[ .]","",a);
  for (i=1; i<=NF; i++) if ($i ~ /.*,.*,/) {
     s=$i; sub(" *,.*","", s);
     t=$i; sub("^[^,]*, *","", t);
     print a, x[s], t, $i;}
  }
' infile