#!/bin/bash
#
# Copyright (c) 2011, Intel Corporation.
#
# SPDX-License-Identifier: GPL-2.0-or-later
#
# DESCRIPTION
# Given 'buildstats' data (generate by bitbake when setting
# USER_CLASSES ?= "buildstats" on local.conf), task names and a stats values
# (these are the ones preset on the buildstats files), outputs
# '<task> <recipe> <value_1> <value_2> ... <value_n>'. The units are the ones
# defined at buildstats, which in turn takes data from /proc/[pid] files
#
# Some useful pipelines
#
# 1. Tasks with largest stime (Amount of time that this process has been scheduled
#    in kernel mode) values
# $ buildstats.sh -b <buildstats> -s stime | sort -k3 -n -r | head
#
# 2. Min, max, sum utime (Amount  of  time  that  this process has been scheduled
#    in user mode) per task (in needs GNU datamash)
# $ buildstats.sh -b <buildstats> -s utime | datamash -t' ' -g1 min 3 max 3 sum 3 | sort -k4 -n -r
#
# AUTHORS
# Leonardo Sandoval <leonardo.sandoval.gonzalez@linux.intel.com>
#

# Stats, by type
TIME="utime:stime:cutime:cstime"
IO="IO wchar:IO write_bytes:IO syscr:IO read_bytes:IO rchar:IO syscw:IO cancelled_write_bytes"
RUSAGE="rusage ru_utime:rusage ru_stime:rusage ru_maxrss:rusage ru_minflt:rusage ru_majflt:\
rusage ru_inblock:rusage ru_oublock:rusage ru_nvcsw:rusage ru_nivcsw"

CHILD_RUSAGE="Child rusage ru_utime:Child rusage ru_stime:Child rusage ru_maxrss:Child rusage ru_minflt:\
Child rusage ru_majflt:Child rusage ru_inblock:Child rusage ru_oublock:Child rusage ru_nvcsw:\
Child rusage ru_nivcsw"

BS_DIR="tmp/buildstats"
RECIPE=""
TASKS="compile:configure:fetch:install:patch:populate_lic:populate_sysroot:unpack"
STATS="$TIME"
ACCUMULATE=""
HEADER="" # No header by default

function usage {
CMD=$(basename $0)
cat <<EOM
Usage: $CMD [-b buildstats_dir] [-t do_task]
  -b buildstats The path where the folder resides
                (default: "$BS_DIR")
  -r recipe     The recipe to be computed
  -t tasks      The tasks to be computed
                (default: "$TASKS")
  -s stats      The stats to be matched. Options: TIME, IO, RUSAGE, CHILD_RUSAGE
                or any other defined buildstat separated by colons, i.e. stime:utime
                (default: "$STATS")
                Default stat sets:
                    TIME=$TIME
                    IO=$IO
                    RUSAGE=$RUSAGE
                    CHILD_RUSAGE=$CHILD_RUSAGE
  -a            Accumulate all stats values for found recipes
  -h            Display this help message
EOM
}

# Parse and validate arguments
while getopts "b:r:t:s:aHh" OPT; do
    case $OPT in
    b)
        BS_DIR="$OPTARG"
        ;;
    r)
        RECIPE="$OPTARG"
        ;;
    t)
        TASKS="$OPTARG"
        ;;
    s)
        STATS="$OPTARG"
        ;;
    a)
        ACCUMULATE="y"
        ;;
    H)
        HEADER="y"
        ;;
    h)
        usage
        exit 0
        ;;
    *)
        usage
        exit 1
        ;;
    esac
done

# Ensure the buildstats folder exists
if [ ! -d "$BS_DIR" ]; then
    echo "ERROR: $BS_DIR does not exist"
    usage
    exit 1
fi

stats=""
IFS=":"
for stat in ${STATS}; do
    case $stat in
        TIME)
            stats="${stats}:${TIME}"
            ;;
        IO)
            stats="${stats}:${IO}"
            ;;
        RUSAGE)
            stats="${stats}:${RUSAGE}"
            ;;
        CHILD_RUSAGE)
            stats="${stats}:${CHILD_RUSAGE}"
            ;;
        *)
            stats="${STATS}"
            ;;
    esac
done

# remove possible colon at the beginning
stats="$(echo "$stats" | sed -e 's/^://1')"

# Provide a header if required by the user
if [ -n "$HEADER" ] ; then
    if [ -n "$ACCUMULATE" ]; then
        echo "task:recipe:accumulated(${stats//:/;})"
    else
        echo "task:recipe:$stats"
    fi
fi

for task in ${TASKS}; do
    task="do_${task}"
    for file in $(find ${BS_DIR} -type f -path *${RECIPE}*/${task} | awk 'BEGIN{ ORS=""; OFS=":" } { print $0,"" }'); do
        recipe="$(basename $(dirname $file))"
        times=""
        for stat in ${stats}; do
            [ -z "$stat" ] && { echo "empty stats"; }
            time=$(sed -n -e "s/^\($stat\): \\(.*\\)/\\2/p" $file)
            # in case the stat is not present, set the value as NA
            [ -z "$time" ] && { time="NA"; }
            # Append it to times
            if [ -z "$times" ]; then
                times="${time}"
            else
                times="${times} ${time}"
            fi
        done
        if [ -n "$ACCUMULATE" ]; then
            IFS=' '; valuesarray=(${times}); IFS=':'
            times=0
            for value in "${valuesarray[@]}"; do
                [ "$value" == "NA" ] && { echo "ERROR: stat is not present."; usage; exit 1; }
                times=$(( $times + $value ))
            done
        fi
        echo "${task} ${recipe} ${times}"
    done
done