c0dbee2000-08-01Mirar (Pontus Hagland) #! /bin/sh
aa9f722018-12-18Henrik Grubbström (Grubba) : 'Determine whether year is of appropriate type (this file is obsolete).'
c0dbee2000-08-01Mirar (Pontus Hagland) 
84701a2007-02-01Henrik Grubbström (Grubba) : 'This file is in the public domain, so clarified as of' : '2006-07-17 by Arthur David Olson.'
de860a2000-08-12Mirar (Pontus Hagland) case $#-$1 in 2-|2-0*|2-*[!0-9]*)
dc03802014-08-18Henrik Grubbström (Grubba)  echo "$0: wild year: $1" >&2
de860a2000-08-12Mirar (Pontus Hagland)  exit 1 ;; esac
c0dbee2000-08-01Mirar (Pontus Hagland)  case $#-$2 in
84701a2007-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 ;;
84701a2007-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 ;;
84701a2007-02-01Henrik Grubbström (Grubba)  2-*)
dc03802014-08-18Henrik Grubbström (Grubba)  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