c0dbee2000-08-01Mirar (Pontus Hagland) #! /bin/sh
8eaebe2007-02-01Henrik Grubbström (Grubba) : 'This file is in the public domain, so clarified as of' : '2006-07-17 by Arthur David Olson.' : '@(#)yearistype.sh 8.2'
de860a2000-08-12Mirar (Pontus Hagland)  case $#-$1 in 2-|2-0*|2-*[!0-9]*) echo "$0: wild year - $1" >&2 exit 1 ;; esac
c0dbee2000-08-01Mirar (Pontus Hagland)  case $#-$2 in
8eaebe2007-02-01Henrik Grubbström (Grubba)  2-even)
de860a2000-08-12Mirar (Pontus Hagland)  case $1 in *[24680]) exit 0 ;; *) exit 1 ;; esac ;; 2-nonpres|2-nonuspres) case $1 in *[02468][048]|*[13579][26]) exit 1 ;; *) exit 0 ;; esac ;;
8eaebe2007-02-01Henrik Grubbström (Grubba)  2-odd)
de860a2000-08-12Mirar (Pontus Hagland)  case $1 in *[13579]) exit 0 ;; *) exit 1 ;; esac ;; 2-uspres) case $1 in *[02468][048]|*[13579][26]) exit 0 ;; *) exit 1 ;; esac ;;
8eaebe2007-02-01Henrik Grubbström (Grubba)  2-*)
de860a2000-08-12Mirar (Pontus Hagland)  echo "$0: wild type - $2" >&2 ;;
c0dbee2000-08-01Mirar (Pontus Hagland) esac
de860a2000-08-12Mirar (Pontus Hagland)  echo "$0: usage is $0 year even|odd|uspres|nonpres|nonuspres" >&2
059cb82000-11-15Mirar (Pontus Hagland) exit 1