mirror of
https://github.com/lcn2/calc.git
synced 2025-08-16 01:03:29 +03:00
69 lines
1.7 KiB
Plaintext
69 lines
1.7 KiB
Plaintext
/*
|
|
* 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 ".";
|
|
}
|