1#!/bin/sh
2#
3# Copyright (C) 2002-2003 by Johan van Selst and Marc Olzheim
4#
5# alias predict "prod $2 ${3:-} | ${pkglibdir}/luse.sh $1 p; prod $2 ${3:-} | ${pkglibdir}/luse.sh $1 u"
6# alias iron "predict i ${1:-*}"
7# alias dust "predict d ${1:-*}"
8# alias lcm "predict l ${1:-*}"
9# alias hcm "predict h ${1:-*}"
10# alias oil "predict o ${1:-*}"
11# alias radi "predict r ${1:-*}"
12#
13#
14if [ "$#" -lt 2 ]
15then
16	echo 'Missing argument(s)' >&2
17	exit 1
18elif [ "$#" -gt 2 ]
19then
20	echo 'Too many arguments' >&2
21	exit 1
22fi
23
24if [ "$1" = l ] ; then prod=lcm; use=l;
25elif [ "$1" = h ] ; then prod=hcm; use=h;
26elif [ "$1" = d ] ; then prod=dust; use=d;
27elif [ "$1" = i ] ; then prod=iron; use=i;
28elif [ "$1" = o ] ; then prod=oil; use=o;
29elif [ "$1" = r ] ; then prod=rad; use=r;
30fi
31
32if [ "$2" = p ] ; then
33	awk "/$prod/"' {n+=$5} END {print "Produced: " n}'
34elif [ "$2" = u ] ; then
35	perl -ne '$n += $& if /[0-9]+'$use'/; END { print "Used:     ". $n. "\n" }'
36fi
37