Release calc version 2.11.0t10.5.1

cal/qtime.cal

@@ -1,68 +0,0 @@
-/*
- * qtime - Display time as English sentence
- *
- * usage:
- *	qtime(utc_hr_offset)
- *
- *	utc_hr_offset	Offset from UTC in hours.
- *
- * Written by: Klaus Alexander Seistrup <kseis@magnetic-ink.dk>
- * With minor mods by: Landon Curt Noll <http://reality.sgi.com/chongo/>
- *
- * See:
- *	http://www.magnetic-ink.dk/download/qtime.html
- *
- * for examples of qtime() written on other languages.
- *
- * @(#) $Revision: 29.1 $
- * @(#) $Id: qtime.cal,v 29.1 1999/12/14 09:15:32 chongo Exp $
- * @(#) $Source: /usr/local/src/cmd/calc/cal/RCS/qtime.cal,v $
- *
- * This file is not covered under version 2.1 of the GNU LGPL.
- */
-
-
-/*
- * qtime - Display time as English sentence
- */
-define qtime(utc_hr_offset)
-{
-	static mat hr[12] = {
-	  "twelve", "one", "two", "three", "four", "five",
-	  "six", "seven", "eight", "nine", "ten", "eleven"
-	};
-	static mat mn[7] = {
-	  "", "five ", "ten ", "a quarter ", "twenty ", "twenty-five ", "half "
-	};
-	static mat ny[5] = {
-	  "nearly ", "almost ", "", "just after ", "after "
-	};
-	static mat up[3] = {
-	  "to ", "", "past "
-	};
-	local adj_mins = (((time() + utc_hr_offset*3600) % 86400) + 30)//60+27;
-	local hours = (adj_mins // 60) % 12;
-	local minutes = adj_mins % 60;
-	local almost =	minutes % 5;
-	local divisions = (minutes // 5) - 5;
-	local to_past_idx =	 divisions > 0 ? 1 : 0;
-
-	if (divisions < 0) {
-		divisions = -divisions;
-		to_past_idx = -1;
-	}
-	++to_past_idx;
-
-	/*
-	 * Print the English sentence
-	 *
-	 * We avoid forward and back quotes just to show that the char()
-	 * builtin function can be used in conjunction with a printf.
-	 */
-	printf("It%cs %s%s%s%s",
-	       char(0x27), ny[almost], mn[divisions],
-	       up[to_past_idx], hr[hours]);
-	if (divisions == 0)
-		printf(" o%cclock", char(0x27));
-	print ".";
-}