#!/bin/bash

echo "orig latencies global"
{ echo "delta" ; ls|grep '^orig-'|while read -r line; do cat $line/res/orig.csv|grep -Po "\d*µs"|grep -Po "\d*"; done } > orig_latencies_global.csv
echo "orig latencies distri"
{ echo "hs,type,delta";ls|grep '^orig-'|while read -r line; do cat $line/res/orig.csv|grep -Po "\d*µs"|grep -Po "\d*"|python3 ./format-data.py $line; done } > orig_latencies_distri.csv

echo "naive latencies global"
{ echo "delta" ; ls|grep '^naive-'|while read -r line; do cat $line/res/naive.csv|grep -Po "\d*µs"|grep -Po "\d*"; done } > naive_latencies_global.csv
echo "naive latencies distri"
{ echo "hs,type,delta";ls|grep '^naive-'|while read -r line; do cat $line/res/naive.csv|grep -Po "\d*µs"|grep -Po "\d*"|python3 ./format-data.py $line; done } > naive_latencies_distri.csv

echo "rr latencies global"
{ echo "delta" ; ls|grep '^rr-'|while read -r line; do cat $line/res/rr.csv|grep -Po "\d*µs"|grep -Po "\d*"; done } > rr_latencies_global.csv
echo "rr latencies distri"
{ echo "hs,type,delta";ls|grep '^rr-'|while read -r line; do cat $line/res/rr.csv|grep -Po "\d*µs"|grep -Po "\d*"|python3 ./format-data.py $line; done } > rr_latencies_distri.csv
{ echo 'run,rcv' ; ls|grep '^rr-'|while read -r line; do echo -n "$line,"; cat $line/res/rr.csv|grep -Po "\d*µs"|grep -Po "\d*"|wc -l; done } > rr_lost.csv
{ echo "run,pkt_id"; ls|grep '^rr-'|while read line; do comm -23 <(seq 1 6000|sort) <(grep -Po 'Packet \d*' $line/res/rr.csv | grep -Po '\d*'|sort) | sort -n | while read e; do echo "$line,$e"; done; done } > rr_missed.csv

echo "rrh latencies global"
{ echo "delta" ; ls|grep '^rrh-'|while read -r line; do cat $line/res/rrh.csv|grep -Po "\d*µs"|grep -Po "\d*"; done } > rrh_latencies_global.csv
echo "rrh latencies distri"
{ echo "hs,type,delta";ls|grep '^rrh-'|while read -r line; do cat $line/res/rrh.csv|grep -Po "\d*µs"|grep -Po "\d*"|python3 ./format-data.py $line; done } > rrh_latencies_distri.csv
{ echo 'run,rcv' ; ls|grep '^rrh-'|while read -r line; do echo -n "$line,"; cat $line/res/rrh.csv|grep -Po "\d*µs"|grep -Po "\d*"|wc -l; done } > rrh_lost.csv
{ echo "run,dead_links"; ls|grep '^rrh-'|while read line; do echo -n "$line,"; grep -Po 'Blacklist link=\d' $line/log/server-donar-stdout.log | sort | uniq -c | wc -l; done } > rrh_blacklisted.csv

{ 
  echo "run,pkt_id";
  ls \
  | grep '^rrh-' \
  | while read line; do 
      comm -23 \
        <(seq 1 6000 \
          | sort) \
        <(grep -Po 'Packet \d*' $line/res/rrh.csv \
          | grep -Po '\d*' \
          | sort) \
      | sort -n \
      | while read e; do
          echo "$line,$e"; 
        done 
    done 
} > rrh_missed.csv

{ 
  echo 'run,role,pos,count' ;
  ls \
  | grep '^rrh-' \
  | for ct in {client,server}; do 
      while read -r line; do
        grep -Po 'Blacklist link=\d' $line/log/$ct-donar-stdout.log \
        | grep -Po "\d" \
        | sort \
        | uniq -c \
        | grep -Po '^\s*\d*' \
        | grep -Po '\d*' \
        | sort -n -r \
        | { c=0; 
            while read a; do
              echo "$line,$ct,$c,$a"; 
              ((c++)); 
            done }
      done
    done
} > rrh_flip_backlist.csv