diff options
author | William Harrington <kb0iic@berzerkula.org> | 2025-01-14 16:06:02 -0600 |
---|---|---|
committer | William Harrington <kb0iic@berzerkula.org> | 2025-01-14 16:06:02 -0600 |
commit | 0cc9b20c15460213e488bf5e70963b941482f628 (patch) | |
tree | bb0143245583ec846630f39bfa2258dba640ccd7 /spo256/currency.c | |
parent | 0e084ade5069756d487b5c948c48b777e37c00c9 (diff) |
Add source.
Diffstat (limited to 'spo256/currency.c')
-rw-r--r-- | spo256/currency.c | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/spo256/currency.c b/spo256/currency.c new file mode 100644 index 0000000..b79c036 --- /dev/null +++ b/spo256/currency.c @@ -0,0 +1,43 @@ +/* + * Currency rules, for USD. + * $Id: currency.c 1.2 Mon, 24 Mar 1997 12:25:37 -0500 dyfet $ + * Copyright (c) 1997 by Tycho Softworks. + * For conditions of distribution and reuse see product license. + */ + +#include <other/string.h> +#include <other/config.h> +#include "speak.h" + +void currency(char *str) +{ + char *cents; + ++str; + + cents = strchr(str, '.'); + if(cents) + *(cents++) = 0; + + if(atol(str) != 0) + { + number(str); + if(atol(str) > 1) + spo_word("dollars"); + else + spo_word("dollar"); + } + + if(cents) + { + if(atol(str) > 0) + spo_word("and"); + + number(cents); + if(atoi(cents) > 1) + spo_word("cent"); + else + spo_word("cents"); + } +} + + |