BEGIN   {
       # we need the number of bytes in a packet to do the output
       # in packet numbers rather than byte numbers.
       if (packetsize <= 0)
               packetsize = 512
       expectNext = 1
       lastwin = -1
       }
       {
       # convert tcp trace to send/ack form.
       n = split ($1,t,":")
       tim = t[1]*3600 + t[2]*60 + t[3]
       if (NR <= 1) {
               tzero = tim
               ltim = tim
               OFS = "\t"
       }
       if ($6 != "ack") {
               # we have a data packet record:
               # ignore guys with syn, fin or reset 'cause we
               # can't handle their sequence numbers.  Try to
               # detect and add a flag character for 'anomalies':
               #   * -> re-sent packet
               #   - -> packet after hole (missing packet(s))
               #   # -> odd size packet
               if ($5 !~ /[SFR]/) {
                       i = index($6,":")
                       j = index($6,"(")
                       strtSeq = substr($6,1,i-1)
                       endSeq = substr($6,i+1,j-i-1)
                       len = endSeq - strtSeq
                       id = endSeq
                       if (! timeOf[id])
                               timeOf[id] = tim
                       if (endSeq - expectNext < 0)
                               flag = "*"
                       else {
                               if (strtSeq - expectNext > 0)
                                       flag = "-"
                               else if (len != packetsize)
                                       flag = "#"
                               else
                                       flag = " "
                               expectNext = endSeq
                       }
                       printf "%7.2f\t%7.2f\t%s send %s %d", tim-tzero, tim-ltim,\
                               flag, $5, strtSeq
                       if (++timesSent[id] > 1)
                               printf "  (%.2f) [%d]", tim - timeOf[id], timesSent[id]
                       if (len != packetsize)
                               printf " <%d>", len
               }
       } else {
               id = $7

               printf "%7.2f\t%7.2f\t%s  ack %s %d", tim-tzero, tim-ltim,\
                       flag, $5, id
               if ($9 != lastwin) {
                       printf "  win %d", $9
                       lastwin = $9
               }
               printf "  (%.2f)", tim - timeOf[id]
               if (++timesAcked[id] > 1)
                       printf " [%d]", timesAcked[id]
       }
       printf "\n"
       ltim = tim
       }