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