12744Swollman#! /bin/sh 22744Swollman 3163299Sru: 'This file is in the public domain, so clarified as of' 4163299Sru: '2006-07-17 by Arthur David Olson.' 52744Swollman 664496Swollmancase $#-$1 in 764496Swollman 2-|2-0*|2-*[!0-9]*) 8273438Sdelphij echo "$0: wild year: $1" >&2 964496Swollman exit 1 ;; 1064496Swollmanesac 1164496Swollman 122744Swollmancase $#-$2 in 13149511Swollman 2-even) 1464496Swollman case $1 in 1564496Swollman *[24680]) exit 0 ;; 1664496Swollman *) exit 1 ;; 1764496Swollman esac ;; 1864496Swollman 2-nonpres|2-nonuspres) 1964496Swollman case $1 in 2064496Swollman *[02468][048]|*[13579][26]) exit 1 ;; 2164496Swollman *) exit 0 ;; 2264496Swollman esac ;; 23149511Swollman 2-odd) 2464496Swollman case $1 in 2564496Swollman *[13579]) exit 0 ;; 2664496Swollman *) exit 1 ;; 2764496Swollman esac ;; 2864496Swollman 2-uspres) 2964496Swollman case $1 in 3064496Swollman *[02468][048]|*[13579][26]) exit 0 ;; 3164496Swollman *) exit 1 ;; 3264496Swollman esac ;; 33149511Swollman 2-*) 34273438Sdelphij echo "$0: wild type: $2" >&2 ;; 352744Swollmanesac 3664496Swollman 3764496Swollmanecho "$0: usage is $0 year even|odd|uspres|nonpres|nonuspres" >&2 3867575Swollmanexit 1 39