#!/bin/sh
# vim: ft=sh ts=4 sw=4 et
#
# This script extracts information about the sizes of stack frames of
# procedures in various versions of the Mercury compiler (compiled with
# the LLDS back end) from the C files saved by makebatch -c.
#
# Given a batch named x, this script puts the summary files in SP.x.n,
# where n goes from 01 up to the number of versions in the batch.
#
# These files contains one line per procedure that has a stack frame.
# Each line contains the following fields.
#
# - the version number of the batch;
# - the size of the stack frame of the procedure;
# - the id of the stack containing the stack frame (det or non);
# - an indication whether the procedure is from a "pred" or a "func";
# - the id of the procedure, complete with module name, arity and mode number.

if test $# -lt 1
then
    echo "Usage: frame_sizes batchname ..."
    exit 1
fi

for prefix in $@
do
    n=1
    n2=`two_digit $n`
    while test -d $prefix.library.$n2
    do
        echo "creating SP.$prefix.$n2 and AVG.$prefix.$n2"
        gunzip $prefix.library.$n2/*.c.gz $prefix.compiler.$n2/*.c.gz > /dev/null 2>&1
        ( echo VERSION_NUMBER $n2 ; cat $prefix.library.$n2/*.c $prefix.compiler.$n2/*.c ) | extract_incr_sp > SP.$prefix.$n2
        gzip $prefix.library.$n2/*.c $prefix.compiler.$n2/*.c > /dev/null 2>&1
        avg_frame_size SP.$prefix.$n2 > AVG.$prefix.$n2
        n=`expr $n + 1`
        n2=`two_digit $n`
    done
done