rainlance/amiga-tz
1
0
Fork 0
mirror of https://frontier.innolan.net/rainlance/amiga-tz.git synced 2026-09-19 06:44:18 +00:00
Code Releases Activity

South Australia

Browse Source 
SCCS-file: yearistype.sh
SCCS-SID: 7.2
This commit is contained in:
Arthur David Olson
2012-07-18 03:02:08 -04:00
committed by Paul Eggert
parent 93a4378aa3
commit a80c4f9363
1 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
yearistype.sh
+18
View File
@@ -0,0 +1,18 @@
#! /bin/sh
: '%W%'
case $#-$2 in
2-odd) case $1 in
*[13579]) exit 0 ;;
*) exit 1 ;;
esac ;;
2-even) case $1 in
*[24680]) exit 0 ;;
*) exit 1 ;;
esac ;;
2-*) echo "$0: wild type - $2" >&2
exit 1 ;;
*) echo "$0: usage is $0 year type" >&2
exit 1 ;;
esac