# cal - interfaz más agradable para /usr/bin/cal

case $# in   # $# es el número de argumentos
# Thu Oct 11 09:59:36 CLT 2001
0) set `date`; m=$2; y=$6;; # set define $1, $2, etc.
1) m=$1; set `date`; y=$6;; # un argumento ==> año
*) m=$1; y=$2;;             # dos args ==> mes y año
esac

case $m in
jan*|Jan*) m=1;;
feb*|Feb*) m=2;;
mar*|Mar*) m=3;;
apr*|Apr*) m=4;;
may|May)   m=5;;
jun*|Jun*) m=6;;
jul*|Jul*) m=7;;
aug*|Aug*) m=8;;
sep*|Sep*) m=9;;
oct*|Oct*) m=10;;
nov*|Nov*) m=11;;
dec*|Dec*) m=12;;
[1-9]|10|11|12) ;;
*) y=$m; m="";; # sólo año
esac
/usr/bin/cal $m $y # ejecutamos el verdadero cal